I want to move the mesh,but I am not able to use the subroutine newxyz? If somebody have simple samples to study?Thanks a lot!

for using any subroutine you need absoft fotran compiler, http://www.cd-adapco.com/products/ST...platforms.html

PI = ACOS(-1.0)
OMEGA = 2856.0

DTHETA = OMEGA*PI*DT/30.

IF(ITER.EQ.0) THEN
DTHETA = 0.0
ENDIF

NV1 = 1
NV2 = 172512

DO 10, I=NV1,NV2
X = VCORN(1,I)
Y = VCORN(2,I)
THETA = ATAN2(Y,X) + DTHETA
R = SQRT(X*X + Y*Y)
VCORN(1,I) = R*COS(THETA)
VCORN(2,I) = R*SIN(THETA)
10 CONTINUE

RETURN
END

Thank you for your help, Wlilliam! I just want to samples like this.It must be helpful to me. I am a novice,hoping have more opportunities to learn from you ! Thanks again!