comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 14:15:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

remove errquit from xerbla

Browse source
This commit is contained in:
edoapra 2023-10-18 16:05:30 -07:00
parent 3aaf10dac6
commit 2b30fc57cd
No known key found for this signature in database
GPG key ID: E6E392F4E14FB937
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/blas/double/xerbla.F
View file

@ -1,5 +1,4 @@
SUBROUTINE XERBLA( SRNAME, INFO )
#include "errquit.fh"
*
* -- LAPACK auxiliary routine (version 2.0) --
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@ -40,8 +39,7 @@ c
*
WRITE( *, FMT = 9999 )SRNAME, INFO
*
* STOP
call errquit('xerbla:double: lapack error',911, BASIS_ERR)
STOP
*
9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
$ 'an illegal value' )