Symbol Description Uses
firstCall 5



File Line number Procedure Code
./model/src/port_rand.F 51 NO PROCEDURE
      LOGICAL firstCall
./model/src/port_rand.F 53 NO PROCEDURE
      DATA firstCall /.true./
./model/src/port_rand.F 54 NO PROCEDURE
      SAVE firstCall,inext,inextp,ma
./model/src/port_rand.F 57 NO PROCEDURE
      IF (firstCall .OR. seed.GE.mz) THEN
./model/src/port_rand.F 59 NO PROCEDURE
        firstCall=.false.