mxvset Subroutine

public pure subroutine mxvset(n, a, x)

a scalar is set to all the elements of a vector.

Arguments

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

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

initial value.
real(kind=wp), intent(out) :: x(*)

x(n) output vector such that x(i)=a for all i.

Called by

proc~~mxvset~~CalledByGraph proc~mxvset mxvset proc~psqp psqp_class%psqp proc~psqp->proc~mxvset proc~dual_range_space_quad_prog psqp_class%dual_range_space_quad_prog proc~psqp->proc~dual_range_space_quad_prog proc~update_tri_decomp_general update_tri_decomp_general proc~update_tri_decomp_general->proc~mxvset proc~update_tri_decomp_orthogonal update_tri_decomp_orthogonal proc~update_tri_decomp_orthogonal->proc~mxvset proc~dual_range_space_quad_prog->proc~update_tri_decomp_general proc~ops_after_constr_deletion psqp_class%ops_after_constr_deletion proc~dual_range_space_quad_prog->proc~ops_after_constr_deletion proc~ops_after_constr_deletion->proc~update_tri_decomp_orthogonal proc~psqpn psqp_class%psqpn proc~psqpn->proc~psqp

Source Code

      pure subroutine mxvset(n,a,x)

      real(wp),intent(in) :: a  !! initial value.
      integer,intent(in) :: n  !! vector dimension.
      real(wp),intent(out) :: x(*)  !! x(n)  output vector such that `x(i)=a` for all i.

      integer :: i

      do i = 1 , n
         x(i) = a
      end do

      end subroutine mxvset