70 INTEGER blas_no_trans, blas_trans, blas_conj_trans
71 parameter( blas_no_trans = 111, blas_trans = 112,
72 $ blas_conj_trans = 113 )
75 IF( trans.EQ.blas_no_trans )
THEN
77 ELSE IF( trans.EQ.blas_trans )
THEN
79 ELSE IF( trans.EQ.blas_conj_trans )
THEN
character *1 function chla_transtype(trans)
CHLA_TRANSTYPE