FORTRAN porting problems with DUNS
Pedro F. Giffuni
giffunip at yahoo.com
Mon Jul 14 21:16:01 PDT 2003
Hi;
I am trying to build a port that can be used along with CalculiX for CFD.
http://sourceforge.net/projects/duns/
Unfortunately our FORTRAN compilers (g77 and f77 from 5.0R) seem unable to
build it, and on the CalculiX list it was suggested I should try gcc-2.95 and
add -traditional in the preprocessor line.
Our gcc-2.95 port doesn't carry FORTRAN, and -traditional is, AFAIK, being
obsoleted in the latest gcc. Any hint on how to fix this would be welcome.
cheers,
Pedro.
ps. I wonder why all our gcc's are listed in Java when the older ones don't
carry Java at all!
________________________________________________________________________
Want to chat instantly with your online friends? Get the FREE Yahoo!
Messenger http://uk.messenger.yahoo.com/
-------------- next part --------------
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,qavg,
^
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,qavg,
^
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,qavg,
^
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,qavg,
^
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,qavg,
^
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,qavg,
^
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,qavg,
^
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,qavg,
^
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.
More information about the freebsd-ports
mailing list