| Symbol | Description | Uses |
| mj | 14 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 38 | NO PROCEDURE |
integer mj,mk,ma(nff) |
| ./model/src/port_rand.F | 43 | NO PROCEDURE |
real*8 mj,mk,ma(nff) |
| ./model/src/port_rand.F | 55 | NO PROCEDURE |
mj=mseed-iabs(idum) |
| ./model/src/port_rand.F | 56 | NO PROCEDURE |
mj=mod(mj,mbig) |
| ./model/src/port_rand.F | 57 | NO PROCEDURE |
ma(nff)=mj |
| ./model/src/port_rand.F | 62 | NO PROCEDURE |
mk=mj-mk |
| ./model/src/port_rand.F | 64 | NO PROCEDURE |
mj=ma(ii) |
| ./model/src/port_rand.F | 82 | NO PROCEDURE |
mj=ma(inext)-ma(inextp) |
| ./model/src/port_rand.F | 83 | NO PROCEDURE |
if(mj.lt.mz)mj=mj+mbig |
| ./model/src/port_rand.F | 84 | NO PROCEDURE |
ma(inext)=mj |
| ./model/src/port_rand.F | 85 | NO PROCEDURE |
port_rand=mj*fac |