Symbol | Description | Uses |
mbig | 10 |
File | Line number | Procedure | Code |
./model/src/port_rand.F | 41 | NO PROCEDURE |
INTEGER mbig,mseed,mZ |
./model/src/port_rand.F | 42 | NO PROCEDURE |
PARAMETER (mbig=1000000000,mz=0,fac=1.d0/mbig) |
./model/src/port_rand.F | 46 | NO PROCEDURE |
real*8 mbig,mseed,mz |
./model/src/port_rand.F | 47 | NO PROCEDURE |
PARAMETER (mbig=4000000.,mz=0.,fac=1.d0/mbig) |
./model/src/port_rand.F | 61 | NO PROCEDURE |
mj=mod(mj,mbig) |
./model/src/port_rand.F | 68 | NO PROCEDURE |
IF (mk.LT.mz) mk=mk+mbig |
./model/src/port_rand.F | 74 | NO PROCEDURE |
IF (ma(i).LT.mz) ma(i)=ma(i)+mbig |
./model/src/port_rand.F | 88 | NO PROCEDURE |
IF (mj.LT.mz) mj=mj+mbig |