| /dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
| H A D | argos_space_setup.F | 2 + isl,xs,xscr,vs,gs,numsa,lpack)
11 integer node,numwm,numsa
23 + isl,int_mb(i_pack),xs,vs,gs,numsa,int_mb(i_ipl))
27 + isl,int_mb(i_pack),xs,vs,numsa,int_mb(i_ipl))
32 nsaloc=numsa
33 call argos_space_qatoms(isl,numsa)
36 call argos_space_latoms(isl,int_mb(i_qlst),numsa)
39 call argos_space_putix(me,iwl,xw,numwm,isl,xs,numsa)
|
| H A D | argos_space_gaputix.F | 2 + isl,islp,xs,numsa,ipl)
9 integer node,numwm,numsa
17 ipl(2,2)=numsa
34 if(numsa.gt.0) then
37 call ga_put(ga_is,il,il+numsa-1,jl,jh,isl,msa)
39 call argos_space_pack(numsa,isl,islp)
40 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
43 ih=il+numsa-1
|
| H A D | argos_space_gaputixv.F | 3 + xs,vs,numsa,ipl)
10 integer node,numwm,numsa
19 ipl(2,2)=numsa
38 if(numsa.gt.0) then
41 call ga_put(ga_is,il,il+numsa-1,jl,jh,isl,msa)
43 call argos_space_pack(numsa,isl,islp)
44 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
47 ih=il+numsa-1
|
| H A D | argos_space_gagetixv.F | 3 + xs,vs,numsa,ipl)
10 integer node,numwm,numsa
21 numsa=ipl(2,2)
38 if(numsa.gt.0) then
41 call ga_get(ga_is,il,il+numsa-1,jl,jh,isl,msa)
43 call ga_get(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
44 call argos_space_unpack(numsa,isl,islp)
47 ih=il+numsa-1
|
| H A D | argos_space_pack_ga.F | 1 subroutine argos_space_pack_ga(numsa,isl,islp,numwm,iwl,iwlp) argument
9 integer numsa,isl(msa,mis2),islp(msa,npack)
14 if(numsa.gt.0.and.npack.gt.0) then
16 call ga_get(ga_is,il,il+numsa-1,jl,jh,isl,msa)
17 call argos_space_pack(numsa,isl,islp)
18 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
|
| H A D | argos_space_upd_i.F | 1 subroutine argos_space_upd_i(numsa,isl,islp,numwm,iwl,iwlp) argument
9 integer numsa,isl(msa,mis2) local
15 if(numsa.gt.0) then
18 call ga_put(ga_is,il,il+numsa-1,jl,jh,isl,msa)
20 call argos_space_pack(numsa,isl,islp)
21 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
|
| H A D | argos_space_gagetixvf.F | 2 + numwm,isl,islp,xs,vs,fs,numsa,ipl)
9 integer node,numwm,numsa
21 numsa=ipl(2,2)
39 if(numsa.gt.0) then
42 call ga_get(ga_is,il,il+numsa-1,jl,jh,isl,msa)
44 call ga_get(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
45 call argos_space_unpack(numsa,isl,islp)
48 ih=il+numsa-1
|
| H A D | argos_space_pack.F | 1 subroutine argos_space_pack(numsa,isl,islp) argument
10 integer numsa,isl(msa,mis2),islp(msa,npack)
16 do 2 i=1,numsa
21 do 4 i=1,numsa
|
| H A D | argos_space_getixv.F | 2 + isl,xs,vs,numsa)
9 integer node,numwm,numsa
16 + isl,int_mb(i_pack),xs,vs,numsa,int_mb(i_ipl))
20 nsaloc=numsa
|
| H A D | argos_space_gagetf.F | 1 subroutine argos_space_gagetf(node,fw,numwm,fs,numsa) argument
8 integer node,numwm,numsa
17 if(numsa.gt.0) then
19 ih=il+numsa-1
|
| H A D | argos_space_gaputf.F | 1 subroutine argos_space_gaputf(node,fw,numwm,fs,numsa) argument
8 integer node,numwm,numsa
17 if(numsa.gt.0) then
19 ih=il+numsa-1
|
| H A D | argos_space_putp.F | 1 subroutine argos_space_putp(node,pw,pwp,numwm,ps,psp,numsa,lpp) argument
8 integer node,numwm,numsa
21 if(numsa.gt.0) then
23 ih=il+numsa-1
|
| H A D | argos_space_update.F | 2 + iwl,xw,xwcr,vw,numwm,isl,xs,vs,numsa) argument
9 integer node,numwm,numsa local
18 + isl,int_mb(i_pack),xs,vs,numsa,int_mb(i_ipl))
33 nsaloc=numsa
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
| H A D | argos_space_setup.F | 2 + isl,xs,xscr,vs,gs,numsa,lpack)
11 integer node,numwm,numsa
23 + isl,int_mb(i_pack),xs,vs,gs,numsa,int_mb(i_ipl))
27 + isl,int_mb(i_pack),xs,vs,numsa,int_mb(i_ipl))
32 nsaloc=numsa
33 call argos_space_qatoms(isl,numsa)
36 call argos_space_latoms(isl,int_mb(i_qlst),numsa)
39 call argos_space_putix(me,iwl,xw,numwm,isl,xs,numsa)
|
| H A D | argos_space_gaputix.F | 2 + isl,islp,xs,numsa,ipl)
9 integer node,numwm,numsa
17 ipl(2,2)=numsa
34 if(numsa.gt.0) then
37 call ga_put(ga_is,il,il+numsa-1,jl,jh,isl,msa)
39 call argos_space_pack(numsa,isl,islp)
40 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
43 ih=il+numsa-1
|
| H A D | argos_space_gaputixv.F | 3 + xs,vs,numsa,ipl)
10 integer node,numwm,numsa
19 ipl(2,2)=numsa
38 if(numsa.gt.0) then
41 call ga_put(ga_is,il,il+numsa-1,jl,jh,isl,msa)
43 call argos_space_pack(numsa,isl,islp)
44 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
47 ih=il+numsa-1
|
| H A D | argos_space_gagetixv.F | 3 + xs,vs,numsa,ipl)
10 integer node,numwm,numsa
21 numsa=ipl(2,2)
38 if(numsa.gt.0) then
41 call ga_get(ga_is,il,il+numsa-1,jl,jh,isl,msa)
43 call ga_get(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
44 call argos_space_unpack(numsa,isl,islp)
47 ih=il+numsa-1
|
| H A D | argos_space_upd_i.F | 1 subroutine argos_space_upd_i(numsa,isl,islp,numwm,iwl,iwlp) argument
9 integer numsa,isl(msa,mis2)
15 if(numsa.gt.0) then
18 call ga_put(ga_is,il,il+numsa-1,jl,jh,isl,msa)
20 call argos_space_pack(numsa,isl,islp)
21 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
|
| H A D | argos_space_pack_ga.F | 1 subroutine argos_space_pack_ga(numsa,isl,islp,numwm,iwl,iwlp) argument
9 integer numsa,isl(msa,mis2),islp(msa,npack)
14 if(numsa.gt.0.and.npack.gt.0) then
16 call ga_get(ga_is,il,il+numsa-1,jl,jh,isl,msa)
17 call argos_space_pack(numsa,isl,islp)
18 call ga_put(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
|
| H A D | argos_space_gagetixvf.F | 2 + numwm,isl,islp,xs,vs,fs,numsa,ipl)
9 integer node,numwm,numsa
21 numsa=ipl(2,2)
39 if(numsa.gt.0) then
42 call ga_get(ga_is,il,il+numsa-1,jl,jh,isl,msa)
44 call ga_get(ga_is,il,il+numsa-1,jl,jl+npack-1,islp,msa)
45 call argos_space_unpack(numsa,isl,islp)
48 ih=il+numsa-1
|
| H A D | argos_space_pack.F | 1 subroutine argos_space_pack(numsa,isl,islp) argument
10 integer numsa,isl(msa,mis2),islp(msa,npack)
16 do 2 i=1,numsa
21 do 4 i=1,numsa
|
| H A D | argos_space_getixv.F | 2 + isl,xs,vs,numsa)
9 integer node,numwm,numsa
16 + isl,int_mb(i_pack),xs,vs,numsa,int_mb(i_ipl))
20 nsaloc=numsa
|
| H A D | argos_space_gagetf.F | 1 subroutine argos_space_gagetf(node,fw,numwm,fs,numsa) argument
8 integer node,numwm,numsa
17 if(numsa.gt.0) then
19 ih=il+numsa-1
|
| H A D | argos_space_gaputf.F | 1 subroutine argos_space_gaputf(node,fw,numwm,fs,numsa) argument
8 integer node,numwm,numsa
17 if(numsa.gt.0) then
19 ih=il+numsa-1
|
| H A D | argos_space_putp.F | 1 subroutine argos_space_putp(node,pw,pwp,numwm,ps,psp,numsa,lpp) argument
8 integer node,numwm,numsa
21 if(numsa.gt.0) then
23 ih=il+numsa-1
|