Home
last modified time | relevance | path

Searched refs:iseed (Results 1 – 25 of 1119) sorted by relevance

12345678910>>...45

/dports/science/octopus/octopus-10.5/src/math/
H A Dquickrnd.F9042 integer, intent(inout) :: iseed local
49 iseed = mod(iseed*ia + ic, im)
50 rnd = TOFLOAT(iseed)/TOFLOAT(im)
57 integer, intent(inout) :: iseed local
67 iseed = mod(iseed*ia + ic, im)
78 integer, intent(inout) :: iseed local
88 iseed = mod(iseed*ia + ic, im)
90 iseed = mod(iseed*ia + ic, im)
101 subroutine shiftseed(iseed, n) argument
102 integer, intent(inout) :: iseed local
[all …]
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/TESTING/MATGEN/
H A Dslaran.c8 doublereal slaran_(integer *iseed) in slaran_() argument
59 --iseed; in slaran_()
62 it4 = iseed[4] * 2549; in slaran_()
65 it3 = it3 + iseed[3] * 2549 + iseed[4] * 2508; in slaran_()
68 it2 = it2 + iseed[2] * 2549 + iseed[3] * 2508 + iseed[4] * 322; in slaran_()
71 it1 = it1 + iseed[1] * 2549 + iseed[2] * 2508 + iseed[3] * 322 + iseed[4] in slaran_()
77 iseed[1] = it1; in slaran_()
78 iseed[2] = it2; in slaran_()
79 iseed[3] = it3; in slaran_()
80 iseed[4] = it4; in slaran_()
H A Ddlaran.c8 doublereal dlaran_(integer *iseed) in dlaran_() argument
59 --iseed; in dlaran_()
62 it4 = iseed[4] * 2549; in dlaran_()
65 it3 = it3 + iseed[3] * 2549 + iseed[4] * 2508; in dlaran_()
68 it2 = it2 + iseed[2] * 2549 + iseed[3] * 2508 + iseed[4] * 322; in dlaran_()
71 it1 = it1 + iseed[1] * 2549 + iseed[2] * 2508 + iseed[3] * 322 + iseed[4] in dlaran_()
77 iseed[1] = it1; in dlaran_()
78 iseed[2] = it2; in dlaran_()
79 iseed[3] = it3; in dlaran_()
80 iseed[4] = it4; in dlaran_()
/dports/math/superlu/superlu-5.2.2/TESTING/MATGEN/
H A Ddlaran.c8 doublereal dlaran_slu(integer *iseed) in dlaran_slu() argument
59 --iseed; in dlaran_slu()
62 it4 = iseed[4] * 2549; in dlaran_slu()
65 it3 = it3 + iseed[3] * 2549 + iseed[4] * 2508; in dlaran_slu()
68 it2 = it2 + iseed[2] * 2549 + iseed[3] * 2508 + iseed[4] * 322; in dlaran_slu()
71 it1 = it1 + iseed[1] * 2549 + iseed[2] * 2508 + iseed[3] * 322 + iseed[4] in dlaran_slu()
77 iseed[1] = it1; in dlaran_slu()
78 iseed[2] = it2; in dlaran_slu()
79 iseed[3] = it3; in dlaran_slu()
80 iseed[4] = it4; in dlaran_slu()
H A Dslaran.c8 doublereal dlaran_sluslu(integer *iseed) in dlaran_sluslu() argument
59 --iseed; in dlaran_sluslu()
62 it4 = iseed[4] * 2549; in dlaran_sluslu()
65 it3 = it3 + iseed[3] * 2549 + iseed[4] * 2508; in dlaran_sluslu()
68 it2 = it2 + iseed[2] * 2549 + iseed[3] * 2508 + iseed[4] * 322; in dlaran_sluslu()
71 it1 = it1 + iseed[1] * 2549 + iseed[2] * 2508 + iseed[3] * 322 + iseed[4] in dlaran_sluslu()
77 iseed[1] = it1; in dlaran_sluslu()
78 iseed[2] = it2; in dlaran_sluslu()
79 iseed[3] = it3; in dlaran_sluslu()
80 iseed[4] = it4; in dlaran_sluslu()
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/
H A Dutil_random.F1 double precision function util_random(iseed)
3 integer iseed local
12 if(iseed.gt.0) call srand(dble(iseed))
17 if(iseed.gt.0) call srand(dble(iseed))
20 if(iseed.gt.0) call ranset(iseed)
25 if(iseed.gt.0) call linux_sran(iseed)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/
H A Dutil_random.F1 double precision function util_random(iseed)
3 integer iseed local
12 if(iseed.gt.0) call srand(dble(iseed))
17 if(iseed.gt.0) call srand(dble(iseed))
20 if(iseed.gt.0) call ranset(iseed)
25 if(iseed.gt.0) call linux_sran(iseed)
/dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/boost/numeric/bindings/lapack/auxiliary/
H A Dlarnv.hpp50 inline std::ptrdiff_t larnv( const fortran_int_t idist, fortran_int_t* iseed, in larnv() argument
53 LAPACK_SLARNV( &idist, iseed, &n, x ); in larnv()
62 inline std::ptrdiff_t larnv( const fortran_int_t idist, fortran_int_t* iseed, in larnv() argument
65 LAPACK_DLARNV( &idist, iseed, &n, x ); in larnv()
77 LAPACK_CLARNV( &idist, iseed, &n, x ); in larnv()
89 LAPACK_ZLARNV( &idist, iseed, &n, x ); in larnv()
112 VectorISEED& iseed, const fortran_int_t n, VectorX& x ) { in invoke()
116 BOOST_ASSERT( bindings::size(iseed) >= 4 ); in invoke()
118 return detail::larnv( idist, bindings::begin_value(iseed), n, in invoke()
139 VectorISEED& iseed, const fortran_int_t n, VectorX& x ) { in larnv() argument
[all …]
/dports/math/dbcsr/dbcsr-2.1.0/src/utils/
H A Ddbcsr_blas_operations.F29 SUBROUTINE set_larnv_seed(irow, nrow, icol, ncol, ival, iseed) argument
42 INTEGER, INTENT(OUT) :: iseed(4) local
48 iseed(4) = INT(MODULO(map, 2_int_8**12)); map = map/2_int_8**12; ! keep odd
49 iseed(3) = INT(MODULO(IEOR(map, 3541_int_8), 2_int_8**12)); map = map/2_int_8**12
50 iseed(2) = INT(MODULO(IEOR(map, 1153_int_8), 2_int_8**12)); map = map/2_int_8**12
54 SUBROUTINE dbcsr_lapack_larnv(idist, iseed, n, x) argument
59 INTEGER, DIMENSION(:), INTENT(INOUT) :: iseed local
66 CALL slarnv(idist, iseed, n, x%d%r_sp)
68 CALL dlarnv(idist, iseed, n, x%d%r_dp)
70 CALL clarnv(idist, iseed, n, x%d%c_sp)
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/src/utils/
H A Ddbcsr_blas_operations.F29 SUBROUTINE set_larnv_seed(irow, nrow, icol, ncol, ival, iseed) argument
42 INTEGER, INTENT(OUT) :: iseed(4) local
50 iseed(4) = INT(MODULO(map, 2_int_8**12)); map = map/2_int_8**12; ! keep odd
51 iseed(3) = INT(MODULO(IEOR(map, 3541_int_8), 2_int_8**12)); map = map/2_int_8**12
52 iseed(2) = INT(MODULO(IEOR(map, 1153_int_8), 2_int_8**12)); map = map/2_int_8**12
56 SUBROUTINE dbcsr_lapack_larnv(idist, iseed, n, x) argument
61 INTEGER, DIMENSION(:), INTENT(INOUT) :: iseed local
71 CALL slarnv(idist, iseed, n, x%d%r_sp)
73 CALL dlarnv(idist, iseed, n, x%d%r_dp)
75 CALL clarnv(idist, iseed, n, x%d%c_sp)
[all …]
/dports/science/healpix/Healpix_3.50/src/f90/mod/
H A Dran_tools_dist.f9041 integer(i4b), intent(inout) :: iseed !! random number state local
47 if (empty .or. iseed < 0) then ! bug correction, EH, March 13, 2003
49 v1 = 2._sp*ran_mwc(iseed) - 1._sp
50 v2 = 2._sp*ran_mwc(iseed) - 1._sp
80 integer(i4b), intent(inout):: iseed !! random number state local
89 if (first .or. (iseed<=0)) then
90 if (iseed==0) iseed=-1
91 iseed = abs(iseed)
96 shifter=iseed
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/
H A Ddlaruv.cpp5 F77_FUNC(dlaruv,DLARUV)(int *iseed, int *n, double *x) in F77_FUNC()
55 --iseed; in F77_FUNC()
60 i1 = iseed[1]; in F77_FUNC()
61 i2 = iseed[2]; in F77_FUNC()
62 i3 = iseed[3]; in F77_FUNC()
63 i4 = iseed[4]; in F77_FUNC()
87 iseed[1] = it1; in F77_FUNC()
88 iseed[2] = it2; in F77_FUNC()
89 iseed[3] = it3; in F77_FUNC()
90 iseed[4] = it4; in F77_FUNC()
H A Dslaruv.cpp5 F77_FUNC(slaruv,SLARUV)(int *iseed, int *n, float *x) in F77_FUNC()
55 --iseed; in F77_FUNC()
60 i1 = iseed[1]; in F77_FUNC()
61 i2 = iseed[2]; in F77_FUNC()
62 i3 = iseed[3]; in F77_FUNC()
63 i4 = iseed[4]; in F77_FUNC()
87 iseed[1] = it1; in F77_FUNC()
88 iseed[2] = it2; in F77_FUNC()
89 iseed[3] = it3; in F77_FUNC()
90 iseed[4] = it4; in F77_FUNC()
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/
H A Dslaruv.c8 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x) in slaruv_() argument
117 --iseed; in slaruv_()
124 i1 = iseed[1]; in slaruv_()
125 i2 = iseed[2]; in slaruv_()
126 i3 = iseed[3]; in slaruv_()
127 i4 = iseed[4]; in slaruv_()
158 iseed[1] = it1; in slaruv_()
159 iseed[2] = it2; in slaruv_()
160 iseed[3] = it3; in slaruv_()
161 iseed[4] = it4; in slaruv_()
H A Ddlaruv.c8 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x) in dlaruv_() argument
117 --iseed; in dlaruv_()
124 i1 = iseed[1]; in dlaruv_()
125 i2 = iseed[2]; in dlaruv_()
126 i3 = iseed[3]; in dlaruv_()
127 i4 = iseed[4]; in dlaruv_()
158 iseed[1] = it1; in dlaruv_()
159 iseed[2] = it2; in dlaruv_()
160 iseed[3] = it3; in dlaruv_()
161 iseed[4] = it4; in dlaruv_()
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/64to32blas/
H A Dylarnv.F17 iseed4(1)=iseed(1)
18 iseed4(2)=iseed(2)
19 iseed4(3)=iseed(3)
20 iseed4(4)=iseed(4)
23 iseed(1)=iseed4(1)
24 iseed(2)=iseed4(2)
25 iseed(3)=iseed4(3)
26 iseed(4)=iseed4(4)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/64to32blas/
H A Dylarnv.F17 iseed4(1)=iseed(1)
18 iseed4(2)=iseed(2)
19 iseed4(3)=iseed(3)
20 iseed4(4)=iseed(4)
23 iseed(1)=iseed4(1)
24 iseed(2)=iseed4(2)
25 iseed(3)=iseed4(3)
26 iseed(4)=iseed4(4)
/dports/math/R-cran-rgenoud/rgenoud/src/
H A Dunif.cpp23 void ruxorv (integer *iseed, int n, double *rvec, integer *aux) in ruxorv() argument
37 if (*iseed != 0) tlpseq (iseed, 0, wrk, aux); in ruxorv()
42 tlpseq (iseed, TLPDBSIZ, wrk, aux); in ruxorv()
52 tlpseq (iseed, nw, wrk, aux); in ruxorv()
66 void tlpseq (integer *iseed, int n, integer *rvec, integer *aux) in tlpseq() argument
77 if (*iseed != ZEROI || aux[k+2] != k) { in tlpseq()
78 if (*iseed < ZEROI) *iseed = -(*iseed); in tlpseq()
79 seedw = (*iseed != seed) ? (*iseed ^ seed) : seed ; in tlpseq()
80 *iseed = ZEROI; in tlpseq()
/dports/math/igraph/igraph-0.9.5/vendor/lapack/
H A Ddlaruv.c109 Subroutine */ int igraphdlaruv_(integer *iseed, integer *n, doublereal *x) in igraphdlaruv_() argument
169 --iseed; in igraphdlaruv_()
174 i1 = iseed[1]; in igraphdlaruv_()
175 i2 = iseed[2]; in igraphdlaruv_()
176 i3 = iseed[3]; in igraphdlaruv_()
177 i4 = iseed[4]; in igraphdlaruv_()
227 iseed[1] = it1; in igraphdlaruv_()
228 iseed[2] = it2; in igraphdlaruv_()
229 iseed[3] = it3; in igraphdlaruv_()
230 iseed[4] = it4; in igraphdlaruv_()
/dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/
H A Dslaruv.c16 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x) in slaruv_() argument
124 --iseed; in slaruv_()
131 i1 = iseed[1]; in slaruv_()
132 i2 = iseed[2]; in slaruv_()
133 i3 = iseed[3]; in slaruv_()
134 i4 = iseed[4]; in slaruv_()
185 iseed[1] = it1; in slaruv_()
186 iseed[2] = it2; in slaruv_()
187 iseed[3] = it3; in slaruv_()
188 iseed[4] = it4; in slaruv_()
H A Ddlaruv.c16 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x) in dlaruv_() argument
124 --iseed; in dlaruv_()
131 i1 = iseed[1]; in dlaruv_()
132 i2 = iseed[2]; in dlaruv_()
133 i3 = iseed[3]; in dlaruv_()
134 i4 = iseed[4]; in dlaruv_()
184 iseed[1] = it1; in dlaruv_()
185 iseed[2] = it2; in dlaruv_()
186 iseed[3] = it3; in dlaruv_()
187 iseed[4] = it4; in dlaruv_()
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Ddlaruv.c85 int dlaruv_(integer *iseed, integer *n, doublereal *x) in dlaruv_() argument
117 --iseed; in dlaruv_()
122 i1 = iseed[1]; in dlaruv_()
123 i2 = iseed[2]; in dlaruv_()
124 i3 = iseed[3]; in dlaruv_()
125 i4 = iseed[4]; in dlaruv_()
164 iseed[1] = it1; in dlaruv_()
165 iseed[2] = it2; in dlaruv_()
166 iseed[3] = it3; in dlaruv_()
167 iseed[4] = it4; in dlaruv_()
H A Dslaruv.c85 int slaruv_(integer *iseed, integer *n, real *x) in slaruv_() argument
117 --iseed; in slaruv_()
122 i1 = iseed[1]; in slaruv_()
123 i2 = iseed[2]; in slaruv_()
124 i3 = iseed[3]; in slaruv_()
125 i4 = iseed[4]; in slaruv_()
165 iseed[1] = it1; in slaruv_()
166 iseed[2] = it2; in slaruv_()
167 iseed[3] = it3; in slaruv_()
168 iseed[4] = it4; in slaruv_()
/dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/
H A Dodruv.c14 int odruv(int *iseed, int *n, double *x) in odruv() argument
122 --iseed; in odruv()
129 i1 = iseed[1]; in odruv()
130 i2 = iseed[2]; in odruv()
131 i3 = iseed[3]; in odruv()
132 i4 = iseed[4]; in odruv()
182 iseed[1] = it1; in odruv()
183 iseed[2] = it2; in odruv()
184 iseed[3] = it3; in odruv()
185 iseed[4] = it4; in odruv()
/dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/
H A Dtemplate_lapack_laruv.h42 int dlaruv_(integer *iseed, const integer *n, Treal *x) in dlaruv_() argument
135 --iseed; in dlaruv_()
142 i1 = iseed[1]; in dlaruv_()
143 i2 = iseed[2]; in dlaruv_()
144 i3 = iseed[3]; in dlaruv_()
145 i4 = iseed[4]; in dlaruv_()
176 iseed[1] = it1; in dlaruv_()
177 iseed[2] = it2; in dlaruv_()
178 iseed[3] = it3; in dlaruv_()
179 iseed[4] = it4; in dlaruv_()

12345678910>>...45