Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8), | intent(in) | :: | x |
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