| /dports/science/elmerfem/elmerfem-release-9.0/matc/src/ |
| H A D | urand.c | 104 static double s, halfm; in urand() local
107 #pragma omp threadprivate (s, halfm, ia, ic, m, mic, m2, itwo) in urand()
120 halfm = m2; in urand()
124 ia = 8 * (int)(halfm * atan(1.0) / 8.00) + 5; in urand()
125 ic = 2*(int)(halfm * (0.50 - sqrt(3.0) / 6.0)) + 1; in urand()
130 s = 0.5 / halfm; in urand()
|
| /dports/science/elmerfem/elmerfem-release-9.0/ElmerGUI/matc/src/ |
| H A D | urand.c | 104 static double s, halfm; in urand() local
119 halfm = m2; in urand()
123 ia = 8 * (int)(halfm * atan(1.0) / 8.00) + 5; in urand()
124 ic = 2*(int)(halfm * (0.50 - sqrt(3.0) / 6.0)) + 1; in urand()
129 s = 0.5 / halfm; in urand()
|
| /dports/science/elmerfem/elmerfem-release-9.0/post/matc/src/ |
| H A D | urand.c | 104 static double s, halfm; in urand() local
119 halfm = m2; in urand()
123 ia = 8 * (int)(halfm * atan(1.0) / 8.00) + 5; in urand()
124 ic = 2*(int)(halfm * (0.50 - sqrt(3.0) / 6.0)) + 1; in urand()
129 s = 0.5 / halfm; in urand()
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/ |
| H A D | urand.f | 36 double precision halfm,s local
46 halfm = m2
50 ia = 8*nint(halfm*atan(1.0d+0)/8.0d+0) + 5
51 ic = 2*nint(halfm*(0.50d+0-sqrt(3.0d+0)/6.0d+0)) + 1
56 s = 0.50d+0/halfm
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/laso/ |
| H A D | urand.c | 35 doublereal halfm; in urand_() local
65 halfm = (doublereal) m2; in urand_()
70 ia = ((integer) (halfm * atan(1.) / 8.) << 3) + 5; in urand_()
72 ic = ((integer) (halfm * (.5 - sqrt(3.) / 6.)) << 1) + 1; in urand_()
79 s = (float).5 / halfm; in urand_()
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/laso/ |
| H A D | urand.c | 35 doublereal halfm; in urand_() local
65 halfm = (doublereal) m2; in urand_()
70 ia = ((integer) (halfm * atan(1.) / 8.) << 3) + 5; in urand_()
72 ic = ((integer) (halfm * (.5 - sqrt(3.) / 6.)) << 1) + 1; in urand_()
79 s = (float).5 / halfm; in urand_()
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/leps/ |
| H A D | urand.F | 86 double precision halfm
102 halfm = m2
106 ia = 8*idint(halfm*datan(1.d0)/8.d0) + 5
107 ic = 2*idint(halfm*(0.5d0-dsqrt(3.d0)/6.d0)) + 1
112 s = 0.5/halfm
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/leps/ |
| H A D | urand.F | 86 double precision halfm
102 halfm = m2
106 ia = 8*idint(halfm*datan(1.d0)/8.d0) + 5
107 ic = 2*idint(halfm*(0.5d0-dsqrt(3.d0)/6.d0)) + 1
112 s = 0.5/halfm
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/c/ |
| H A D | basic_functions.c | 76 static double halfm = 0, s = 0; in durands() local
86 halfm = m2; in durands()
88 ia = 8 * nint(halfm * datans(1) / 8) + 5; in durands()
89 ic = 2 * nint(halfm * (0.5 - dsqrts(3) / 6)) + 1; in durands()
92 s = 0.5 / halfm; in durands()
|
| /dports/math/hs-Agda/Agda-2.6.2/_cabal_deps/alex-3.2.5/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/devel/hs-threadscope/threadscope-0.2.14/_cabal_deps/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/lang/purescript/purescript-0.14.5/_cabal_deps/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/games/hs-scroll/scroll-1.20180421/_cabal_deps/alex-3.2.5/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/finance/hs-hledger-web/hledger-web-1.19/_cabal_deps/alex-3.2.5/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/devel/hs-alex/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/devel/hs-ormolu/ormolu-0.4.0.0/_cabal_deps/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/devel/hs-hlint/hlint-3.3.4/_cabal_deps/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/security/hs-cryptol/cryptol-2.11.0/_cabal_deps/alex-3.2.6/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/www/hs-hjsmin/hjsmin-0.2.0.4/_cabal_deps/alex-3.2.5/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/devel/hs-git-annex/git-annex-8.20210903/_cabal_deps/alex-3.2.5/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/x11/conlecterm/conlecterm-1.4.3.0/_cabal_deps/alex-3.2.5/src/ |
| H A D | Util.hs | 51 cjustify n s = spaces halfm ++ s ++ spaces (m - halfm)
54 halfm = m `div` 2 function
|
| /dports/math/linbox/linbox-1.6.3/linbox/algorithms/ |
| H A D | cra-builder-full-multip.h | 352 Integer halfm = shelves_.back().mod(); in normalize() local
353 --halfm; in normalize()
354 halfm >>= 1; in normalize()
357 if (x > halfm) x -= shelves_.back().mod(); in normalize()
|
| /dports/astro/phd2/phd2-2.6.10/ |
| H A D | star.cpp | 100 double halfm = 0.5 * mass; in hfr() local
108 if (m1 > halfm) in hfr()
118 hfr = r0 + s * (halfm - m0); in hfr()
|
| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | svdlib.c | 592 static double halfm, s; in svd_random2() local
597 halfm = m2; in svd_random2()
600 ia = 8 * (long)(halfm * atan(1.0) / 8.0) + 5; in svd_random2()
601 ic = 2 * (long)(halfm * (0.5 - sqrt(3.0)/6.0)) + 1; in svd_random2()
605 s = 0.5 / halfm; in svd_random2()
|