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