Go to the source code of this file.
|
subroutine | ladd (J, K, I) |
|
subroutine | lmul (K, J, I) |
|
subroutine | xjumpm (JUMPM, MULT, IADD, IRANN, IRANM, IAM, ICM) |
|
subroutine | setran (IRAN, IA, IC) |
|
subroutine | jumpit (MULT, IADD, IRANN, IRANM) |
|
real function | psrand (IDUMM) |
|
double precision function | pdrand (IDUMM) |
|
◆ jumpit()
subroutine jumpit |
( |
integer, dimension(2) |
MULT, |
|
|
integer, dimension(2) |
IADD, |
|
|
integer, dimension(2) |
IRANN, |
|
|
integer, dimension(2) |
IRANM |
|
) |
| |
◆ ladd()
subroutine ladd |
( |
integer, dimension(2) |
J, |
|
|
integer, dimension(2) |
K, |
|
|
integer, dimension(2) |
I |
|
) |
| |
◆ lmul()
subroutine lmul |
( |
integer, dimension(2) |
K, |
|
|
integer, dimension(2) |
J, |
|
|
integer, dimension(2) |
I |
|
) |
| |
◆ pdrand()
double precision function pdrand |
( |
integer |
IDUMM | ) |
|
◆ psrand()
real function psrand |
( |
integer |
IDUMM | ) |
|
◆ setran()
subroutine setran |
( |
integer, dimension(2) |
IRAN, |
|
|
integer, dimension(2) |
IA, |
|
|
integer, dimension(2) |
IC |
|
) |
| |
◆ xjumpm()
subroutine xjumpm |
( |
integer |
JUMPM, |
|
|
integer, dimension(2) |
MULT, |
|
|
integer, dimension(2) |
IADD, |
|
|
integer, dimension(2) |
IRANN, |
|
|
integer, dimension(2) |
IRANM, |
|
|
integer, dimension(2) |
IAM, |
|
|
integer, dimension(2) |
ICM |
|
) |
| |