Emergency~~~~help me~~

Charlse

I try to get data using posdat.f on Window system.

I can get the result on the SCREEN with below subroutine.

------------------------------------------------------- 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 -------------------------------------------------------

But when I try to save the result in the FILE,

the FILE (MonitU.dat) can be created. But the results

are not printed in the FILE.

What is the problem?

p.s) I use same subroutine(posdat.f) in ver. 3.15.

Then I can get the data file.