Fortran Troubleshooting Function Call Error in Subroutine

[autobot.d]

So I am making a module to run in the main program. The module contains a subroutine and several functions. I want to call one of the functions into the subroutine but it is not getting recognized. I am just doing

Real :: fct %fct is the function name that returns a real value

but when I try to use the function i get the error

Error: Unclassifiable statement at (1)

I also tried

Real, external :: fct

but the same problem occurs.

 

[uart]

I'm not a Fortran expert, and I've only used Fortran95, but defining functions like in the following (trivial example) works for me.

!  Example using modules
module module1
implicit none
contains

 function times2(x)
 real :: times2,x

   times2 = x*2.0

 end function times2

end module module1

 

[autobot.d]

I get that part, but calling that function inside a subroutine in the module as follows:

!Example using modules
module module1
implicit none
contains

 function times2(x)
 real :: times2,x

   times2 = x*2.0

 end function times2

!This is what I am wondering about

subroutine proc(input1)
real :: input1
real :: times2  !This does not seem to work for me
                    !Nor does real, external :: times2
times2(input1)

end subroutine procend module module1

 

[uart]

I get that part, but calling that function inside a subroutine in the module as follows:

Oh I see, you're making much the same mistake as in your previous question. :)

You are redefining "times2" as just a plain old variable (instead of a function) inside the scope of the subroutine.

All you need is this :

!Example using modules
module module1
implicit none
contains

 function times2(x)
 real :: times2,x

   times2 = x*2.0

 end function times2

 subroutine printx2(input1)
 real :: input1

   print *,times2(input1)

 end subroutine printx2

end module module1

 

[autobot.d]

now I get the error using your modifications

times2(input1)
1 (1 is under first parenthesis)
Error: 'times2' at (1) is not a variable?

 

[uart]

now I get the error using your modifications

times2(input1)
1 (1 is under first parenthesis)
Error: 'times2' at (1) is not a variable?

It should work, functions defined in the same module should be accessible to each other without any explicit interfacing. It works ok for me in "g95" Fortran, what Fortran compiler are you using?

BTW. Can you post the exact code you're trying to compile?