| Symbol | Description | Uses |
| mj | 14 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 43 | NO PROCEDURE |
INTEGER mj,mk,ma(nff) |
| ./model/src/port_rand.F | 48 | NO PROCEDURE |
real*8 mj,mk,ma(nff) |
| ./model/src/port_rand.F | 60 | NO PROCEDURE |
mj=mseed-iabs(idum) |
| ./model/src/port_rand.F | 61 | NO PROCEDURE |
mj=mod(mj,mbig) |
| ./model/src/port_rand.F | 62 | NO PROCEDURE |
ma(nff)=mj |
| ./model/src/port_rand.F | 67 | NO PROCEDURE |
mk=mj-mk |
| ./model/src/port_rand.F | 69 | NO PROCEDURE |
mj=ma(ii) |
| ./model/src/port_rand.F | 87 | NO PROCEDURE |
mj=ma(inext)-ma(inextp) |
| ./model/src/port_rand.F | 88 | NO PROCEDURE |
IF (mj.LT.mz) mj=mj+mbig |
| ./model/src/port_rand.F | 89 | NO PROCEDURE |
ma(inext)=mj |
| ./model/src/port_rand.F | 90 | NO PROCEDURE |
port_rand=mj*fac |