Symbol Description Uses
ma 15



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 49 NO PROCEDURE
      save firstCall,inext,inextp,ma
./model/src/port_rand.F 57 NO PROCEDURE
        ma(nff)=mj
./model/src/port_rand.F 61 NO PROCEDURE
          ma(ii)=mk
./model/src/port_rand.F 64 NO PROCEDURE
          mj=ma(ii)
./model/src/port_rand.F 68 NO PROCEDURE
            ma(i)=ma(i)-ma(1+mod(i+30,nff))
./model/src/port_rand.F 69 NO PROCEDURE
            if(ma(i).lt.mz)ma(i)=ma(i)+mbig
./model/src/port_rand.F 82 NO PROCEDURE
        mj=ma(inext)-ma(inextp)
./model/src/port_rand.F 84 NO PROCEDURE
        ma(inext)=mj