Symbol Description Uses
seed initialise using this seed ; and return 0 40


File Line number Procedure Code
./pkg/flt/flt_runga2.F 136 FLT_RUNGA2 
                        uu = uu + uu*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 137 FLT_RUNGA2 
                        vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 141 FLT_RUNGA2 
                           ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 183 FLT_RUNGA2 
                        u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 184 FLT_RUNGA2 
                        v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 188 FLT_RUNGA2 
                           w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise
./pkg/flt/flt_runga2.F 64 FLT_RUNGA2 
      integer seed
./pkg/flt/flt_runga2.F 65 FLT_RUNGA2 
      seed = -1
./pkg/flt/flt_runga2.F 67 FLT_RUNGA2 
      Real*8 seed
./pkg/flt/flt_runga2.F 68 FLT_RUNGA2 
      seed = -1.d0
./verification/hs94.1x64x5/code_ad/ini_theta.F 45 INI_THETA 
      real*8  seed
./verification/hs94.1x64x5/code/ini_theta.F 45 INI_THETA 
      real*8  seed
./verification/hs94.cs-32x32x5/code/ini_theta.F 45 INI_THETA 
      real*8  seed
./model/src/port_rand.F 100 PORT_RANARR 
      seed=-1
./model/src/port_rand.F 102 PORT_RANARR 
      real*8  seed
./model/src/port_rand.F 103 PORT_RANARR 
      seed=-1.d0
./model/src/port_rand.F 107 PORT_RANARR 
       arr(i)=port_rand(seed)
./model/src/port_rand.F 12 NO PROCEDURE 
      real*8 function port_rand(seed)
./model/src/port_rand.F 138 PORT_RANARR 
      integer seed
./model/src/port_rand.F 139 PORT_RANARR 
      seed=-1
./model/src/port_rand.F 141 PORT_RANARR 
      real*8  seed
./model/src/port_rand.F 142 PORT_RANARR 
      seed=-1.d0
./model/src/port_rand.F 148 PORT_RANARR 
         x1=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 149 PORT_RANARR 
         x2=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 24 NO PROCEDURE 
      integer seed
./model/src/port_rand.F 26 NO PROCEDURE 
      real*8  seed
./model/src/port_rand.F 52 NO PROCEDURE 
      if(firstCall .OR. seed.GE.mz)then
./model/src/port_rand.F 53 NO PROCEDURE 
        if (seed.GE.mz) mseed = seed
./model/src/port_rand.F 77 NO PROCEDURE 
      if(seed.GE.mz)then
./model/src/port_rand.F 99 PORT_RANARR 
      integer seed
./pkg/fizhi/fizhi_moist.F 1403 RNDCLOUD 
      real *8 seed,port_rand
./pkg/fizhi/fizhi_moist.F 1413 RNDCLOUD 
      seed = -1.d0
./pkg/fizhi/fizhi_moist.F 1414 RNDCLOUD 
      random_numbx = port_rand(seed)
./pkg/fizhi/fizhi_moist.F 1427 RANDOM_SEEDX 
      integer*4   seed
./pkg/fizhi/fizhi_moist.F 1428 RANDOM_SEEDX 
                  seed = iseed
./pkg/fizhi/fizhi_moist.F 1429 RANDOM_SEEDX 
      call SRAND (seed)
./pkg/fizhi/fizhi_moist.F 1432 RANDOM_SEEDX 
      real*8 seed
./pkg/fizhi/fizhi_moist.F 1433 RANDOM_SEEDX 
      seed = iseed
./pkg/fizhi/fizhi_moist.F 1434 RANDOM_SEEDX 
      tmpRdN = port_rand(seed)