program readnmr
      character*80 fo,s80
      write(6,*)' Reads shieldings and anisotropies from g98'
      write(6,*)' output and writes them in OUT.'
      write(6,*)
      write(6,*)' Name of the output:'
      read(5,'(a)')fo
      open(2,file=fo)
      open(3,file='OUT')
      line=0
1     read(2,2000,end=2,err=2)s80
      line=line+1
2000  format(a80)
      if(s80(10:21).eq.' Isotropic =')then
       write(6,600)s80(6:7),s80(22:32),s80(48:58)
       write(3,600)s80(6:7),s80(22:32),s80(48:58)
600    format(a2,2x,a11,2x,a11)
      endif
      goto 1
2     close(2)
      close(3)
      write(6,*)
      write(6,*)line,' lines read'
      stop
      end
c
c23456789012345678901234567890123456789012345678901234567890
c 1  F    Isotropic =  -258.1060   Anisotropy =  1120.3293
c  XX=  -631.5491   YX=     0.0000   ZX=     0.0000