Symbol Description Uses
firstCall 6



File Line number Procedure Code
./model/src/port_rand.F 46 NO PROCEDURE
      logical firstCall
./model/src/port_rand.F 48 NO PROCEDURE
      data firstCall /.true./
./model/src/port_rand.F 49 NO PROCEDURE
      save firstCall,inext,inextp,ma
./model/src/port_rand.F 52 NO PROCEDURE
      if(firstCall .OR. seed.GE.mz)then
./model/src/port_rand.F 54 NO PROCEDURE
        firstCall=.false.