subroutine readbf(ius)
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 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      character*80 buff
c     
      iur=ius 
      if(iur.eq.0) iur=5
      iuw=ibuff
      if(iur.ne.5) iuw=95
c      
   10 continue
      read(iur,501,end=20) buff
c PRINT *, 'READ LINE:', TRIM(BUFF)
      if(buff(1:1).eq.'!'.or.buff(1:1).eq.'*') go to 10
      write(iuw,501) buff
      go to 10
c      
   20 continue
      rewind iuw
      return 
  501 format(a)
      end