ilatrans function

int ilatrans(
  1. String TRANS
)

Implementation

int ilatrans(final String TRANS) {
  const BLAS_NO_TRANS = 111, BLAS_TRANS = 112, BLAS_CONJ_TRANS = 113;

  if (lsame(TRANS, 'N')) {
    return BLAS_NO_TRANS;
  } else if (lsame(TRANS, 'T')) {
    return BLAS_TRANS;
  } else if (lsame(TRANS, 'C')) {
    return BLAS_CONJ_TRANS;
  } else {
    return -1;
  }
}