Hi,
I have a simple recursive function that causes compilation with ifc to fail. It's as if recursion is not being allowed. The errors reported are:
The code compiles fine with PGI and SGI MIPSPro compilers. Here is the function:
I don't see any relevant options in the manual, that I am not already using. I am compiling with the flags: -O2 -opt_report -WB -mp -openmp -fpp1 -auto -pc64 -c -cm -w95 -tpp7 -xW.
Thanks for any suggestions,
jfk.
You might try writing the function like this:
RECURSIVE FUNCTION splinen(x,n) RESULT(answer)
REAL x
INTEGER n,answer
IF(n.eq.1) THEN
IF(x.ge.-0.5 .and. x<0.5 ) THEN
answer = 1
ELSE
answer = 0
END IF
RETURN
ENDIF
IF(abs(x)>n/2.) THEN
answer = 0
RETURN
ENDIF
answer = ( (x+n/2.)*splinen(x+0.5,n-1)+(n/2.-x)*splinen(x-0.5,n-1))/(n-1)
END FUNCTION splinen
Obviously I didn't look closely enough at the code to see that the problem was not the recursive call but the variable with the same name as the function :) So your suggestion of course fixed the problem. Many thanks.