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

      subroutine xpyp_l (xp,yp,xr,yr,ofi,ofj,delta,ni,nj) 5
      implicit none
*     
      integer ni,nj,ofi,ofj
      real*8 xp(ni),yp(nj)
      real*8 xr,yr,delta,xp_8(ni),yp_8(nj)
**
      integer i,j
      real*8 con
*
*---------------------------------------------------------------------
*
      con = delta
*
      xp(1) = xr
      do i=1,ofi
         xp(1) = xp(1) + con
      end do
      if (xp(1).lt.0.d0) xp(1)=xp(1)+360.
      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