Symbol Description Uses
ma 15



File Line number Procedure Code
./model/src/port_rand.F 43 NO PROCEDURE
      INTEGER mj,mk,ma(nff)
./model/src/port_rand.F 48 NO PROCEDURE
      real*8 mj,mk,ma(nff)
./model/src/port_rand.F 54 NO PROCEDURE
      SAVE firstCall,inext,inextp,ma
./model/src/port_rand.F 62 NO PROCEDURE
        ma(nff)=mj
./model/src/port_rand.F 66 NO PROCEDURE
          ma(ii)=mk
./model/src/port_rand.F 69 NO PROCEDURE
          mj=ma(ii)
./model/src/port_rand.F 73 NO PROCEDURE
            ma(i)=ma(i)-ma(1+mod(i+30,nff))
./model/src/port_rand.F 74 NO PROCEDURE
            IF (ma(i).LT.mz) ma(i)=ma(i)+mbig
./model/src/port_rand.F 87 NO PROCEDURE
        mj=ma(inext)-ma(inextp)
./model/src/port_rand.F 89 NO PROCEDURE
        ma(inext)=mj