c23456789012345678901234567890123456789012345678901234567890123456789012


      SUBROUTINE new_xxx 

c     ******************************************************************
c
c     This routine updates the state vector
c
c     ******************************************************************

c     -------------
c     Declarations
c     -------------

c     ''''''''''''''''''''''
      implicit none
      include 'commonvar.f'      
c     ''''''''''''''''''''''

c---- Local variables

      integer	n,n1,n2,n3

      real*8	FT_alpha(idim_n_o)




c     ----------------       
c     New state vector
c     ----------------

c---- Product of FT and alpha

      do n1=1,n_o
         FT_alpha(n1) = 0.d0
         do n2=1,n_nl
            FT_alpha(n1) =
     >	    FT_alpha(n1) + FF(n2,n1)*alpha(n2)
         enddo
      enddo


c---- Product of Coa and (beta-FT alpha)

      do n1=1,n_o

         x(n1) = 0.d0
         do n2=1,n_o
            x(n1) = 
     >	    x(n1) + Coa(n1,n2)*(beta(n2)-FT_alpha(n2))
         enddo

      enddo




c     -------------------
c     End of the routine
c     -------------------

      return

      end

c     ******************************************************************

