From b94b8f09ad5f875faab31c7782cbeb15d7bf2eeb Mon Sep 17 00:00:00 2001 From: edoapra Date: Wed, 24 Sep 2025 18:03:56 -0700 Subject: [PATCH] check g_dens allocation --- src/dplot/ao_rdm_read.F | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/dplot/ao_rdm_read.F b/src/dplot/ao_rdm_read.F index 3090901580..6e9797d80e 100644 --- a/src/dplot/ao_rdm_read.F +++ b/src/dplot/ao_rdm_read.F @@ -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)