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: }