Need help to compile FDS

[ocha...@ucalgary.ca]

Dear Sirs,

I update FDS_Source and FDS_Compilation today using svn update and
compiled them.

I used gnu_linux_64 and got error:

-bash-3.00$ make gnu_linux_64
gcc -c -O3 -unroll -static isob.c
gfortran -c -O3 -unroll -static -frecord-marker=4 prec.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 mpis.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 smvv.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 cons.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 devc.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 type.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 mesh.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 func.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 irad.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 ieva.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 pois.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 scrc.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 radi.f90
gfortran -c -O3 -unroll -static -frecord-marker=4 evac.f90
In file evac.f90:3827

IF (EDV%N_INPUTS==40) EXIT INPUT_COUNT
1
Error: Expected VARIABLE at (1)
In file evac.f90:3828

IF (INPUT_ID(EDV%N_INPUTS+1)=='null') EXIT INPUT_COUNT
1
Error: Expected VARIABLE at (1)
make: *** [evac.o] Error 1

After that I used mpi_intel_linux_64 and got error:

[ochaikin@nunatak3 FDS-SMV]$ cd FDS_C*
[ochaikin@nunatak3 FDS_Compilation]$ make mpi_intel_linux_64
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/mpip.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/evac.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/part.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/vege.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/ctrl.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/turb.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/dump.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/hvac.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/read.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/mass.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/wall.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/fire.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/divg.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/init.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/velo.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/pres.f90
mpif77 -c -m64 -O3 -vec_report0 ../FDS_Source/main.f90
mpif77 -m64 -O3 -vec_report0 -o fds5_mpi_intel_linux_64 isob.o prec.o
mpip.o smvv.o cons.o devc.o type.o mesh.o func.o irad.o ieva.o pois.o
scrc.o radi.o evac.o part.o vege.o ctrl.o turb.o dump.o hvac.o read.o
mass.o wall.o fire.o divg.o init.o velo.o pres.o main.o
ifort: Command line warning: ignoring unknown option '-m64'
IPO Warning: can not find "mpip.o"
IPO Warning: can not find "evac.o"
IPO Warning: can not find "part.o"
IPO Warning: can not find "vege.o"
IPO Warning: can not find "ctrl.o"
IPO Warning: can not find "turb.o"
IPO Warning: can not find "dump.o"
IPO Warning: can not find "hvac.o"
IPO Warning: can not find "read.o"
IPO Warning: can not find "mass.o"
IPO Warning: can not find "wall.o"
IPO Warning: can not find "fire.o"
IPO Warning: can not find "divg.o"
IPO Warning: can not find "init.o"
IPO Warning: can not find "velo.o"
IPO Warning: can not find "pres.o"
IPO Warning: can not find "main.o"
ld: mpip.o: No such file: No such file or directory
make: *** [mpi_intel_linux_64] Error 1

Can you please tell me what I do wrong?

Thanks,
Olga Chaikina
ES428,Department of Geography
University of Calgary
Calgary, AB, Canada, T2N 1N4

Phone: (403) 210-5422

[Kevin]

What version of the Intel compiler are you using? And what type of
machine?

[TimoK]

Well, this might once again be related to the fact
that there is a namelist "/EXIT/" defined in evac.f90.
And exit is also a Fortran keyword.

Check the Issue 754:
Request for change of EXIT namelist in evac.f90
http://code.google.com/p/fds-smv/issues/detail?id=754&can=5

If this is the case then the work around is to rename
the /EXIT/ namelist in evac.f90, say to "EEXI". Of course,
then you should change the input file also, if you are
doing evacuation.

I checked the evac.f90 and you should do renaming
at least in five different lines:

NAMELIST /EXIT/ ID, XB, IOR, FLOW_FIELD_ID, CHECK_FLOW, &

CALL CHECKREAD('EXIT',LU_INPUT,IOS)

READ(LU_INPUT,NML=EXIT,END=223,ERR=224,IOSTAT=IOS)

CALL CHECKREAD('EXIT',LU_INPUT,IOS)

READ(LU_INPUT,EXIT,END=26,IOSTAT=IOS)

If this does not help, then it is some other thing...

TimoK

[TimoK]

Well, this might be related to issue 754, but I just sended
to the SVN a new version of evac.f90. I was trying to
compile on our Linux cluster using some compiler
(in the makefile mpif77, not the Intel ifort), so
I got the same error messages.

The new lines are like:

INPUT_COUNT: DO
IF (EDV%N_INPUTS==40) THEN
EXIT INPUT_COUNT
END IF
IF (INPUT_ID(EDV%N_INPUTS+1)=='null') THEN
EXIT INPUT_COUNT
END IF
EDV%N_INPUTS = EDV%N_INPUTS + 1

And the old ones used to be:

INPUT_COUNT: DO
IF (EDV%N_INPUTS==40) EXIT INPUT_COUNT

IF (INPUT_ID(EDV%N_INPUTS+1)=='null') EXIT INPUT_COUNT

EDV%N_INPUTS = EDV%N_INPUTS + 1

So, this is really a compiler bug (or feature...). Why the
branched version of the IF works, and the non-branched one not?

Ciao,
TimoK