halo_func Subroutine

public subroutine halo_func(me, x, f)

Compute the solver function (all the constraint violations)

Arguments

Type IntentOptional Attributes Name
class(nlesolver_type), intent(inout) :: me
real(kind=wp), intent(in), dimension(:) :: x
real(kind=wp), intent(out), dimension(:) :: f

Calls

proc~~halo_func~~CallsGraph proc~halo_func halo_func constraint_violations constraint_violations proc~halo_func->constraint_violations

Source Code

    subroutine halo_func(me,x,f)

    implicit none

    class(nlesolver_type),intent(inout) :: me
    real(wp),dimension(:),intent(in)     :: x
    real(wp),dimension(:),intent(out)    :: f

    select type (me)
    class is (my_solver_type)
        call me%mission%constraint_violations(x,f)
    class default
        error stop 'invalid class in halo_func'
    end select

    end subroutine halo_func