/dports/science/libecpint/libecpint-1.0.7/tests/units/generate/ |
H A D | generate.cpp | 15 for (int lam1 = 0; lam1 <= lam; lam1++) { in SetUp() local 16 int lam2start = (lam1) % 2; in SetUp() 19 for (int mu1 = -lam1; mu1 <= lam1; mu1++) { in SetUp() 24 newTerm.SA = Pair(lam1, lam1+mu1); in SetUp() 26 newTerm.radial = Triple(0, lam1, lam2); in SetUp()
|
/dports/lang/mosml/mosml-ver-2.10.1/src/compiler/ |
H A D | Pr_lam.sml | 117 | Lstatichandle(lam1, lam2) => 120 | Lhandle(lam1, lam2) => 121 (msgString "("; printLam lam1; msgString " handle "; 123 | Lif(lam0, lam1, lam2) => 125 printLam lam1; msgString ") else "; printLam lam2) 126 | Lseq(lam1, lam2) => 129 | Lwhile(lam1, lam2) => 132 | Landalso(lam1, lam2) => 135 | Lorelse(lam1, lam2) => 149 and printExClause (lam1, lam2) = [all …]
|
/dports/lang/mosml/mosml-ver-2.10.1/src/compiler.cminusminus/ |
H A D | Pr_lam.sml | 117 | Lstatichandle(lam1, lam2) => 120 | Lhandle(lam1, lam2) => 121 (msgString "("; printLam lam1; msgString " handle "; 123 | Lif(lam0, lam1, lam2) => 125 printLam lam1; msgString ") else "; printLam lam2) 126 | Lseq(lam1, lam2) => 129 | Lwhile(lam1, lam2) => 132 | Landalso(lam1, lam2) => 135 | Lorelse(lam1, lam2) => 149 and printExClause (lam1, lam2) = [all …]
|
/dports/science/libecpint/libecpint-1.0.7/src/lib/ |
H A D | qgen.cpp | 80 for (int lam1 = 0; lam1 <= lam + alpha; lam1++) { in rolled_up() local 81 w_l = lam1*w_size+lam; in rolled_up() 82 w_l1 = w_az + lam1*(1+mults[5]); in rolled_up() 86 w_lm = lam1*SA.dims[1]; in rolled_up() 88 for (int mu1 = -lam1; mu1 <= lam1; mu1++) in rolled_up() 106 for (int lam1=0; lam1 <= lam+alpha; lam1++) { in rolled_up() local 107 w_l1 = lam1*w_size+lam; in rolled_up() 108 int lam2start = (lam1 + N) % 2; in rolled_up() 112 val = prefac * C * radials(N, lam1, lam2); in rolled_up()
|
/dports/science/libecpint/libecpint-1.0.7/src/ |
H A D | generate.cpp | 114 for (int lam1 = 0; lam1 <= lam + alpha; lam1++) { in generate_lists() local 115 w_l = lam1*w_size+lam; in generate_lists() 116 w_l1 = w_az + lam1*(1+mults[5]); in generate_lists() 121 for (int mu1 = -lam1; mu1 <= lam1; mu1++) in generate_lists() 138 for (int lam1=0; lam1 <= lam+alpha; lam1++) { in generate_lists() local 139 w_l1 = lam1*w_size+lam; in generate_lists() 140 int lam2start = (lam1 + N) % 2; in generate_lists() 149 radial_triples.insert(Triple{N, lam1, lam2}); in generate_lists() 152 for (int mu1 = -lam1; mu1 <= lam1; mu1++) { in generate_lists() 155 newTerm.SA = Pair(lam1, lam1+mu1); in generate_lists() [all …]
|
/dports/x11-fonts/roboto-fonts-ttf/roboto-2.134/third_party/spiro/curves/ |
H A D | mecsolve.py | 123 k, lam1, lam2 = params 156 k, lam1, lam2 = params1 163 k, lam1, lam2 = params1 193 k, lam1, lam2 = params 247 k, lam1, lam2 = params 295 k, lam1, lam2 = params 314 k, lam1, lam2 = params 348 k, lam1, lam2 = params 460 k, lam1, lam2 = params 839 lam1 *= ds * ds [all …]
|
/dports/cad/netgen/netgen-6.2.2105/libsrc/csg/ |
H A D | polyhedra.cpp | 122 double lam1 = face.w1 * v0; in PointInSolid() local 124 if (lam1 >= -eps_base1 && lam2 >= -eps_base1 && lam1+lam2 <= 1+eps_base1) in PointInSolid() 135 double lam1 = face.w1 * rs; in PointInSolid() local 137 if (lam1 >= 0 && lam2 >= 0 && lam1+lam2 <= 1) in PointInSolid() 161 double lam1 = (face.w1 * v0); in GetTangentialSurfaceIndices() local 164 if (lam1 >= -eps_base1 && lam2 >= -eps_base1 && lam1+lam2 <= 1+eps_base1) in GetTangentialSurfaceIndices() 194 if (lam1 >= -eps_base1 && lam2 >= -eps_base1 && lam1+lam2 <= 1+eps_base1) in VecInSolidOld() 269 double lam1 = face.w1 * v0; in VecInSolidNew() local 271 double lam3 = 1-lam1-lam2; in VecInSolidNew() 340 double lam3 = 1-lam1-lam2; in VecInSolidNew() [all …]
|
/dports/cad/netgen/netgen-6.2.2105/libsrc/gprim/ |
H A D | geomtest3d.cpp | 336 double lam1, lam2, lam3, lam4; in IntersectTetTriangle() local 383 double lam1, lam2; in IntersectTetTriangle() local 674 double lam1, lam2; in IntersectTetTriangleRef() local 677 if (lam1 < -eps || lam2 < -eps) in IntersectTetTriangleRef() 1075 double lam1, lam2; in MinDistTP2() local 1079 Vec3d (tp1, p), lam1, lam2); in MinDistTP2() 1080 int in1 = lam1 >= 0; in MinDistTP2() 1082 int in3 = lam1+lam2 <= 1; in MinDistTP2() 1167 if (lam1 >= 0 && lam2 >= 0 && lam1 <= 1 && lam2 <= 1) in MinDistLL2() 1186 lam1 = 0.; in MinDistLL2() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PWCOND/src/ |
H A D | rotproc.f90 | 44 INTEGER :: ig, n, lam, lam1, iorb, iorb1, norbf, norb, n2d, & local 93 DO lam1=1, n2d 94 amat(lam, n2d+lam1)=-fun0(lam,n2d+lam1) 95 amat(n2d+lam, n2d+lam1)=-fund0(lam,n2d+lam1) 96 vec(lam, lam1)=fun0(lam, lam1) 97 vec(n2d+lam, lam1)=fund0(lam, lam1) 108 DO lam1=1, n2d 109 amat(lam, lam1)=fun1(lam,lam1) 110 amat(n2d+lam, lam1)=fund1(lam,lam1) 111 vec(lam, n2d+lam1)=-fun1(lam, n2d+lam1) [all …]
|
/dports/math/maxima/maxima-5.43.2/share/diffequations/ |
H A D | pdvtr.mac | 4 dvtrns(a,wb,wc,wr,ro,lam1):=block([neq,alpha], 11 ll1, neq:dvtexp(wb,wc,wr,wro,lam1), inflam:n, 12 if swsv=tdv then neq:dvtexp(wb,wc,wr,1,lam1), 30 dvtexp(wb,wc,wr,r,lam1):=block([l,de], 31 if swsv=tdv or inflam=det then l:lam1, 51 if lg=1 then (lam1:part(ws[1],2), lam2:lam1) 53 if lg=1 and lam1=0 then return(f), 54 wc1:subst(lam1,l,wq), wc2:subst(lam2,l,wq), 56 if dwc1<dwc2 then (lam:lam1,clam:lam2) else 57 if dwc1>dwc2 then (lam:lam2,clam:lam1) else [all …]
|
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/Netgen/libsrc/gprim/ |
H A D | geomtest3d.cpp | 331 double lam1, lam2, lam3, lam4; in IntersectTetTriangle() local 378 double lam1, lam2; in IntersectTetTriangle() local 630 double lam1, lam2, lam3, lam4; in IntersectTetTriangleRef() local 669 double lam1, lam2; in IntersectTetTriangleRef() local 672 if (lam1 < -eps || lam2 < -eps) in IntersectTetTriangleRef() 1037 double lam1, lam2; in MinDistTP2() local 1041 Vec3d (tp1, p), lam1, lam2); in MinDistTP2() 1042 int in1 = lam1 >= 0; in MinDistTP2() 1044 int in3 = lam1+lam2 <= 1; in MinDistTP2() 1110 double lam1, lam2, det; in MinDistLL2() local [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/ElmerGUI/netgen/libsrc/gprim/ |
H A D | geomtest3d.cpp | 331 double lam1, lam2, lam3, lam4; in IntersectTetTriangle() local 378 double lam1, lam2; in IntersectTetTriangle() local 630 double lam1, lam2, lam3, lam4; in IntersectTetTriangleRef() local 669 double lam1, lam2; in IntersectTetTriangleRef() local 672 if (lam1 < -eps || lam2 < -eps) in IntersectTetTriangleRef() 1037 double lam1, lam2; in MinDistTP2() local 1041 Vec3d (tp1, p), lam1, lam2); in MinDistTP2() 1042 int in1 = lam1 >= 0; in MinDistTP2() 1044 int in3 = lam1+lam2 <= 1; in MinDistTP2() 1110 double lam1, lam2, det; in MinDistLL2() local [all …]
|
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/Netgen/libsrc/visualization/ |
H A D | vssolution.cpp | 1741 if (lam1 >= 0 && lam2 >= 0 && lam1+lam2 <= 1) in DrawTrigSurfaceVectors() 2111 if (lam1 >= 0 && lam1 <= 1 && lam2 >= 0 && lam2 <= 1) in DrawIsoLines2() 2256 double lam1 = xref[0]; in GetValue() local 2296 lami[1] = lam1; in GetValue() 2346 lami[1] = lam1; in GetValue() 2901 lami[0] = lam1; in GetSurfValue() 2915 lami[1] = lam1; in GetSurfValue() 3011 lami[1] = 2*lam1 * (lam1-0.5); in GetSurfValue() 3136 lami[0] = lam1; in GetSurfValue() 3150 lami[1] = lam1; in GetSurfValue() [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/aobasis/ |
H A D | ai_os_rr.F | 45 INTEGER :: la, lam1, lap1, lb, lbm1, lbp1 local 62 lam1 = la - 1 63 rr(lap1, 0, 1) = REAL(la, dp)*g*rr(lam1, 0, 1) + rap(1)*rr(la, 0, 1) 64 rr(lap1, 0, 2) = REAL(la, dp)*g*rr(lam1, 0, 2) + rap(2)*rr(la, 0, 2) 65 rr(lap1, 0, 3) = REAL(la, dp)*g*rr(lam1, 0, 3) + rap(3)*rr(la, 0, 3) 77 lam1 = la - 1 78 rr(la, 1, 1) = REAL(la, dp)*g*rr(lam1, 0, 1) + rbp(1)*rr(la, 0, 1) 79 rr(la, 1, 2) = REAL(la, dp)*g*rr(lam1, 0, 2) + rbp(2)*rr(la, 0, 2) 80 rr(la, 1, 3) = REAL(la, dp)*g*rr(lam1, 0, 3) + rbp(3)*rr(la, 0, 3) 90 lam1 = la - 1 [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/aobasis/ |
H A D | ai_os_rr.F | 45 INTEGER :: la, lam1, lap1, lb, lbm1, lbp1 local 62 lam1 = la - 1 63 rr(lap1, 0, 1) = REAL(la, dp)*g*rr(lam1, 0, 1) + rap(1)*rr(la, 0, 1) 64 rr(lap1, 0, 2) = REAL(la, dp)*g*rr(lam1, 0, 2) + rap(2)*rr(la, 0, 2) 65 rr(lap1, 0, 3) = REAL(la, dp)*g*rr(lam1, 0, 3) + rap(3)*rr(la, 0, 3) 77 lam1 = la - 1 78 rr(la, 1, 1) = REAL(la, dp)*g*rr(lam1, 0, 1) + rbp(1)*rr(la, 0, 1) 79 rr(la, 1, 2) = REAL(la, dp)*g*rr(lam1, 0, 2) + rbp(2)*rr(la, 0, 2) 80 rr(la, 1, 3) = REAL(la, dp)*g*rr(lam1, 0, 3) + rbp(3)*rr(la, 0, 3) 90 lam1 = la - 1 [all …]
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/atc/ |
H A D | KernelFunction.h | 45 virtual double bond(DENS_VEC& xa, DENS_VEC&xb, double lam1, double lam2) const; 48 DENS_VEC& xb, double &lam1, double &lam2) const; 86 virtual double bond(DENS_VEC& /* xa */, DENS_VEC& /* xb */, double lam1, double lam2) const in bond() argument 87 { return lam2-lam1; } in bond() 108 virtual double bond(DENS_VEC& /* xa */, DENS_VEC& /* xb */, double lam1, double lam2) const in bond() argument 109 {return lam2 -lam1;} in bond() 112 double &lam1, double &lam2) const;
|
H A D | KernelFunction.cpp | 197 lamg=0.5*((lam2-lam1)*line_xg[i]+(lam2+lam1)); in bond() 202 return 0.5*(lam2-lam1)*bhsum; in bond() 220 lam1 = lam2 = -1; in bond_intercepts() 226 lam1 = 0.0; in bond_intercepts() 250 lam1 = s1; in bond_intercepts() 254 lam1 = 0.0; in bond_intercepts() 259 lam1 = s1; in bond_intercepts() 390 lam1 = 0.0; // start in bond_intercepts() 433 if (a_in) { lam1 = s;} in bond_intercepts() 445 lam2 = lam1; // default to no intersection in bond_intercepts() [all …]
|
/dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/atc/ |
H A D | KernelFunction.h | 45 virtual double bond(DENS_VEC& xa, DENS_VEC&xb, double lam1, double lam2) const; 48 DENS_VEC& xb, double &lam1, double &lam2) const; 86 virtual double bond(DENS_VEC& xa, DENS_VEC&xb, double lam1, double lam2) const in bond() argument 87 { return lam2-lam1; } in bond() 108 virtual double bond(DENS_VEC& xa, DENS_VEC&xb, double lam1, double lam2) const in bond() argument 109 {return lam2 -lam1;} in bond() 112 double &lam1, double &lam2) const;
|
/dports/science/libecpint/libecpint-1.0.7/doc/sphinx/source/api/ |
H A D | program_listing_file__Users_robertshaw_devfiles_libecpint_src_lib_qgen.cpp.rst | 92 … for (int lam1 = 0; lam1 <= lam + alpha; lam1++) { 93 w_l = lam1*w_size+lam; 94 w_l1 = w_az + lam1*(1+mults[5]); 98 w_lm = lam1*SA.dims[1]; 100 … for (int mu1 = -lam1; mu1 <= lam1; mu1++) 118 … for (int lam1=0; lam1 <= lam+alpha; lam1++) { 119 w_l1 = lam1*w_size+lam; 120 int lam2start = (lam1 + N) % 2; 124 … val = prefac * C * radials(N, lam1, lam2);
|
H A D | program_listing_file__Users_robertshaw_devfiles_libecpint_new_src_lib_qgen.cpp.rst | 92 … for (int lam1 = 0; lam1 <= lam + alpha; lam1++) { 93 w_l = lam1*w_size+lam; 94 w_l1 = w_az + lam1*(1+mults[5]); 98 w_lm = lam1*SA.dims[1]; 100 … for (int mu1 = -lam1; mu1 <= lam1; mu1++) 118 … for (int lam1=0; lam1 <= lam+alpha; lam1++) { 119 w_l1 = lam1*w_size+lam; 120 int lam2start = (lam1 + N) % 2; 124 … val = prefac * C * radials(N, lam1, lam2);
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | cs_symeig.c | 106 if( lam1 > lam2 ){ SWAP(lam1,lam2) ; CSWAP(0,3) ; } in symeig_3() 107 if( lam1 > lam3 ){ SWAP(lam1,lam3) ; CSWAP(0,6) ; } in symeig_3() 111 if( lam1 > lam2 ) SWAP(lam1,lam2) ; in symeig_3() 112 if( lam1 > lam3 ) SWAP(lam1,lam3) ; in symeig_3() 161 if( lam1 > lam2 ) SWAP(lam1,lam2) ; in symeig_3() 162 if( lam1 > lam3 ) SWAP(lam1,lam3) ; in symeig_3() 174 d12 = fabs(lam1-lam2) ; d13 = fabs(lam1-lam3) ; d23 = fabs(lam2-lam3) ; in symeig_3() 179 if( lam1 > lam2 ) SWAP(lam1,lam2) ; /* start by sorting eigenvalues */ in symeig_3() 180 if( lam1 > lam3 ) SWAP(lam1,lam3) ; in symeig_3() 238 lam1 = lam2 = 0.5*(lam1+lam2) ; in symeig_3() [all …]
|
/dports/cad/netgen/netgen-6.2.2105/libsrc/visualization/ |
H A D | vssolution.cpp | 2264 if (lam1 >= 0 && lam2 >= 0 && lam1+lam2 <= 1) in DrawTrigSurfaceVectors() 2639 if (lam1 >= 0 && lam1 <= 1 && lam2 >= 0 && lam2 <= 1) in DrawIsoLines2() 2828 double lam1 = xref[0]; in GetValue() local 2868 lami[1] = lam1; in GetValue() 2919 lami[1] = lam1; in GetValue() 3481 lami[0] = lam1; in GetSurfValue() 3495 lami[1] = lam1; in GetSurfValue() 3594 lami[1] = 2*lam1 * (lam1-0.5); in GetSurfValue() 3723 lami[0] = lam1; in GetSurfValue() 3737 lami[1] = lam1; in GetSurfValue() [all …]
|
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/Netgen/libsrc/meshing/ |
H A D | netrule3.cpp | 49 double lam1 = 1.0/(2 * tolclass - 1); in SetFreeZoneTransformation() local 50 double lam2 = 1-lam1; in SetFreeZoneTransformation() 67 vfp1 *= lam1; in SetFreeZoneTransformation() 718 if (lam1 < 0) lam1 = 0; in IsTriangleInFreeSet() 720 if (lam1 + lam2 > 1) lam1 = 1 - lam2; in IsTriangleInFreeSet() 786 lam1 = 0.100000000000000 * lam1 + 0.9000000000000000 * lam1old; in IsTriangleInFreeSet() 791 lam1old = lam1; in IsTriangleInFreeSet() 808 act1 = lam1 <= 1E-6 && c1 <= 0; in IsTriangleInFreeSet() 842 if (lam1 + alpha * c1 < 0 && !act1) in IsTriangleInFreeSet() 843 alpha = -lam1 / c1; in IsTriangleInFreeSet() [all …]
|
/dports/cad/netgen/netgen-6.2.2105/libsrc/meshing/ |
H A D | netrule3.cpp | 49 double lam1 = 1.0/(2 * tolclass - 1); in SetFreeZoneTransformation() local 50 double lam2 = 1-lam1; in SetFreeZoneTransformation() 67 vfp1 *= lam1; in SetFreeZoneTransformation() 718 if (lam1 < 0) lam1 = 0; in IsTriangleInFreeSet() 720 if (lam1 + lam2 > 1) lam1 = 1 - lam2; in IsTriangleInFreeSet() 786 lam1 = 0.100000000000000 * lam1 + 0.9000000000000000 * lam1old; in IsTriangleInFreeSet() 791 lam1old = lam1; in IsTriangleInFreeSet() 808 act1 = lam1 <= 1E-6 && c1 <= 0; in IsTriangleInFreeSet() 842 if (lam1 + alpha * c1 < 0 && !act1) in IsTriangleInFreeSet() 843 alpha = -lam1 / c1; in IsTriangleInFreeSet() [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/ElmerGUI/netgen/libsrc/meshing/ |
H A D | netrule3.cpp | 51 double lam1 = 1.0/(2 * tolclass - 1); in SetFreeZoneTransformation() local 52 double lam2 = 1-lam1; in SetFreeZoneTransformation() 69 vfp1 *= lam1; in SetFreeZoneTransformation() 720 if (lam1 < 0) lam1 = 0; in IsTriangleInFreeSet() 722 if (lam1 + lam2 > 1) lam1 = 1 - lam2; in IsTriangleInFreeSet() 788 lam1 = 0.100000000000000 * lam1 + 0.9000000000000000 * lam1old; in IsTriangleInFreeSet() 793 lam1old = lam1; in IsTriangleInFreeSet() 810 act1 = lam1 <= 1E-6 && c1 <= 0; in IsTriangleInFreeSet() 844 if (lam1 + alpha * c1 < 0 && !act1) in IsTriangleInFreeSet() 845 alpha = -lam1 / c1; in IsTriangleInFreeSet() [all …]
|