59 INTEGER FUNCTION ilaprec( PREC )
73 INTEGER BLAS_PREC_SINGLE, BLAS_PREC_DOUBLE, BLAS_PREC_INDIGENOUS,
75 parameter( blas_prec_single = 211, blas_prec_double = 212,
76 $ blas_prec_indigenous = 213, blas_prec_extra = 214 )
83 IF( lsame( prec,
'S' ) )
THEN
84 ilaprec = blas_prec_single
85 ELSE IF( lsame( prec,
'D' ) )
THEN
86 ilaprec = blas_prec_double
87 ELSE IF( lsame( prec,
'I' ) )
THEN
88 ilaprec = blas_prec_indigenous
89 ELSE IF( lsame( prec,
'X' ) .OR. lsame( prec,
'E' ) )
THEN
90 ilaprec = blas_prec_extra