MITgcm/optim/xerbla.F

d8317e9df0 Patr*0001       SUBROUTINE XERBLA( SRNAME, INFO )
                0002 *
                0003 *  -- LAPACK auxiliary routine (preliminary version) --
                0004 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
                0005 *     Courant Institute, Argonne National Lab, and Rice University
                0006 *     February 29, 1992
                0007 *
                0008 *     .. Scalar Arguments ..
                0009       CHARACTER*6        SRNAME
                0010       INTEGER            INFO
                0011 *     ..
                0012 *
                0013 *  Purpose
                0014 *  =======
                0015 *
                0016 *  XERBLA  is an error handler for the LAPACK routines.
                0017 *  It is called by an LAPACK routine if an input parameter has an
                0018 *  invalid value.  A message is printed and execution stops.
                0019 *
                0020 *  Installers may consider modifying the STOP statement in order to
                0021 *  call system-specific exception-handling facilities.
                0022 *
                0023 *  Arguments
                0024 *  =========
                0025 *
                0026 *  SRNAME  (input) CHARACTER*6
                0027 *          The name of the routine which called XERBLA.
                0028 *
                0029 *  INFO    (input) INTEGER
                0030 *          The position of the invalid parameter in the parameter list
                0031 *          of the calling routine.
                0032 *
                0033 *
                0034       WRITE( *, FMT = 9999 )SRNAME, INFO
                0035 *
                0036       STOP
                0037 *
                0038  9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
                0039      $      'an illegal value' )
                0040 *
                0041 *     End of XERBLA
                0042 *
                0043       END