copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
***s/r xpyp_n
*

      subroutine xpyp_n (xp,yp,xr,yr,ofi,ofj,d60,ni,nj) 5
      implicit none
*     
      integer ni,nj,ofi,ofj
      real*8 xp(ni),yp(nj),xr,yr,d60
**
      integer i,j
      real*8 con
*
*---------------------------------------------------------------------
*
      con = d60 / 1000.
*
      xp(1) = xr
      do i=1,ofi
         xp(1) = xp(1) + con
      end do
      do i=2,ni
         xp(i) = xp(i-1) + con
      end do
*
      yp(1) = yr
      do j=1,ofj
         yp(1) = yp(1) + con
      end do
      do j=2,nj
         yp(j) = yp(j-1) + con
      end do
*
*---------------------------------------------------------------------
*
      return
      end