| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/src_f77/ |
| H A D | mgfasd.f | 90 nyf = ny
128 nyc = nyf
207 nyf = ny
242 call nmresid(nxf,nyf,nzf,
254 call nmatvec(nxf,nyf,nzf,
286 call nsmooth (nxf,nyf,nzf,
363 call nsmooth(nxf,nyf,nzf,
392 nyf = nyc
396 call nmatvec(nxf,nyf,nzf,
442 call nsmooth (nxf,nyf,nzf,
[all …]
|
| H A D | mgcsd.f | 90 nyf = ny
123 nyc = nyf
201 nyf = ny
240 call matvec(nxf,nyf,nzf,
275 call smooth (nxf,nyf,nzf,
312 call mresid(nxf,nyf,nzf,
372 call smooth(nxf,nyf,nzf,
397 nyf = nyc
441 call smooth (nxf,nyf,nzf,
490 call matvec(nxf,nyf,nzf,
[all …]
|
| H A D | mgsubd.f | 630 double precision xf(nxf),yf(nyf),zf(nzf)
631 double precision gxcf(nyf,nzf,*),gycf(nxf,nzf,*),gzcf(nxf,nyf,*)
632 double precision a1cf(nxf,nyf,nzf),a2cf(nxf,nyf,nzf)
633 double precision a3cf(nxf,nyf,nzf),tcf(nxf,nyf,nzf)
634 double precision ccf(nxf,nyf,nzf),fcf(nxf,nyf,nzf)
640 jadd = (nyf-1)/(ny-1)
745 double precision gxcf(nyf,nzf,*),gycf(nxf,nzf,*),gzcf(nxf,nyf,*)
746 double precision a1cf(nxf,nyf,nzf),a2cf(nxf,nyf,nzf)
747 double precision a3cf(nxf,nyf,nzf),tcf(nxf,nyf,nzf)
748 double precision ccf(nxf,nyf,nzf),fcf(nxf,nyf,nzf)
[all …]
|
| H A D | ninterpd.f | 131 double precision rpc(*),cc(nxf,nyf,nzf),fc(nxf,nyf,nzf)
133 double precision oE(nxf,nyf,nzf),oN(nxf,nyf,nzf),uC(nxf,nyf,nzf)
161 do 11 j = 1, nyf-2, 2
739 double precision rpc(*),cc(nxf,nyf,nzf),fc(nxf,nyf,nzf)
740 double precision oC(nxf,nyf,nzf),oE(nxf,nyf,nzf)
741 double precision oN(nxf,nyf,nzf),uC(nxf,nyf,nzf)
742 double precision oNE(nxf,nyf,nzf),oNW(nxf,nyf,nzf)
743 double precision uE(nxf,nyf,nzf),uW(nxf,nyf,nzf)
744 double precision uN(nxf,nyf,nzf),uS(nxf,nyf,nzf)
745 double precision uNE(nxf,nyf,nzf),uNW(nxf,nyf,nzf)
[all …]
|
| H A D | mgdrvd.f | 279 nyf = ny
294 nyf = nyc
308 call power(nxf,nyf,nzf,iz,level,
321 call azeros(nxf,nyf,nzf,u)
322 call ipower(nxf,nyf,nzf,u,iz,
346 call mpower(nxf,nyf,nzf,u,iz,
357 call azeros(nxf,nyf,nzf,u(iz(1,level)))
536 nyf = ny
544 call mkcors(1,nxf,nyf,nzf,nxc,nyc,nzc)
548 nyf = nyc
[all …]
|
| H A D | buildPd.f | 282 double precision oE(nxf,nyf,nzf),oN(nxf,nyf,nzf),uC(nxf,nyf,nzf)
684 double precision oE(nxf,nyf,nzf),oN(nxf,nyf,nzf)
685 double precision uC(nxf,nyf,nzf),oNE(nxf,nyf,nzf)
686 double precision oNW(nxf,nyf,nzf),uE(nxf,nyf,nzf)
687 double precision uW(nxf,nyf,nzf),uN(nxf,nyf,nzf)
688 double precision uS(nxf,nyf,nzf),uNE(nxf,nyf,nzf)
689 double precision uNW(nxf,nyf,nzf),uSE(nxf,nyf,nzf)
1129 double precision oE(nxf,nyf,nzf),oN(nxf,nyf,nzf),uC(nxf,nyf,nzf)
1744 double precision oE(nxf,nyf,nzf),oN(nxf,nyf,nzf)
1745 double precision uC(nxf,nyf,nzf),oNE(nxf,nyf,nzf)
[all …]
|
| H A D | cgmgd.f | 77 integer nx,ny,nz,nxf,nyf,nzf,nxc,nyc,nzc,nlev_real,istpd
86 nyf = ny
88 call mkcors(nlev-1,nxf,nyf,nzf,nxc,nyc,nzc)
92 write(6,100)'% FCGMG: starting: ',nxf,nyf,nzf,nxc,nyc,nzc
112 call mkfine(1,nxc,nyc,nzc,nxf,nyf,nzf)
115 call interp(nxc,nyc,nzc,nxf,nyf,nzf,
120 nyc = nyf
126 call cgmg(nxf,nyf,nzf,x,iz,w0,w1,w2,w3,
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/src/pmgc/ |
| H A D | mgcsd.c | 73 int nyf; // @todo: doc in Vmvcs() local
102 nyf = *ny; in Vmvcs()
147 Vmatvec(&nxf, &nyf, &nzf, in Vmvcs()
190 Vsmooth(&nxf, &nyf, &nzf, in Vmvcs()
323 Vsmooth(&nxf, &nyf, &nzf, in Vmvcs()
349 Vrestrc(&nxf, &nyf, &nzf, in Vmvcs()
355 nyf = nyc; in Vmvcs()
401 Vsmooth(&nxf, &nyf, &nzf, in Vmvcs()
449 &nxf, &nyf, &nzf, in Vmvcs()
474 nyf = nyc; in Vmvcs()
[all …]
|
| H A D | mgfasd.c | 66 int nxf, nyf, nzf; in Vfmvfas() local
78 nyf = *ny; in Vfmvfas()
122 &nxf, &nyf, &nzf, in Vfmvfas()
129 nyc = nyf; in Vfmvfas()
138 Vmvfas(&nxf, &nyf, &nzf, in Vfmvfas()
167 int nxf, nyf, nzf; in Vmvfas() local
187 nyf = *ny; in Vmvfas()
276 Vnsmooth(&nxf, &nyf, &nzf, in Vmvfas()
377 Vnsmooth(&nxf, &nyf, &nzf, in Vmvfas()
409 nyf = nyc; in Vmvfas()
[all …]
|
| H A D | buildPd.h | 62 int *nyf, ///< @todo: doc
79 int *nyf, ///< @todo: doc
92 int *nyf, ///< @todo: doc
131 int *nyf, ///< @todo: doc
144 int *nyf, ///< @todo: doc
186 int *nyf, ///< @todo: doc
199 int *nyf, ///< @todo: doc
|
| H A D | mgdrvd.c | 247 int nyf = 0; in Vmgdriv2() local
341 nyf = *ny; in Vmgdriv2()
357 nyf = nyc; in Vmgdriv2()
377 Vpower(&nxf, &nyf, &nzf, in Vmgdriv2()
399 Vazeros(&nxf, &nyf, &nzf, u); in Vmgdriv2()
401 Vipower(&nxf, &nyf, &nzf, u, iz, in Vmgdriv2()
435 Vmpower(&nxf, &nyf, &nzf, u, iz, in Vmgdriv2()
573 int nxf, nyf, nzf; in Vmgsz() local
586 nyf = *ny; in Vmgsz()
602 nyf = *nyc; in Vmgsz()
[all …]
|
| H A D | mgsubd.c | 348 VbuildG(nxf, nyf, nzf, in Vbuildgaler0()
361 Vrestrc(nxf, nyf, nzf, in Vbuildgaler0()
365 Vrestrc(nxf, nyf, nzf, in Vbuildgaler0()
615 MAT3(gxcf, *nyf, *nzf, 4); in Vbuildcopy0()
617 MAT3(gzcf, *nxf, *nyf, 4); in Vbuildcopy0()
618 MAT3(a1cf, *nxf, *nyf, *nzf); in Vbuildcopy0()
619 MAT3(a2cf, *nxf, *nyf, *nzf); in Vbuildcopy0()
620 MAT3(a3cf, *nxf, *nyf, *nzf); in Vbuildcopy0()
621 MAT3( tcf, *nxf, *nyf, *nzf); in Vbuildcopy0()
742 MAT3(gxcf, *nyf, *nzf, 4); in Vbuildharm0()
[all …]
|
| H A D | buildGd.h | 61 int *nyf, ///< @todo: doc
146 int *nyf, ///< @todo: doc
278 int *nyf, ///< @todo: doc
425 int *nyf, ///< @todo: doc
|
| H A D | buildPd.c | 62 MAT2(ac, *nxf * *nyf * *nzf, 1); in VbuildP()
76 VbuildP_op7(nxf, nyf, nzf, in VbuildP()
98 VbuildPb_trilin(nxf, nyf, nzf, in VbuildP_trilin()
206 MAT2(ac, *nxf * *nyf * *nzf, 1); in VbuildP_op7()
211 VbuildPb_op7(nxf, nyf, nzf, in VbuildP_op7()
252 MAT3( oC, *nxf, *nyf, *nzf); in VbuildPb_op7()
253 MAT3( oE, *nxf, *nyf, *nzf); in VbuildPb_op7()
254 MAT3( oN, *nxf, *nyf, *nzf); in VbuildPb_op7()
255 MAT3( uC, *nxf, *nyf, *nzf); in VbuildPb_op7()
727 VbuildPb_op27(nxf, nyf, nzf, in VbuildP_op27()
[all …]
|
| H A D | matvecd.h | 427 int *nyf, ///< @todo: Doc
439 int *nyf,///< @todo: Doc
486 int *nyf, ///< @todo: Doc
498 int *nyf, ///< @todo: Doc
539 int *nyf, ///< @todo: Doc
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/ |
| H A D | mgfasd.c | 153 nyf = *ny; in fmvfas_()
203 nyc = nyf; in fmvfas_()
364 nyf = *ny; in mvfas_()
406 azeros_(&nxf, &nyf, &nzf, &w1[1]); in mvfas_()
475 rsnrm = xnrm1_(&nxf, &nyf, &nzf, &w1[1]); in mvfas_()
481 rsnrm = xnrm1_(&nxf, &nyf, &nzf, &w1[1]); in mvfas_()
486 rsnrm = xnrm1_(&nxf, &nyf, &nzf, &w1[1]); in mvfas_()
493 rsnrm = xnrm2_(&nxf, &nyf, &nzf, &w1[1]); in mvfas_()
498 rsnrm = xnrm2_(&nxf, &nyf, &nzf, &w1[1]); in mvfas_()
566 nyf = nyc; in mvfas_()
[all …]
|
| H A D | mgcsd.c | 150 nyf = *ny; in fmvcs_()
193 nyc = nyf; in fmvcs_()
354 nyf = *ny; in mvcs_()
489 rsnrm = xnrm1_(&nxf, &nyf, &nzf, &w1[1]); in mvcs_()
495 rsnrm = xnrm1_(&nxf, &nyf, &nzf, &w1[1]); in mvcs_()
500 rsnrm = xnrm1_(&nxf, &nyf, &nzf, &w1[1]); in mvcs_()
507 rsnrm = xnrm2_(&nxf, &nyf, &nzf, &w1[1]); in mvcs_()
512 rsnrm = xnrm2_(&nxf, &nyf, &nzf, &w1[1]); in mvcs_()
576 nyf = nyc; in mvcs_()
685 nyf = nyc; in mvcs_()
[all …]
|
| H A D | mgsubd.c | 1013 gzcf_dim2 = *nyf; in buildcopy0_()
1018 tcf_dim2 = *nyf; in buildcopy0_()
1022 fcf_dim2 = *nyf; in buildcopy0_()
1026 ccf_dim2 = *nyf; in buildcopy0_()
1030 a3cf_dim2 = *nyf; in buildcopy0_()
1034 a2cf_dim2 = *nyf; in buildcopy0_()
1038 a1cf_dim2 = *nyf; in buildcopy0_()
1045 gxcf_dim1 = *nyf; in buildcopy0_()
1278 tcf_dim2 = *nyf; in buildharm0_()
1282 fcf_dim2 = *nyf; in buildharm0_()
[all …]
|
| H A D | mgdrvd.c | 521 nyf = *ny; in mgdriv2_()
533 mkcors_(&c__1, &nxf, &nyf, &nzf, &nxc, &nyc, &nzc); in mgdriv2_()
537 nyf = nyc; in mgdriv2_()
548 do_fio(&c__1, (char *)&nyf, (ftnlen)sizeof(integer)); in mgdriv2_()
588 azeros_(&nxf, &nyf, &nzf, &u[1]); in mgdriv2_()
635 azeros_(&nxf, &nyf, &nzf, &u[iz[level * 50 + 1]]); in mgdriv2_()
654 azeros_(&nxf, &nyf, &nzf, &u[iz[level * 50 + 1]]); in mgdriv2_()
881 nyf = *ny; in mgsz_()
890 mkcors_(&c__1, &nxf, &nyf, &nzf, nxc, nyc, nzc); in mgsz_()
894 nyf = *nyc; in mgsz_()
[all …]
|
| /dports/science/dynare/dynare-4.6.4/matlab/ep/ |
| H A D | setup_stochastic_perfect_foresight_model_solver.m | 39 pfm.nyf = nnz(pfm.lead_lag_incidence(pfm.max_lag+2,:));
42 pfm.nyf = 0;
45 pfm.nd = pfm.nyp+pfm.ny0+pfm.nyf;
46 pfm.nrc = pfm.nyf+1;
50 pfm.isf1 = [pfm.nyp+pfm.ny+1:pfm.nyf+pfm.nyp+pfm.ny+1];
51 pfm.iz = [1:pfm.ny+pfm.nyp+pfm.nyf];
|
| /dports/science/dynare/dynare-4.6.4/matlab/ |
| H A D | check.m | 56 nyf = M.nsfwrd; variable
58 nyf = 0; variable
60 nyf = nyf + M.block_structure.block(j).n_forward + M.block_structure.block(j).n_mixed; variable
65 if (nyf == dr.edim) && (dr.full_rank)
76 disp(sprintf('for %d forward-looking variable(s)',nyf));
|
| /dports/science/dynare/dynare-4.6.4/matlab/lmmcp/ |
| H A D | dyn_lmmcp.m | 32 nyf = nnz(lead_lag_incidence(3,:)) ; variable
35 nd = nyp+ny0+nyf;
36 nrc = nyf+1 ;
40 isf1 = [nyp+ny+1:nyf+nyp+ny+1] ;
42 iz = [1:ny+nyp+nyf];
|
| /dports/science/dynare/dynare-4.6.4/matlab/perfect-foresight-models/ |
| H A D | sim1_lbj.m | 39 nyf = nnz(lead_lag_incidence(3,:)); variable
40 nrs = ny+nyp+nyf+1;
41 nrc = nyf+1;
47 isf1 = [nyp+ny+1:nyf+nyp+ny+1];
49 iz = [1:ny+nyp+nyf];
89 s(:,isf) = s(:,isf)+c(ic,1:nyf);
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/src/mg/ |
| H A D | vpmgp.c | 204 int nxf, nyf, nzf, level, num_nf_oper, num_narrc_oper, n_band, nc_band, num_band, iretot; in Vpmgp_size() local
209 nyf = thee->ny; in Vpmgp_size()
216 …Vpmgp_makeCoarse(1, nxf, nyf, nzf, &(thee->nxc), &(thee->nyc), &(thee->nzc)); /* NAB TO-DO -- impl… in Vpmgp_size()
218 nyf = thee->nyc; in Vpmgp_size()
220 thee->narr = thee->narr + (nxf * nyf * nzf); in Vpmgp_size()
|
| /dports/devel/plan9port/plan9port-1f098efb7370a0b28306d10681e21883fb1c1507/src/cmd/scat/ |
| H A D | hinv.c | 13 int nxtop, nytop, nxf, nyf, c; in hinv() local
47 nyf = ny; in hinv()
61 if(nyf <= c) in hinv()
64 nyf -= c; in hinv()
|