76 SUBROUTINE xerbla( SRNAME, INFO )
99 COMMON / infoc / infot, nout, ok, lerr
100 COMMON / srnamc / srnamt
105 IF( info.NE.infot )
THEN
106 IF( infot.NE.0 )
THEN
107 WRITE( nout, fmt = 9999 )
108 $ srnamt( 1:len_trim( srnamt ) ), info, infot
110 WRITE( nout, fmt = 9997 )
111 $ srname( 1:len_trim( srname ) ), info
115 IF( srname.NE.srnamt )
THEN
116 WRITE( nout, fmt = 9998 )
117 $ srname( 1:len_trim( srname ) ),
118 $ srnamt( 1:len_trim( srnamt ) )
123 9999
FORMAT(
' *** XERBLA was called from ', a,
' with INFO = ', i6,
124 $
' instead of ', i2,
' ***' )
125 9998
FORMAT(
' *** XERBLA was called with SRNAME = ', a,
126 $
' instead of ', a6,
' ***' )
127 9997
FORMAT(
' *** On entry to ', a,
' parameter number ', i6,
128 $
' had an illegal value ***' )
subroutine xerbla(SRNAME, INFO)
XERBLA