program stripg
      character*80 fn
      character*180 sn
      logical wo
      if(iargc().eq.0)then
       write(6,*)' Usage: stripg oldfile newfile'
       stop
      endif
      call getarg(1,fn)
      write(6,*)'Old filename:'
      write(6,500)fn
500   format(a80)
      open(50,file=fn,status='old')
      call getarg(2,fn)
      write(6,*)'New filename:'
      write(6,500)fn
      open(51,file=fn)
      lnr=0
      lnw=0
      wo=.true.
1     read(50,1500,err=999,end=999)sn
1500  format(a180)
      lnr=lnr+1
                     
      if(sn(2:14).eq.'Copyright (c)')wo=.false.
      if(sn(2:14).eq.'Gaussian 03: ')wo=.true.
      if(sn(2:14).eq.'One-electron ')wo=.false.
      if(sn(2:11).eq.'SCF Done: ')   wo=.true.
      if(sn(2:14).eq.'Alpha density')wo=.false.
      if(sn(2:14).eq.'Alpha  occ. e')wo=.true.
      if(sn(2:11).eq.'Alpha MOs:')wo=.true.
      if(sn(2:14).eq.'Convergence o')wo=.true.

      if(wo)then
       lnw=lnw+1
       do 2 i=len(sn),1,-1
2      if(sn(i:i).ne.' ')goto 3
3      write(51,501)(sn(j:j),j=1,i)   
501    format(180a1)
      endif

      goto 1
999   close(51)
      close(50)
      write(6,601)lnr,lnw
601   format(i8,' lines read, ',i8,' written')
      stop
      end