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