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