J Function

function J(x) result(y)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	x(:)

Return Value real, (size(x),size(x))