|
character(len=20) function, public | util::str (k) |
| Convert an integer to string. More...
|
|
character(len=40) function, public | util::rstr (x, fm) |
| Convert a real to string with a given format. More...
|
|
integer function, dimension(size(s)), public | util::isin (c, s) |
| Determine if a character is in a string and where. More...
|
|
subroutine, public | util::init_random_seed () |
| Random generator initialization routine. More...
|
|
integer function | lcg (s) |
|
subroutine, public | util::piksrt (k, arr, par) |
| Simple card player sorting function. More...
|
|
subroutine, public | util::init_one (A) |
| Initialize a square matrix A as a unit matrix. More...
|
|
real(kind=8) function, public | util::mat_trace (A) |
|
real(kind=8) function, public | util::mat_contract (A, B) |
|
subroutine, public | util::choldc (a, p) |
|
subroutine, public | util::printmat (A) |
|
subroutine, public | util::cprintmat (A) |
|
real(kind=8) function, dimension(size(a, 1), size(a, 2)), public | util::invmat (A) |
|
subroutine, public | util::triu (A, T) |
|
subroutine, public | util::diag (A, d) |
|
subroutine, public | util::cdiag (A, d) |
|
integer function, public | util::floordiv (i, j) |
|
subroutine, public | util::reduce (A, Ared, n, ind, rind) |
|
subroutine, public | util::ireduce (A, Ared, n, ind, rind) |
|
subroutine, public | util::vector_outer (u, v, A) |
|