68 INTEGER blas_no_trans, blas_trans, blas_conj_trans
69 parameter( blas_no_trans = 111, blas_trans = 112,
70 $ blas_conj_trans = 113 )
73 IF( trans.EQ.blas_no_trans )
THEN
75 ELSE IF( trans.EQ.blas_trans )
THEN
77 ELSE IF( trans.EQ.blas_conj_trans )
THEN