73 INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
74 parameter( blas_no_trans = 111, blas_trans = 112,
75 $ blas_conj_trans = 113 )
78 IF( trans.EQ.blas_no_trans )
THEN
80 ELSE IF( trans.EQ.blas_trans )
THEN
82 ELSE IF( trans.EQ.blas_conj_trans )
THEN
character *1 function chla_transtype(TRANS)
CHLA_TRANSTYPE