vector_math.f90 File Reference

Go to the source code of this file.

Modules
module	vector_math

Functions/Subroutines
subroutine, public	vector_math::vector_rzero (a, n)
	Zero a real vector.
subroutine, public	vector_math::vector_rone (a, n)
	Set all elements to one.
subroutine, public	vector_math::vector_copy (a, b, n)
	Copy a vector \( a = b \).
subroutine, public	vector_math::vector_cmult (a, c, n)
	Multiplication by constant c \( a = c \cdot a \).
subroutine, public	vector_math::vector_cadd (a, s, n)
	Add a scalar to vector \( a = \sum a_i + s \).
subroutine, public	vector_math::vector_cfill (a, c, n)
	Set all elements to a constant c \( a = c \).
subroutine, public	vector_math::vector_invcol1 (a, n)
	Invert a vector \( a = 1 / a \).
subroutine, public	vector_math::vector_invcol3 (a, b, c, n)
	Invert a vector \( a = b / c \).
subroutine, public	vector_math::vector_vdot3 (dot, u1, u2, u3, v1, v2, v3, n)
	Compute a dot product \( dot = u \cdot v \) (3-d version) assuming vector components \( u = (u_1, u_2, u_3) \) etc.
subroutine, public	vector_math::vector_add2 (a, b, n)
	Vector addition \( a = a + b \).
subroutine, public	vector_math::vector_add3 (a, b, c, n)
	Vector addition \( a = b + c \).
subroutine	vector_math::vector_add4 (a, b, c, d, n)
	Vector addition \( a = b + c + d \).
subroutine, public	vector_math::vector_sub2 (a, b, n)
	Vector substraction \( a = a - b \).
subroutine, public	vector_math::vector_sub3 (a, b, c, n)
	Vector subtraction \( a = b - c \).
subroutine, public	vector_math::vector_add2s1 (a, b, c1, n)
	Vector addition with scalar multiplication \( a = c_1 a + b \) (multiplication on first argument)
subroutine, public	vector_math::vector_add2s2 (a, b, c1, n)
	Vector addition with scalar multiplication \( a = a + c_1 b \) (multiplication on second argument)
subroutine, public	vector_math::vector_addsqr2s2 (a, b, c1, n)
	Returns \( a = a + c1 * (b * b )\).
subroutine, public	vector_math::vector_cmult2 (a, b, c, n)
	Multiplication by constant c \( a = c \cdot b \).
subroutine, public	vector_math::vector_invcol2 (a, b, n)
	Vector division \( a = a / b \).
subroutine, public	vector_math::vector_col2 (a, b, n)
	Vector multiplication \( a = a \cdot b \).
subroutine, public	vector_math::vector_col3 (a, b, c, n)
	Vector multiplication with 3 vectors \( a = b \cdot c \).
subroutine, public	vector_math::vector_subcol3 (a, b, c, n)
	Returns \( a = a - b*c \).
subroutine, public	vector_math::vector_add3s2 (a, b, c, c1, c2, n)
	Returns \( a = c1 * b + c2 * c \).
subroutine, public	vector_math::vector_addcol3 (a, b, c, n)
	Returns \( a = a + b*c \).
subroutine, public	vector_math::vector_addcol4 (a, b, c, d, n)
	Returns \( a = a + b*c*d \).
real(kind=rp) function, public	vector_math::vector_glsum (a, n)
real(kind=rp) function, public	vector_math::vector_glsc2 (a, b, n)
real(kind=rp) function, public	vector_math::vector_glsc3 (a, b, c, n)
real(kind=rp) function, public	vector_math::vector_glsubnorm (a, b, n)
subroutine, public	vector_math::vector_masked_gather_copy_0 (a, b, mask, n, n_mask)
	Gather a vector to reduced contigous array \( a = b(mask) \).
subroutine, public	vector_math::vector_masked_scatter_copy_0 (a, b, mask, n, n_mask)
	Gather a contigous array into a vector \( a(mask) = b \).