open statements in Radiance Monitoro (radmon)

-------------------------------------------------
 make_base : construct base history files for each
             entry in the SATYPE list from the
             time data files (*.ieee_d) for the specified source (suffix)
-------------------------------------------------
File 1 is :  ./make_base.fd/make_base.f90
  open( lunchn, file=channel_file, form='formatted',iostat=ierror )
  open( luncyc, file=cycle_file, form='formatted',iostat=ierror )
  open( lungrd, file=data_file, form='unformatted', iostat=ierror )
  open(lunout,file=out_file,form='formatted')

-------------------------------------------------
radmon_bcor :
           extract bcor (bias correction) radiance data from
          a diagnostic file from a global run.
-------------------------------------------------
File 16 is :  ./verf_radbcor.fd/bcor.f90
  open(lndiag,file=diag_rad,form='unformatted')
  open(lungrd,file=data_file,form='unformatted')
  open(lungrd,file=data_file,form='unformatted')
File 17 is :  ./verf_radbcor.fd/create_ctl_bcor.f90
  open(lunctl,file=ctl_file,form='formatted')

-------------------------------------------------
radmon_bcoef :
   extract bcoef radiance data from a diagnostic
   file from a global run.
-------------------------------------------------
File 2 is :  ./verf_radbcoef.fd/create_ctl_bcoef.f90
  open(lunctl,file=ctl_file,form='formatted')
File 3 is :  ./verf_radbcoef.fd/bcoef.f90
  open(lndiag,file=diag_rad,form='unformatted')
  open(lncoef,file='biascr.txt',form='formatted')
  open(lungrd,file=data_file,form='unformatted')
  open(lungrd,file=data_file,form='unformatted')


-------------------------------------------------
radmon_time : extract time radiance data from
         a diagnostic file from a global run
-------------------------------------------------
File 4 is :  ./verf_radtime.fd/bad_penalty.f90
  open( UNIT=funit, FILE=fname, STATUS='NEW', IOSTAT=fios )
  open( UNIT=funit, FILE=fname, STATUS='OLD', POSITION='APPEND', IOSTAT=f
File 5 is :  ./verf_radtime.fd/create_ctl_time.f90
  open(lunctl,file=ctl_file,form='formatted')
File 6 is :  ./verf_radtime.fd/bad_obs.f90
  open( UNIT=funit, FILE=fname, STATUS='NEW', IOSTAT=fios )
  open( UNIT=funit, FILE=fname, STATUS='OLD', POSITION='APPEND', IOSTAT=f
File 7 is :  ./verf_radtime.fd/time.f90
  open(lndiag,file=diag_rad,form='unformatted')
  call open_bad_penalty_file( date, cycle, ios )
  call open_bad_chan_file( date, cycle, ios )
  open(lungrd,file=data_file,form='unformatted')
  open(lungrd,file=data_file,form='unformatted')
File 8 is :  ./verf_radtime.fd/bad_chan.f90
  open( UNIT=funit, FILE=fname, STATUS='NEW', IOSTAT=fios )
  open( UNIT=funit, FILE=fname, STATUS='OLD', POSITION='APPEND', IOSTAT=f
File 9 is :  ./verf_radtime.fd/valid.f90
  open( UNIT=funit, FILE=fname, IOSTAT=fios )

-------------------------------------------------
radmon_angle : extract angle radiance data from
            a diagnostic file from a global run.
-------------------------------------------------
File 14 is :  ./verf_radang.fd/angle_bias.f90
  open(lndiag,file=diag_rad,form='unformatted')
  open(iscan,file='scaninfo.txt',form='formatted')
  open(lungrd,file=data_file,form='unformatted')
  open(lungrd,file=data_file,form='unformatted')
File 15 is :  ./verf_radang.fd/create_ctl_angle.f90
  open(lunctl,file=ctl_file,form='formatted')