| Symbol | Description | Uses |
| mseed | 6 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 41 | NO PROCEDURE |
INTEGER mbig,mseed,mZ |
| ./model/src/port_rand.F | 44 | NO PROCEDURE |
DATA mseed/161803398/ |
| ./model/src/port_rand.F | 46 | NO PROCEDURE |
real*8 mbig,mseed,mz |
| ./model/src/port_rand.F | 49 | NO PROCEDURE |
DATA mseed/1618033./ |
| ./model/src/port_rand.F | 58 | NO PROCEDURE |
IF (seed.GE.mz) mseed = seed |
| ./model/src/port_rand.F | 60 | NO PROCEDURE |
mj=mseed-iabs(idum) |