df1dim Function

public function df1dim(x)

Arguments

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

Return Value real(kind=8)


Source Code

  function df1dim(x)
    real(8), intent(in)                :: x
    real(8)                            :: df1dim
    real(8), dimension(:), allocatable :: xt,df
    allocate(xt(ncom),df(ncom))
    xt(:)=pcom(:)+x*xicom(:)
    df(:)=fjac(xt)
    df1dim=dot_product(df,xicom)
    deallocate(xt,df)
  end function df1dim