Symbol Description Uses
mk 9


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 58 NO PROCEDURE 
        mk=1
./model/src/port_rand.F 61 NO PROCEDURE 
          ma(ii)=mk
./model/src/port_rand.F 62 NO PROCEDURE 
          mk=mj-mk
./model/src/port_rand.F 63 NO PROCEDURE 
          if(mk.lt.mz)mk=mk+mbig