posdat.f - other problems
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). ************************************************* |
All times are GMT -4. The time now is 10:01. |