Symbol Description Uses
scrunit1 12



File Line number Procedure Code
./optim/optim_numbmod.F 195 OPTIM_NUMBMOD
      scrunit1      = 11
./optim/optim_numbmod.F 198 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 210 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 215 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 216 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_nml)
./optim/optim_numbmod.F 217 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_packnames)
./optim/optim_numbmod.F 218 OPTIM_NUMBMOD
      close( scrunit1 )
./optim/optim_numbmod.F 226 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 238 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 243 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 244 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = optim)
./optim/optim_numbmod.F 245 OPTIM_NUMBMOD
      close( scrunit1 )