mxvsav Subroutine

public pure subroutine mxvsav(n, x, y)

difference of two vectors returned in the subtracted one.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n

vector dimension.
real(kind=wp), intent(inout) :: x(*)

x(n) input vector.
real(kind=wp), intent(inout) :: y(*)

y(n) update vector where y:= x - y.

Called by

proc~~mxvsav~~CalledByGraph proc~mxvsav mxvsav proc~dual_range_space_qp dual_range_space_qp proc~dual_range_space_qp->proc~mxvsav proc~psqp psqp_class%psqp proc~psqp->proc~dual_range_space_qp proc~psqpn psqp_class%psqpn proc~psqpn->proc~psqp

Source Code

      pure subroutine mxvsav(n,x,y)

      integer,intent(in) :: n  !! vector dimension.
      real(wp),intent(inout) :: x(*)  !! x(n)  input vector.
      real(wp),intent(inout) :: y(*)  !! y(n)  update vector where `y:= x - y`.

      real(wp) :: temp
      integer :: i

      do i = 1 , n
         temp = y(i)
         y(i) = x(i) - y(i)
         x(i) = temp
      end do

      end subroutine mxvsav