comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

same as commit 76d5bddd5c: Split ga_acc in smaller ga_acc on MPI-PR since gives large performance improvement on NERSC Cori

Browse source
This commit is contained in:
edoapra 2018-03-22 18:06:39 -07:00
parent d6bf5d25fe
commit 77ba9d53c2
No known key found for this signature in database
GPG key ID: 79CA3F28FF1B91CE
2 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ccsd/GNUmakefile
View file

@ -110,6 +110,10 @@ ifeq ($(HAVE_SET_GA_PROPERTY),Y)
endif
ifeq ($(ARMCI_NETWORK),MPI-PR)
LIB_DEFINES += -DACC_STRIPS
endif
LIBRARY = libccsd.a
include ../config/makelib.h

16
src/ccsd/moints_trp.F
View file

@ -532,7 +532,14 @@ cstaggering to avoid congestion in ga-acc
#endif
#ifndef NOCOMMS
ab = (a-olo)*nocc+b-ostart+1
#ifdef ACC_STRIPS
do i=ilo,ihi
call ga_acc(g_exch,(i-1)*nvir + 1,i*nvir,ab,ab,
C h1(1,i),nni,1.d0)
enddo
#else
call ga_acc(g_exch,ivlo,ivhi,ab,ab,h1,nni,1.d0)
#endif
#endif
enddo
do b=ostart,ostart+nocc-1
@ -581,7 +588,14 @@ cstaggering to avoid congestion in ga-acc
#endif
#ifndef NOCOMMS
ab = (a-olo)*nocc+b-ostart+1
call ga_acc(g_exch,jvlo,jvhi,ab,ab,h2,nnj,1.d0)
#ifdef ACC_STRIPS
do j=jlo,jhi
call ga_acc(g_exch,(j-1)*nvir + 1,j*nvir,ab,ab,
C h2(1,j),nnj,1.d0)
enddo
#else
call ga_acc(g_exch,jvlo,jvhi,ab,ab,h2,nnj,1.d0)
#endif
#endif
enddo
enddo