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 + + +
 2032 format ('                          area index   ------------------
     &- masses --------------------------     root    plant        water
     & use            ')
 2132 format ('day mo year sbr crop     leaf     stem abground     leaf
     &   stem   rprdctv    yield     root    depth   height   transp pre
     &ciptn  hui   doy  daye')
 2133 format ('              #    #                       t/ha     t/ha
     &   t/ha      t/ha     t/ha     t/ha      (m)      (m)     (mm)
     & (mm)           ')
 2053 format('                 plant    ------------- masses -----------
     &  ----- water use --------')
 2054 format(' day    mo year height   leaf   stem rprdct  yield abgmas
     &transp  evtrn precip p_trns')
 2055 format('                   (m)   t/ha          t/ha   t/ha   t/ha
     &  (mm)   (mm)   (mm)   (mm)')
 2034 format(' year    leaf  stem rprdct  yield abgmas transp evptrn pre
     &cip ptrnsp    laix  saix')
 2035 format('         t/ha  t/ha   t/ha   t/ha   t/ha   (mm)   (mm)   (
     &mm)    (mm)')
 2067 format('             lb/ac  lb/ac  lb/ac   lb/ac  lb/ac')
 2065 format(' doy   year  clfwt  cstwt  crpwt    yld    bms    plf   ps
     &t   prp   ws    ts    lai   daye')
 2066 format(' doy, shu, hrlt, am0drmfl, am0hrvfl')


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