|
pure logical function | sabscmp (x, y) |
| Return single precision absolute comparison \( | x - y | < \epsilon \). More...
|
|
pure logical function | dabscmp (x, y) |
| Return double precision absolute comparison \( | x - y | < \epsilon \). More...
|
|
pure logical function | qabscmp (x, y) |
| Return double precision absolute comparison \( | x - y | < \epsilon \). More...
|
|
pure logical function | srelcmp (x, y, eps) |
| Return single precision relative comparison \( | x - y |<= \epsilon*|y| \). More...
|
|
pure logical function | drelcmp (x, y, eps) |
| Return double precision relative comparison \( | x - y |/|y| < \epsilon \). More...
|
|
pure logical function | qrelcmp (x, y, eps) |
| Return quad precision relative comparison \( | x - y |/|y| < \epsilon \). More...
|
|
subroutine, public | rzero (a, n) |
| Zero a real vector. More...
|
|
subroutine, public | izero (a, n) |
| Zero an integer vector. More...
|
|
subroutine, public | row_zero (a, m, n, e) |
| Sets row e to 0 in matrix a. More...
|
|
subroutine, public | rone (a, n) |
| Set all elements to one. More...
|
|
subroutine, public | copy (a, b, n) |
| Copy a vector \( a = b \). More...
|
|
subroutine, public | masked_copy (a, b, mask, n, m) |
| Copy a masked vector \( a(mask) = b(mask) \). More...
|
|
subroutine, public | cmult (a, c, n) |
| Multiplication by constant c \( a = c \cdot a \). More...
|
|
subroutine, public | cadd (a, s, n) |
| Add a scalar to vector \( a = \sum a_i + s \). More...
|
|
subroutine, public | cfill (a, c, n) |
| Set all elements to a constant c \( a = c \). More...
|
|
real(kind=rp) function, public | glsum (a, n) |
| Sum a vector of length n. More...
|
|
real(kind=rp) function, public | glmax (a, n) |
| Max of a vector of length n. More...
|
|
integer function, public | glimax (a, n) |
| Max of an integer vector of length n. More...
|
|
real(kind=rp) function, public | glmin (a, n) |
| Min of a vector of length n. More...
|
|
integer function, public | glimin (a, n) |
| Min of an integer vector of length n. More...
|
|
subroutine, public | chsign (a, n) |
| Change sign of vector \( a = -a \). More...
|
|
real(kind=rp) function, public | vlmax (vec, n) |
| maximum value of a vector of length n More...
|
|
real(kind=rp) function, public | vlmin (vec, n) |
| minimun value of a vector of length n More...
|
|
subroutine, public | invcol1 (a, n) |
| Invert a vector \( a = 1 / a \). More...
|
|
subroutine, public | invcol3 (a, b, c, n) |
| Invert a vector \( a = b / c \). More...
|
|
subroutine, public | invers2 (a, b, n) |
| Compute inverted vector \( a = 1 / b \). More...
|
|
subroutine, public | vcross (u1, u2, u3, v1, v2, v3, w1, w2, w3, n) |
| Compute a cross product \( u = v \times w \) assuming vector components \( u = (u_1, u_2, u_3) \) etc. More...
|
|
subroutine, public | vdot2 (dot, u1, u2, v1, v2, n) |
| Compute a dot product \( dot = u \cdot v \) (2-d version) assuming vector components \( u = (u_1, u_2, u_3) \) etc. More...
|
|
subroutine, public | 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. More...
|
|
real(kind=rp) function, public | vlsc3 (u, v, w, n) |
| Compute multiplication sum \( dot = u \cdot v \cdot w \). More...
|
|
real(kind=rp) function, public | vlsc2 (u, v, n) |
| Compute multiplication sum \( dot = u \cdot v \cdot w \). More...
|
|
subroutine, public | add2 (a, b, n) |
| Vector addition \( a = a + b \). More...
|
|
subroutine, public | add3 (a, b, c, n) |
| Vector addition \( a = b + c \). More...
|
|
subroutine, public | add4 (a, b, c, d, n) |
| Vector addition \( a = b + c + d\). More...
|
|
subroutine, public | sub2 (a, b, n) |
| Vector substraction \( a = a - b \). More...
|
|
subroutine, public | sub3 (a, b, c, n) |
| Vector subtraction \( a = b - c \). More...
|
|
subroutine, public | add2s1 (a, b, c1, n) |
| Vector addition with scalar multiplication \( a = c_1 a + b \) (multiplication on first argument) More...
|
|
subroutine, public | add2s2 (a, b, c1, n) |
| Vector addition with scalar multiplication \( a = a + c_1 b \) (multiplication on second argument) More...
|
|
subroutine, public | addsqr2s2 (a, b, c1, n) |
| Returns \( a = a + c1 * (b * b )\). More...
|
|
subroutine, public | cmult2 (a, b, c, n) |
| Multiplication by constant c \( a = c \cdot b \). More...
|
|
subroutine, public | invcol2 (a, b, n) |
| Vector division \( a = a / b \). More...
|
|
subroutine, public | col2 (a, b, n) |
| Vector multiplication \( a = a \cdot b \). More...
|
|
subroutine, public | col3 (a, b, c, n) |
| Vector multiplication with 3 vectors \( a = b \cdot c \). More...
|
|
subroutine, public | subcol3 (a, b, c, n) |
| Returns \( a = a - b*c \). More...
|
|
subroutine, public | add3s2 (a, b, c, c1, c2, n) |
| Returns \( a = c1 * b + c2 * c \). More...
|
|
subroutine, public | subcol4 (a, b, c, d, n) |
| Returns \( a = a - b*c*d \). More...
|
|
subroutine, public | addcol3 (a, b, c, n) |
| Returns \( a = a + b*c \). More...
|
|
subroutine, public | addcol4 (a, b, c, d, n) |
| Returns \( a = a + b*c*d \). More...
|
|
subroutine, public | ascol5 (a, b, c, d, e, n) |
| Returns \( a = b \dot c - d \cdot e \). More...
|
|
subroutine, public | p_update (a, b, c, c1, c2, n) |
| Returns \( a = b \dot c1 ( a - c2 \cdot c )\). More...
|
|
subroutine, public | x_update (a, b, c, c1, c2, n) |
| Returns \( a = b \dot c1 ( a - c2 \cdot c )\). More...
|
|
real(kind=rp) function, public | glsc2 (a, b, n) |
| Weighted inner product \( a^T b c \). More...
|
|
real(kind=rp) function, public | glsc3 (a, b, c, n) |
| Weighted inner product \( a^T b c \). More...
|
|
real(kind=rp) function, public | glsc4 (a, b, c, d, n) |
|
subroutine, public | sort (a, ind, n) |
| Use Heap Sort (p 231 Num. Rec., 1st Ed.) More...
|
|