| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
| H A D | argos_cafe_fix_sw.F | 106 iwdt(i)=iand(iwdt(i),not(mfixed))
111 iwdt(i)=ior(iwdt(i),lfixed)
118 if(ifix.eq.0) iwdt(i)=iand(iwdt(i),not(mfixed))
119 if(ifix.eq.1) iwdt(i)=ior(iwdt(i),lfixed)
128 if(ifix.eq.0) iwdt(i)=iand(iwdt(i),not(mfixed))
129 if(ifix.eq.1) iwdt(i)=ior(iwdt(i),lfixed)
131 if(ifix.eq.0) iwdt(i)=iand(iwdt(i),not(mfixed))
132 if(ifix.eq.1) iwdt(i)=ior(iwdt(i),lfixed)
407 j=iand(iwdt(i),mfixed)/4
408 iwdt(i)=lshift(rshift(iwdt(i),2),2)
[all …]
|
| H A D | argos_cafe_mdstep.F | 1 subroutine argos_cafe_mdstep(iwdt,xw,yw,vw,vwt,fw,numw, argument
10 integer iwdt(mwm),isdt(msa),isat(msa),isgan(msa),issgm(msa)
22 call argos_cafe_lpfrog(iwdt,xw,yw,vw,vwt,fw,numw,
26 call argos_cafe_lpfrog_bc(iwdt,xw,yw,vw,vwt,fw,numw,
|
| H A D | argos_cafe_lsw.F | 2 + xwm,iwdt,iwz, argument
14 integer list(mwm,2),iwdt(mwm),isdt(msa),isgr(msa) local
52 + (iand(iwdt(iwm),mdynam).eq.ldynam.or.
55 + (iand(iwdt(iwm),mrestr).eq.lrestr.or.
61 + (iand(iwdt(iwm),mdynam).eq.ldynam.or.
133 if(iand(iwdt(iwm),mdynam).eq.ldynam.and.
135 if(iand(iwdt(iwm),mrestr).eq.lrestr.and.
150 if(iand(iwdt(iwm),mdynam).eq.ldynam.and.
|
| H A D | argos_cafe_fnorm.F | 1 subroutine argos_cafe_fnorm(iwdt,fw,numw,isat,isdt,fs, argument
11 integer isdt(msa),iwdt(mwm)
13 call argos_cafe_fnrm(dbl_mb(i_mas),int_mb(i_iwa),iwdt,fw,numw,
|
| H A D | argos_cafe_gauss.F | 2 + iwdt,isdt,isat) argument
12 integer iwdt(mwm),isdt(msa),isat(msa) local
15 + numw,nums,vw,vs,iwdt,isdt,int_mb(i_iwa),
|
| H A D | argos_cafe_vscale.F | 1 subroutine argos_cafe_vscale(tgauss,numw,nums,vw,vwt,vs,vst,iwdt, argument
12 integer iwdt(mwm),isdt(msa),isat(msa)
15 + numw,nums,vw,vwt,vs,vst,iwdt,isdt,int_mb(i_iwa),
|
| H A D | argos_cafe_shakew.F | 1 subroutine argos_cafe_shakew(xw,yw,iwgm,iwdt,numw) argument
10 integer iwgm(mwm),iwdt(mwm)
12 call argos_cafe_shkw(numw,iwgm,iwdt,xw,yw,
|
| H A D | argos_cafe_fix.F | 1 subroutine argos_cafe_fix(lfnout,lfn,numfix,iwgmn,iwdt,numw, argument
10 integer iwdt(mwm),iwgmn(mwm),isgan(msa),isatt(msa),isdt(msa)
20 call argos_cafe_fix_sw(lfnout,lfn,numfix,iwgmn,iwdt,numw,
|
| H A D | argos_cafe_fnrm.F | 1 subroutine argos_cafe_fnrm(wgt,iwat,iwdt,fw,numw, argument
13 integer isdt(msa),iwdt(mwm) local
25 if(iand(iwdt(i),lfixed).eq.0) then
|
| H A D | argos_cafe_gauss1.F | 2 + numw,nums,vw,vs,iwdt,isdt,iwat,isat,wgt) argument
12 integer iwdt(mwm),isdt(msa),iwat(mwa),isat(msa) local
24 if(iwdt(iwm).ne.0) then
|
| H A D | argos_cafe_vscal.F | 2 + numw,nums,vw,vwt,vs,vst,iwdt,isdt,iwat,isat,wgt)
14 integer iwdt(mwm),isdt(msa),iwat(mwa),isat(msa)
24 if(iwdt(iwm).ne.0) then
|
| H A D | argos_cafe.F | 2 + xw,xwm,fw,zwi,rtos,iwdt,iwz,
64 integer iwdt(mwm),iwz(mwm),isz(msa)
123 if(lpair) call argos_pairs(lself,lpbcs,xw,xwm,iwdt,iwz,
137 call argos_cafe_fw(iwfr,iwto,xw,fw,iwdt,int_mb(i_iwa),
156 call argos_cafe_fww(xw,xwm,fw,iwdt,iwfr,nwloc,lpbc,eww,
174 + xw,xwm,fw,rtos,iwdt,lpbc,lpbcs,esw,esa,
193 + xw,xwm,fw,rtos,iwdt,lpbc,lpbcs,esw,esa,
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
| H A D | argos_cafe_fix_sw.F | 106 iwdt(i)=iand(iwdt(i),not(mfixed))
111 iwdt(i)=ior(iwdt(i),lfixed)
118 if(ifix.eq.0) iwdt(i)=iand(iwdt(i),not(mfixed))
119 if(ifix.eq.1) iwdt(i)=ior(iwdt(i),lfixed)
128 if(ifix.eq.0) iwdt(i)=iand(iwdt(i),not(mfixed))
129 if(ifix.eq.1) iwdt(i)=ior(iwdt(i),lfixed)
131 if(ifix.eq.0) iwdt(i)=iand(iwdt(i),not(mfixed))
132 if(ifix.eq.1) iwdt(i)=ior(iwdt(i),lfixed)
407 j=iand(iwdt(i),mfixed)/4
408 iwdt(i)=lshift(rshift(iwdt(i),2),2)
[all …]
|
| H A D | argos_cafe_mdstep.F | 1 subroutine argos_cafe_mdstep(iwdt,xw,yw,vw,vwt,fw,numw, argument
10 integer iwdt(mwm),isdt(msa),isat(msa),isgan(msa),issgm(msa) local
22 call argos_cafe_lpfrog(iwdt,xw,yw,vw,vwt,fw,numw,
26 call argos_cafe_lpfrog_bc(iwdt,xw,yw,vw,vwt,fw,numw,
|
| H A D | argos_cafe_lsw.F | 2 + xwm,iwdt,iwz,
14 integer list(mwm,2),iwdt(mwm),isdt(msa),isgr(msa)
52 + (iand(iwdt(iwm),mdynam).eq.ldynam.or.
55 + (iand(iwdt(iwm),mrestr).eq.lrestr.or.
61 + (iand(iwdt(iwm),mdynam).eq.ldynam.or.
133 if(iand(iwdt(iwm),mdynam).eq.ldynam.and.
135 if(iand(iwdt(iwm),mrestr).eq.lrestr.and.
150 if(iand(iwdt(iwm),mdynam).eq.ldynam.and.
|
| H A D | argos_cafe_gauss.F | 2 + iwdt,isdt,isat)
12 integer iwdt(mwm),isdt(msa),isat(msa)
15 + numw,nums,vw,vs,iwdt,isdt,int_mb(i_iwa),
|
| H A D | argos_cafe_fnorm.F | 1 subroutine argos_cafe_fnorm(iwdt,fw,numw,isat,isdt,fs, argument
11 integer isdt(msa),iwdt(mwm)
13 call argos_cafe_fnrm(dbl_mb(i_mas),int_mb(i_iwa),iwdt,fw,numw,
|
| H A D | argos_cafe_vscale.F | 1 subroutine argos_cafe_vscale(tgauss,numw,nums,vw,vwt,vs,vst,iwdt, argument
12 integer iwdt(mwm),isdt(msa),isat(msa) local
15 + numw,nums,vw,vwt,vs,vst,iwdt,isdt,int_mb(i_iwa),
|
| H A D | argos_cafe_shakew.F | 1 subroutine argos_cafe_shakew(xw,yw,iwgm,iwdt,numw) argument
10 integer iwgm(mwm),iwdt(mwm)
12 call argos_cafe_shkw(numw,iwgm,iwdt,xw,yw,
|
| H A D | argos_cafe_fix.F | 1 subroutine argos_cafe_fix(lfnout,lfn,numfix,iwgmn,iwdt,numw, argument
10 integer iwdt(mwm),iwgmn(mwm),isgan(msa),isatt(msa),isdt(msa)
20 call argos_cafe_fix_sw(lfnout,lfn,numfix,iwgmn,iwdt,numw,
|
| H A D | argos_cafe_fnrm.F | 1 subroutine argos_cafe_fnrm(wgt,iwat,iwdt,fw,numw, argument
13 integer isdt(msa),iwdt(mwm)
25 if(iand(iwdt(i),lfixed).eq.0) then
|
| H A D | argos_cafe_gauss1.F | 2 + numw,nums,vw,vs,iwdt,isdt,iwat,isat,wgt)
12 integer iwdt(mwm),isdt(msa),iwat(mwa),isat(msa)
24 if(iwdt(iwm).ne.0) then
|
| H A D | argos_cafe_vscal.F | 2 + numw,nums,vw,vwt,vs,vst,iwdt,isdt,iwat,isat,wgt) argument
14 integer iwdt(mwm),isdt(msa),iwat(mwa),isat(msa) local
24 if(iwdt(iwm).ne.0) then
|
| H A D | argos_cafe.F | 2 + xw,xwm,fw,zwi,rtos,iwdt,iwz,
64 integer iwdt(mwm),iwz(mwm),isz(msa)
123 if(lpair) call argos_pairs(lself,lpbcs,xw,xwm,iwdt,iwz,
137 call argos_cafe_fw(iwfr,iwto,xw,fw,iwdt,int_mb(i_iwa),
156 call argos_cafe_fww(xw,xwm,fw,iwdt,iwfr,nwloc,lpbc,eww,
174 + xw,xwm,fw,rtos,iwdt,lpbc,lpbcs,esw,esa,
193 + xw,xwm,fw,rtos,iwdt,lpbc,lpbcs,esw,esa,
|
| /dports/graphics/grx/grx249/src/image/ |
| H A D | ifbox.c | 27 int iwdt, ihgt, xoff, yoff, yy, xx, copyh, copyw; in GrImageFilledBoxAlign() local
32 iwdt = p->pxp_width; in GrImageFilledBoxAlign()
34 if ( (y2-y1) <= 0 || (x2-x1) <= 0 || iwdt <= 0 || ihgt <= 0) return; in GrImageFilledBoxAlign()
37 while (xo > x1) xo -= iwdt; in GrImageFilledBoxAlign()
47 xoff = (x1-xo)%iwdt; in GrImageFilledBoxAlign()
49 copyw = min(x2-xx,iwdt-xoff); in GrImageFilledBoxAlign()
54 xx += iwdt-xoff; in GrImageFilledBoxAlign()
|