mxvneg Subroutine

public pure subroutine mxvneg(n, x, y)

change the signs of vector elements.

Arguments

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

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

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

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

Called by

proc~~mxvneg~~CalledByGraph proc~mxvneg mxvneg proc~compute_obj_and_dobj psqp_class%compute_obj_and_dobj proc~compute_obj_and_dobj->proc~mxvneg proc~dual_range_space_quad_prog psqp_class%dual_range_space_quad_prog proc~dual_range_space_quad_prog->proc~mxvneg proc~psqp psqp_class%psqp proc~psqp->proc~compute_obj_and_dobj proc~psqp->proc~dual_range_space_quad_prog proc~psqpn psqp_class%psqpn proc~psqpn->proc~psqp

Source Code

      pure subroutine mxvneg(n,x,y)

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

      integer :: i

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

      end subroutine mxvneg