/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/surfpack/src/surfaces/nkm/ |
H A D | NKM_SurfPack.cpp | 134 int Npoly, npoly; in multi_dim_poly_power() local 198 jstart+=npoly; in multi_dim_poly_power() 225 for(j=0; j<npoly; j++) in multi_dim_poly_power() 228 jstart+=npoly; in multi_dim_poly_power() 275 int npoly=poly.getNCols(); in poly_to_flypoly() local 392 (0<npoly)&&(npoly==coef.getNRows())&&(1==coef.getNCols())&& in evaluate_poly_der() 463 g.newSize(npoly,npts); in evaluate_flypoly_basis() 515 flycoef.newSize(npoly,1); in evaluate_poly_der_basis() 696 npoly=poly.getNCols(); in main() 708 MtxDbl g(npoly,npts), g2(npoly,npts), dg(npoly,nder*npts); in main() [all …]
|
/dports/french/med/med-4.0.0/tests/c/2.3.6/ |
H A D | test24.c | 47 med_int nmaa,i,mdim,npoly,j; in main() local 86 printf("Nombre de mailles polygones en mode nodal : "IFORMAT" \n",npoly); in main() 101 index = (med_int *) malloc(sizeof(med_int)*(npoly+1)); in main() 103 num = (med_int *) malloc(sizeof(med_int)*npoly); in main() 104 fam = (med_int *) malloc(sizeof(med_int)*npoly); in main() 105 nom = (char *) malloc(sizeof(char)*MED_TAILLE_PNOM*npoly+1); in main() 108 if (MEDpolygoneConnLire(fid,maa,index,npoly+1,con,MED_MAILLE,MED_NOD) < 0) { in main() 116 if (MEDnomLire(fid,maa,nom,npoly,MED_MAILLE,MED_POLYGONE) < 0) { in main() 125 if (MEDnumLire(fid,maa,num,npoly,MED_MAILLE,MED_POLYGONE) < 0) { in main() 134 if ((ret = MEDfamLire(fid,maa,fam,npoly,MED_MAILLE,MED_POLYGONE)) < 0) { in main() [all …]
|
H A D | test26.c | 47 med_int nmaa,i,mdim,npoly,j; in main() local 89 printf("Nombre de mailles polyedres : "IFORMAT" \n",npoly); in main() 116 indexp = (med_int *) malloc(sizeof(med_int)*(npoly+1)); in main() 117 indexp2 = (med_int *) malloc(sizeof(med_int)*(npoly+1)); in main() 122 num = (med_int *) malloc(sizeof(med_int)*npoly); in main() 123 fam = (med_int *) malloc(sizeof(med_int)*npoly); in main() 124 nom = (char *) malloc(sizeof(char)*MED_TAILLE_PNOM*npoly+1); in main() 144 if (MEDnomLire(fid,maa,nom,npoly,MED_MAILLE,MED_POLYEDRE) < 0) { in main() 153 if (MEDnumLire(fid,maa,num,npoly,MED_MAILLE,MED_POLYEDRE) < 0) { in main() 162 if (MEDfamLire(fid,maa,fam,npoly,MED_MAILLE,MED_POLYEDRE) < 0) { in main() [all …]
|
/dports/science/siesta/siesta-4.1.5/Util/Macroave/Src/ |
H A D | dpnint1.f90 | 5 subroutine dpnint1(npoly, xx, yy, nn, r, val, debug) argument 33 integer, intent(in) :: nn,npoly local 61 if(mod(npoly,2)==1) then 62 istart=imin-npoly/2 64 istart=imin-npoly/2 66 istart=imax-npoly/2 69 istart = min(istart, nn - npoly) 71 iend = min(istart+npoly,nn)
|
/dports/french/med/med-4.0.0/tests/f/2.3.6/ |
H A D | test24.f | 31 integer cret,mdim,nmaa,npoly,i,j,k,taille 76 & MED_NOD,npoly,cret) 82 print *,'Nombre de mailles MED_POLYGONE : ',npoly 94 call efpgcl(fid,maa,index,npoly+1,con,MED_MAILLE, 104 call efnoml(fid,maa,nom,npoly,MED_MAILLE,MED_POLYGONE, 114 call efnuml(fid,maa,num,npoly,MED_MAILLE,MED_POLYGONE, 124 call effaml(fid,maa,fam,npoly,MED_MAILLE,MED_POLYGONE, 136 do 20 j=1,npoly
|
H A D | test26.f | 31 integer cret,mdim,nmaa,npoly,i,j,k,l 82 & MED_NOD,npoly,cret) 88 print *,'Nombre de mailles MED_POLYEDRE : ',npoly 101 call efpecl(fid,maa,indexp,npoly+1,indexf,tmp,conn, 112 call efpecl(fid,maa,indexp2,npoly+1,indexf2,tmp,conn2, 123 call efnoml(fid,maa,nom,npoly,MED_MAILLE,MED_POLYEDRE, 133 call efnuml(fid,maa,num,npoly,MED_MAILLE,MED_POLYEDRE, 143 call effaml(fid,maa,fam,npoly,MED_MAILLE,MED_POLYEDRE, 154 do 20 j=1,npoly
|
/dports/math/R-cran-maps/maps/R/ |
H A D | mapclip.r | 13 poly=as.integer(poly), npoly=integer(nseg), 21 data$names <- rep(data$names, times=wrap$npoly) 43 poly=as.integer(poly), npoly=integer(nseg), 47 if (!is.null(nam) && poly) nam <- rep(nam, times=dd$npoly) 61 poly=as.integer(poly), npoly=integer(nseg), 65 if (!is.null(nam) && poly) nam <- rep(nam, times=dd$npoly) 79 poly=as.integer(poly), npoly=integer(nseg), 81 if (!is.null(nam) && poly) nam <- rep(nam, times=dd$npoly) 97 poly=as.integer(poly), npoly=integer(nseg), 101 if (!is.null(nam) && poly) nam <- rep(nam, times=dd$npoly)
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/common/ |
H A D | d3_poly.F | 881 IF (PRESENT(npoly)) my_npoly = npoly 1043 IF (PRESENT(npoly)) my_npoly = npoly 1200 IF (PRESENT(npoly)) my_npoly = npoly 1250 DO ipoly = 1, npoly 1309 IF (PRESENT(npoly)) my_npoly = npoly 1417 IF (PRESENT(npoly)) my_npoly = npoly 1521 IF (PRESENT(npoly)) my_npoly = npoly 1623 IF (PRESENT(npoly)) my_npoly = npoly 1662 IF (PRESENT(npoly)) my_npoly = npoly 1731 IF (PRESENT(npoly)) my_npoly = npoly [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | d3_poly.F | 881 IF (PRESENT(npoly)) my_npoly = npoly 1043 IF (PRESENT(npoly)) my_npoly = npoly 1200 IF (PRESENT(npoly)) my_npoly = npoly 1250 DO ipoly = 1, npoly 1309 IF (PRESENT(npoly)) my_npoly = npoly 1417 IF (PRESENT(npoly)) my_npoly = npoly 1521 IF (PRESENT(npoly)) my_npoly = npoly 1623 IF (PRESENT(npoly)) my_npoly = npoly 1662 IF (PRESENT(npoly)) my_npoly = npoly 1731 IF (PRESENT(npoly)) my_npoly = npoly [all …]
|
/dports/x11/xscreensaver/xscreensaver-5.44/hacks/ |
H A D | qix.c | 34 int npoly; member 50 int npoly; member 78 qix->npoly = st->npoly; in init_one_qix() 127 for(j=0; j<qix->npoly; j++) in init_one_qix() 161 if (st->npoly <= 2) st->npoly = 2; in qix_init() 162 if (st->npoly > MAXPOLY) st->npoly = MAXPOLY; in qix_init() 183 if (st->npoly != 2) in qix_init() 186 st->npoly = 2; in qix_init() 188 if (st->npoly > 2) in qix_init() 400 for(i=0; i<qix->npoly; i++) in add_qline() [all …]
|
/dports/french/med/med-4.0.0/tests/python/ |
H A D | test24.py | 56 npoly = nind-1; variable 57 print("Nombre de mailles ",polyname," en mode nodal : \n",npoly) 72 num = MEDINT(npoly) 73 fam = MEDINT(npoly) 74 nom = MEDCHAR(MED_SNAME_SIZE*npoly+1) 110 for j in range(npoly):
|
/dports/french/med/med-4.0.0/tests/c/ |
H A D | test24.c | 48 med_int nmaa,i,mdim,nindex,npoly,j,nind,nnoe; in main() local 104 npoly = nind-1; in main() 105 printf("Nombre de mailles polygones en mode nodal : "IFORMAT" \n",npoly); in main() 126 num = (med_int *) malloc(sizeof(med_int)*npoly); in main() 127 fam = (med_int *) malloc(sizeof(med_int)*npoly); in main() 128 nom = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*npoly+1); in main() 163 for (j=0;j<npoly;j++) { in main()
|
H A D | test26.c | 51 med_int taille,nindf,nindn,npoly; in main() local 111 npoly = nindf-1; in main() 112 printf("Nombre de mailles polyedres : "IFORMAT" \n",npoly); in main() 164 num = (med_int *) malloc(sizeof(med_int)*npoly); in main() 165 fam = (med_int *) calloc(sizeof(med_int),npoly); in main() 166 nom = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*npoly+1); in main() 234 for (j=0;j<npoly;j++) { in main()
|
/dports/graphics/rayshade/rayshade.4.0/rayview/ |
H A D | spheregen.c | 76 int npoly; /* # of triangles in object */ member 128 for (i = 0; i < oct.npoly; i++) { 147 new->npoly = old->npoly * 4; 150 new->poly = (triangle *)malloc(new->npoly * sizeof(triangle)); 176 for (i = 0; i < old->npoly; i++) { 262 for (i = 0; i < obj->npoly; i++)
|
/dports/science/octopus/octopus-10.5/src/grid/ |
H A D | stencil.F90 | 48 integer :: npoly component 65 this%npoly = size 84 output%npoly = input%npoly 150 stu%npoly = -1
|
H A D | derivatives.F90 | 473 SAFE_ALLOCATE(polynomials(1:der%dim, 1:der%op(i)%stencil%npoly)) 493 SAFE_ALLOCATE(polynomials(1:der%dim, 1:der%op(1)%stencil%npoly)) 510 SAFE_ALLOCATE(polynomials(1:der%dim, 1:der%op(i)%stencil%npoly)) 607 do j = 1, der%lapl%stencil%npoly 633 do j = 1, der%grad(dir)%stencil%npoly 666 SAFE_ALLOCATE(mat(1:op(1)%stencil%npoly, 1:op(1)%stencil%size)) 714 do j = 2, op(1)%stencil%npoly 725 if (op(1)%stencil%npoly==op(1)%stencil%size) then 793 op(1)%stencil%npoly = op(1)%stencil%size & 796 SAFE_ALLOCATE(polynomials(1:this%dim, 1:op(1)%stencil%npoly)) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | cart_trans.F | 142 subroutine cart_poly_translate(lmax,npoly,coeff,ncoeff,a,b,c) argument 144 integer lmax, npoly local 145 double precision coeff(npoly,*) 146 double precision ncoeff(npoly,*) 193 call dfill(npoly*nijk, 0.0d0, ncoeff, 1) 203 do m = 1, npoly 216 call dfill(npoly*nijk, 0.0d0, coeff, 1) 227 do m = 1, npoly 240 call dfill(npoly*nijk, 0.0d0, ncoeff, 1) 250 do m = 1, npoly
|
H A D | testcarttrans.f | 5 integer lmax, npoly, numl, lmax2 8 parameter (lmax = 3, npoly = 7) 15 double precision coeff(npoly,numl) 16 double precision scoeff(npoly,numl) 17 double precision ncoeff(npoly,numl) 30 do m = 1, npoly 53 call cart_poly_translate(lmax,npoly,coeff,ncoeff,a,b,c) 56 do m = 1, npoly
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | cart_trans.F | 142 subroutine cart_poly_translate(lmax,npoly,coeff,ncoeff,a,b,c) argument 144 integer lmax, npoly local 145 double precision coeff(npoly,*) 146 double precision ncoeff(npoly,*) 193 call dfill(npoly*nijk, 0.0d0, ncoeff, 1) 203 do m = 1, npoly 216 call dfill(npoly*nijk, 0.0d0, coeff, 1) 227 do m = 1, npoly 240 call dfill(npoly*nijk, 0.0d0, ncoeff, 1) 250 do m = 1, npoly
|
H A D | testcarttrans.f | 5 integer lmax, npoly, numl, lmax2 8 parameter (lmax = 3, npoly = 7) 15 double precision coeff(npoly,numl) 16 double precision scoeff(npoly,numl) 17 double precision ncoeff(npoly,numl) 30 do m = 1, npoly 53 call cart_poly_translate(lmax,npoly,coeff,ncoeff,a,b,c) 56 do m = 1, npoly
|
/dports/french/med/med-4.0.0/tests/f/ |
H A D | test24.f | 31 integer cret,mdim,nmaa,npoly,i,j,k,taille 83 npoly = isize - 1; 89 print *,'Nombre de mailles MED_POLYGONE : ',npoly 144 do 20 j=1,npoly
|
H A D | test26.f | 31 integer cret,mdim,nmaa,npoly,i,j,k,l,nfindex 91 npoly = nfindex - 1 97 print *,'Nombre de mailles MED_POLYEDRE : ',npoly 167 do 20 j=1,npoly
|
/dports/math/gretl/gretl-2021d/tests/ |
H A D | nistcheck.c | 310 int i, t, npoly = 0; in read_nist_file() local 331 npoly = 1; in read_nist_file() 334 npoly = 9; in read_nist_file() 337 npoly = 4; in read_nist_file() 393 int nc = nvar - 1 + npoly; in read_nist_file() 468 if (npoly && verbose) { in read_nist_file() 472 for (i=2; i<=npoly+1; i++) { in read_nist_file() 486 *polyterms = npoly; in read_nist_file() 581 int realv = dset->v - npoly; in run_gretl_mp_comparison() 606 if (npoly) { in run_gretl_mp_comparison() [all …]
|
/dports/science/cgnslib/CGNS-4.1.2/src/tests/ |
H A D | elemtest.c | 49 static int npoly = 16; variable 168 ne += npoly; in main() 180 elems_offsets[ne-npoly] = j; in main() 192 elems_offsets[ne-npoly] = j; in main() 200 elems_offsets[ne-npoly] = j; in main() 205 elems_offsets[ne-npoly] = j; in main() 217 elems_offsets[ne-npoly] = j; in main() 229 elems_offsets[ne-npoly] = j; in main() 241 elems_offsets[ne-npoly] = j; in main() 253 elems_offsets[ne-npoly] = j; in main() [all …]
|
/dports/french/med/med-4.0.0/tests/usecases/c/ |
H A D | UsesCase_MEDmesh_16.c | 45 med_int npoly = 0; in main() local 100 npoly = faceindexsize-1; in main() 101 ISCRUTE(npoly); in main() 147 for (i=0;i<npoly;i++) in main()
|