| 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 |