f1dim Function

public function f1dim(x)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x

Return Value real(kind=8)


Source Code

  function f1dim(x)
    real(8), intent(in)                :: x
    real(8)                            :: f1dim
    real(8), dimension(:), allocatable :: xt
    allocate(xt(ncom))
    xt(:)=pcom(:)+x*xicom(:)
    f1dim=func(xt)
    deallocate(xt)
  end function f1dim