Symbol Description Uses
scrunit1 12



File Line number Procedure Code
./optim/optim_numbmod.F 198 OPTIM_NUMBMOD
      scrunit1      = 11
./optim/optim_numbmod.F 201 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 213 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 218 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 219 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_nml)
./optim/optim_numbmod.F 220 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = ctrl_packnames)
./optim/optim_numbmod.F 221 OPTIM_NUMBMOD
      close( scrunit1 )
./optim/optim_numbmod.F 229 OPTIM_NUMBMOD
      open(unit=scrunit1,status='scratch')
./optim/optim_numbmod.F 241 OPTIM_NUMBMOD
     &        write(unit=scrunit1, fmt='(a)') record(:il)
./optim/optim_numbmod.F 246 OPTIM_NUMBMOD
      rewind( scrunit1 )
./optim/optim_numbmod.F 247 OPTIM_NUMBMOD
      read(unit = scrunit1, nml = optim)
./optim/optim_numbmod.F 248 OPTIM_NUMBMOD
      close( scrunit1 )