CVF6.6 to IFC7.0 having some problems..

[heedory]

first..
I'm not a programmer..
just 'change some value and run' a very large and old F77 based CFD code "kiva'.
please understand if my problem looks nothing..

everything is OK with CVF, but with IFC,
I can see many warnings and errors

typically,
.kiva3v.f(709): Error 22 : invalid real constant
if(enx(n).lt.1.0e+49) then
occured at exp term..


kiva3v.f(8390): Error 191 : This argument has either the wrong type or no type
spdi41=dmax1(spd(i4,1),0.)
occured at dmax function..

please give me some help..
thanks

[Steven_L_Intel1]

I think we'd need to see an actual compilable source. Can you cut it down to something small that we can look at?

Steve

[heedory]

thanks for your concern.
full project is too large to attach,
if you want, mail me heedory2@kornet.net
and some part is here.

do 90 i4=ifirst,ncells
spdi41=dmax1(spd(i4,1),0.)
!error 191:this argument has either the wrong or
!no type
dente=fam(1,1)*spd(i4,2)*mw(1)
den=dente
if(dente.le.0.) den=1.e-10
phi(i4)=fam(2,1)*spdi41*mw(2)/den
90 continue
.
.
.
do 30 i4=ifirst,ncells
sum3(i4)=0.
sum2(i4)=0.
30 continue
sm2max=0.
do 40 n=1,np
if(i4mom(n).gt.999999) goto 40
i4=i4p(n)
if(partn(n).lt.0)partn(n)=1.0
sum3(i4)=sum3(i4)+partn(n)*radp(n)**3
sum2(i4)=sum2(i4)+partn(n)*radp(n)**2
sm2max=dmax1(sm2max,sum2(i4))
!error 191:this argument has either the wrong or
!no type
40 continue
.
.
if(phidmx.eq.0.0) return
do 5 n=1,nregions
tkemin(n)=1.e+100
tkemax(n)=-1.e+100
epsmin(n)=1.e+100
epsmax(n)=-1.e+100
! error 22: invalid real constant
5 continue
.
.
do 15 n=1,nregions
pmin(n)=1.0e+100
pmax(n)=-1.0e+100
! error 22: invalid real constant
15 continue

[Steven_L_Intel1]

Looks as if your code assumes that "default real" is double precision. It wouldn't compile with CVF using the default settings either.

Try adding /4R8 to the compile command.

Steve