Menu
▾
▴
#2 Attempt to build on FreeBSD
Hi;
FreeBSD 5.0R ships with g77 3.2 and I used SUN's fpp
from netlib. the frt77 compiler that uses f2c doesn't
compile Duns either, but the following Makesystem file
(based on the Linux one but heavily modifyied) almost
did.
The only error message I get now is with the 1000 label
on bc.f . The compiler complains about the do not
finishing properly (no label) and loop not ended.
Any hints on what is failing would be welcome.
Makesystem for FreeBSD (g77 and fpp)
Logged In: YES
user_id=678384
I gave up on this. Attached is my latest log file, and the
Makesystem file that should work but doesn't for misterious
reasons (g77-3.2 is probably broken).
_______
fpp -D"real_precision"=real -DFUNDER -DISNAN prepar.F
>prepar.f
f77 -O -ff77 -c prepar.f
prepar.F: In subroutine `prepar':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
prepar.F:156: warning:
call precision(iprec)
^
Reference to unimplemented intrinsic `PRECISION' at (^)
(assumed EXTERNAL)
fpp -D"real_precision"=real -DFUNDER -DISNAN inprepar.F
>inprepar.f
f77 -O -ff77 -c inprepar.f
fpp -D"real_precision"=real -DFUNDER -DISNAN gridread.F
>gridread.f
f77 -O -ff77 -c gridread.f
fpp -D"real_precision"=real -DFUNDER -DISNAN qread.F
>qread.f
f77 -O -ff77 -c qread.f
fpp -D"real_precision"=real -DFUNDER -DISNAN config.F
>config.f
f77 -O -ff77 -c config.f
config.F: In subroutine `config':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
config.F: In subroutine `tracefile':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
fpp -D"real_precision"=real -DFUNDER -DISNAN assemble.F
>assemble.f
f77 -O -ff77 -c assemble.f
fpp -D"real_precision"=real -DFUNDER -DISNAN bcassemble.F
>bcassemble.f
f77 -O -ff77 -c bcassemble.f
fpp -D"real_precision"=real -DFUNDER -DISNAN metric.F
>metric.f
f77 -O -ff77 -c metric.f
fpp -D"real_precision"=real -DFUNDER -DISNAN getintgc.F
>getintgc.f
f77 -O -ff77 -c getintgc.f
fpp -D"real_precision"=real -DFUNDER -DISNAN getaxismap.F
>getaxismap.f
f77 -O -ff77 -c getaxismap.f
fpp -D"real_precision"=real -DFUNDER -DISNAN getsurface.F
>getsurface.f
f77 -O -ff77 -c getsurface.f
fpp -D"real_precision"=real -DFUNDER -DISNAN corners.F
>corners.f
f77 -O -ff77 -c corners.f
fpp -D"real_precision"=real -DFUNDER -DISNAN rdist.F >rdist.f
f77 -O -ff77 -c rdist.f
fpp -D"real_precision"=real -DFUNDER -DISNAN interpold.F
>interpold.f
f77 -O -ff77 -c interpold.f
fpp -D"real_precision"=real -DFUNDER -DISNAN timestp.F
>timestp.f
f77 -O -ff77 -c timestp.f
timestp.F: In subroutine `timestp':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
fpp -D"real_precision"=real -DFUNDER -DISNAN preset.F
>preset.f
f77 -O -ff77 -c preset.f
fpp -D"real_precision"=real -DFUNDER -DISNAN step1.F
>step1.f
f77 -O -ff77 -c step1.f
step1.F: In subroutine `step1':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
fpp -D"real_precision"=real -DFUNDER -DISNAN update.F
>update.f
f77 -O -ff77 -c update.f
update.F: In subroutine `update':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
fpp -D"real_precision"=real -DFUNDER -DISNAN intupdate.F
>intupdate.f
f77 -O -ff77 -c intupdate.f
fpp -D"real_precision"=real -DFUNDER -DISNAN check.F
>check.f
f77 -O -ff77 -c check.f
fpp -D"real_precision"=real -DFUNDER -DISNAN rhsupwind.F
>rhsupwind.f
f77 -O -ff77 -c rhsupwind.f
fpp -D"real_precision"=real -DFUNDER -DISNAN lhs.F >lhs.f
f77 -O -ff77 -c lhs.f
lhs.F: In subroutine `lhs':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
lhs.F: In subroutine `lhs_spec':
include/dualtime.Inc:22: warning:
common/dual1/delt,time,timetrace,th,gamdt,qn,qnm1,qnm2,qa
vg,
^
Padding of 4 bytes required before `qavg' in common block
`dual1' at (^) -- consider reordering members, largest-type-
size first
fpp -D"real_precision"=real -DFUNDER -DISNAN eos.F >eos.f
f77 -O -ff77 -c eos.f
eos.F: In subroutine `eos':
eos.F:217: warning:
zcmp(n) = yic(n,2)
^
Array element value at (^) out of defined range
eos.F:222: warning:
rc(n) = rliq*yic(n,1) + yic(n,2)*pc(n)/(rgt*tc(n))
^
Array element value at (^) out of defined range
eos.F:224: warning:
hst(n) = cpliq*yic(n,1) + gm*rgas/g1*yic(n,2)
^
Array element value at (^) out of defined range
eos.F:231: warning:
rspn = yic(n,2)/(rgas*tc(n))
^
Array element value at (^) out of defined range
eos.F:237: warning:
rst(n) = -yic(n,2)*rc(n)/tc(n)/dnm1
^
Array element value at (^) out of defined range
eos.F:243: warning:
vis(n) = yic(n,1)*rmuliq + yic(n,2)*rmu0
^
Array element value at (^) out of defined range
eos.F:244: warning:
tcnd(n)= yic(n,1)*tcndliq + yic(n,2)*hst(n)*rmu0/pr
^
Array element value at (^) out of defined range
eos.F:246: warning:
rdif(n,2)=vis(n)
^
Array element value at (^) out of defined range
eos.F: In subroutine `eosbc':
eos.F:905: warning:
zcmp(ncl)=yic(ncl,2)
^
Array element value at (^) out of defined range
eos.F:910: warning:
rc(ncl) = rliq*yic(ncl,1) + yic(ncl,2)*pc(ncl)/(rgt*tc
(ncl))
^
Array element value at (^) out of defined range
eos.F:912: warning:
hst(ncl) = cpliq*yic(ncl,1) + gm*rgas/g1*yic(ncl,2)
^
Array element value at (^) out of defined range
eos.F:919: warning:
rspn = yic(ncl,2)/(rgas*tc(ncl))
^
Array element value at (^) out of defined range
eos.F:925: warning:
rst(ncl) = -yic(ncl,2)*rc(ncl)/tc(ncl)/dnm1
^
Array element value at (^) out of defined range
eos.F:931: warning:
vis(ncl)=yic(ncl,1)*rmuliq + yic(ncl,2)*rmu0
^
Array element value at (^) out of defined range
eos.F:932: warning:
tcnd(ncl)=yic(ncl,1)*tcndliq + yic(ncl,2)*hst(ncl)
*rmu0/pr
^
Array element value at (^) out of defined range
eos.F:934: warning:
rdif(ncl,2)=vis(ncl)
^
Array element value at (^) out of defined range
eos.F:954: warning:
zcmp(ncl)=yic(ncl,2)
^
Array element value at (^) out of defined range
eos.F:959: warning:
rc(ncl) = rliq*yic(ncl,1) + yic(ncl,2)*pc(ncl)/(rgt*tc
(ncl))
^
Array element value at (^) out of defined range
eos.F:961: warning:
hst(ncl) = cpliq*yic(ncl,1) + yic(ncl,2)*gm*rgas/g1
^
Array element value at (^) out of defined range
eos.F:968: warning:
rspn = yic(ncl,2)/(rgas*tc(ncl))
^
Array element value at (^) out of defined range
eos.F:974: warning:
rst(ncl) = -yic(ncl,2)*rc(ncl)/tc(ncl)/dnm1
^
Array element value at (^) out of defined range
eos.F:980: warning:
vis(ncl)=yic(ncl,1)*rmuliq + yic(ncl,2)*rmu0
^
Array element value at (^) out of defined range
eos.F:981: warning:
tcnd(ncl)=yic(ncl,1)*tcndliq + yic(ncl,2)*hst(ncl)
*rmu0/pr
^
Array element value at (^) out of defined range
eos.F:983: warning:
rdif(ncl,2)=vis(ncl)
^
Array element value at (^) out of defined range
fpp -D"real_precision"=real -DFUNDER -DISNAN sprop.F
>sprop.f
f77 -O -ff77 -c sprop.f
fpp -D"real_precision"=real -DFUNDER -DISNAN spropck.F
>spropck.f
f77 -O -ff77 -c spropck.f
fpp -D"real_precision"=real -DFUNDER -DISNAN turbsource.F
>turbsource.f
f77 -O -ff77 -c turbsource.f
fpp -D"real_precision"=real -DFUNDER -DISNAN turbeddy.F
>turbeddy.f
f77 -O -ff77 -c turbeddy.f
fpp -D"real_precision"=real -DFUNDER -DISNAN bc.F >bc.f
f77 -O -ff77 -c bc.f
bc.F: In subroutine `bc':
bc.F:62:
do 1000 ibck=1,iblock
1
bc.F:551: (continued):
end
2
Statement at (2) invalid in context established by statement
at (1)
bc.F:62:
do 1000 ibck=1,iblock
^
End of source file before end of block started at (^)
*** Error code 1
Stop in /usr/ports/cad/duns/work/Duns/src.
Makesystem for FreeBSD (g77 and fpp)
New Makesystem for FreeBSD (g77 and fpp)
Logged In: YES
user_id=678384
I evidently missunderstood the building procedure. -traditional-
cpp is required too. I am attaching a new Makesystem for
FreeBSD.