program strip
c 
c  A program to strip the comments from the input file itg.in.
c
      character instring(80)*1
      open(unit=1,status='OLD',file='itg.in')
      open(unit=2,status='NEW',file='itg.input')

 10   read(1,100,err=30) n,(instring(j), j=1,n)
 100  format (Q,80 A1)
      do 20 i=1,n
         if (instring(i).eq.'!') then
            write(2,101) (instring(j), j=1,i-1)
            goto 10
         endif
 20   continue
      write(2,101) (instring(j), j=1,n)
      goto 10
 101  format(80 A1)
c
 30   continue
      i=system("mv itg.input itg.in")
      stop 
      end