| /dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
| H A D | argos_space_final.F | 1 subroutine argos_space_final(fw,fs,lpair,iwz,isz) argument
11 integer iwz(mwm),isz(msa)
37 call ga_acc(ga_iwz,il,ih,1,1,iwz,mwm,1)
38 call ga_get(ga_iwz,il,ih,1,1,iwz,mwm)
40 iwz(i)=min(1,iwz(i))
|
| H A D | argos_zinit.F | 1 subroutine argos_zinit(iwz,isz) argument
7 integer iwz(mwm),isz(msa)
12 iwz(i)=0
|
| H A D | argos_space_accfbl.F | 1 subroutine argos_space_accfbl(ibbl,lhandl,fw,fs,lpair,iwz,isz) argument
11 integer iwz(mwm),isz(msa) local
14 + int_mb(i_jpl),lpair,iwz,isz)
|
| H A D | argos_space_nbaccfbl.F | 1 subroutine argos_space_nbaccfbl(ibbl,lhandl,fw,fs,lpair,iwz,isz) argument
11 integer iwz(mwm),isz(msa)
14 + int_mb(i_jpl),lpair,iwz,isz)
|
| H A D | argos_space_initf.F | 1 subroutine argos_space_initf(fw,fs,llng,iwz,isz,lpair) argument
10 integer iwz(mwm),isz(msa)
53 iwz(i)=0
|
| H A D | argos_space_acfbl.F | 2 + lpair,iwz,isz) argument
14 integer iwz(mwm),isz(msa) local
53 call ga_acc(ga_iwz,il+jwfr-1,il+jwto-1,jl,jl,iwz(nwmloc+1),mwm,1)
91 iwz(i)=0
|
| H A D | argos_space_nbacfbl.F | 2 + lpair,iwz,isz)
14 integer iwz(mwm),isz(msa)
82 + iwz(indexw),mwm,1,handle_iw)
94 iwz(i)=0
|
| H A D | argos_space_accpbl.F | 2 + lpair,iwz,isz) argument
13 integer iwz(mwm),isz(msa) local
|
| H A D | argos_pairs.F | 1 subroutine argos_pairs(lself,lpbcs,xw,xwm,iwdt,iwz, argument
41 integer iwdt(mwm),iwz(mwm),isz(msa)
101 + xs,isdt,isgr,isfr,isto,xwm,iwdt,iwz,jwfr,jwto,
120 + xs,isdt,isgr,jsfr,jsto,xwm,iwdt,iwz,iwfr,iwto,
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
| H A D | argos_space_final.F | 1 subroutine argos_space_final(fw,fs,lpair,iwz,isz) argument
11 integer iwz(mwm),isz(msa)
37 call ga_acc(ga_iwz,il,ih,1,1,iwz,mwm,1)
38 call ga_get(ga_iwz,il,ih,1,1,iwz,mwm)
40 iwz(i)=min(1,iwz(i))
|
| H A D | argos_zinit.F | 1 subroutine argos_zinit(iwz,isz) argument
7 integer iwz(mwm),isz(msa)
12 iwz(i)=0
|
| H A D | argos_space_accfbl.F | 1 subroutine argos_space_accfbl(ibbl,lhandl,fw,fs,lpair,iwz,isz) argument
11 integer iwz(mwm),isz(msa)
14 + int_mb(i_jpl),lpair,iwz,isz)
|
| H A D | argos_space_nbaccfbl.F | 1 subroutine argos_space_nbaccfbl(ibbl,lhandl,fw,fs,lpair,iwz,isz) argument
11 integer iwz(mwm),isz(msa)
14 + int_mb(i_jpl),lpair,iwz,isz)
|
| H A D | argos_space_initf.F | 1 subroutine argos_space_initf(fw,fs,llng,iwz,isz,lpair) argument
10 integer iwz(mwm),isz(msa)
53 iwz(i)=0
|
| H A D | argos_space_acfbl.F | 2 + lpair,iwz,isz)
14 integer iwz(mwm),isz(msa)
53 call ga_acc(ga_iwz,il+jwfr-1,il+jwto-1,jl,jl,iwz(nwmloc+1),mwm,1)
91 iwz(i)=0
|
| H A D | argos_space_nbacfbl.F | 2 + lpair,iwz,isz)
14 integer iwz(mwm),isz(msa)
82 + iwz(indexw),mwm,1,handle_iw)
94 iwz(i)=0
|
| H A D | argos_space_accpbl.F | 2 + lpair,iwz,isz)
13 integer iwz(mwm),isz(msa)
|
| H A D | argos_pairs.F | 1 subroutine argos_pairs(lself,lpbcs,xw,xwm,iwdt,iwz, argument
41 integer iwdt(mwm),iwz(mwm),isz(msa)
101 + xs,isdt,isgr,isfr,isto,xwm,iwdt,iwz,jwfr,jwto,
120 + xs,isdt,isgr,jsfr,jsto,xwm,iwdt,iwz,iwfr,iwto,
|
| H A D | argos_induce.F | 1 subroutine argos_induce(lself,lpbcs,xw,xwm,pw,pwp,iwdt,iwz, argument
44 integer iwdt(mwm),iwz(mwm),isz(msa)
89 if(lpair) call argos_pairs(lself,lpbcs,xw,xwm,iwdt,iwz,
|
| /dports/science/siconos/siconos-4.4.0/externals/optim_misc/ql0001/ |
| H A D | ql0001.f | 326 iwz=nmax
450 iz=iwz+i
569 iz=iwz+i
601 iza=iwz+nact*n
750 iz=iwz+k1
759 iz=iwz+k1
784 iz=iwz+nact*n
934 660 iwy=iwz+nact*n
1033 iz=iwz+kdrop*n
1086 860 iz=iwz+nu*n
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/qmmm/ |
| H A D | qmmm_main.F | 1 subroutine qmmm_forces(inrtdb,mwm,nwm,mwa,nwa,iwz,xw,fw, argument
20 integer iwz(mwm),isat(msa),isdt(msa),isq(msa),isz(msa)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/qmmm/ |
| H A D | qmmm_main.F | 1 subroutine qmmm_forces(inrtdb,mwm,nwm,mwa,nwa,iwz,xw,fw, argument
20 integer iwz(mwm),isat(msa),isdt(msa),isq(msa),isz(msa)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/cafe/ |
| H A D | cf_pairs.F | 1 subroutine pairs(lself,lpbcs,xw,xwm,iwdt,iwz, argument
41 integer iwdt(mwm),iwz(mwm),isz(msa)
101 + xs,isdt,isgr,isfr,isto,xwm,iwdt,iwz,jwfr,jwto,
120 + xs,isdt,isgr,jsfr,jsto,xwm,iwdt,iwz,iwfr,iwto,
|
| H A D | cf_induce.F | 1 subroutine induce(lself,lpbcs,xw,xwm,pw,pwp,iwdt,iwz, argument
44 integer iwdt(mwm),iwz(mwm),isz(msa)
89 if(lpair) call pairs(lself,lpbcs,xw,xwm,iwdt,iwz,
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/cafe/ |
| H A D | cf_pairs.F | 1 subroutine pairs(lself,lpbcs,xw,xwm,iwdt,iwz, argument
41 integer iwdt(mwm),iwz(mwm),isz(msa)
101 + xs,isdt,isgr,isfr,isto,xwm,iwdt,iwz,jwfr,jwto,
120 + xs,isdt,isgr,jsfr,jsto,xwm,iwdt,iwz,iwfr,iwto,
|