subroutine pltflux
c******************************************************************************
c     This subroutine controls the decisions that are made around the
c     plots of flux curves
c******************************************************************************

      implicit real*8 (a-h,o-z)
      include 'Atmos.com'
      include 'Linex.com'
      include 'Pstuff.com'


c  call up the flux plot
      if (plotopt == 0) return
10    choice = 'y'
      plotroutine = 'term_land_flux'
      lscreen = 12
      call makeplot (lscreen)


c  make a hardcopy, write to a postscript file, or replot?
      array = 'WHAT TO DO NEXT ([n]/h/f/r)? '
      lscreen = 12
      nchars = 33
      call getasci (nchars,lscreen)
      choice = chinfo(1:1)
      if (choice=='n' .or. nchars<=0) then
         return
      elseif (choice == 'h') then
         plotroutine = 'hard_land_flux'
         call makeplot (lscreen)
      elseif (choice == 'r') then
         go to 10
      elseif (choice == 'f') then
         plotroutine = 'file_land_flux'
         call makeplot (lscreen)
      endif

      return
      end