How to pass subroutine names as arguments in Fortran?

by

It is

call action(mySubX)

provided action looks as

subroutine action(sub)
  !either - not recommmended, it is old FORTRAN77 style
  external sub
  !or - recommended
  interface
    subroutine sub(aA, aB)
      integer,intent(...) :: aA, aB
    end subroutine
  end interface
  ! NOT BOTH!!

  call sub(argA, argB)

provided action knows what to put there as argA, argB to represent aA, aB.

Otherwise, if you want to pass also the arguments

call action(mySubX, argA, argB)

subroutine action(sub, argA, argB)
  !either - not recommmended, it is old FORTRAN77 style
  external sub
  !or - recommended
  interface
    subroutine sub(aA, aB)
      integer,intent(...) :: aA, aB
    end subroutine
  end interface

  integer, intent(...) :: argA, argB

  call sub(argA, argB)

I don’t think it is good to use function pointers here, they are good when you have to change the value of the pointer (the subroutine it points to) sometimes. Normal procedure arguments worked in FORTRAN77 and continue to work even now.

So as requested in the comment, if you are in a module and procedure with the right interface is accessible from the module (perhaps in the same module), you can use the procedure statement to get rod of the interface block:

module subs_mod
contains
  subroutine example_sub(aA, aB)
    integer,intent(...) :: aA, aB
    !the real example code
  end subroutine
end module

module action_mod
contains

  subroutine action(sub)
    use subs_mod
    procedure(example_sub) :: sub

    call sub(argA, argB)
  end subroutine
end module

but more likely, instead of a real subroutine you will create an abstract interface which you would reference with the procedure statement so in the end everything will be similar as before:

module action_mod

  abstract interface
    subroutine sub_interface(aA, aB)
      integer,intent(...) :: aA, aB
    end subroutine
  end interface

contains

  subroutine action(sub)
    procedure(sub_interface) :: sub

    call sub(argA, argB)
  end subroutine
end module

More Related Contents:

  1. Line truncated, Syntax error in argument list
  2. Passing size as argument VS assuming shape in Fortran procedures
  3. Fortran 90 kind parameter
  4. Unexpected “padding” in a Fortran unformatted file
  5. Correct use of modules, subroutines and functions in Fortran
  6. Fortran assignment on declaration and SAVE attribute gotcha
  7. MPI_Recv overwrites parts of memory it should not access
  8. changing array dimensions in fortran
  9. Fortran OpenMP program shows no speedup of CPU_TIME()
  10. Function has no implicit type
  11. ‘*’ and ‘/’ not recognized on input by a read statement
  12. Does Fortran preserve the value of internal variables through function and subroutine calls?
  13. What are the ways to pass a set of variable values through the subroutine to a function without common block?
  14. how to write wrapper for ‘allocate’
  15. gfortran does not allow character arrays with varying component lengths
  16. How do I do big integers in Fortran?
  17. What does “real*8” mean?
  18. What is the purpose of result variables in Fortran?
  19. Fortran IF statement with numbers/labels rather than another statement
  20. Using a deferred-length character string to read user input
  21. Providing an argument that has not the TARGET attribute to a procedure with a dummy argument that has the TARGET attribute
  22. Reading writing fortran direct access unformatted files with different compilers
  23. Strange label usage for an IF condition in a DO loop [duplicate]
  24. Fortran OpenMP with subroutines and functions
  25. Difference between intent(out) and intent(inout)
  26. Error: Nonnegative width required in format string at (1)
  27. Using do loop in a Fortran 90 program to read different number of lines for n frames?
  28. Allocatable array valued function. gfortran vs ifort
  29. Fortran SAVE statement
  30. MPI_Gather gives seg fault in the most basic code

Leave a Comment