program lst2jnb
      character*80 s80,sp,sss
      real*8 x,y
      real*8,allocatable::xs(:),ys(:,:)
      write(6,*)
     1'Arrange spectra in a list to a sigmaplot/excell sheet'
      if(iargc().ne.2)then
       write(6,*)'Usage: lst2jnb <spe.lst> <spe.txt>'
       stop
      else
       call getarg(1,s80)
       call getarg(2,sss)
       do 100 ic=1,2
       open(9,file=s80,status='old')
       is=0
1      read(9,900,err=99,end=99)sp
900    format(a80)
       is=is+1

       open(91,file=sp,status='old')
       np=0
2      read(91,*,end=88,err=88)x,y
       np=np+1
       if(ic.eq.2.and.is.eq.1)xs(np)=x
       if(ic.eq.2)ys(is,np)=y
       goto 2
88     close(91)
       goto 1
99     close(9)
       if(ic.eq.1)then
        write(6,*)is,' spectra ',np,' points'
        allocate(xs(np),ys(is,np))
       endif
100    continue

       open(9,file=sss)
       do 3 i=1,np
       write(9,901)xs(i)
       do 31 j=1,is
31     write(9,902)ys(j,i)
3      write(9,*)
901    format(f12.2,$)
902    format(g12.5,$)
       close(9)

      endif
      end