program nmr_to_prn
      character*80 f1,f2 ,s80
      real*8 left,right,y
      i=iargc()
      if(i.ne.2)then
       write(6,*)'Usage: nmr_to_prn .textfile .prn file'
       stop
      endif
      call getarg(1,f1)
      call getarg(2,f2)
      np=0
2     open(10,file=f1) 
      open(20,file=f2) 
      read(10,800)s80
800   format(a80)
      if(s80(3:8).eq.'LEFT =')read(s80(9:27),*)left
      if(s80(3:8).eq.'LEFT =')read(s80(41:59),*)right
      if(s80(3:8).eq.'SIZE =')read(s80(9:15),*)np
      if(s80(1:1).ne.'#')then
       backspace(10)
       do 1 i=1,np
       read(10,*)y
1      write(20,200)left+(right-left)*dble(i-1)/dble(np-1),y
200    format(f12.6,' ',g18.6)
       close(10)
      else
       goto 2
      endif
      close(20)
      write(6,*)np,' points'
      stop
      end