| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/selci/ |
| H A D | eirerj.F | 52 $ e,numf,numf,numf,numf2)
56 $ work,numf,numf,numf2,numf)
60 $ e,numf,numf,numf,numf)
78 $ e,numf,numf,numf,numf2)
82 $ work,numf,numf,numf2,numf)
86 $ e,numf,numf,numf,numf2)
104 $ e,numf,numf,numf2,numf)
108 $ work,numf,numf,numf,numf2)
130 $ e,numf,numf,numf2,numf)
134 $ work,numf,numf,numf,numf2)
[all …]
|
| H A D | eijkj.F | 29 numf = nf(ns)
47 $ e,numf,numf,numf,numf)
51 $ work,numf,numf,numf,numf)
55 $ e,numf,numf,numf,numf2)
71 $ e,numf,numf,numf2,numf2)
75 $ work,numf,numf,numf2,numf2)
79 $ e,numf,numf,numf2,numf)
80 numf2 = numf
98 $ e,numf,numf,numf2,numf4)
102 $ work,numf,numf,numf4,numf4)
[all …]
|
| H A D | eijil.F | 5 $ w1,w2,work,numf,numf2)
33 numf = nf(ns)
39 $ e,numf,numf,numf2,numf2)
54 call selci_axbt(e,numf,w1(1,1,lb),nfmax,
55 $ work,numf,numf,numf2,numf2)
59 $ e,numf,numf,numf2,numf2)
72 $ work,numf,numf,numf2,numf)
76 $ e,numf,numf,numf,numf)
77 numf2 = numf
91 $ work,numf,numf,numf2,numf)
[all …]
|
| H A D | eij.F | 72 numf = nf(ns)
83 if (numf.eq.1) then
88 do 11 is = 1,numf
93 ie = ie + numf
104 $ numf, numf, numf)
119 do 23 is = 1,numf
122 ie = ie + numf
132 $ numf, numf, numf2)
150 do 32 is = 1,numf
179 if (numf.eq.1) then
[all …]
|
| H A D | eijeji.F | 37 numf = nf(ns)
41 if (numf .gt. maxtmp) call errquit
43 do k = 1, numf
48 do k = 1, numf
52 mm = mm + numf
55 numfp1 = numf + 1
56 do k = 1, numf
61 call selci_axbt(work,numf,work,numf,e,numf,numf,numf2,numf)
|
| H A D | makhdb.F | 5 $ w1,w2,work1,work2,g,int12,int34,numf,numf2)
33 numf = nf(ns)
43 call dfill(numf*numf,0.0d0,hij,1)
45 call dfill(numf,g(int12(ij)+int34(ij)),hij,numf+1)
54 $ work1,numf,numf2)
56 call dscal(numf*numf2,gg,hij,1)
65 $ work1,numf,numf2)
67 call dscal(numf*numf2,gg,hij,1)
76 $ iocc,w1,w2,work1,numf,numf2)
78 call dscal(numf*numf2,gg,hij,1)
[all …]
|
| H A D | makeh.F | 90 $ g,int12,int34,numf)
92 do 33 id = 1,numf
93 idid = (id-1)*numf
95 do 34 jd = id,numf
99 numf2 = numf
104 $ w1,w2,work2,work3,f,g,int12,int34,numf,numf2)
109 $ w1,w2,work2,work3,g,int12,int34,numf,numf2)
114 if (numf*numf2+ninhb.gt.lenhbf)
117 call dcopy(numf*numf2,work1,1,hbuf(ninhb+1),1)
118 ninhb = ninhb + numf*numf2
[all …]
|
| H A D | inicij.F | 36 numf = nf(nseij)
49 $ case1(1,1,iib,jjb),nfc, numf, numf, numf)
65 $ case2(1,1,iib,jjb),nfc, numf, numf, numf2)
72 numf = nf(ns4eij)
82 $ case4(1,1,iib,jjb),nfc, numf, numf2, numf)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/ |
| H A D | eirerj.F | 52 $ e,numf,numf,numf,numf2)
56 $ work,numf,numf,numf2,numf)
60 $ e,numf,numf,numf,numf)
78 $ e,numf,numf,numf,numf2)
82 $ work,numf,numf,numf2,numf)
86 $ e,numf,numf,numf,numf2)
104 $ e,numf,numf,numf2,numf)
108 $ work,numf,numf,numf,numf2)
130 $ e,numf,numf,numf2,numf)
134 $ work,numf,numf,numf,numf2)
[all …]
|
| H A D | eijkj.F | 29 numf = nf(ns)
47 $ e,numf,numf,numf,numf)
51 $ work,numf,numf,numf,numf)
55 $ e,numf,numf,numf,numf2)
71 $ e,numf,numf,numf2,numf2)
75 $ work,numf,numf,numf2,numf2)
79 $ e,numf,numf,numf2,numf)
80 numf2 = numf
98 $ e,numf,numf,numf2,numf4)
102 $ work,numf,numf,numf4,numf4)
[all …]
|
| H A D | eijil.F | 5 $ w1,w2,work,numf,numf2)
33 numf = nf(ns)
39 $ e,numf,numf,numf2,numf2)
54 call selci_axbt(e,numf,w1(1,1,lb),nfmax,
55 $ work,numf,numf,numf2,numf2)
59 $ e,numf,numf,numf2,numf2)
72 $ work,numf,numf,numf2,numf)
76 $ e,numf,numf,numf,numf)
77 numf2 = numf
91 $ work,numf,numf,numf2,numf)
[all …]
|
| H A D | eij.F | 72 numf = nf(ns)
83 if (numf.eq.1) then
88 do 11 is = 1,numf
93 ie = ie + numf
104 $ numf, numf, numf)
119 do 23 is = 1,numf
122 ie = ie + numf
132 $ numf, numf, numf2)
150 do 32 is = 1,numf
179 if (numf.eq.1) then
[all …]
|
| H A D | eijeji.F | 37 numf = nf(ns)
41 if (numf .gt. maxtmp) call errquit
43 do k = 1, numf
48 do k = 1, numf
52 mm = mm + numf
55 numfp1 = numf + 1
56 do k = 1, numf
61 call selci_axbt(work,numf,work,numf,e,numf,numf,numf2,numf)
|
| H A D | makhdb.F | 5 $ w1,w2,work1,work2,g,int12,int34,numf,numf2)
33 numf = nf(ns)
43 call dfill(numf*numf,0.0d0,hij,1)
45 call dfill(numf,g(int12(ij)+int34(ij)),hij,numf+1)
54 $ work1,numf,numf2)
56 call dscal(numf*numf2,gg,hij,1)
65 $ work1,numf,numf2)
67 call dscal(numf*numf2,gg,hij,1)
76 $ iocc,w1,w2,work1,numf,numf2)
78 call dscal(numf*numf2,gg,hij,1)
[all …]
|
| H A D | makeh.F | 90 $ g,int12,int34,numf)
92 do 33 id = 1,numf
93 idid = (id-1)*numf
95 do 34 jd = id,numf
99 numf2 = numf
104 $ w1,w2,work2,work3,f,g,int12,int34,numf,numf2)
109 $ w1,w2,work2,work3,g,int12,int34,numf,numf2)
114 if (numf*numf2+ninhb.gt.lenhbf)
117 call dcopy(numf*numf2,work1,1,hbuf(ninhb+1),1)
118 ninhb = ninhb + numf*numf2
[all …]
|
| H A D | inicij.F | 36 numf = nf(nseij)
49 $ case1(1,1,iib,jjb),nfc, numf, numf, numf)
65 $ case2(1,1,iib,jjb),nfc, numf, numf, numf2)
72 numf = nf(ns4eij)
82 $ case4(1,1,iib,jjb),nfc, numf, numf2, numf)
|
| /dports/games/lincity/lincity-1.13.1/ |
| H A D | lclib.c | 55 float numf = (float)num; in num_to_ansi() local
57 while (numf > 1000 || numf < -1000) { in num_to_ansi()
58 numf /= 1000; in num_to_ansi()
74 if (numf < 10) { in num_to_ansi()
77 snprintf(s,size + 1, "%3.0f%c", numf, triplets); in num_to_ansi()
81 snprintf(s, size, "%3.1f", numf); in num_to_ansi()
83 snprintf(s, size, "%3.1f%c", numf, triplets); in num_to_ansi()
92 float numf = (float)num; in num_to_ansi_unit() local
94 while (numf > 1000) { in num_to_ansi_unit()
95 numf /= 1000; in num_to_ansi_unit()
[all …]
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/lib/macros/ |
| H A D | CLASSIFICATION_ANALYSIS.DP | 11 . numf
32 loop for jf = 1 1 numf
41 loop for jf = 1 1 numf
58 multiplot numf numf
82 if numf <> 6
85 if numf = 6
112 multiplot numf numf; multiplot scale factor numf
132 if numf = 6
162 multiplot numf numf; multiplot scale factor numf
182 if numf = 6
[all …]
|
| /dports/games/lincity-ng/lincity-ng-2.0/src/lincity/ |
| H A D | lclib.cpp | 63 float numf = (float)num; in num_to_ansi() local
65 while (numf > 1000 || numf < -1000) { in num_to_ansi()
66 numf /= 1000; in num_to_ansi()
95 if (numf < 10) { in num_to_ansi()
96 snprintf(s, size + 1, "%1.1f%c", numf, triplets); in num_to_ansi()
102 snprintf(s, size, "%3.1f", numf); in num_to_ansi()
104 snprintf(s, size, "%3.1f%c", numf, triplets); in num_to_ansi()
112 float numf = (float)num; in num_to_ansi_unit() local
114 while (numf > 1000) { in num_to_ansi_unit()
115 numf /= 1000; in num_to_ansi_unit()
[all …]
|
| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | flux.f | 21 & nodef,idirf,df,cp,R,rho,physcon,g,co,dvi,numf, argument
38 integer nelem,nactdog(0:3,*),node1,node2,nodem,numf, local
98 & nodef,idirf,df,cp,r,physcon,dvi,numf,set,
115 & nodef,idirf,df,cp,r,physcon,dvi,numf,set,shcon,
124 & nodef,idirf,df,cp,r,physcon,dvi,numf,set,shcon,
154 & nodef,idirf,df,cp,R,physcon,co,dvi,numf,vold,set,
172 & rho,g,co,dvi,numf,mi,ipkon,kon,iplausi)
190 & rho,g,co,numf,mi,ttime,time,iaxial,iplausi)
226 & nodef,idirf,df,cp,R,dvi,numf,set,mi,ttime,time,
235 & nodef,idirf,df,cp,R,dvi,numf,set,mi,ttime,time,
[all …]
|
| /dports/math/R-cran-Rmpfr/Rmpfr/R/ |
| H A D | hjk.R | 98 finc <- finc + hje$numf
110 finc <- finc + hje$numf
117 finc <- finc + hje$numf
132 numf <- 1 functionVar
135 numf <- 0
146 numf <- numf + 1
151 numf <- numf + 1
163 list(x = x, fx = fx, found=found, numf = numf) nameattr
|
| /dports/archivers/libmspack/libmspack-0.10.1alpha/test/ |
| H A D | chmd_md5.c | 24 unsigned int numf, i; in main() local
39 for (numf=0, file=chm->files; file; file = file->next) numf++; in main()
40 if ((f = (struct mschmd_file **) calloc(numf, sizeof(struct mschmd_file *)))) { in main()
42 qsort(f, numf, sizeof(struct mschmd_file *), &sortfunc); in main()
43 for (i = 0; i < numf; i++) { in main()
|
| /dports/security/clamav/clamav-0.104.2/libclammspack/test/ |
| H A D | chmd_md5.c | 24 unsigned int numf, i; in main() local
39 for (numf=0, file=chm->files; file; file = file->next) numf++; in main()
40 if ((f = (struct mschmd_file **) calloc(numf, sizeof(struct mschmd_file *)))) { in main()
42 qsort(f, numf, sizeof(struct mschmd_file *), &sortfunc); in main()
43 for (i = 0; i < numf; i++) { in main()
|
| /dports/security/clamav-lts/clamav-0.103.5/libclammspack/test/ |
| H A D | chmd_md5.c | 24 unsigned int numf, i; in main() local
39 for (numf=0, file=chm->files; file; file = file->next) numf++; in main()
40 if ((f = (struct mschmd_file **) calloc(numf, sizeof(struct mschmd_file *)))) { in main()
42 qsort(f, numf, sizeof(struct mschmd_file *), &sortfunc); in main()
43 for (i = 0; i < numf; i++) { in main()
|
| /dports/math/vtk9/VTK-9.1.0/ThirdParty/libproj/vtklibproj/src/ |
| H A D | proj_mdist.c | 44 double numf, numfi, twon1, denf, denfi, ens, T, twon; in proj_mdist_ini() local
52 numf = twon1 = denfi = 1.; in proj_mdist_ini()
57 numf *= (twon1 * twon1); in proj_mdist_ini()
59 T = numf/den; in proj_mdist_ini()
77 numf = denf = 1.; in proj_mdist_ini()
82 numf *= numfi; in proj_mdist_ini()
84 b->b[j] = Es * numf / denf; in proj_mdist_ini()
|