foo Subroutine

subroutine foo(x)

Uses

  • proc~~foo~2~~UsesGraph proc~foo~2 foo iso_c_binding iso_c_binding proc~foo~2->iso_c_binding

Arguments

Type IntentOptional Attributes Name
real, target :: x(*)

Source Code

subroutine foo(x)
  use iso_c_binding
  real, target :: x(*)
  type (C_PTR) :: loc
  loc = c_loc(x(1))
end subroutine foo