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

errquit args fixes

Browse source
This commit is contained in:
edoapra 2023-10-19 16:42:31 -07:00
parent b8e5d3dce8
commit 7aabdea432
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
3 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/ddscf/movecs_frag.F
View file

@ -81,7 +81,7 @@ c
& INPUT_ERR)
if (.not. ga_create(MT_DBL, nbf_frag, nmo_frag(1),
$ ' frag mos', 32, 32, g_frag))
$ call errquit('movecs_fragment: GA for frag MOs', nmo_frag,
$ call errquit('movecs_fragment: GA for frag MOs', nmo_frag(1),
& GA_ERR)
if (.not. ma_push_get(mt_dbl, nbf_frag,
$ ' fragment eva', l_eval, k_eval)) call errquit

8
src/ddscf/uhf_hessv2_ext.F
View file

@ -2775,7 +2775,8 @@ c ---- Move g_Axreim --> g_Az1---- END
& GA_ERR)
enddo ! end-loop-iset (spin A,B)
enddo ! end-loop-cnt
if (.not. ga_destroy(g_Axreim)) call errquit('uhf_hv2e: Axreim',0,
if (.not. ga_destroy(g_Axreim))
c call errquit('uhf_hv2e: Axreim',0,
& GA_ERR)
if (debug) then
if (ga_nodeid().eq.0)
@ -4111,8 +4112,9 @@ c ---- Move g_Axreim --> g_Az---- END
& GA_ERR)
enddo ! end-loop-iset (spin A,B)
enddo ! end-loop-cnt
if (.not. ga_destroy(g_Axreim)) call errquit('uhf_hv2e: Axreim',0,
& GA_ERR)
if (.not. ga_destroy(g_Axreim))
& call errquit('uhf_hv2e: Axreim',0,
& GA_ERR)
if (debug) then
if (ga_nodeid().eq.0)
& write(*,*) '------- g_Az-1------ START'

2
src/nwdft/scf_dft/dft_fock_efield.F
View file

@ -92,7 +92,7 @@ C
$ mt_dbl, 1, exp_cutoff)) then
if (exp_cutoff .lt. 0d0)
$ call errquit (pname//"invalid negative exp_cutoff")
$ call errquit (pname//"invalid negative exp_cutoff",0,0)
if (.not. bas_numcont (ao_bas_han, ncont))