/dports/science/octopus/octopus-10.5/src/math/ |
H A D | quickrnd.F90 | 42 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 D | slaran.c | 8 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 D | dlaran.c | 8 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 D | dlaran.c | 8 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 D | slaran.c | 8 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 D | util_random.F | 1 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 D | util_random.F | 1 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 D | larnv.hpp | 50 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 D | dbcsr_blas_operations.F | 29 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 D | dbcsr_blas_operations.F | 29 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 D | ran_tools_dist.f90 | 41 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 D | dlaruv.cpp | 5 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 D | slaruv.cpp | 5 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 D | slaruv.c | 8 /* 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 D | dlaruv.c | 8 /* 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 D | ylarnv.F | 17 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 D | ylarnv.F | 17 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 D | unif.cpp | 23 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 D | dlaruv.c | 109 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 D | slaruv.c | 16 /* 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 D | dlaruv.c | 16 /* 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 D | dlaruv.c | 85 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 D | slaruv.c | 85 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 D | odruv.c | 14 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 D | template_lapack_laruv.h | 42 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_()
|