3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310 INTEGER INFO
3311 CHARACTER*6 SRNAME
3312
3313 INTEGER INFOT, NOUT
3314 LOGICAL LERR, OK
3315 CHARACTER*6 SRNAMT
3316
3317 COMMON /infoc/infot, nout, ok, lerr
3318 COMMON /srnamc/srnamt
3319
3320 lerr = .true.
3321 IF( info.NE.infot )THEN
3322 IF( infot.NE.0 )THEN
3323 WRITE( nout, fmt = 9999 )info, infot
3324 ELSE
3325 WRITE( nout, fmt = 9997 )info
3326 END IF
3327 ok = .false.
3328 END IF
3329 IF( srname.NE.srnamt )THEN
3330 WRITE( nout, fmt = 9998 )srname, srnamt
3331 ok = .false.
3332 END IF
3333 RETURN
3334
3335 9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6, ' INSTEAD',
3336 $ ' OF ', i2, ' *******' )
3337 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', a6, ' INSTE',
3338 $ 'AD OF ', a6, ' *******' )
3339 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', i6,
3340 $ ' *******' )
3341
3342
3343