From cebeaaef292a375e31c0c375f5bc6e577c740b2d Mon Sep 17 00:00:00 2001 From: edoapra Date: Wed, 4 Oct 2023 17:22:50 -0700 Subject: [PATCH] commented out dbg printout --- src/mp2_grad/mp2_grad_doit.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mp2_grad/mp2_grad_doit.F b/src/mp2_grad/mp2_grad_doit.F index 7e8d8242ca..78cd71e330 100644 --- a/src/mp2_grad/mp2_grad_doit.F +++ b/src/mp2_grad/mp2_grad_doit.F @@ -142,7 +142,7 @@ c call util_file_name('kh',.true.,.true.,fnamek) if(rtdb_get(rtdb,'mp2:scratchdisk',mt_dbl,1,avail_file)) then avail_file=avail_file*1024d0*128d0 - write(0,*) ' #avail ',avail_file +cdbg write(0,*) ' #avail ',avail_file else avail_file=util_scratch_dir_avail_for_me()*128.0d0 endif