posdat.f - other problems

kris

My cluster environment is AMD-Opteron-64bit,Absoft-fortran 9.0 and REDHat enterprise

If FORMAT statement is removed, this code work very well

What is the cause for ERROR?

******************* posdat.f Code(TEST)***********

DIMENSION IPROSTAR(100),ISTAR(100),IBOOL(100)

DATA IPROSTAR/100*1/

DATA IBOOL/100*0/

DATA ISTAR/100*1/

IF(LEVEL.EQ.2) THEN

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

OPEN(84,FILE='MonP.dat',FORM='FORMATTED',STATUS='U NKNOWN')

OPEN(85,FILE='IPROSTAR',FORM='FORMATTED',STATUS='U NKNOWN')

OPEN(86,FILE='ISTAR',FORM='FORMATTED',STATUS='UNKN OWN')

OPEN(87,FILE='IBOOL',FORM='FORMATTED',STATUS='UNKN OWN')

OPEN(88,FILE='MonT.dat',FORM='FORMATTED',STATUS='U NKNOWN')

OPEN(89,FILE='MonSEC.dat',FORM='FORMATTED',STATUS= 'UNKNOWN')

CLOSE(84)

CLOSE(85)

CLOSE(86)

CLOSE(87)

CLOSE(88)

CLOSE(89)

ENDIF

700 FORMAT(I20)

ENDIF

RETURN

END

*****************************************

************** Error Message***************

? FORTRAN Runtime Error:

? Bad iolist specifier

? OPEN(UNIT=84,...

PNP: Shutdown [2004-10-22-03:28:36] Execution aborted by request (SIGABRT) after 14 seconds (TOTAL ELAPSED TIME).

*************************************************