Symbol Description Uses
scrunit1 12



File Line number Procedure Code
./optim/optim_numbmod.F 201 OPTIM_NUMBMOD
      scrunit1      = 11
./optim/optim_numbmod.F 204 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 216 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 221 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 222 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_nml)
./optim/optim_numbmod.F 223 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_packnames)
./optim/optim_numbmod.F 224 OPTIM_NUMBMOD
      close( scrunit1 )
./optim/optim_numbmod.F 232 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 244 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 249 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 250 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = optim)
./optim/optim_numbmod.F 251 OPTIM_NUMBMOD
      close( scrunit1 )