6 |
#undef _USE_INTEGERS |
#undef _USE_INTEGERS |
7 |
|
|
8 |
! ============================================================================== |
! ============================================================================== |
9 |
|
CBOP |
10 |
|
C !ROUTINE: port_rand |
11 |
|
C !INTERFACE: |
12 |
real*8 function port_rand() |
real*8 function port_rand() |
13 |
|
|
14 |
|
C !DESCRIPTION: \bv |
15 |
|
C Portable random number generator |
16 |
|
C \ev |
17 |
|
|
18 |
|
C !LOCAL VARIABLES: |
19 |
implicit none |
implicit none |
20 |
integer nff |
integer nff |
21 |
parameter(nff=55) |
parameter(nff=55) |
40 |
logical firstCall |
logical firstCall |
41 |
save firstCall,inext,inextp,ma |
save firstCall,inext,inextp,ma |
42 |
data firstCall /.true./ |
data firstCall /.true./ |
43 |
|
CEOP |
44 |
! ------------------------------------------------------------------------------ |
! ------------------------------------------------------------------------------ |
45 |
if(firstCall)then |
if(firstCall)then |
46 |
firstCall=.false. |
firstCall=.false. |