Symbol Description Uses
scrunit1 12



File Line number Procedure Code
./optim/optim_numbmod.F 181 OPTIM_NUMBMOD
      scrunit1      = 11
./optim/optim_numbmod.F 184 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 196 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 201 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 202 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_nml)
./optim/optim_numbmod.F 203 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_packnames)
./optim/optim_numbmod.F 204 OPTIM_NUMBMOD
      close( scrunit1 )
./optim/optim_numbmod.F 212 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 224 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 229 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 230 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = optim)
./optim/optim_numbmod.F 231 OPTIM_NUMBMOD
      close( scrunit1 )