Skip Navigation Links
Numerical Libraries
Linear Algebra
Differential Equations
Optimization
Samples
Skip Navigation Links
Linear Algebra
CSLapack
CSBlas
   1:  #region Translated by Jose Antonio De Santiago-Castillo.
   2:   
   3:  //Translated by Jose Antonio De Santiago-Castillo. 
   4:  //E-mail:JAntonioDeSantiago@gmail.com
   5:  //Web: www.DotNumerics.com
   6:  //
   7:  //Fortran to C# Translation.
   8:  //Translated by:
   9:  //F2CSharp Version 0.71 (November 10, 2009)
  10:  //Code Optimizations: None
  11:  //
  12:  #endregion
  13:   
  14:  using System;
  15:  using DotNumerics.FortranLibrary;
  16:   
  17:  namespace DotNumerics.CSLapack
  18:  {
  19:      /// <summary>
  20:      /// -- LAPACK auxiliary routine (version 3.1) --
  21:      /// Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
  22:      /// November 2006
  23:      /// Purpose
  24:      /// =======
  25:      /// 
  26:      /// XERBLA  is an error handler for the LAPACK routines.
  27:      /// It is called by an LAPACK routine if an input parameter has an
  28:      /// invalid value.  A message is printed and execution stops.
  29:      /// 
  30:      /// Installers may consider modifying the STOP statement in order to
  31:      /// call system-specific exception-handling facilities.
  32:      /// 
  33:      ///</summary>
  34:      public class XERBLA
  35:      {
  36:      
  37:          public XERBLA()
  38:          {
  39:      
  40:          }
  41:      
  42:          /// <summary>
  43:          /// Purpose
  44:          /// =======
  45:          /// 
  46:          /// XERBLA  is an error handler for the LAPACK routines.
  47:          /// It is called by an LAPACK routine if an input parameter has an
  48:          /// invalid value.  A message is printed and execution stops.
  49:          /// 
  50:          /// Installers may consider modifying the STOP statement in order to
  51:          /// call system-specific exception-handling facilities.
  52:          /// 
  53:          ///</summary>
  54:          /// <param name="SRNAME">
  55:          /// (input) CHARACTER*6
  56:          /// The name of the routine which called XERBLA.
  57:          ///</param>
  58:          /// <param name="INFO">
  59:          /// (input) INTEGER
  60:          /// The position of the invalid parameter in the parameter list
  61:          /// of the calling routine.
  62:          ///</param>
  63:          public void Run(string SRNAME, int INFO)
  64:          {
  65:   
  66:              #region Strings
  67:              
  68:              SRNAME = SRNAME.Substring(0, 6);  
  69:   
  70:              #endregion
  71:   
  72:   
  73:              #region Prolog
  74:              
  75:              // *
  76:              // *  -- LAPACK auxiliary routine (version 3.1) --
  77:              // *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
  78:              // *     November 2006
  79:              // *
  80:              // *     .. Scalar Arguments ..
  81:              // *     ..
  82:              // *
  83:              // *  Purpose
  84:              // *  =======
  85:              // *
  86:              // *  XERBLA  is an error handler for the LAPACK routines.
  87:              // *  It is called by an LAPACK routine if an input parameter has an
  88:              // *  invalid value.  A message is printed and execution stops.
  89:              // *
  90:              // *  Installers may consider modifying the STOP statement in order to
  91:              // *  call system-specific exception-handling facilities.
  92:              // *
  93:              // *  Arguments
  94:              // *  =========
  95:              // *
  96:              // *  SRNAME  (input) CHARACTER*6
  97:              // *          The name of the routine which called XERBLA.
  98:              // *
  99:              // *  INFO    (input) INTEGER
 100:              // *          The position of the invalid parameter in the parameter list
 101:              // *          of the calling routine.
 102:              // *
 103:              // * =====================================================================
 104:              // *
 105:              // *     .. Executable Statements ..
 106:              // *
 107:   
 108:              #endregion
 109:   
 110:              //ERROR-ERROR      WRITE( *, FMT = 9999 )SRNAME, INFO;
 111:              // *
 112:              return;
 113:              // *
 114:              // *
 115:              // *     End of XERBLA
 116:              // *
 117:          }
 118:      }
 119:  }