subroutine openfils
C ***************************************************************** wjr
C Contains init code from main
C
C       Edit History
C       10-Mar-99       wjr     created
C
      include 'p1werm.inc'
      include 'wpath.inc'
      
      include 'file.fi'
      
C + + + Called functions + + +      
      integer lentrm
C      
c open crop and decomp parameter file
      call fopenk (31, rootp(1:lentrm(rootp)) // 'crop.db', 'old')

c     open erosion output files
C
      call fopenk (20, rootp(1:lentrm(rootp)) // 'erosion.out', 
     *  'unknown')
      call fopenk (21, rootp(1:lentrm(rootp)) // 'eegt.out', 'unknown')  
c     open (unit = 22, file = outp(1:lentrm(outp)) // 'eegtss.out')
c     open (unit = 23, file = outp(1:lentrm(outp)) // 'eegt10.out')
      call fopenk (7, rootp(1:lentrm(rootp)) // 'maxmin.out', 'unknown')
C
c     open plot data file
C
      call fopenk (luoplt, rootp(1:lentrm(rootp)) // 'plot.out', 
     *  'unknown')
C
c     open temporary file to hold accounting region erosion values
c
      call fopenk (40, rootp(1:lentrm(rootp)) // 'eros.tmp', 'unknown')
      call fopenk (41, rootp(1:lentrm(rootp)) // 'output.tmp','unknown')
      
      end