amebsa Interface

interface
public subroutine amebsa(p, y, pb, yb, ftol, func, iter, temptr)

Arguments

Type IntentOptional AttributesName
real(kind=SP), intent(inout), DIMENSION(:,:):: p
real(kind=SP), intent(inout), DIMENSION(:):: y
real(kind=SP), intent(inout), DIMENSION(:):: pb
real(kind=SP), intent(inout) :: yb
real(kind=SP), intent(in) :: ftol
function func(x)
Arguments
Type IntentOptional AttributesName
real(kind=SP), intent(in), DIMENSION(:):: x
Return Value real(kind=SP)
integer(kind=I4B), intent(inout) :: iter
real(kind=SP), intent(in) :: temptr