Who has some samples about subroutine newxyz?
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!
|
Re: Who has some samples about subroutine newxyz?
for using any subroutine you need absoft fotran compiler, http://www.cd-adapco.com/products/ST...platforms.html
|
Re: Who has some samples about subroutine newxyz?
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 |
Re: Who has some samples about subroutine newxyz?
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!
|
All times are GMT -4. The time now is 07:01. |