foo Subroutine

subroutine foo(x)

Uses

  • proc~~foo~~UsesGraph proc~foo foo iso_c_binding iso_c_binding proc~foo->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