Main Page | Modules | Namespace List | Class Hierarchy | Alphabetical List | Class List | Directories | File List | Namespace Members | Class Members | File Members | Related Pages | Examples

xerbla.c

Go to the documentation of this file.
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 

Generated on Wed Sep 5 12:54:28 2007 for DSACSS Operational Code by  doxygen 1.3.9.1