CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > CD-adapco

posdat.f - other problems

Register Blogs Members List Search Today's Posts Mark Forums Read

Reply
 
LinkBack Thread Tools Display Modes
Old   February 24, 2006, 02:05
Default posdat.f - other problems
  #1
kris
Guest
 
Posts: n/a
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).

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

  Reply With Quote

Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
CFL in posdat hamodi CD-adapco 2 August 6, 2007 02:27
posdat.f Problems kris CD-adapco 2 February 20, 2006 02:42
POSDAT Sheila CD-adapco 2 February 8, 2006 12:08
posdat in HPC Won-Geun Lee CD-adapco 0 May 23, 2001 20:03
Posdat Maria Carlsson CD-adapco 1 April 30, 2001 10:29


All times are GMT -4. The time now is 05:57.