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