1 SUBROUTINE XERBLA ( SRNAME, INFO ) 2 ! .. Modules 3 USE compar 4 5 ! .. Scalar Arguments .. 6 INTEGER INFO 7 CHARACTER(LEN=6) SRNAME 8 ! .. 9 ! 10 ! Purpose 11 ! ======= 12 ! 13 ! XERBLA is an error handler for the Level 2 BLAS routines. 14 ! 15 ! It is called by the Level 2 BLAS routines if an input parameter is 16 ! invalid. 17 ! 18 ! Installers should consider modifying the STOP statement in order to 19 ! call system-specific exception-handling facilities. 20 ! Parameters 21 ! ========== 22 ! 23 ! SRNAME - CHARACTER*6. 24 ! On entry, SRNAME specifies the name of the routine which 25 ! called XERBLA. 26 ! 27 ! INFO - INTEGER. 28 ! On entry, INFO specifies the position of the invalid 29 ! parameter in the parameter-list of the calling routine. 30 ! 31 ! 32 ! Auxiliary routine for Level 2 Blas. 33 ! 34 ! Written on 20-July-1986. 35 ! 36 ! .. Executable Statements .. 37 ! 38 WRITE (*,99999) myPE,SRNAME, INFO 39 40 ! STOP 41 call mfix_exit(myPE) 42 99999 FORMAT ( '(PE ',I6,'): ** On entry to ', A6, ' parameter number ', I2, & 43 ' had an illegal value' ) 44 ! End of XERBLA. 45 END SUBROUTINE XERBLA 46 47