Fortran Wiki
c_funloc (Rev #3, changes)

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Showing changes from revision #2 to #3: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

Description

c_funloc(x) determines the C address of the argument.

Standard

Fortran 2003 and later

Class

(削除) Inquiry function (削除ここまで)(追記) Inquiry function (追記ここまで)

Syntax

result = c_funloc(x)

Arguments

• x - Interoperable function or pointer to such function.

Return value

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

Example

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 main
 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 main

See also

c_associated, c_loc, c_f_pointer, c_f_procpointer, iso_c_binding

Revision from May 3, 2009 22:45:19 by Jason Blevins

Forward in time (to current) | Back in time (2 more) | See current | Hide changes | History | Rollback | View: Source | Linked from: Intrinsic procedures, c_associated, c_loc, C interoperability, iso_c_binding