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
C
c ***      write(*,1991) filnum, filnam,filsta
c *** 1991    format('in copenk', i3,a,a)
      open(filnum,FILE=filnam,STATUS=filsta,ERR=100)
      write(*,101) filnam, filnum, filsta
  101 format('Opened file ',a,' on unit ',i3,' with status ',a)

      return
C
100   write(*,1000) filnum,filnam,filsta
C *** 1000  format('I3  A  A')
1000  format('file did not open ',i3,' ',a,' ',a)
      stop 1001
      end
C      
      subroutine dbgwrt(doit, line)
C ****************************************************************** wjr
C
      logical  doit
      character*(*) line
C
      if (doit) write(*,*) line
      end