| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/lattice/ |
| H A D | G_init.F | 48 integer nxh,nyh,nzh
86 nyh = ny/2
93 do k2 = -nyh+1, nyh
146 nyh = ny/2
152 do k2 = -nyh+1, nyh
|
| H A D | mask_init.F | 50 integer nxh,nyh,nzh
81 nyh = ny/2
104 do k2 = -nyh+1, nyh-1
165 nyh = ny/2
186 do k2 = -nyh+1, nyh-1
|
| H A D | c_G_init.F | 31 integer nxh,nyh,nzh
64 nyh = ny/2
70 do k2 = -nyh+1, nyh
|
| H A D | cloak.F | 67 integer nxh,nyh,nzh
81 nyh = ny/2
96 do k2 = -nyh+1, nyh-1
|
| H A D | check_real.f | 15 integer nxh,nyh,nzh
19 nyh = ny/2
37 do k2=1,(nyh-1)
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/lattice/ |
| H A D | G_init.F | 48 integer nxh,nyh,nzh
86 nyh = ny/2
93 do k2 = -nyh+1, nyh
146 nyh = ny/2
152 do k2 = -nyh+1, nyh
|
| H A D | mask_init.F | 50 integer nxh,nyh,nzh
81 nyh = ny/2
104 do k2 = -nyh+1, nyh-1
165 nyh = ny/2
186 do k2 = -nyh+1, nyh-1
|
| H A D | c_G_init.F | 31 integer nxh,nyh,nzh
64 nyh = ny/2
70 do k2 = -nyh+1, nyh
|
| H A D | cloak.F | 67 integer nxh,nyh,nzh
81 nyh = ny/2
96 do k2 = -nyh+1, nyh-1
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
| H A D | rchek.f | 1 subroutine rchek (job, g, neq, y, yh, nyh, g0, g1, gx, jroot, irt) argument
4 integer job, neq, nyh, jroot, irt local
6 dimension neq(*), y(*), yh(nyh,*), g0(*), g1(*), gx(*), jroot(*)
107 call intdy (t0, 0, yh, nyh, y, iflag)
127 230 call intdy (t0, 0, yh, nyh, y, iflag)
154 call intdy (t1, 0, yh, nyh, y, iflag)
167 call intdy (x, 0, yh, nyh, y, iflag)
176 call intdy (x, 0, yh, nyh, y, iflag)
|
| H A D | rchek2.f | 1 subroutine rchek2(job, g, neq, y, yh, nyh, g0, g1, gx, jroot, irt argument
6 integer job, neq, nyh, jroot, irt local
8 dimension neq(*), y(*), yh(nyh,*), g0(*), g1(*), gx(*), jroot(*)
113 call intdy (t0, 0, yh, nyh, y, iflag)
132 call intdy (t1, 0, yh, nyh, y, iflag)
151 call intdy (x, 0, yh, nyh, y, iflag)
184 call intdy (x, 0, yh, nyh, y, iflag)
|
| H A D | stodi.f | 2 subroutine stodi (neq, y, yh, nyh, yh1, ewt, savf, savr, argument
6 integer neq, nyh, iwm local
18 dimension neq(*), y(*), yh(nyh,*), yh1(*), ewt(*), savf(*),
169 nqnyh = nq*nyh
190 nqnyh = nq*nyh
231 i1 = i1 - nyh
233 210 yh1(i) = yh1(i) + yh1(i+nyh)
319 i1 = i1 - nyh
321 440 yh1(i) = yh1(i) - yh1(i+nyh)
380 i1 = i1 - nyh
[all …]
|
| H A D | stode.f | 2 subroutine stode (neq, y, yh, nyh, yh1, ewt, savf, acor, argument
7 integer neq, nyh, iwm local
18 dimension neq(*), y(*), yh(nyh,*), yh1(*), ewt(*), savf(*),
163 nqnyh = nq*nyh
184 nqnyh = nq*nyh
225 i1 = i1 - nyh
227 210 yh1(i) = yh1(i) + yh1(i+nyh)
315 i1 = i1 - nyh
317 440 yh1(i) = yh1(i) - yh1(i+nyh)
372 i1 = i1 - nyh
[all …]
|
| H A D | lsode.f | 951 1 mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns local
1065 if (istate .eq. 1) nyh = n
1066 lwm = lyh + (maxord + 1)*nyh
1100 if (n .eq. nyh) go to 200
1102 i1 = lyh + l*nyh
1103 i2 = lyh + (maxord + 1)*nyh - 1
1135 lf0 = lyh + nyh
1203 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1215 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1284 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
[all …]
|
| H A D | lsodar.f | 1246 if (istate .eq. 1) nyh = n
1254 lenyh = l*nyh
1261 len1n = lyhnew - 1 + (mxordn + 1)*nyh
1262 len1s = lyhnew - 1 + (mxords + 1)*nyh
1326 if (n .eq. nyh) go to 200
1328 i1 = lyh + l*nyh
1329 i2 = lyh + (maxord + 1)*nyh - 1
1364 lf0 = lyh + nyh
1431 call rchek (1, g, neq, y, rwork(lyh), nyh,
1450 call rchek (2, g, neq, y, rwork(lyh), nyh,
[all …]
|
| H A D | lsodi.f | 1257 if (istate .le. 1) nyh = n
1258 lwm = lyh + (maxord + 1)*nyh
1289 if (n .eq. nyh) go to 200
1291 i1 = lyh + l*nyh
1292 i2 = lyh + (maxord + 1)*nyh - 1
1325 lyd0 = lyh + nyh
1410 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1422 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1496 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1504 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
[all …]
|
| H A D | lsoda.f | 1116 if (istate .eq. 1) nyh = n
1118 len1n = 20 + (mxordn + 1)*nyh
1119 len1s = 20 + (mxords + 1)*nyh
1183 if (n .eq. nyh) go to 200
1185 i1 = lyh + l*nyh
1186 i2 = lyh + (maxord + 1)*nyh - 1
1221 lf0 = lyh + nyh
1292 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1305 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1403 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/odepack/src/ |
| H A D | dstode.lisp | 21 (declare (type (f2cl-lib:integer4) nyh)
132 (setf nqnyh (f2cl-lib:int-mul nq nyh))
156 (setf nqnyh (f2cl-lib:int-mul nq nyh))
180 (setf (f2cl-lib:fref yh (i j) ((1 nyh) (1 *)))
195 (setf i1 (f2cl-lib:int-sub i1 nyh))
228 (setf nyh var-3)))
317 (setf i1 (f2cl-lib:int-sub i1 nyh))
368 (setf (f2cl-lib:fref yh (i lmax) ((1 nyh) (1 *)))
378 (setf i1 (f2cl-lib:int-sub i1 nyh))
448 ((1 nyh) (1 *)))
[all …]
|
| H A D | dstodi.lisp | 22 (declare (type (f2cl-lib:integer4) nyh)
147 (setf nqnyh (f2cl-lib:int-mul nq nyh))
171 (setf nqnyh (f2cl-lib:int-mul nq nyh))
218 (setf i1 (f2cl-lib:int-sub i1 nyh))
257 nyh
270 (setf nyh var-3)))
368 (setf i1 (f2cl-lib:int-sub i1 nyh))
438 ((1 nyh) (1 *))
449 (setf i1 (f2cl-lib:int-sub i1 nyh))
528 ((1 nyh) (1 *))
[all …]
|
| H A D | dstodpk.lisp | 21 (declare (type (f2cl-lib:integer4) nyh)
148 (setf nqnyh (f2cl-lib:int-mul nq nyh))
173 (setf nqnyh (f2cl-lib:int-mul nq nyh))
227 (setf i1 (f2cl-lib:int-sub i1 nyh))
250 ((1 nyh) (1 *))
286 ((1 nyh) (1 *))
303 ((1 nyh) (1 *))
391 (setf i1 (f2cl-lib:int-sub i1 nyh))
456 ((1 nyh) (1 *))
467 (setf i1 (f2cl-lib:int-sub i1 nyh))
[all …]
|
| H A D | dstoka.lisp | 21 (declare (type (f2cl-lib:integer4) nyh)
159 (setf nqnyh (f2cl-lib:int-mul nq nyh))
184 (setf nqnyh (f2cl-lib:int-mul nq nyh))
239 (setf i1 (f2cl-lib:int-sub i1 nyh))
265 ((1 nyh) (1 *))
316 ((1 nyh) (1 *))
438 (setf i1 (f2cl-lib:int-sub i1 nyh))
506 ((1 nyh) (1 *))
517 (setf i1 (f2cl-lib:int-sub i1 nyh))
596 ((1 nyh) (1 *))
[all …]
|
| H A D | dstoda.lisp | 28 (declare (type (f2cl-lib:integer4) nyh)
202 (setf nqnyh (f2cl-lib:int-mul nq nyh))
257 (setf i1 (f2cl-lib:int-sub i1 nyh))
285 ((1 nyh) (1 *))
301 (setf nyh var-3)))
448 (setf i1 (f2cl-lib:int-sub i1 nyh))
619 ((1 nyh) (1 *))
633 (setf i1 (f2cl-lib:int-sub i1 nyh))
732 ((1 nyh) (1 *))
781 ((1 nyh) (1 *))
[all …]
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/integrate/odepack/ |
| H A D | lsoda.f | 1105 if (istate .eq. 1) nyh = n
1107 len1n = 20 + (mxordn + 1)*nyh
1108 len1s = 20 + (mxords + 1)*nyh
1172 if (n .eq. nyh) go to 200
1174 i1 = lyh + l*nyh
1175 i2 = lyh + (maxord + 1)*nyh - 1
1210 lf0 = lyh + nyh
1284 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1297 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
1393 call intdy (tout, 0, rwork(lyh), nyh, y, iflag)
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/band/lib/coulomb/ |
| H A D | c_coulomb_screened.F | 94 integer nx,ny,nz,nxh,nyh,nzh
132 nyh = ny/2
192 do k2=-nyh,nyh-1
230 do k2=-nyh,nyh-1
469 integer nx,ny,nz,nxh,nyh,nzh
525 nyh = ny/2
582 do k2=-nyh,nyh-1
665 do k2=-nyh,nyh-1
726 do k2=-nyh,nyh-1
767 do k2=-nyh,nyh-1
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/band/lib/coulomb/ |
| H A D | c_coulomb_screened.F | 94 integer nx,ny,nz,nxh,nyh,nzh
132 nyh = ny/2
192 do k2=-nyh,nyh-1
230 do k2=-nyh,nyh-1
469 integer nx,ny,nz,nxh,nyh,nzh
525 nyh = ny/2
582 do k2=-nyh,nyh-1
665 do k2=-nyh,nyh-1
726 do k2=-nyh,nyh-1
767 do k2=-nyh,nyh-1
|