mxvina Subroutine

public pure subroutine mxvina(n, ix)

elements of the integer vector are replaced by their absolute values.

Note that this function also subtracts 10 from ix if the absolute value is greater than 10.

Arguments

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

dimension of the integer vector.
integer, intent(inout) :: ix(*)

vector which is updated so that ix(i):=abs(ix(i)) for all i.

Called by

proc~~mxvina~~CalledByGraph proc~mxvina mxvina proc~dual_range_space_quad_prog psqp_class%dual_range_space_quad_prog proc~dual_range_space_quad_prog->proc~mxvina proc~psqp psqp_class%psqp proc~psqp->proc~mxvina proc~psqp->proc~dual_range_space_quad_prog proc~psqpn psqp_class%psqpn proc~psqpn->proc~psqp

Source Code

      pure subroutine mxvina(n,ix)

      integer,intent(in) :: n  !! dimension of the integer vector.
      integer,intent(inout) :: ix(*)  !! vector which is updated so that
                                      !! `ix(i):=abs(ix(i))` for all i.

      integer :: i

      do i = 1 , n
         ix(i) = abs(ix(i))
         if ( ix(i)>10 ) ix(i) = ix(i) - 10
      end do

      end subroutine mxvina