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