iy_eq_ix.F

c**********************************************************************
#include "author.inc"
c*    $Id: iy_eq_ix.F,v 1.1 1995/11/14 02:14:34 turner Exp $
c*
c*    Copies integer vector ixx into integer vector iy (iy = ix).
c*
c*    <PARAMETER LIST>
c*
c*     Input:
c*      n - number of elements
c*      ix - vector to be copied
c*
c*     Output:
c*      iy - destination vector
c*      status - return status
c*
#include "copyright.inc"
c**********************************************************************
      subroutine JT_iy_eq_ix (n, ix, iy, status)
      implicit none
c
c ... Input:
      integer n, ix(n)
c
c ... Output:
      integer status, iy(n)
c
c ... Local:
      integer i
c
      do i=1,n
       iy(i) = ix(i)
      enddo
c
      status = 0
      return
      end