*=*=*=*= reduce_i.html =*=*=*=*
SUBROUTINE reduce_i

SUBROUTINE reduce_i


      SUBROUTINE reduce_i(ni,nj,x,x_r)
c%W%	%G%
c=======================================================================
c
c   Author:    Frederic Hourdin      original: 14/02/93
c   -------
c
c   Subject:
c   ------
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 ni,nj
      REAL x(ni+1,nj),x_r(ni,nj)

c   Local:
c   ------

      INTEGER j
      EXTERNAL SCOPY

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

      DO j=1,nj
       CALL SCOPY(ni,x(1,j),1,x_r(1,j),1)
      ENDDO
      RETURN
      END