CFD Online Discussion Forums

CFD Online Discussion Forums (http://www.cfd-online.com/Forums/)
-   CD-adapco (http://www.cfd-online.com/Forums/cd-adapco/)
-   -   sample of POSDAT.f (http://www.cfd-online.com/Forums/cd-adapco/56407-sample-posdat-f.html)

Jay January 7, 2008 08:57

sample of POSDAT.f
 
I tracked the tutorial 2.3 and use POSDAT.f subroutine.

There is a sample of POSDAT.f subroutine in STAR-CD.

I just use subroutine itself!! This is the only sample coding part.

-----------------------------------------------------

DIMENSION MONI(5)

DATA MONI/1,105,1230,1231,1232/

IF(LEVEL.EQ.2) THEN

IF(INTFLG(1).EQ.0) THEN

OPEN(85,FILE='MonitU.dat',FORM='FORMATTED', STATUS='UNKNOWN')

INTFLG(1)=1

ENDIF

WRITE(85,*) '1234567'

ENDIF ----------------------------------------------------- I have ver.3.24. But there is no data in 'MonitU.dat' file. Actually it works in ver.3.15. But I should use ver. 3.24 cause of subroutine DROBRK.

Is there any problem above code or version error?


All times are GMT -4. The time now is 23:10.