Symbol Description Uses
mbig 10



File Line number Procedure Code
./model/src/port_rand.F 36 NO PROCEDURE
      integer mbig,mseed,mZ
./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 56 NO PROCEDURE
        mj=mod(mj,mbig)
./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 83 NO PROCEDURE
        if(mj.lt.mz)mj=mj+mbig