| /dports/math/libpgmath/flang-d07daf3/test/mp_correct/src/ |
| H A D | pd00.f | 49 isum = 0
54 isum = isum + iarr(i)
63 isum = 0
67 isum = isum + iarr(i)
80 isum = isum + iarr(i)
94 isum = isum + iarr(i)
108 isum = isum + iarr(i)
122 isum = isum + iarr(i)
135 isum = isum + iarr(i)
148 isum = isum + iarr(i)
[all …]
|
| /dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/ |
| H A D | bu_check_s4s.F | 66 isum=0
71 isum=isum+NWTDWG(IJ)
74 ibytes=isum/8
98 isum=0
100 isum=isum+NWTDW(I)
102 isum=isum*ksec3(3)
103 ibytes=isum/8
128 isum=0
130 isum=isum+NWTIWS(I)
132 ibytes=isum/8
[all …]
|
| /dports/math/PDL/PDL-2.019/Lib/Fit/Gaussian/ |
| H A D | gauss.c | 137 int icol, irow, isum, iexc, ipivot; in decomp() local
154 for (isum=1; isum<=irow-1; isum++) in decomp()
155 sum -= x[irow-1][isum-1]*x[isum-1][irow-1]; in decomp()
166 for(isum=1; isum<=icol-1; isum++) in decomp()
167 sum -= x[irow-1][isum-1] * x[isum-1][icol-1]; in decomp()
227 int i,isum; in lineq() local
242 for (isum=1; isum<=i-1; isum++) in lineq()
243 sum -= x[i-1][isum-1] * d[isum-1]; in lineq()
252 for (isum=i+1; isum<=n; isum++) in lineq()
253 sum -= x[i-1][isum-1] * d[isum-1]; in lineq()
|
| /dports/math/parmetis/parmetis-4.0.3/metis/libmetis/ |
| H A D | stat.c | 56 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), in ComputePartitionInfoBipartite()
57 1.0*nparts*vwgt[iargmax(nvtxs, vwgt)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
91 kpwgts[i] = isum(nparts, padjncy+i*nparts, 1); in ComputePartitionInfoBipartite()
93 … kpwgts[iargmin(nparts, kpwgts)], kpwgts[iargmax(nparts, kpwgts)], isum(nparts, kpwgts, 1)/nparts, in ComputePartitionInfoBipartite()
94 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
97 kpwgts[i] = isum(nparts, padjcut+i*nparts, 1); in ComputePartitionInfoBipartite()
100 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
103 kpwgts[i] = isum(nparts, padjwgt+i*nparts, 1); in ComputePartitionInfoBipartite()
106 …1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), 1.0*isum(nparts, kpwgts,… in ComputePartitionInfoBipartite()
148 ubvec[j] = 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)); in ComputePartitionBalance()
[all …]
|
| /dports/math/py-PyMetis/PyMetis-2020.1/src/metis/libmetis/ |
| H A D | stat.c | 56 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), in ComputePartitionInfoBipartite()
57 1.0*nparts*vwgt[iargmax(nvtxs, vwgt)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
91 kpwgts[i] = isum(nparts, padjncy+i*nparts, 1); in ComputePartitionInfoBipartite()
93 … kpwgts[iargmin(nparts, kpwgts)], kpwgts[iargmax(nparts, kpwgts)], isum(nparts, kpwgts, 1)/nparts, in ComputePartitionInfoBipartite()
94 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
97 kpwgts[i] = isum(nparts, padjcut+i*nparts, 1); in ComputePartitionInfoBipartite()
100 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
103 kpwgts[i] = isum(nparts, padjwgt+i*nparts, 1); in ComputePartitionInfoBipartite()
106 …1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), 1.0*isum(nparts, kpwgts,… in ComputePartitionInfoBipartite()
148 ubvec[j] = 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)); in ComputePartitionBalance()
[all …]
|
| /dports/cad/gmsh/gmsh-4.9.2-source/contrib/metis/libmetis/ |
| H A D | stat.c | 56 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), in ComputePartitionInfoBipartite()
57 1.0*nparts*vwgt[iargmax(nvtxs, vwgt)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
91 kpwgts[i] = isum(nparts, padjncy+i*nparts, 1); in ComputePartitionInfoBipartite()
93 … kpwgts[iargmin(nparts, kpwgts)], kpwgts[iargmax(nparts, kpwgts)], isum(nparts, kpwgts, 1)/nparts, in ComputePartitionInfoBipartite()
94 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
97 kpwgts[i] = isum(nparts, padjcut+i*nparts, 1); in ComputePartitionInfoBipartite()
100 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
103 kpwgts[i] = isum(nparts, padjwgt+i*nparts, 1); in ComputePartitionInfoBipartite()
106 …1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), 1.0*isum(nparts, kpwgts,… in ComputePartitionInfoBipartite()
148 ubvec[j] = 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)); in ComputePartitionBalance()
[all …]
|
| /dports/math/libmesh/libmesh-1.6.2/contrib/metis/libmetis/ |
| H A D | stat.c | 56 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), in ComputePartitionInfoBipartite()
57 1.0*nparts*vwgt[iargmax(nvtxs, vwgt)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
91 kpwgts[i] = isum(nparts, padjncy+i*nparts, 1); in ComputePartitionInfoBipartite()
93 … kpwgts[iargmin(nparts, kpwgts)], kpwgts[iargmax(nparts, kpwgts)], isum(nparts, kpwgts, 1)/nparts, in ComputePartitionInfoBipartite()
94 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
97 kpwgts[i] = isum(nparts, padjcut+i*nparts, 1); in ComputePartitionInfoBipartite()
100 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
103 kpwgts[i] = isum(nparts, padjwgt+i*nparts, 1); in ComputePartitionInfoBipartite()
106 …1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), 1.0*isum(nparts, kpwgts,… in ComputePartitionInfoBipartite()
148 ubvec[j] = 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)); in ComputePartitionBalance()
[all …]
|
| /dports/science/octopus/octopus-10.5/external_libs/metis-5.1/libmetis/ |
| H A D | stat.c | 55 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), in ComputePartitionInfoBipartite()
56 1.0*nparts*vwgt[iargmax(nvtxs, vwgt)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
90 kpwgts[i] = isum(nparts, padjncy+i*nparts, 1); in ComputePartitionInfoBipartite()
92 … kpwgts[iargmin(nparts, kpwgts)], kpwgts[iargmax(nparts, kpwgts)], isum(nparts, kpwgts, 1)/nparts, in ComputePartitionInfoBipartite()
93 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
96 kpwgts[i] = isum(nparts, padjcut+i*nparts, 1); in ComputePartitionInfoBipartite()
99 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
102 kpwgts[i] = isum(nparts, padjwgt+i*nparts, 1); in ComputePartitionInfoBipartite()
105 …1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), 1.0*isum(nparts, kpwgts,… in ComputePartitionInfoBipartite()
147 ubvec[j] = 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)); in ComputePartitionBalance()
[all …]
|
| /dports/math/metis/metis-5.1.0/libmetis/ |
| H A D | stat.c | 56 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), in ComputePartitionInfoBipartite()
57 1.0*nparts*vwgt[iargmax(nvtxs, vwgt)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
91 kpwgts[i] = isum(nparts, padjncy+i*nparts, 1); in ComputePartitionInfoBipartite()
93 … kpwgts[iargmin(nparts, kpwgts)], kpwgts[iargmax(nparts, kpwgts)], isum(nparts, kpwgts, 1)/nparts, in ComputePartitionInfoBipartite()
94 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
97 kpwgts[i] = isum(nparts, padjcut+i*nparts, 1); in ComputePartitionInfoBipartite()
100 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1))); in ComputePartitionInfoBipartite()
103 kpwgts[i] = isum(nparts, padjwgt+i*nparts, 1); in ComputePartitionInfoBipartite()
106 …1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)), 1.0*isum(nparts, kpwgts,… in ComputePartitionInfoBipartite()
148 ubvec[j] = 1.0*nparts*kpwgts[iargmax(nparts, kpwgts)]/(1.0*isum(nparts, kpwgts, 1)); in ComputePartitionBalance()
[all …]
|
| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | elementcpuload.c | 31 ITG i,nepar,*ipar=NULL,idelta,isum; in elementcpuload() local
51 isum=0; in elementcpuload()
53 neapar[i]=ipar[isum]; in elementcpuload()
55 isum+=idelta; in elementcpuload()
57 isum=nepar; in elementcpuload()
59 nebpar[i]=ipar[isum-1]; in elementcpuload()
|
| H A D | cpyparitg.c | 37 ITG i,idelta,isum; in cpyparitg() local
54 isum=0; in cpyparitg()
56 neapar[i]=isum; in cpyparitg()
58 isum+=idelta; in cpyparitg()
60 isum=*isize; in cpyparitg()
62 nebpar[i]=isum; in cpyparitg()
|
| H A D | divparll.c | 37 ITG i,idelta,isum; in divparll() local
54 isum=0; in divparll()
56 neapar[i]=isum; in divparll()
58 isum+=idelta; in divparll()
60 isum=*isize; in divparll()
62 nebpar[i]=isum; in divparll()
|
| H A D | cpypardou.c | 37 ITG i,idelta,isum; in cpypardou() local
54 isum=0; in cpypardou()
56 neapar[i]=isum; in cpypardou()
58 isum+=idelta; in cpypardou()
60 isum=*isize; in cpypardou()
62 nebpar[i]=isum; in cpypardou()
|
| H A D | setpardou.c | 36 ITG i,idelta,isum; in setpardou() local
53 isum=0; in setpardou()
55 neapar[i]=isum; in setpardou()
57 isum+=idelta; in setpardou()
59 isum=isize; in setpardou()
61 nebpar[i]=isum; in setpardou()
|
| H A D | setparitg.c | 36 ITG i,idelta,isum; in setparitg() local
53 isum=0; in setparitg()
55 neapar[i]=isum; in setparitg()
57 isum+=idelta; in setparitg()
59 isum=isize; in setparitg()
61 nebpar[i]=isum; in setparitg()
|
| H A D | dam2parll.c | 35 ITG i,idelta,isum; in dam2parll() local
53 isum=0; in dam2parll()
55 neapar[i]=isum; in dam2parll()
57 isum+=idelta; in dam2parll()
59 isum=*neq0; in dam2parll()
61 nebpar[i]=isum; in dam2parll()
|
| H A D | forparll.c | 35 ITG i,idelta,isum; in forparll() local
52 isum=0; in forparll()
54 neapar[i]=isum; in forparll()
56 isum+=idelta; in forparll()
58 isum=*nk; in forparll()
60 nebpar[i]=isum; in forparll()
|
| H A D | dam1parll.c | 35 ITG i,idelta,isum; in dam1parll() local
52 isum=0; in dam1parll()
54 neapar[i]=isum; in dam1parll()
56 isum+=idelta; in dam1parll()
58 isum=*nk; in dam1parll()
60 nebpar[i]=isum; in dam1parll()
|
| H A D | res3parll.c | 35 ITG i,idelta,isum; in res3parll() local
52 isum=0; in res3parll()
54 neapar[i]=isum; in res3parll()
56 isum+=idelta; in res3parll()
58 isum=*nk; in res3parll()
60 nebpar[i]=isum; in res3parll()
|
| H A D | res4parll.c | 36 ITG i,idelta,isum; in res4parll() local
53 isum=0; in res4parll()
55 neapar[i]=isum; in res4parll()
57 isum+=idelta; in res4parll()
59 isum=*neq0; in res4parll()
61 nebpar[i]=isum; in res4parll()
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/Parallel/ |
| H A D | Parallel-tcgmsg.F | 281 subroutine Parallel_IMaxAll(isum) argument
283 integer isum
290 call GA_IGOP(9+MSGINT,isum,1,'max')
459 subroutine Parallel_Brdcst_ivalue(psend,isum) argument
462 integer isum local
475 call BRDCST(9+MSGINT,isum,mitob(msglen),psend)
492 integer isum(*) local
501 call BRDCST(9+MSGINT,isum,mitob(nsize),psend)
758 subroutine Parallela_Brdcst_ivalue(ic,psend,isum) argument
762 integer isum local
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/Parallel/ |
| H A D | Parallel-tcgmsg.F | 281 subroutine Parallel_IMaxAll(isum) argument
283 integer isum
290 call GA_IGOP(9+MSGINT,isum,1,'max')
459 subroutine Parallel_Brdcst_ivalue(psend,isum) argument
462 integer isum local
475 call BRDCST(9+MSGINT,isum,mitob(msglen),psend)
492 integer isum(*) local
501 call BRDCST(9+MSGINT,isum,mitob(nsize),psend)
758 subroutine Parallela_Brdcst_ivalue(ic,psend,isum) argument
762 integer isum local
[all …]
|
| /dports/math/fftw/fftw-2.1.5/rfftw/ |
| H A D | rgeneric.c | 35 fftw_real rsum, isum; in fftw_hc2hc_forward_generic() local
46 isum = 0.0; in fftw_hc2hc_forward_generic()
53 isum += re * tw_i; in fftw_hc2hc_forward_generic()
59 c_im(tmp[i]) = isum; in fftw_hc2hc_forward_generic()
77 isum = 0.0; in fftw_hc2hc_forward_generic()
85 isum += re * tw_i + im * tw_r; in fftw_hc2hc_forward_generic()
91 c_im(tmp[i]) = isum; in fftw_hc2hc_forward_generic()
116 fftw_real rsum, isum; in fftw_hc2hc_backward_generic() local
168 isum = 0.0; in fftw_hc2hc_backward_generic()
176 isum += im * tw_r - re * tw_i; in fftw_hc2hc_backward_generic()
[all …]
|
| /dports/math/fftw-float/fftw-2.1.5/rfftw/ |
| H A D | rgeneric.c | 35 fftw_real rsum, isum; in fftw_hc2hc_forward_generic() local
46 isum = 0.0; in fftw_hc2hc_forward_generic()
53 isum += re * tw_i; in fftw_hc2hc_forward_generic()
59 c_im(tmp[i]) = isum; in fftw_hc2hc_forward_generic()
77 isum = 0.0; in fftw_hc2hc_forward_generic()
85 isum += re * tw_i + im * tw_r; in fftw_hc2hc_forward_generic()
91 c_im(tmp[i]) = isum; in fftw_hc2hc_forward_generic()
116 fftw_real rsum, isum; in fftw_hc2hc_backward_generic() local
168 isum = 0.0; in fftw_hc2hc_backward_generic()
176 isum += im * tw_r - re * tw_i; in fftw_hc2hc_backward_generic()
[all …]
|
| /dports/devel/swig/swig-4.0.2/Examples/scilab/template/ |
| H A D | runme.sci | 27 isum = 0
29 isum = isum + vecint_getitem(iv, i);
32 printf("isum = %i\n", isum);
|