INTEGER     BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS,
     $            BLAS_UPPER, BLAS_LOWER,
     $            BLAS_NON_UNIT_DIAG, BLAS_UNIT_DIAG,
     $            BLAS_LEFT_SIDE, BLAS_RIGHT_SIDE,
     $            BLAS_BASE, BLAS_T, BLAS_RND, BLAS_IEEE, BLAS_EMIN,
     $            BLAS_EMAX, BLAS_EPS, BLAS_PREC, BLAS_UNDERFLOW,
     $            BLAS_OVERFLOW, BLAS_SFMIN,
     $            BLAS_ONE_NORM, BLAS_REAL_ONE_NORM, BLAS_TWO_NORM,
     $            BLAS_FROBENIUS_NORM, BLAS_INF_NORM,
     $            BLAS_REAL_INF_NORM, BLAS_MAX_NORM, BLAS_REAL_MAX_NORM,
     $            BLAS_INCREASING_ORDER, BLAS_DECREASING_ORDER,
     $            BLAS_CONJ, BLAS_NO_CONJ,
     $            BLAS_JROT_OUTER, BLAS_JROT_INNER, BLAS_JROT_SORTED,
     $            BLAS_SINGLE, BLAS_DOUBLE, BLAS_INDIGENOUS, BLAS_EXTRA,
     $            BLAS_GENERAL, BLAS_SYMMETRIC, BLAS_HERMITIAN,
     $            BLAS_TRIANGULAR, BLAS_LOWER_TRIANGULAR, 
     $            BLAS_UPPER_TRIANGULAR,
     $            BLAS_COMPLEX, BLAS_REAL, BLAS_DOUBLE_PRECISION,
     $            BLAS_SINGLE_PRECISION,
     $            BLAS_NUM_ROWS, BLAS_NUM_COLS, BLAS_NUM_NONZEROS,
     $            BLAS_INVALID_HANDLE, BLAS_NEW_HANDLE,
     $            BLAS_OPEN_HANDLE, BLAS_VALID_HANDLE,
     $            BLAS_REGULAR, BLAS_IRREGULAR, BLAS_BLOCK,
     $            BLAS_UNASSEMBLED
      PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
     $            BLAS_CONJ_TRANS = 113,
     $            BLAS_UPPER = 121, BLAS_LOWER = 122,
     $            BLAS_NON_UNIT_DIAG = 131, BLAS_UNIT_DIAG = 132,
     $            BLAS_LEFT_SIDE = 141, BLAS_RIGHT_SIDE = 142,
     $            BLAS_BASE = 151, BLAS_T = 152, BLAS_RND = 153,
     $            BLAS_IEEE = 154, BLAS_EMIN = 155,
     $            BLAS_EMAX = 156, BLAS_EPS = 157,
     $            BLAS_PREC = 158, BLAS_UNDERFLOW = 159,
     $            BLAS_OVERFLOW = 160, BLAS_SFMIN = 161,
     $            BLAS_ONE_NORM = 171, BLAS_REAL_ONE_NORM = 172,
     $            BLAS_TWO_NORM = 173, BLAS_FROBENIUS_NORM = 174,
     $            BLAS_INF_NORM = 175, BLAS_REAL_INF_NORM = 176,
     $            BLAS_MAX_NORM = 177, BLAS_REAL_MAX_NORM = 178,
     $            BLAS_INCREASING_ORDER = 181,
     $            BLAS_DECREASING_ORDER = 182,
     $            BLAS_CONJ = 191, BLAS_NO_CONJ = 192,
     $            BLAS_JROT_INNER = 201, BLAS_JROT_OUTER = 202,
     $            BLAS_JROT_SORTED = 203,
     $            BLAS_PREC_SINGLE = 211, BLAS_PREC_DOUBLE = 212,
     $            BLAS_PREC_INDIGENOUS = 213, BLAS_PREC_EXTRA = 214,
     $            BLAS_GENERAL = 231, BLAS_SYMMETRIC = 232,
     $            BLAS_HERMITIAN = 233, BLAS_TRIANGULAR = 234,
     $            BLAS_LOWER_TRIANGULAR = 235, BLAS_UPPER_TRIANGULAR = 236,
     $            BLAS_COMPLEX = 241, BLAS_REAL = 242,
     $            BLAS_DOUBLE_PRECISION = 243, BLAS_SINGLE_PRECISION = 244,
     $            BLAS_NUM_ROWS = 251, BLAS_NUM_COLS = 252,
     $            BLAS_NUM_NONZEROS = 253,
     $            BLAS_INVALID_HANDLE = 261, BLAS_NEW_HANDLE = 262,
     $            BLAS_OPEN_HANDLE = 263, BLAS_VALID_HANDLE = 264,
     $            BLAS_REGULAR = 271, BLAS_IRREGULAR = 272,
     $            BLAS_BLOCK = 273, BLAS_UNASSEMBLED = 274 )