func2 Function

public function func2(x) result(f)

Arguments

Type IntentOptional Attributes Name
complex(kind=rk), intent(in), dimension(:) :: x

Return Value complex(kind=rk)


Source Code

   function func2(x) result(f)
      complex(rk), dimension(:), intent(in) :: x
      complex(rk)                           :: f

      f = x(1)**2 + 0.5_rk*x(2)**2

   end function func2