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

posdat.f Problems

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

Reply
 
LinkBack Thread Tools Display Modes
Old   February 16, 2006, 01:54
Default posdat.f Problems
  #1
kris
Guest
 
Posts: n/a
I uses STAR-CD v3.26

When OPEN function is included, this kind of problem is occuring.

If posdat.f is excluded, it is working very well without any problems

******************* posdat.f *************************

~~~~~~~ abbrev.~~~~~~

IF(LEVEL.EQ.2) THEN

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

OPEN (84,FILE='MonP.dat',FORM='FORMATTED',STATUS='UNKNO WN') ==> Error position!!!

DO I=1,INUMBER

DO J=1,NCTMXU

IF(IPROSTAR(I) .EQ. ICLMAP(J)) THEN

~~~~~~~ abbrev.~~~~~~

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

******************* Running ********************************

1 5.40E-01 3.13E-01 1.33E+00-1.01E-04 1.40E-05 1.27E-02 1.47E+08 -1.06E-03-1.51E-03 6.03E+00 2.02E+00 6.84E-01 1.92E+01 1.94E+03

-1.97E-07-5.33E-06-3.42E-06 3.58E-07-8.40E-06-7.34E-05 0.00E+00 4.19E-03 6.44E-02 6.35E-05 2.06E-03 9.86E-02 7.18E-01 0.00E+00

-1.60E-05 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00 1.78E-01 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00

[ 1 ] ***Received signal sigsegv - exiting

PNP: Shutdown [2006-02-16-04:13:15] Execution aborted by request (SIGABRT) after 9 seconds (TOTAL ELAPSED TIME).

1060% [kris@node01 transient]#

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

  Reply With Quote

Old   February 16, 2006, 12:05
Default Re: posdat.f Problems
  #2
John Luo
Guest
 
Posts: n/a
It's not easy to see the problem because you only put part of your code, try this IF(LEVEL.EQ.2) THEN

IF(INTFLG(1).EQ.0) THEN OPEN(84,FILE='MonP.dat',FORM='FORMATTED',STATUS='U NKNOWN') INTFLG(1)=1 ENDIF .....

  Reply With Quote

Old   February 20, 2006, 02:42
Default Re: posdat.f Problems
  #3
kris
Guest
 
Posts: n/a
in this code

If OPEN command is NOT included, No Error occures.

If OPEN command is included, Error occures and the result is as follow

******************* Running ********************************

1 5.40E-01 3.13E-01 1.33E+00-1.01E-04 1.40E-05 1.27E-02 1.47E+08 -1.06E-03-1.51E-03 6.03E+00 2.02E+00 6.84E-01 1.92E+01 1.94E+03

-1.97E-07-5.33E-06-3.42E-06 3.58E-07-8.40E-06-7.34E-05 0.00E+00 4.19E-03 6.44E-02 6.35E-05 2.06E-03 9.86E-02 7.18E-01 0.00E+00

-1.60E-05 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00 1.78E-01 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00 0.00E+00

[ 1 ] ***Received signal sigsegv - exiting

PNP: Shutdown [2006-02-16-04:13:15] Execution aborted by request (SIGABRT) after 9 seconds (TOTAL ELAPSED TIME).

1060% [kris@node01 transient]#

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

POSDAT.F Test Source file

!************************************************* ************************

SUBROUTINE POSDAT(KEY,VOL,U,TE,ED,T,P,VIST,DEN,CP,VISM,CON,

* F,ICLMAP,ICTID,RESOR,VF,FORCB,IRN,PREFM,LEVEL) !C Post-process data !C************************************************ ************************* !C--------------------------------------------------------------------------* !C STAR VERSION 3.20.000 * !C--------------------------------------------------------------------------*

INCLUDE 'comdb.inc'

COMMON/USR001/INTFLG(100)

DIMENSION KEY(-NBMAXU:NCTMXU),VOL(NCTMXU),U(3,-NBMAXU:NCMAXU),

* TE(-NBMAXU:NCMAXU),ED(-NBMAXU:NCMAXU),T(-NBMAXU:NCTMXU,1+NSCU),

* P(-NBMAXU:NCMAXU),VIST(-NBMAXU:NCMAXU),DEN(-NBMAXU:NCTMXU),

* CP(-NBMAXU:NCTMXU),VISM(-NBMXVU:NCMXVU),CON(-NBMXCU:NCMXCU),

* F(3,-NBMAXU:NCMAXU),ICLMAP(NCTMXU),ICTID(NCTMXU),

* RESOR(89,-100:100),VF(NCDMXU),FORCB(3,NWLMX),IRN(NWLMX)

DOUBLE PRECISION P

DOUBLE PRECISION T

DOUBLE PRECISION TE

DOUBLE PRECISION ED

DOUBLE PRECISION U

DIMENSION PREFM(4)

INCLUDE 'usrdat.inc'

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='UNKNOWN')

CLOSE(84)

700 FORMAT(A8,1P,I20,I20,I20,I20,I20,I20,I20,I20,I20,I 20,I20

* ,I20,I20,I20,I20,I20,I20,I20,I20,I20,I20,I20) 800 FORMAT(F10.8,1X,E20.13,1X,E20.13,1X,E20.13,1X,E20. 13,

* 1X,E20.13,1X,E20.13,1X,E20.13,1X,E20.13,1X,E20.13, 1X,E20.13,

* 1X,E20.13,1X,E20.13,1X,E20.13,1X,E20.13,1X,E20.13, 1X,E20.13,

* 1X,E20.13,1X,E20.13,1X,E20.13,1X,E20.13,1X,E20.13, 1X,E20.13)

ENDIF

ENDIF

RETURN

end

  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 - other problems kris CD-adapco 0 February 24, 2006 02:05
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 17:18.