subroutine copyseed( myIter, myStream, mySeed, firstRanf ) | |
include 'params.inc' | |
include 'randseed.inc' | |
include 'shared.inc' | |
integer myIter, mystream, myseed(*) | |
REAL*8 firstRanf | |
REAL*8 fran, ranf | |
external ranf | |
c | |
c dale's mod | |
c | |
if (myStream .gt. 0) then | |
do 2 i = 1 ,IrandNumSize | |
seedarray(i, myStream) = mySeed(i) | |
2 continue | |
endif | |
myStream = myIter | |
c | |
c ng_rncount(myStream) = 0 | |
do 1 i = 1, IrandNumSize | |
mySeed(i) = seedarray(i,myStream) | |
1 continue | |
firstRanf = ranf(mySeed) | |
return | |
end |