Compilation Error....

Arnab

Hello All,

I am trying to run tutorial 11 from star-CD version 3.2 . once I complete writing geometry and problem file, I save and quit and then from main terminal, i run star by writing star into it.

But i get this compilation error messages and I am not able to make them right. So can anyone of you help me with this problem.

The compilation error message and also the uparm.f file is below for your consideration.

Compilation Error message:

mesolv% star

PNP: Initialized [2004-09-11-19:07:59] Automatic Sequential Automatic Parallel analyzer.

PNP: Allocated "mesolv,1" resource (1 process).

PNP: Overload STAR master processor with external moving mesh code.

PNP: Assigned "mesolv,1" to STAR solver (1 process).

PNP: Assigned "mesolv,1" to external moving mesh code (1 process).

PNP: Analyzing User coding in "ufile" directory.

PNP: compiling /mnt/SUNWspro/bin/f90 -w -fast -xarch=v9a -c uparm.f -o sunos64_5.8-ultra2-f90_6.1-dso/uparm.o

PNP:

PNP: NDOM=0

PNP: ^

PNP: "uparm.f", Line = 12, Column = 6:

ERROR: The source line following an INCLUDE line must not be a continuation line.

PNP:

PNP: IF(ISTAT.EQ.1) NDOM=NDOM+1

PNP: ^

PNP: "uparm.f", Line = 23, Column = 7:

ERROR: Unexpected syntax: "EOS" was expected but found "F".

PNP:

PNP: I(0) = NDOM

PNP: ^

PNP: "uparm.f", Line = 26, Column = 5:

ERROR: The characters found in the label field are not valid.

PNP: ^

PNP: "uparm.f", Line = 26, Column = 7:

ERROR: Unexpected syntax: "EOS" was expected but found "0".

PNP:

PNP: NUP = 0

PNP: ^

PNP: "uparm.f", Line = 27, Column = 5:

ERROR: The characters found in the label field are not valid.

PNP:

PNP: DO 20 IC=2473,3061,14

PNP: ^

PNP: "uparm.f", Line = 31, Column = 5:

ERROR: The characters found in the label field are not valid.

PNP:

PNP: CALL LIVCLL(IC,STAT)

PNP: ^

PNP: "uparm.f", Line = 32, Column = 5:

ERROR: The characters found in the label field are not valid.

PNP:

PNP: IF(ISTAT.EQ.1) NUP=NUP+1

PNP: ^

PNP: "uparm.f", Line = 33, Column = 5:

ERROR: The characters found in the label field are not valid.

PNP:

PNP: 20 CONTINUE

PNP: ^

PNP: "uparm.f", Line = 34, Column = 3:

ERROR: A continuation line must not contain a label.

PNP:

PNP: I(1) = NUP

PNP: ^

PNP: "uparm.f", Line = 35, Column = 5:

ERROR: The characters found in the label field are not valid.

PNP:

PNP: f90comp: 187 SOURCE LINES

PNP: f90comp: 10 ERRORS, 0 WARNINGS, 0 OTHER MESSAGES, 0 ANSI

PNP: ***ERROR*** Compilation error in user file "ufile/uparm.f".

PNP: ==> Please check the compilation error messages.

mesolv%

-------------------------------------------------------

UPARM.f file::

-------------

SUBROUTINE UPARM(VCORN,A,I)

INCLUDE 'comdb.inc'

COMMON/USR001/INTFLG(100)

DIMENSION A(0:999),I(0:999)

DIMENSION VCORN(3,NDMAXU)

INCLUDE 'usrdat.inc'

NDOM=0

DO 10 IC=14,602,14

CISTAT= 0 => DELETED

CISTAT= -1 => MARKED FOR DELETION

CISTAT=- 2 => NO SUCH FLUID CELL (may BE SOLID, BAFFLE,SHELL ETC)

CISTAT= 1 => LIVE CELL

CALL LIVCLL(IC,ISTAT)

IF(ISTAT.EQ.1) NDOM=NDOM+1

10 CONTINUE

I(0) = NDOM

NUP = 0

DO 20 IC=2473,3061,14

CALL LIVCLL(IC,STAT)

IF(ISTAT.EQ.1) NUP=NUP+1 20 CONTINUE

I(1) = NUP

A(0)=DT

RETURN

END

------------------------------------------------------