subroutine readbf
c     =================
c
c     auxiliary subroutine for enabling reading of input data with
c     comments
c
c     lines beginning with ! or * are understood as comments
c
      INCLUDE 'PARAMS.FOR'
      character*80 buff
   10 continue
      read(5,501,end=20) buff
      if(buff(1:1).eq.'!'.or.buff(1:1).eq.'*') go to 10
      write(ibuff,501) buff
      go to 10
  501 format(a)
   20 continue
      rewind ibuff
      return 
      end