Home
last modified time | relevance | path

Searched refs:iwlp (Results 1 – 25 of 42) sorted by relevance

12

/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/
H A Dargos_space_packw.F1 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 Dargos_space_unpackw.F1 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 Dargos_space_pack_ga.F1 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 Dargos_space_upd_i.F1 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 Dargos_space_gaputix.F1 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 Dargos_space_gaputixv.F1 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 Dargos_space_gagetixv.F1 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 Dargos_space_rmri.F3 + 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 Dargos_space_gagetixvf.F1 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 Dargos_space_wtmro.F2 + 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 Dargos_space_nbwait2.F2 + 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 Dargos_space_gtxpbl.F2 + 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 Dargos_space_packw.F1 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 Dargos_space_unpackw.F1 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 Dargos_space_upd_i.F1 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 Dargos_space_pack_ga.F1 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 Dargos_space_gaputix.F1 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 Dargos_space_gaputixv.F1 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 Dargos_space_gagetixv.F1 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 Dargos_space_rmri.F3 + 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 Dargos_space_gagetixvf.F1 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 Dargos_space_wtmro.F2 + 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 Dargos_space_nbwait2.F2 + 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 Dsp_main.F241 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 Dsp_main.F241 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 …]

12