comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 21:55:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

commented out dbg printout

Browse source
This commit is contained in:
edoapra 2023-10-04 17:22:50 -07:00
parent aa682c33a7
commit cebeaaef29
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mp2_grad/mp2_grad_doit.F
View file

@ -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