modify_residual_1 Subroutine

public subroutine modify_residual_1(r, x, u_nod_x, u_nod_y, u_nod_dis_x, u_nod_dis_y)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(inout)			::	r(:)
real(kind=real64),	intent(inout)			::	x(:)
integer(kind=int32),	intent(in)			::	u_nod_x(:)
integer(kind=int32),	intent(in)			::	u_nod_y(:)
real(kind=real64),	intent(in)			::	u_nod_dis_x(:)
real(kind=real64),	intent(in)			::	u_nod_dis_y(:)