[SOLVED] GFortran compilation error

AlexBB · 10-25-2014, 01:44 PM

Hi there. I am trying to compile a simple Gfortran program with one function in it. I get a single compilation error which I cannot resolve. Please help

Code:

!Computation of LP
        program LP
! angle xx is in degrees. It is being converted to radians.
          real*8 :: xx, res
          integer*4 :: ll,mm
          xx = 20.0
          ll = 20
          mm = 5
          res = methodDirect (xx,ll,mm)
800       format (e12.3)
          write (*,800) res
        end program LP

        function methodDirect (xx,ll,mm)
!          xx is the angle in degrees. Has to be converted to radians
           real*8 :: xx, methodDirect
           real*8, parameter :: pi = 3.1415927
           integer*4 :: ll,mm
!          converting to radians:
           xx = xx * pi / 180.0
           methodDirect = xx
        end function methodDirect

The error is:

Code:

res = methodDirect (xx,ll,mm)
                     1
Error: Return type mismatch of function 'methoddirect' at (1) (INTEGER(4)/REAL(8))

I cannot understand why it claims that I have a mismatch unless I am blind.

Thanks, - Alex

smallpond · 10-25-2014, 02:43 PM

Warning: my last use of Fortran was in some previous century.

methodDirect is not explicitly declared, so being in the range I-N it defaults to integer. You need to declare it real to return a real result.

Code:

       real function methodDirect(xx,ll,mm)

AlexBB · 10-25-2014, 05:36 PM

I tried that before with the same error:

Code:

real*8 function methodDirect (xx,ll,mm)

This Cambridge pdf manual in Fortran95 suggests that the function can be declared inside the function body which I also did and it compiled:

Code:

function f(x)
   real :: f, x
   f = x**3 + x - 3.0
end function f

AlexBB · 10-25-2014, 06:57 PM

I finally cracked it. The function must be declared in the main body of the program:

Code:

real*8 :: xx, res, methodDirect