program wrlist
      implicit none
c     one-purpusse program to make spectral list etc for decomposition
      integer*4 psimin,fimin,fimax,psimax,dfi,dpsi,is,fi,istart,
     1fs,psi,jstart
      character*10 s10,p10
      psimin=-180
      fimin=-180
      fimax=162
      psimax=162
      dfi=18
      dpsi=18
      open(8,file='SP.LST')
      write(8,*)'new-AcANHMe_20C_2__tot_ROAs.prn'
      open(9,file='ANGLE.LST')
      is=0
      do 1 fi=fimin,fimax,dfi
      write(s10,100)fi
100   format(i10)
      istart=fs(s10)
      do 1 psi=psimin,psimax,dpsi
      write(p10,100)psi
      jstart=fs(p10)
      write(8,*)
     1'f'//s10(istart:len(s10))//'_'//p10(jstart:len(p10))//'.log.prn'
      write(9,900)is+1,fi,psi
900   format(3i10)
1     is=is+1
      write(6,*)is,' spectra '
      stop
      end

      function fs(s)
      implicit none
      character*(*) s
      integer*4 fs,istart
      do 2 istart=1,len(s)
2     if(s(istart:istart).ne.' ')goto 3
3     fs=istart
      return
      end