/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
H A D | argos_space_packw.F | 1 subroutine argos_space_packw(numwm,iwl,iwlp) argument 10 integer numwm,iwl(mwm,miw2),iwlp(mwm,npackw) 17 iwlp(i,j)=0 22 iwlp(i,j)=lshift(iwlp(i,j),nbitw(ipck))+iwl(i,ipck)
|
H A D | argos_space_unpackw.F | 1 subroutine argos_space_unpackw(numwm,iwl,iwlp) argument 10 integer numwm,iwl(mwm,miw2),iwlp(mwm,npackw) 19 iwl(i,ipck)=iand(iwlp(i,j),miwl(ipck)) 20 iwlp(i,j)=rshift(iwlp(i,j)-iwl(i,ipck),nbitw(ipck))
|
H A D | argos_space_pack_ga.F | 1 subroutine argos_space_pack_ga(numsa,isl,islp,numwm,iwl,iwlp) argument 10 integer numwm,iwl(mwm,miw2),iwlp(mwm,npackw) 24 call argos_space_packw(numwm,iwl,iwlp) 25 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_upd_i.F | 1 subroutine argos_space_upd_i(numsa,isl,islp,numwm,iwl,iwlp) argument 11 integer iwlp(mwm,npackw),islp(msa,npack) local 30 call argos_space_packw(numwm,iwl,iwlp) 31 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_gaputix.F | 1 subroutine argos_space_gaputix(node,iwl,iwlp,xw,numwm, argument 10 integer iwl(mwm,miw2),iwlp(mwm,npackw) 26 call argos_space_packw(numwm,iwl,iwlp) 27 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_gaputixv.F | 1 subroutine argos_space_gaputixv(node,iwl,iwlp,xw,xwcr, argument 11 integer iwl(mwm,miw2),iwlp(mwm,npackw) 28 call argos_space_packw(numwm,iwl,iwlp) 29 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_gagetixv.F | 1 subroutine argos_space_gagetixv(node,iwl,iwlp,xw,xwcr, argument 11 integer iwl(mwm,miw2),iwlp(mwm,npackw) 28 call ga_get(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm) 29 call argos_space_unpackw(numwm,iwl,iwlp)
|
H A D | argos_space_rmri.F | 3 + iwl,iwlp,xw,vw,xwcr,isl,islp,xs,vs,ipl) 15 integer iwlp(mwm,npackw),islp(msa,npack) 42 call argos_space_packw(nwmn,iwl,iwlp) 43 call ga_put(ga_iw,ili,ili+nwmn-1,jli,jli+npackw-1,iwlp,mwm) 91 call ga_get(ga_iw,ili,ili+nwmloc-1,jli,jli+npackw-1,iwlp,mwm) 92 call argos_space_unpackw(nwmloc,iwl,iwlp)
|
H A D | argos_space_gagetixvf.F | 1 subroutine argos_space_gagetixvf(node,iwl,iwlp,xw,xwcr,vw,fw, argument 10 integer iwl(mwm,miw2),iwlp(mwm,npackw) 28 call ga_get(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm) 29 call argos_space_unpackw(numwm,iwl,iwlp)
|
H A D | argos_space_wtmro.F | 2 + iwl,iwlp,xw,vw,xwcr,isl,islp,xs,vs,ipl) 13 integer iwlp(mwm,npackw),islp(msa,npack) 52 call ga_get(ga_iw,ili,ili+nwmn-1,jli,jli+npackw-1,iwlp,mwm) 53 call argos_space_unpackw(nwmn,iwl,iwlp)
|
H A D | argos_space_nbwait2.F | 2 + iwfr,iwto,jwfr,jwto,isfr,isto,jsfr,jsto,iwl,iwlp,isl,islp) 13 integer iwl(mwm,miw2),iwlp(mwm,npackw) 58 call argos_space_unpackw(jwto-jwfr+1,iwl(indexw,1),iwlp(indexw,1))
|
H A D | argos_space_gtxpbl.F | 2 + iwl,iwlp,xw,pw,pwp,iwfr,iwto,jwfr,jwto, 12 integer iwl(mwm,miw2),iwlp(mwm,npackw) 127 + iwlp(nwmloc+1,1),mwm) 129 + iwlp(nwmloc+1,1))
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
H A D | argos_space_packw.F | 1 subroutine argos_space_packw(numwm,iwl,iwlp) argument 10 integer numwm,iwl(mwm,miw2),iwlp(mwm,npackw) 17 iwlp(i,j)=0 22 iwlp(i,j)=lshift(iwlp(i,j),nbitw(ipck))+iwl(i,ipck)
|
H A D | argos_space_unpackw.F | 1 subroutine argos_space_unpackw(numwm,iwl,iwlp) argument 10 integer numwm,iwl(mwm,miw2),iwlp(mwm,npackw) 19 iwl(i,ipck)=iand(iwlp(i,j),miwl(ipck)) 20 iwlp(i,j)=ishft(iwlp(i,j)-iwl(i,ipck),-nbitw(ipck))
|
H A D | argos_space_upd_i.F | 1 subroutine argos_space_upd_i(numsa,isl,islp,numwm,iwl,iwlp) argument 11 integer iwlp(mwm,npackw),islp(msa,npack) 30 call argos_space_packw(numwm,iwl,iwlp) 31 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_pack_ga.F | 1 subroutine argos_space_pack_ga(numsa,isl,islp,numwm,iwl,iwlp) argument 10 integer numwm,iwl(mwm,miw2),iwlp(mwm,npackw) 24 call argos_space_packw(numwm,iwl,iwlp) 25 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_gaputix.F | 1 subroutine argos_space_gaputix(node,iwl,iwlp,xw,numwm, argument 10 integer iwl(mwm,miw2),iwlp(mwm,npackw) 26 call argos_space_packw(numwm,iwl,iwlp) 27 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_gaputixv.F | 1 subroutine argos_space_gaputixv(node,iwl,iwlp,xw,xwcr, argument 11 integer iwl(mwm,miw2),iwlp(mwm,npackw) 28 call argos_space_packw(numwm,iwl,iwlp) 29 call ga_put(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm)
|
H A D | argos_space_gagetixv.F | 1 subroutine argos_space_gagetixv(node,iwl,iwlp,xw,xwcr, argument 11 integer iwl(mwm,miw2),iwlp(mwm,npackw) 28 call ga_get(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm) 29 call argos_space_unpackw(numwm,iwl,iwlp)
|
H A D | argos_space_rmri.F | 3 + iwl,iwlp,xw,vw,xwcr,isl,islp,xs,vs,ipl) 15 integer iwlp(mwm,npackw),islp(msa,npack) 42 call argos_space_packw(nwmn,iwl,iwlp) 43 call ga_put(ga_iw,ili,ili+nwmn-1,jli,jli+npackw-1,iwlp,mwm) 91 call ga_get(ga_iw,ili,ili+nwmloc-1,jli,jli+npackw-1,iwlp,mwm) 92 call argos_space_unpackw(nwmloc,iwl,iwlp)
|
H A D | argos_space_gagetixvf.F | 1 subroutine argos_space_gagetixvf(node,iwl,iwlp,xw,xwcr,vw,fw, argument 10 integer iwl(mwm,miw2),iwlp(mwm,npackw) 28 call ga_get(ga_iw,il,il+numwm-1,jl,jl+npackw-1,iwlp,mwm) 29 call argos_space_unpackw(numwm,iwl,iwlp)
|
H A D | argos_space_wtmro.F | 2 + iwl,iwlp,xw,vw,xwcr,isl,islp,xs,vs,ipl) 13 integer iwlp(mwm,npackw),islp(msa,npack) 52 call ga_get(ga_iw,ili,ili+nwmn-1,jli,jli+npackw-1,iwlp,mwm) 53 call argos_space_unpackw(nwmn,iwl,iwlp)
|
H A D | argos_space_nbwait2.F | 2 + iwfr,iwto,jwfr,jwto,isfr,isto,jsfr,jsto,iwl,iwlp,isl,islp) 13 integer iwl(mwm,miw2),iwlp(mwm,npackw) 58 call argos_space_unpackw(jwto-jwfr+1,iwl(indexw,1),iwlp(indexw,1))
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/space/ |
H A D | sp_main.F | 241 call sp_packw(numwm,iwl,iwlp) 319 iwlp(i,j)=0 324 iwlp(i,j)=ishft(iwlp(i,j),nbitw(ipck))+iwl(i,ipck) 350 iwlp(i,j)=ishft(iwlp(i,j)-iwl(i,ipck),-nbitw(ipck)) 595 call sp_unpackw(numwm,iwl,iwlp) 648 call sp_unpackw(numwm,iwl,iwlp) 701 call sp_packw(numwm,iwl,iwlp) 800 call sp_packw(numwm,iwl,iwlp) 2183 + iwlp(indexw,1),mwm,handle_iw) 2321 + iwlp(indexw,1),mwm,handle_iw) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/space/ |
H A D | sp_main.F | 241 call sp_packw(numwm,iwl,iwlp) 319 iwlp(i,j)=0 324 iwlp(i,j)=lshift(iwlp(i,j),nbitw(ipck))+iwl(i,ipck) 350 iwlp(i,j)=rshift(iwlp(i,j)-iwl(i,ipck),nbitw(ipck)) 595 call sp_unpackw(numwm,iwl,iwlp) 648 call sp_unpackw(numwm,iwl,iwlp) 701 call sp_packw(numwm,iwl,iwlp) 800 call sp_packw(numwm,iwl,iwlp) 2183 + iwlp(indexw,1),mwm,handle_iw) 2321 + iwlp(indexw,1),mwm,handle_iw) [all …]
|