error when defining function inside another function in fortran

user157588 :

For some use I need to define a function inside another function inside a fortran module. A sample code for easy comprehension is

module func
implicit none
contains

real function f(x,y)
real x,y,g

real function g(r)
real r
g=r
end function g

f=x*g(y)
end function f
end module func

use func
implicit none

write(*,*) f(1.0,1.0)
end

This is giving lots of errors in gfortran like unexpected data declaration, expected end function f, not g....etc.

What is the correct way of defining a function inside another function in fortran?

Ian Bush :

You use an internal subprogram, see below. Note internal subprograms themselves can not contain internal subprograms.

ian@eris:~/work/stack$ cat contained.f90
Module func

  Implicit None

Contains

  Real Function f(x,y)

    ! Interface explicit so don't need to declare g
    Real x,y

    f=x*g(y)

  Contains

    Real Function g(r)
      Real r
      g=r
    End Function g

  End Function f

End Module func

Program testit

  Use func

  Implicit None

  Write(*,*) f(1.0,1.0)

End Program testit
ian@eris:~/work/stack$ gfortran-8 -std=f2008 -Wall -Wextra -fcheck=all -O -g contained.f90 
ian@eris:~/work/stack$ ./a.out
   1.00000000    
ian@eris:~/work/stack$ 

Guess you like

Origin http://10.200.1.11:23101/article/api/json?id=390721&siteId=1

error when defining function inside another function in fortran

Js function when passing parameters, if the parameters of the path type, comprising inside: '\' character error

Defining a quadratic function rooting

PHP assign global value the reference of another global value inside a function

When defining a Python function, keep in mind one thing when defining default parameters: default parameters must point to immutable objects!

Fortran call function variable trap

Fortran call function variable trap

Inside the function || Operation outside the function

each function inside each function

Python - Why can't default parameters be placed before required parameters when defining a function?

This understanding arrows inside the function

return function inside with() block

Conditional Rendering Inside A Function

Oop gets corrupted when using in another JNI function

The reason and solution of the error when the transform template function calls the tolower function

Using genetic algorithm function extremum (fortran)

Error when passing variables to C function

Error when passing variables to C function

Compile time error in passing vararg parameter to another function in Kotlin

AI basis - the basis for defining the probability distribution function

Js function and arrow inside the map function usage

Record the little trick when defining the model loading --state_dict or the strict function of torch.nn.Module.load_state_dict()

Error: Invalid hook call. Hooks can only be called inside of the body of a function component. (w/ Reactstrap)

Calling a function from another package

Pass kwargs to another function in Python

addEventListener is not a function, JavaScript reports an error when adding a listening event

An error occurred when dynamically displaying permissions by defining tags

SQL Server returns a list of field data by defining a template function - Dry

Python: Running a for loop to create functions with exec, inside a class, inside a function

Python: Running a for loop to create functions with exec, inside a class, inside a function