subroutine fopenk(filnum, filnam, filsta)
C ****************************************************************** wjr
C
C Provides error trapped opening of files
C
C       Edit History
C       05-Feb-99       wjr     Original coding
C
C      include 'file.fi'
C      
      integer           filnum
      character*(*)      filnam
      character*(*)       filsta
      integer           lentrm
      integer           ios
C
c ***      write(*,1991) filnum, filnam,filsta
c *** 1991    format('in copenk', i3,a,a)
      open(filnum,FILE=filnam(1:lentrm(filnam)),STATUS=filsta,
     *  ERR=100, IOSTAT=ios)
      write(*,101) filnam(1:lentrm(filnam)), filnum, filsta
  101 format(' Opened file: ',a,' on unit ',i3,' with status ',a)

      return
C
100   write(*,1000) filnam(1:lentrm(filnam)),filnum,filsta,ios
C *** 1000  format('I3  A  A')
1000  format(' Cannot open file: ',a,' on unit ',i3,
     & ' with status ',a, ' and I/O status ', i5)
      stop 1001
      end
C      
      subroutine dbgwrt(doit, line)
C ****************************************************************** wjr
C
      logical  doit
      character*(*) line
C
      if (doit) write(*,*) line
      end