Lines Matching defs:INFO
3390 SUBROUTINE XERBLA( SRNAME, INFO )
3410 INTEGER INFO
3421 IF( INFO.NE.INFOT )THEN
3423 WRITE( NOUT, FMT = 9999 )INFO, INFOT
3425 WRITE( NOUT, FMT = 9997 )INFO
3435 9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6, ' INSTEAD',
3439 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
