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 ios
      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)) // 'grid.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 (42, rootp(1:lentrm(rootp)) // 'saeros.inp',
     *  'unknown')
C
C use fopenk to verify that the file can be opened
c      print *, 'ofile: >',rootp(1:lentrm(rootp)) // 'output.tmp','<'
c     call fopenk (41, rootp(1:lentrm(rootp)) // 'output.tmp',
c    *  'unknown')
c     close(41)
C
C reopen with with larger record size to conform to unix fortran
      open (41,file=rootp(1:lentrm(rootp)) // 'output.tmp',
     *  recl=500, IOSTAT=ios, ERR=100)
      goto 101
100   write(*,1000) rootp(1:lentrm(rootp)) // 'output.tmp',ios
1000  format('Cannot open file: ',a,' with I/O status ', i5)
      stop
101   continue

C*** open some files for outputing the crop and decomp biomass variables - LEW

      call fopenk (luocrp1, rootp(1:lentrm(rootp)) // 'crp1.btmp',
     *  'unknown')
      call fopenk (luodec1, rootp(1:lentrm(rootp)) // 'dec1.btmp',
     *  'unknown')
      call fopenk (luodec2, rootp(1:lentrm(rootp)) // 'dec2.btmp',
     *  'unknown')
      call fopenk (luodec3, rootp(1:lentrm(rootp)) // 'dec3.btmp',
     *  'unknown')
      call fopenk (luobio1, rootp(1:lentrm(rootp)) // 'bio1.btmp',
     *  'unknown')

      end