---

Manual Reference Pages  - c_funloc (3fortran)

---

NAME

C_FUNLOC(3) - [ISO_C_BINDING] Obtain the C address of a procedure

SYNOPSIS

result = c_funloc(x)

CHARACTERISTICS

DESCRIPTION

C_FUNLOC(3) determines the C address of the argument.

OPTIONS

o	X : Interoperable function or pointer to such function.

RESULT

The return value is of type c_funptr and contains the C address of the argument.

EXAMPLES

Sample program:

    ! program demo_c_funloc and module
    module x
    use iso_c_binding
    implicit none
    contains
    subroutine sub(a) bind(c)
    real(c_float) :: a
       a = sqrt(a)+5.0
    end subroutine sub
    end module x
    !
    program demo_c_funloc
    use iso_c_binding
    use x
    implicit none
    interface
       subroutine my_routine(p) bind(c,name=’myC_func’)
         import :: c_funptr
         type(c_funptr), intent(in) :: p
       end subroutine
    end interface
       call my_routine(c_funloc(sub))
    !
    end program demo_c_funloc

STANDARD

Fortran 2003

SEE ALSO

C_ASSOCIATED(3), C_LOC(3), C_F_POINTER(3),

C_F_PROCPOINTER(3), ISO_C_BINDING(3)

fortran-lang intrinsic descriptions

---

Nemo Release 3.1

c_funloc (3fortran)

April 28, 2024

Generated by manServer 1.08 from e2175dac-867c-4193-8bf2-329499c41832 using man macros.