c     file name : cpout.for
      subroutine cpout
c     Author : A. Retta - 11/19/96
c     + + + PURPOSE + + +
c     Prints output files from the CROP submodel
c
*$noreference
       include 'm1flag.inc'
       include 'm1dbug.inc'
       include 'wpath.inc'
*$reference

       integer lentrm

c     + + + OUTPUT FORMATS + + +
c2032 format ('                               area index   ------------
c    &------ masses --------------------------     root    plant
 2132 format ('day mo year  sbr   crop        LAI      SAI abg_mass
     &leaf     stem   rprdctv   yield     root    depth    height   tran
     &sp  precip   hui   doy daye')
 2133 format ('--  -- ---     #   name        ---      ---     t/ha
     &t/ha     t/ha     t/ha     t/ha     t/ha      (m)      (m)      (m
     &m)    (mm)    ---  ---  ---')
 2053 format('                 plant    ------------- masses -----------
     &  ----- water use --------')
 2054 format(' day    mo year height   leaf   stem rprdct  yield abgmas
     &trans  evptrn prcp ptrns')
 2055 format('                   (m)   t/ha          t/ha   t/ha   t/ha
     &  (mm)   (mm)   (mm)   (mm)')
 2034 format(' year crop     leaf   stem  rprd   yield total      Ta
     &ETa     Pn     Tp   laix  saix')
 2035 format('  --  name     t/ha   t/ha   t/ha   t/ha   t/ha    (mm)
     &(mm)   (mm)   (mm)   ---   ---')
c2067 format('                      lb/ac  lb/ac  lb/ac   lb/ac  lb/ac')
 2065 format(' doy   year  cropname  clfwt  cstwt  crpwt    yld    bms
     &plf   pst   prp   ws    ts    lai   daye  drmf  phu')
c2066 format(' j, tad, sphu')


c     open (unit = 17, file = 'crop.out',//, status = 'unknown')
c      open (unit = 17, file = 'crop.out', status = 'unknown')
c     output specialized output files
c     if (am0cfl.eq.2) then
c        call fopenk (57, rootp(1:lentrm(rootp)) //'part.out',
c    *      'unknown')
c        call fopenk (58, rootp(1:lentrm(rootp)) //'prnl.out',
c    *      'unknown')
c        call fopenk (59, rootp(1:lentrm(rootp)) //'annl.out',
c    *      'unknown')
c        call fopenk (60, rootp(1:lentrm(rootp)) //'inpt.out',
c    *      'unknown')
c        call fopenk (61, rootp(1:lentrm(rootp)) //'junk.out',
c    *      'unknown')
c     endif
c      if (am0cfl.eq.2) then
c         call fopenk (57, rootp(1:lentrm(rootp)) //'part.out',
c     *      'unknown')
c         call fopenk (58, rootp(1:lentrm(rootp)) //'prnl.out',
c     *      'unknown')
c         call fopenk (59, rootp(1:lentrm(rootp)) //'annl.out',
c     *      'unknown')
c         call fopenk (60, rootp(1:lentrm(rootp)) //'inpt.out',
c     *      'unknown')
c         call fopenk (61, rootp(1:lentrm(rootp)) //'junk.out',
c     *      'unknown')
c      endif
c     write titles
      if (am0cfl.gt.0) then
c        write (17, 2032)
         write (17, 2132)
         write (17, 2133)
         write (58, 2053)
         write (58, 2054)
         write (58, 2055)
         write (59, 2034)
         write (59, 2035)
         write (57, 2065)
c        write (57, 2067)
      endif
c         write (61, 2066)
         return
         end