text: /* ilatrans.f -- translated by f2c (version 20100827).
     You must link the resulting object file with libf2c:
  	on Microsoft Windows system, link with libf2c.lib;
  	on Linux or Unix systems, link with .../path/to/libf2c.a -lm
  	or, if you install libf2c.a in a standard place, with -lf2c -lm
  	-- in that order, at the end of the command line, as in
  		cc *.o -lf2c -lm
  	Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
  
  		http://www.netlib.org/f2c/libf2c.zip
  */
  
  #include "f2c.h"
  
  /* > \brief \b ILATRANS */
  
  /*  =========== DOCUMENTATION =========== */
  
  /* Online html documentation available at */
  /*            http://www.netlib.org/lapack/explore-html/ */
  
  /* > \htmlonly */
  /* > Download ILATRANS + dependencies */
  /* > <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilatran
  s.f"> */
  /* > [TGZ]</a> */
  /* > <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilatran
  s.f"> */
  /* > [ZIP]</a> */
  /* > <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilatran
  s.f"> */
  /* > [TXT]</a> */
  /* > \endhtmlonly */
  
  /*  Definition: */
  /*  =========== */
  
  /*       INTEGER FUNCTION ILATRANS( TRANS ) */
  
  /*       .. Scalar Arguments .. */
  /*       CHARACTER          TRANS */
  /*       .. */
  
  
  /* > \par Purpose: */
  /*  ============= */
  /* > */
  /* > \verbatim */
  /* > */
  /* > This subroutine translates from a character string specifying a */
  /* > transposition operation to the relevant BLAST-specified integer */
  /* > constant. */
  /* > */
  /* > ILATRANS returns an INTEGER.  If ILATRANS < 0, then the input is not */
  /* > a character indicating a transposition operator.  Otherwise ILATRANS */
  /* > returns the constant value corresponding to TRANS. */
  /* > \endverbatim */
  
  /*  Arguments: */
  /*  ========== */
  
  
  /*  Authors: */
  /*  ======== */
  
  /* > \author Univ. of Tennessee */
  /* > \author Univ. of California Berkeley */
  /* > \author Univ. of Colorado Denver */
  /* > \author NAG Ltd. */
  
  /* > \date December 2016 */
  
  /* > \ingroup auxOTHERcomputational */
  
  /*  ===================================================================== */
  integer ilatrans_(char *trans, ftnlen trans_len)
  {
      /* System generated locals */
      integer ret_val;
  
      /* Local variables */
      extern logical lsame_(char *, char *, ftnlen, ftnlen);
  
  
  /*  -- LAPACK computational routine (version 3.7.0) -- */
  /*  -- LAPACK is a software package provided by Univ. of Tennessee,    -- */
  /*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- */
  /*     December 2016 */
  
  /*     .. Scalar Arguments .. */
  /*     .. */
  
  /*  ===================================================================== */
  
  /*     .. Parameters .. */
  /*     .. */
  /*     .. External Functions .. */
  /*     .. */
  /*     .. Executable Statements .. */
      if (lsame_(trans, "N", (ftnlen)1, (ftnlen)1)) {
  	ret_val = 111;
      } else if (lsame_(trans, "T", (ftnlen)1, (ftnlen)1)) {
  	ret_val = 112;
      } else if (lsame_(trans, "C", (ftnlen)1, (ftnlen)1)) {
  	ret_val = 113;
      } else {
  	ret_val = -1;
      }
      return ret_val;
  
  /*     End of ILATRANS */
  
  } /* ilatrans_ */
  
  