73 INTEGER blas_non_unit_diag, blas_unit_diag
74 parameter( blas_non_unit_diag = 131, blas_unit_diag = 132 )
81 IF(
lsame( diag,
'N' ) )
THEN
83 ELSE IF(
lsame( diag,
'U' ) )
THEN
integer function iladiag(DIAG)
ILADIAG
logical function lsame(CA, CB)
LSAME