func1 Function

public function func1(x) result(f)

Arguments

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

Return Value complex(kind=rk)


Source Code

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

      f = x**2 + 2.0_rk*x

   end function func1