6.35 C_F_POINTER — Convert C into Fortran pointer

Description:

C_F_POINTER(cptr, fptr[, shape]) Assign the target the C pointer cptr to the Fortran pointer fptr and specify its shape.

Standard:

F2003 and later

Class:

Subroutine

Syntax:

CALL C_F_POINTER(cptr, fptr[, shape])

Arguments:

cptr	scalar of the type C_PTR. It is INTENT(IN).
fptr	pointer interoperable with cptr. It is INTENT(OUT).
shape	(Optional) Rank-one array of type INTEGER with INTENT(IN). It shall be present if and only if fptr is an array. The size must be equal to the rank of fptr.

Example:

          program main
            use iso_c_binding
            implicit none
            interface
              subroutine my_routine(p) bind(c,name='myC_func')
                import :: c_ptr
                type(c_ptr), intent(out) :: p
              end subroutine
            end interface
            type(c_ptr) :: cptr
            real,pointer :: a(:)
            call my_routine(cptr)
            call c_f_pointer(cptr, a, [12])
          end program main
     

See also:

C_LOC, C_F_PROCPOINTER