Home
last modified time | relevance | path

Searched refs:iwa (Results 1 – 25 of 464) sorted by relevance

12345678910>>...19

/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/
H A Dargos_cafe_dww.F78 xi(nax+iwmn,1,iwa)=xw(iwfr+iwm,1,iwa)
79 xi(nax+iwmn,2,iwa)=xw(iwfr+iwm,2,iwa)
81 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
82 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
83 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
178 pw(iwfr+iwm,1,iwa,1)=pw(iwfr+iwm,1,iwa,1)+fi(iax+iwmn,1,iwa)
179 pw(iwfr+iwm,2,iwa,1)=pw(iwfr+iwm,2,iwa,1)+fi(iax+iwmn,2,iwa)
180 pw(iwfr+iwm,3,iwa,1)=pw(iwfr+iwm,3,iwa,1)+fi(iax+iwmn,3,iwa)
181 pw(lwwptr,1,iwa,1)=pw(lwwptr,1,iwa,1)+fj(iax+iwmn,1,iwa)
182 pw(lwwptr,2,iwa,1)=pw(lwwptr,2,iwa,1)+fj(iax+iwmn,2,iwa)
[all …]
H A Dargos_cafe_lpfrog.F25 yw(iwm,1,iwa)=xw(iwm,1,iwa)
26 yw(iwm,2,iwa)=xw(iwm,2,iwa)
27 yw(iwm,3,iwa)=xw(iwm,3,iwa)
36 vwt(iwm,1,iwa)=vw(iwm,1,iwa)
37 vwt(iwm,2,iwa)=vw(iwm,2,iwa)
39 vw(iwm,1,iwa)=scalew*(vw(iwm,1,iwa)+fw(iwm,1,iwa)*factor)
40 vw(iwm,2,iwa)=scalew*(vw(iwm,2,iwa)+fw(iwm,2,iwa)*factor)
41 vw(iwm,3,iwa)=scalew*(vw(iwm,3,iwa)+fw(iwm,3,iwa)*factor)
42 xw(iwm,1,iwa)=yw(iwm,1,iwa)+vw(iwm,1,iwa)*tstep
43 xw(iwm,2,iwa)=yw(iwm,2,iwa)+vw(iwm,2,iwa)*tstep
[all …]
H A Dargos_cafe_lpfrog_bc.F28 yw(iwm,1,iwa)=xw(iwm,1,iwa)
29 yw(iwm,2,iwa)=xw(iwm,2,iwa)
30 yw(iwm,3,iwa)=xw(iwm,3,iwa)
39 vwt(iwm,1,iwa)=vw(iwm,1,iwa)+half*fw(iwm,1,iwa)*factor
40 vwt(iwm,2,iwa)=vw(iwm,2,iwa)+half*fw(iwm,2,iwa)*factor
41 vwt(iwm,3,iwa)=vw(iwm,3,iwa)+half*fw(iwm,3,iwa)*factor
80 vw(iwm,1,iwa)=(two*chi-one)*vw(iwm,1,iwa)+chi*fw(iwm,1,iwa)*factor
81 vw(iwm,2,iwa)=(two*chi-one)*vw(iwm,2,iwa)+chi*fw(iwm,2,iwa)*factor
83 xw(iwm,1,iwa)=yw(iwm,1,iwa)+vw(iwm,1,iwa)*tstep
84 xw(iwm,2,iwa)=yw(iwm,2,iwa)+vw(iwm,2,iwa)*tstep
[all …]
H A Dargos_cafe_fpww.F114 xi(nax+iwmn,1,iwa)=xw(iwfr+iwm,1,iwa)
115 xi(nax+iwmn,2,iwa)=xw(iwfr+iwm,2,iwa)
117 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
118 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
119 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
440 fw(iwfr+iwm,1,iwa,ipww)=fw(iwfr+iwm,1,iwa,ipww)+fi(iax+iwmn,1,iwa)
441 fw(iwfr+iwm,2,iwa,ipww)=fw(iwfr+iwm,2,iwa,ipww)+fi(iax+iwmn,2,iwa)
442 fw(iwfr+iwm,3,iwa,ipww)=fw(iwfr+iwm,3,iwa,ipww)+fi(iax+iwmn,3,iwa)
443 fw(lwwptr,1,iwa,ipww)=fw(lwwptr,1,iwa,ipww)+fj(iax+iwmn,1,iwa)
444 fw(lwwptr,2,iwa,ipww)=fw(lwwptr,2,iwa,ipww)+fj(iax+iwmn,2,iwa)
[all …]
H A Dargos_congra.F70 vw(iwm,ix,iwa)=xw(iwm,ix,iwa)
92 yw(iwm,ix,iwa)=xw(iwm,ix,iwa)
94 xw(iwm,ix,iwa)=xw(iwm,ix,iwa)+dxf*fw(iwm,ix,iwa)/ww(iwa)
122 fw(iwm,ix,iwa)=(xw(iwm,ix,iwa)-yw(iwm,ix,iwa))*dxfi*ww(iwa)
164 pcgw(iwm,ix,iwa)=fw(iwm,ix,iwa)+beta1*pcgw(iwm,ix,iwa)
206 xw(iwm,ix,iwa)=vw(iwm,ix,iwa)+beta2*pcgw(iwm,ix,iwa)/ww(iwa)
242 yw(iwm,ix,iwa)=xw(iwm,ix,iwa)
275 fw(iwm,ix,iwa)=(xw(iwm,ix,iwa)-yw(iwm,ix,iwa))*ww(iwa)/beta3
335 yw(iwm,ix,iwa)=vw(iwm,ix,iwa)
426 fw(iwm,ix,iwa)=(xw(iwm,ix,iwa)-yw(iwm,ix,iwa))*ww(iwa)/beta5
[all …]
H A Dargos_cafe_fww.F126 fw(iwm,1,iwa,ipww)=fw(iwm,1,iwa,ipww)+df
132 fw(iwm,2,iwa,ipww)=fw(iwm,2,iwa,ipww)+df
331 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
332 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
333 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
622 fw(iwfr+iwm,1,iwa,ipww)=fw(iwfr+iwm,1,iwa,ipww)+fi(iax+iwmn,1,iwa)
623 fw(iwfr+iwm,2,iwa,ipww)=fw(iwfr+iwm,2,iwa,ipww)+fi(iax+iwmn,2,iwa)
624 fw(iwfr+iwm,3,iwa,ipww)=fw(iwfr+iwm,3,iwa,ipww)+fi(iax+iwmn,3,iwa)
625 fw(lwwptr,1,iwa,ipww)=fw(lwwptr,1,iwa,ipww)+fj(iax+iwmn,1,iwa)
626 fw(lwwptr,2,iwa,ipww)=fw(lwwptr,2,iwa,ipww)+fj(iax+iwmn,2,iwa)
[all …]
H A Dargos_cafe_shkw.F39 iwa=ibnd(iwb,1)
87 xw(iwm,1,iwa)=xw(iwm,1,iwa)+f(iwm)*wiwa
90 xw(iwm,2,iwa)=xw(iwm,2,iwa)+f(iwm)*wiwa
93 xw(iwm,3,iwa)=xw(iwm,3,iwa)+f(iwm)*wiwa
105 do 25 iwa=1,mwa
106 xw(iwm,1,iwa)=yw(iwm,1,iwa)
107 xw(iwm,2,iwa)=yw(iwm,2,iwa)
108 xw(iwm,3,iwa)=yw(iwm,3,iwa)
143 iwa=ibnd(iwb,1)
160 iwa=ibnd(iwb,1)
[all …]
H A Dargos_cafe_fw.F91 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)-dfw1
93 fw(iwm,2,iwa,1)=fw(iwm,2,iwa,1)-dfw2
95 fw(iwm,3,iwa,1)=fw(iwm,3,iwa,1)-dfw3
128 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)-dfw1
130 fw(iwm,2,iwa,1)=fw(iwm,2,iwa,1)-dfw2
132 fw(iwm,3,iwa,1)=fw(iwm,3,iwa,1)-dfw3
175 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)+dfw1
177 fw(iwm,2,iwa,1)=fw(iwm,2,iwa,1)+dfw2
179 fw(iwm,3,iwa,1)=fw(iwm,3,iwa,1)+dfw3
220 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)-dfw1
[all …]
H A Dargos_cafe_vscal.F17 integer iwm,iwa,ix,isa local
25 do 2 iwa=1,nwa
27 vw(iwm,ix,iwa)=zero
28 vwt(iwm,ix,iwa)=zero
32 do 4 iwa=1,nwa
33 ekwcg=ekwcg+wgt(iwat(iwa),iset)*(vw(iwm,1,iwa)*vw(iwm,1,iwa)
34 + +vw(iwm,2,iwa)*vw(iwm,2,iwa)+vw(iwm,3,iwa)*vw(iwm,3,iwa))
72 do 7 iwa=1,nwa
75 vw(iwm,ix,iwa)=gaufcw*vw(iwm,ix,iwa)
76 vwt(iwm,ix,iwa)=vw(iwm,ix,iwa)
H A Dargos_cafe_fpsw.F192 xj(nax+ismn,1,iwa)=xw(lswptr,1,iwa)
193 xj(nax+ismn,2,iwa)=xw(lswptr,2,iwa)
194 xj(nax+ismn,3,iwa)=xw(lswptr,3,iwa)
195 pj(nax+ismn,1,iwa)=pw(lswptr,1,iwa,1)
196 pj(nax+ismn,2,iwa)=pw(lswptr,2,iwa,1)
197 pj(nax+ismn,3,iwa)=pw(lswptr,3,iwa,1)
212 pj(nax+ismn,1,iwa)=pw(lswptr,1,iwa,1)
213 pj(nax+ismn,2,iwa)=pw(lswptr,2,iwa,1)
723 fw(lswptr,1,iwa,ipsw)=fw(lswptr,1,iwa,ipsw)+fj(iax+ismn,1,iwa)
724 fw(lswptr,2,iwa,ipsw)=fw(lswptr,2,iwa,ipsw)+fj(iax+ismn,2,iwa)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/
H A Dargos_cafe_dww.F78 xi(nax+iwmn,1,iwa)=xw(iwfr+iwm,1,iwa)
79 xi(nax+iwmn,2,iwa)=xw(iwfr+iwm,2,iwa)
81 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
82 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
83 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
178 pw(iwfr+iwm,1,iwa,1)=pw(iwfr+iwm,1,iwa,1)+fi(iax+iwmn,1,iwa)
179 pw(iwfr+iwm,2,iwa,1)=pw(iwfr+iwm,2,iwa,1)+fi(iax+iwmn,2,iwa)
180 pw(iwfr+iwm,3,iwa,1)=pw(iwfr+iwm,3,iwa,1)+fi(iax+iwmn,3,iwa)
181 pw(lwwptr,1,iwa,1)=pw(lwwptr,1,iwa,1)+fj(iax+iwmn,1,iwa)
182 pw(lwwptr,2,iwa,1)=pw(lwwptr,2,iwa,1)+fj(iax+iwmn,2,iwa)
[all …]
H A Dargos_cafe_lpfrog.F25 yw(iwm,1,iwa)=xw(iwm,1,iwa)
26 yw(iwm,2,iwa)=xw(iwm,2,iwa)
27 yw(iwm,3,iwa)=xw(iwm,3,iwa)
36 vwt(iwm,1,iwa)=vw(iwm,1,iwa)
37 vwt(iwm,2,iwa)=vw(iwm,2,iwa)
39 vw(iwm,1,iwa)=scalew*(vw(iwm,1,iwa)+fw(iwm,1,iwa)*factor)
40 vw(iwm,2,iwa)=scalew*(vw(iwm,2,iwa)+fw(iwm,2,iwa)*factor)
41 vw(iwm,3,iwa)=scalew*(vw(iwm,3,iwa)+fw(iwm,3,iwa)*factor)
42 xw(iwm,1,iwa)=yw(iwm,1,iwa)+vw(iwm,1,iwa)*tstep
43 xw(iwm,2,iwa)=yw(iwm,2,iwa)+vw(iwm,2,iwa)*tstep
[all …]
H A Dargos_cafe_lpfrog_bc.F28 yw(iwm,1,iwa)=xw(iwm,1,iwa)
29 yw(iwm,2,iwa)=xw(iwm,2,iwa)
30 yw(iwm,3,iwa)=xw(iwm,3,iwa)
39 vwt(iwm,1,iwa)=vw(iwm,1,iwa)+half*fw(iwm,1,iwa)*factor
40 vwt(iwm,2,iwa)=vw(iwm,2,iwa)+half*fw(iwm,2,iwa)*factor
41 vwt(iwm,3,iwa)=vw(iwm,3,iwa)+half*fw(iwm,3,iwa)*factor
80 vw(iwm,1,iwa)=(two*chi-one)*vw(iwm,1,iwa)+chi*fw(iwm,1,iwa)*factor
81 vw(iwm,2,iwa)=(two*chi-one)*vw(iwm,2,iwa)+chi*fw(iwm,2,iwa)*factor
83 xw(iwm,1,iwa)=yw(iwm,1,iwa)+vw(iwm,1,iwa)*tstep
84 xw(iwm,2,iwa)=yw(iwm,2,iwa)+vw(iwm,2,iwa)*tstep
[all …]
H A Dargos_cafe_fpww.F114 xi(nax+iwmn,1,iwa)=xw(iwfr+iwm,1,iwa)
115 xi(nax+iwmn,2,iwa)=xw(iwfr+iwm,2,iwa)
117 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
118 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
119 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
440 fw(iwfr+iwm,1,iwa,ipww)=fw(iwfr+iwm,1,iwa,ipww)+fi(iax+iwmn,1,iwa)
441 fw(iwfr+iwm,2,iwa,ipww)=fw(iwfr+iwm,2,iwa,ipww)+fi(iax+iwmn,2,iwa)
442 fw(iwfr+iwm,3,iwa,ipww)=fw(iwfr+iwm,3,iwa,ipww)+fi(iax+iwmn,3,iwa)
443 fw(lwwptr,1,iwa,ipww)=fw(lwwptr,1,iwa,ipww)+fj(iax+iwmn,1,iwa)
444 fw(lwwptr,2,iwa,ipww)=fw(lwwptr,2,iwa,ipww)+fj(iax+iwmn,2,iwa)
[all …]
H A Dargos_congra.F70 vw(iwm,ix,iwa)=xw(iwm,ix,iwa)
92 yw(iwm,ix,iwa)=xw(iwm,ix,iwa)
94 xw(iwm,ix,iwa)=xw(iwm,ix,iwa)+dxf*fw(iwm,ix,iwa)/ww(iwa)
122 fw(iwm,ix,iwa)=(xw(iwm,ix,iwa)-yw(iwm,ix,iwa))*dxfi*ww(iwa)
164 pcgw(iwm,ix,iwa)=fw(iwm,ix,iwa)+beta1*pcgw(iwm,ix,iwa)
206 xw(iwm,ix,iwa)=vw(iwm,ix,iwa)+beta2*pcgw(iwm,ix,iwa)/ww(iwa)
242 yw(iwm,ix,iwa)=xw(iwm,ix,iwa)
275 fw(iwm,ix,iwa)=(xw(iwm,ix,iwa)-yw(iwm,ix,iwa))*ww(iwa)/beta3
335 yw(iwm,ix,iwa)=vw(iwm,ix,iwa)
426 fw(iwm,ix,iwa)=(xw(iwm,ix,iwa)-yw(iwm,ix,iwa))*ww(iwa)/beta5
[all …]
H A Dargos_cafe_fww.F126 fw(iwm,1,iwa,ipww)=fw(iwm,1,iwa,ipww)+df
132 fw(iwm,2,iwa,ipww)=fw(iwm,2,iwa,ipww)+df
331 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
332 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
333 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
622 fw(iwfr+iwm,1,iwa,ipww)=fw(iwfr+iwm,1,iwa,ipww)+fi(iax+iwmn,1,iwa)
623 fw(iwfr+iwm,2,iwa,ipww)=fw(iwfr+iwm,2,iwa,ipww)+fi(iax+iwmn,2,iwa)
624 fw(iwfr+iwm,3,iwa,ipww)=fw(iwfr+iwm,3,iwa,ipww)+fi(iax+iwmn,3,iwa)
625 fw(lwwptr,1,iwa,ipww)=fw(lwwptr,1,iwa,ipww)+fj(iax+iwmn,1,iwa)
626 fw(lwwptr,2,iwa,ipww)=fw(lwwptr,2,iwa,ipww)+fj(iax+iwmn,2,iwa)
[all …]
H A Dargos_cafe_shkw.F39 iwa=ibnd(iwb,1)
87 xw(iwm,1,iwa)=xw(iwm,1,iwa)+f(iwm)*wiwa
90 xw(iwm,2,iwa)=xw(iwm,2,iwa)+f(iwm)*wiwa
93 xw(iwm,3,iwa)=xw(iwm,3,iwa)+f(iwm)*wiwa
105 do 25 iwa=1,mwa
106 xw(iwm,1,iwa)=yw(iwm,1,iwa)
107 xw(iwm,2,iwa)=yw(iwm,2,iwa)
108 xw(iwm,3,iwa)=yw(iwm,3,iwa)
143 iwa=ibnd(iwb,1)
160 iwa=ibnd(iwb,1)
[all …]
H A Dargos_cafe_fw.F91 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)-dfw1
93 fw(iwm,2,iwa,1)=fw(iwm,2,iwa,1)-dfw2
95 fw(iwm,3,iwa,1)=fw(iwm,3,iwa,1)-dfw3
128 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)-dfw1
130 fw(iwm,2,iwa,1)=fw(iwm,2,iwa,1)-dfw2
132 fw(iwm,3,iwa,1)=fw(iwm,3,iwa,1)-dfw3
175 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)+dfw1
177 fw(iwm,2,iwa,1)=fw(iwm,2,iwa,1)+dfw2
179 fw(iwm,3,iwa,1)=fw(iwm,3,iwa,1)+dfw3
220 fw(iwm,1,iwa,1)=fw(iwm,1,iwa,1)-dfw1
[all …]
H A Dargos_cafe_vscal.F17 integer iwm,iwa,ix,isa
25 do 2 iwa=1,nwa
27 vw(iwm,ix,iwa)=zero
28 vwt(iwm,ix,iwa)=zero
32 do 4 iwa=1,nwa
33 ekwcg=ekwcg+wgt(iwat(iwa),iset)*(vw(iwm,1,iwa)*vw(iwm,1,iwa)
34 + +vw(iwm,2,iwa)*vw(iwm,2,iwa)+vw(iwm,3,iwa)*vw(iwm,3,iwa))
72 do 7 iwa=1,nwa
75 vw(iwm,ix,iwa)=gaufcw*vw(iwm,ix,iwa)
76 vwt(iwm,ix,iwa)=vw(iwm,ix,iwa)
H A Dargos_cafe_fpsw.F192 xj(nax+ismn,1,iwa)=xw(lswptr,1,iwa)
193 xj(nax+ismn,2,iwa)=xw(lswptr,2,iwa)
194 xj(nax+ismn,3,iwa)=xw(lswptr,3,iwa)
195 pj(nax+ismn,1,iwa)=pw(lswptr,1,iwa,1)
196 pj(nax+ismn,2,iwa)=pw(lswptr,2,iwa,1)
197 pj(nax+ismn,3,iwa)=pw(lswptr,3,iwa,1)
212 pj(nax+ismn,1,iwa)=pw(lswptr,1,iwa,1)
213 pj(nax+ismn,2,iwa)=pw(lswptr,2,iwa,1)
723 fw(lswptr,1,iwa,ipsw)=fw(lswptr,1,iwa,ipsw)+fj(iax+ismn,1,iwa)
724 fw(lswptr,2,iwa,ipsw)=fw(lswptr,2,iwa,ipsw)+fj(iax+ismn,2,iwa)
[all …]
/dports/databases/grass7/grass-7.8.6/imagery/i.atcorr/
H A Diwave.h62 void avhrr(int iwa);
63 void hrv(int iwa);
64 void tm(int iwa);
65 void mss(int iwa);
66 void mas(int iwa);
67 void modis(int iwa);
68 void polder(int iwa);
71 void aster(int iwa);
72 void avnir(int iwa);
81 void spot6(int iwa);
[all …]
H A Diwave.cpp584 switch(iwa) in avhrr()
755 switch(iwa) in hrv()
892 switch(iwa) in tm()
987 switch(iwa) in mss()
1110 switch(iwa) in mas()
1201 switch(iwa) in modis()
1301 switch(iwa) in polder()
1447 switch(iwa) in etmplus()
1770 switch(iwa) in irs_1c_liss()
1927 switch(iwa) in aster()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/mat/color/impls/minpack/
H A Ddsm.c8 … PetscInt *mingrp,PetscInt *info,PetscInt *ipntr,PetscInt *jpntr,PetscInt *iwa,PetscInt *liwa) in MINPACKdsm() argument
89 --iwa; in MINPACKdsm()
112 MINPACKdegr(n,&indrow[1],&jpntr[1],&indcol[1],&ipntr[1],&iwa[*n * 5 + 1],&iwa[*n + 1]); in MINPACKdsm()
117 …&jpntr[1],&indcol[1],&ipntr[1],&iwa[*n * 5 + 1],&iwa[(*n << 2) + 1],&maxclq,&iwa[1],&iwa[*n + 1],&… in MINPACKdsm()
118 …MINPACKseq(n,&indrow[1],&jpntr[1],&indcol[1],&ipntr[1],&iwa[(*n << 2) + 1],&ngrp[1],maxgrp,&iwa[*n… in MINPACKdsm()
128 …&jpntr[1],&indcol[1],&ipntr[1],&iwa[*n * 5 + 1],&iwa[(*n << 2) + 1],&maxclq,&iwa[1],&iwa[*n + 1],&… in MINPACKdsm()
129 …MINPACKseq(n,&indrow[1],&jpntr[1],&indcol[1],&ipntr[1],&iwa[(*n << 2) + 1],&iwa[1],&numgrp,&iwa[*n… in MINPACKdsm()
137 for (j = 1; j <= i__1; ++j) ngrp[j] = iwa[j]; in MINPACKdsm()
148 …MINPACKnumsrt(n,&i__1,&iwa[*n * 5 + 1],&c_n1,&iwa[(*n << 2) + 1],&iwa[(*n << 1) + 1],&iwa[*n + 1]); in MINPACKdsm()
149 …MINPACKseq(n,&indrow[1],&jpntr[1],&indcol[1],&ipntr[1],&iwa[(*n << 2) + 1],&iwa[1],&numgrp,&iwa[*n… in MINPACKdsm()
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/cafe/
H A Dcf_d.F78 xi(nax+iwmn,1,iwa)=xw(iwfr+iwm,1,iwa)
79 xi(nax+iwmn,2,iwa)=xw(iwfr+iwm,2,iwa)
81 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
82 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
83 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
178 pw(iwfr+iwm,1,iwa,1)=pw(iwfr+iwm,1,iwa,1)+fi(iax+iwmn,1,iwa)
179 pw(iwfr+iwm,2,iwa,1)=pw(iwfr+iwm,2,iwa,1)+fi(iax+iwmn,2,iwa)
180 pw(iwfr+iwm,3,iwa,1)=pw(iwfr+iwm,3,iwa,1)+fi(iax+iwmn,3,iwa)
181 pw(lwwptr,1,iwa,1)=pw(lwwptr,1,iwa,1)+fj(iax+iwmn,1,iwa)
182 pw(lwwptr,2,iwa,1)=pw(lwwptr,2,iwa,1)+fj(iax+iwmn,2,iwa)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/cafe/
H A Dcf_d.F78 xi(nax+iwmn,1,iwa)=xw(iwfr+iwm,1,iwa)
79 xi(nax+iwmn,2,iwa)=xw(iwfr+iwm,2,iwa)
81 xj(nax+iwmn,1,iwa)=xw(lwwptr,1,iwa)
82 xj(nax+iwmn,2,iwa)=xw(lwwptr,2,iwa)
83 xj(nax+iwmn,3,iwa)=xw(lwwptr,3,iwa)
178 pw(iwfr+iwm,1,iwa,1)=pw(iwfr+iwm,1,iwa,1)+fi(iax+iwmn,1,iwa)
179 pw(iwfr+iwm,2,iwa,1)=pw(iwfr+iwm,2,iwa,1)+fi(iax+iwmn,2,iwa)
180 pw(iwfr+iwm,3,iwa,1)=pw(iwfr+iwm,3,iwa,1)+fi(iax+iwmn,3,iwa)
181 pw(lwwptr,1,iwa,1)=pw(lwwptr,1,iwa,1)+fj(iax+iwmn,1,iwa)
182 pw(lwwptr,2,iwa,1)=pw(lwwptr,2,iwa,1)+fj(iax+iwmn,2,iwa)
[all …]

12345678910>>...19