| Symbol | Description | Uses |
| mz | 15 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 37 | NO PROCEDURE |
parameter (mbig=1000000000,mz=0,fac=1.d0/mbig) |
| ./model/src/port_rand.F | 41 | NO PROCEDURE |
real*8 mbig,mseed,mz |
| ./model/src/port_rand.F | 42 | NO PROCEDURE |
parameter (mbig=4000000.,mz=0.,fac=1.d0/mbig) |
| ./model/src/port_rand.F | 52 | NO PROCEDURE |
if(firstCall .OR. seed.GE.mz)then |
| ./model/src/port_rand.F | 53 | NO PROCEDURE |
if (seed.GE.mz) mseed = seed |
| ./model/src/port_rand.F | 63 | NO PROCEDURE |
if(mk.lt.mz)mk=mk+mbig |
| ./model/src/port_rand.F | 69 | NO PROCEDURE |
if(ma(i).lt.mz)ma(i)=ma(i)+mbig |
| ./model/src/port_rand.F | 77 | NO PROCEDURE |
if(seed.GE.mz)then |
| ./model/src/port_rand.F | 83 | NO PROCEDURE |
if(mj.lt.mz)mj=mj+mbig |