comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-29 06:35:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

bug fix for icrun=t

Browse source
This commit is contained in:
edoapra 2018-05-01 14:56:25 -07:00
parent 576ab5c269
commit 12dfbf0336
No known key found for this signature in database
GPG key ID: 79CA3F28FF1B91CE
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/tce/mrcc/tce_mrcc_energy.F
View file

@ -1555,11 +1555,13 @@ c call util_flush(6)
c endif
c kk ---
c
c - T1/X1 LOCALIZATION --
c - T1/X1 LOCALIZATION --
#if 0
if(ic_cc) then
if(.not.MA_POP_STACK(l_t1_local))
& call errquit('l_t1_local',2,MA_ERR)
end if
end if
#endif
c -----------------------
c
c kk ---

4
src/tce/mrcc/tce_mrcc_heff.F
View file

@ -533,7 +533,7 @@ c call errquit('YOU ARE USING INCOMPLETE MODEL SPACE!',2,MA_ERR)
nxt=NXTASKsub(-nprocs,1,mypgid)
call GA_Pgroup_SYNC(mypgid)
else
nxt=NXTASKsub(-nprocs,1)
nxt=NXTASK(-nprocs,1)
call GA_SYNC()
endif
endif
@ -1732,7 +1732,7 @@ c enddo
nxt=NXTASKsub(-nprocs,1,mypgid)
call GA_Pgroup_SYNC(mypgid)
else
nxt=NXTASKsub(-nprocs,1)
nxt=NXTASK(-nprocs,1)
call GA_SYNC()
endif
endif