CFD Online Discussion Forums

CFD Online Discussion Forums (http://www.cfd-online.com/Forums/)
-   CD-adapco (http://www.cfd-online.com/Forums/cd-adapco/)
-   -   Who has some samples about subroutine newxyz? (http://www.cfd-online.com/Forums/cd-adapco/55351-who-has-some-samples-about-subroutine-newxyz.html)

jshi May 8, 2006 20:20

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!


dinesh May 9, 2006 01:39

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

William Blake May 9, 2006 02:53

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

jshi May 9, 2006 20:29

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 17:48.