Fortran Wiki
c_f_procpointer

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

Description

c_f_procpointer(cptr, fptr) assigns the target of the C function pointer cptr to the Fortran procedure pointer fptr.

Standard

Fortran 2003 and later

Class

Subroutine

Syntax

call c_f_procpointer(cptr, fptr)

Arguments

• cptr - scalar of the type c_funptr. It is intent(in).
• fptr - procedure pointer interoperable with cptr. It is intent(out).

Example

program main
 use iso_c_binding
 implicit none
 abstract interface
 function func(a)
 import :: c_float
 real(c_float), intent(in) :: a
 real(c_float) :: func
 end function
 end interface
 interface
 function getIterFunc() bind(c,name="getIterFunc")
 import :: c_funptr
 type(c_funptr) :: getIterFunc
 end function
 end interface
 type(c_funptr) :: cfunptr
 procedure(func), pointer :: myFunc
 cfunptr = getIterFunc()
 call c_f_procpointer(cfunptr, myFunc)
end program main

See also

c_loc, c_f_pointer, iso_c_binding

Revised on April 29, 2009 11:14:55 by Jason Blevins (71.70.142.190) (1132 characters / 0.0 pages)

Edit | Back in time (1 revision) | See changes | History | Views: Print | TeX | Source | Linked from: Intrinsic procedures, c_f_pointer, c_funloc, c_loc, C interoperability, iso_c_binding