00001 /* XERBLA.F -- translated by f2c (version 19941215). 00002 You must link the resulting object file with the libraries: 00003 -lf2c -lm (in that order) 00004 */ 00005 00006 #include "f2c.h" 00007 #include "cblasimpexp.h" 00008 00009 /* Subroutine */ int __IMPEXP__ xerbla_(srname, info, srname_len) 00010 char *srname; 00011 integer *info; 00012 ftnlen srname_len; 00013 { 00014 /* .. Scalar Arguments .. */ 00015 /* .. */ 00016 00017 /* Purpose */ 00018 /* ======= */ 00019 00020 /* XERBLA is an error handler for the Level 2 BLAS routines. */ 00021 00022 /* It is called by the Level 2 BLAS routines if an input parameter is */ 00023 /* invalid. */ 00024 00025 /* Installers should consider modifying the STOP statement in order to */ 00026 /* call system-specific exception-handling facilities. */ 00027 00028 /* Parameters */ 00029 /* ========== */ 00030 00031 /* SRNAME - CHARACTER*6. */ 00032 /* On entry, SRNAME specifies the name of the routine which */ 00033 /* called XERBLA. */ 00034 00035 /* INFO - INTEGER. */ 00036 /* On entry, INFO specifies the position of the invalid */ 00037 /* parameter in the parameter-list of the calling routine. */ 00038 00039 00040 /* Auxiliary routine for Level 2 Blas. */ 00041 00042 /* Written on 20-July-1986. */ 00043 00044 /* .. Executable Statements .. */ 00045 00046 /* WRITE (*,99999) SRNAME, INFO */ 00047 00048 /* STOP */ 00049 00050 00051 /* End of XERBLA. */ 00052 00053 /* L99999: */ 00054 } /* xerbla_ */ 00055