Go to the documentation of this file.00001 SUBROUTINE XERBLA( SRNAME, INFO )
00002
00003
00004
00005
00006
00007
00008 CHARACTER*(*) SRNAME
00009 INTEGER INFO
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046 LOGICAL LERR, OK
00047 CHARACTER*32 SRNAMT
00048 INTEGER INFOT, NOUT
00049
00050
00051 INTRINSIC LEN_TRIM
00052
00053
00054 COMMON / INFOC / INFOT, NOUT, OK, LERR
00055 COMMON / SRNAMC / SRNAMT
00056
00057
00058
00059 LERR = .TRUE.
00060 IF( INFO.NE.INFOT ) THEN
00061 IF( INFOT.NE.0 ) THEN
00062 WRITE( NOUT, FMT = 9999 )
00063 $ SRNAMT( 1:LEN_TRIM( SRNAMT ) ), INFO, INFOT
00064 ELSE
00065 WRITE( NOUT, FMT = 9997 )
00066 $ SRNAME( 1:LEN_TRIM( SRNAME ) ), INFO
00067 END IF
00068 OK = .FALSE.
00069 END IF
00070 IF( SRNAME.NE.SRNAMT ) THEN
00071 WRITE( NOUT, FMT = 9998 )
00072 $ SRNAME( 1:LEN_TRIM( SRNAME ) ),
00073 $ SRNAMT( 1:LEN_TRIM( SRNAMT ) )
00074 OK = .FALSE.
00075 END IF
00076 RETURN
00077
00078 9999 FORMAT( ' *** XERBLA was called from ', A, ' with INFO = ', I6,
00079 $ ' instead of ', I2, ' ***' )
00080 9998 FORMAT( ' *** XERBLA was called with SRNAME = ', A,
00081 $ ' instead of ', A6, ' ***' )
00082 9997 FORMAT( ' *** On entry to ', A, ' parameter number ', I6,
00083 $ ' had an illegal value ***' )
00084
00085
00086
00087 END