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

check g_dens allocation

Browse source
This commit is contained in:
edoapra 2025-09-24 18:03:56 -07:00
parent 2396fdd48e
commit b94b8f09ad
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/dplot/ao_rdm_read.F
View file

@ -48,7 +48,7 @@ c end
c
character*(*) filename
integer basis
integer g_dens(3)
integer g_dens
c
integer nbf
integer l_ao_rdm,k_ao_rdm,ok
@ -73,6 +73,8 @@ c
ddblsize=MA_sizeof(MT_DBL,1,MT_BYTE)
call ga_sync()
ok = 0
c check g_dens
call ga_check_handle(g_dens, 'ao_dm_read:g_dens not allocated')
if (ga_nodeid() .eq. 0) then
open(unitno, status='old', form='unformatted', file=filename,
$ err=1000)