program xpolar
      character*80 s80
      real*8 al(3,3)
      call getarg(1,s80)
      read(s80,*)ic
      j=0
      k=0
      open(11,file='AL.TXT')
      open(10,file='G.OUT')
1     read(10,100,end=99,err=99)s80
100   format(a80)
      if((ic.eq.1.and.s80(2:46).eq.
     1'Property number 1 -- Alpha(-w,w) frequency  1').or.
     1   (ic.eq.2.and.s80(2:46).eq.
     1'Property number 1 -- Alpha(-w,w) frequency  2'))then
       j=j+1
c      odd only:
       if(mod(j,2).eq.0)then
        k=k+1
        read(10,*)
        do 2 i=1,3
2       read(10,*)al(i,1),(al(i,ix),ix=1,3)
        write(11,1111)((al(i,n),i=n,3),n=1,3),k
1111    format(6e14.6,i6)
       endif
      endif
      goto 1
99    close(10)
      close(11)
      end