00001 /* xerbla.f -- translated by f2c (version 20061008). 00002 You must link the resulting object file with libf2c: 00003 on Microsoft Windows system, link with libf2c.lib; 00004 on Linux or Unix systems, link with .../path/to/libf2c.a -lm 00005 or, if you install libf2c.a in a standard place, with -lf2c -lm 00006 -- in that order, at the end of the command line, as in 00007 cc *.o -lf2c -lm 00008 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g., 00009 00010 http://www.netlib.org/f2c/libf2c.zip 00011 */ 00012 00013 #include <stdio.h> 00014 00015 #include "f2c.h" 00016 #include "blaswrap.h" 00017 00018 /* Table of constant values */ 00019 00020 static integer c__1 = 1; 00021 00022 /* Subroutine */ int xerbla_(char *srname, integer *info) 00023 { 00024 /* Format strings */ 00025 static char fmt_9999[] = "(\002 ** On entry to \002,a,\002 parameter num" 00026 "ber \002,i2,\002 had \002,\002an illegal value\002)"; 00027 00028 /* Builtin functions */ 00029 integer s_wsfe(cilist *), i_len_trim(char *, ftnlen), do_fio(integer *, 00030 char *, ftnlen), e_wsfe(void); 00031 /* Subroutine */ int s_stop(char *, ftnlen); 00032 00033 /* Fortran I/O blocks */ 00034 static cilist io___1 = { 0, 6, 0, fmt_9999, 0 }; 00035 00036 00037 00038 /* -- LAPACK auxiliary routine (preliminary version) -- */ 00039 /* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */ 00040 /* November 2006 */ 00041 00042 /* .. Scalar Arguments .. */ 00043 /* .. */ 00044 00045 /* Purpose */ 00046 /* ======= */ 00047 00048 /* XERBLA is an error handler for the LAPACK routines. */ 00049 /* It is called by an LAPACK routine if an input parameter has an */ 00050 /* invalid value. A message is printed and execution stops. */ 00051 00052 /* Installers may consider modifying the STOP statement in order to */ 00053 /* call system-specific exception-handling facilities. */ 00054 00055 /* Arguments */ 00056 /* ========= */ 00057 00058 /* SRNAME (input) CHARACTER*(*) */ 00059 /* The name of the routine which called XERBLA. */ 00060 00061 /* INFO (input) INTEGER */ 00062 /* The position of the invalid parameter in the parameter list */ 00063 /* of the calling routine. */ 00064 00065 /* ===================================================================== */ 00066 00067 /* .. Intrinsic Functions .. */ 00068 /* .. */ 00069 /* .. Executable Statements .. */ 00070 00071 printf("** On entry to %6s, parameter number %2i had an illegal value\n", 00072 srname, *info); 00073 00074 00075 /* End of XERBLA */ 00076 00077 return 0; 00078 } /* xerbla_ */