var/external/blas/xerbla.inc

   1       SUBROUTINE XERBLA(SRNAME,INFO)
   2 !
   3 !  -- LAPACK auxiliary routine (preliminary version) --
   4 !     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   5 !     November 2006
   6 !
   7 !     .. Scalar Arguments ..
   8       INTEGER INFO
   9       CHARACTER*6 SRNAME
  10 !     ..
  11 !
  12 !  Purpose
  13 !  =======
  14 !
  15 !  XERBLA  is an error handler for the LAPACK routines.
  16 !  It is called by an LAPACK routine if an input parameter has an
  17 !  invalid value.  A message is printed and execution stops.
  18 !
  19 !  Installers may consider modifying the STOP statement in order to
  20 !  call system-specific exception-handling facilities.
  21 !
  22 !  Arguments
  23 !  =========
  24 !
  25 !  SRNAME  (input) CHARACTER*6
  26 !          The name of the routine which called XERBLA.
  27 !
  28 !  INFO    (input) INTEGER
  29 !          The position of the invalid parameter in the parameter list
  30 !          of the calling routine.
  31 !
  32 !
  33       WRITE (*,FMT=9999) SRNAME,INFO
  34 !
  35       STOP
  36 !
  37  9999 FORMAT (' ** On entry to ',A6,' parameter number ',I2,' had ', &
  38              'an illegal value')
  39 !
  40 !     End of XERBLA
  41 !
  42       END SUBROUTINE XERBLA