| c This is 'randseed.inc' | |
| c | |
| include 'pranf.inc' | |
| integer*4 seedarray | |
| integer*4 NStreams | |
| c integer*4 mySeed(IrandNumSize) | |
| c scatter, shared | |
| dimension | |
| . seedarray(IrandNumSize,MaxStreams) | |
| c common, shared /seedcom/ | |
| common /seedcom/ | |
| . NStreams | |
| c common, private /pseedcom/ | |
| common /pseedcom/ | |
| . seedarray | |