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