foo Subroutine

subroutine foo(x)

Arguments

Type IntentOptional Attributes Name
type(*) :: x(*)

Source Code

subroutine foo(x)
   type(*) :: x(*)
end subroutine foo