foo Subroutine

subroutine foo(x)

Arguments

Type	Intent	Optional	Attributes		Name
type(*)				::	x(*)

Source Code

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