1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE VRDIV0(RX,RY,RZ,N,JX,JY,JZ)
5
6      REAL      RX(*),RY(*),RZ(*)
7
8
9      KX=1-JX
10      KY=1-JY
11      KZ=1-JZ
12      DO 10 J=1,N
13        KX=KX+JX
14        KY=KY+JY
15        KZ=KZ+JZ
16        RZ(KZ)=RX(KX)/RY(KY)
17   10 CONTINUE
18
19      END
20