*=*=*=*= add_tend.html =*=*=*=*
SUBROUTINE add_tend

SUBROUTINE add_tend


      SUBROUTINE add_tend(n,dt,dx,xi,xf)
c%W%	%G%
c=======================================================================
c
c   Author:    Frederic Hourdin      original: 17/02/93
c   -------
c
c   Subject:
c   ------
c   Ajout d'une tendance. OUAOUH!
c
c   Method:
c   --------
c
c   Interface:
c   ----------
c
c      Input:
c      ------
c
c      Output:
c      -------
c
c=======================================================================
      IMPLICIT NONE
c-----------------------------------------------------------------------
c   Declararations:
c   ---------------

c   Arguments:
c   ----------
      INTEGER n
      REAL xi(n),dx(n),dt,xf(n)

c   Local:
c   ------
      INTEGER i

c-----------------------------------------------------------------------

      DO i=1,n
         xf(i)=xi(i)+dt*dx(i)
      ENDDO

      RETURN
      END