Nek5000
SEM for Incompressible NS
|
Go to the source code of this file.
Functions/Subroutines | |
real(dp) function | vlsc3 (X, Y, B, N) |
local inner product, with weight More... | |
subroutine | blank (A, N) |
blank a string More... | |
subroutine | copy (a, b, n) |
subroutine | chcopy (a, b, n) |
real(dp) function | vlamax (vec, n) |
vector local max(abs( )) More... | |
subroutine | vcross (u1, u2, u3, v1, v2, v3, w1, w2, w3, n) |
Compute a Cartesian vector cross product. More... | |
integer function | mod1 (i, n) |
Yields MOD(I,N) with the exception that if I=K*N, result is N. More... | |
integer function | log2 (k) |
subroutine | iswap (b, ind, n, temp) |
SORT ASSOCIATED ELEMENTS BY PUTTING ITEM(JJ) into item(i) where JJ = ind(i) More... | |
real(dp) function | glsc3 (a, b, mult, n) |
Perform inner-product in double precision. More... | |
real(dp) function | glsc2 (x, y, n) |
Perform inner-product in double precision. More... | |
real(dp) function | glsc23 (x, y, z, n) |
Perform inner-product x*x*y*z. More... | |
real(dp) function | glsum (x, n) |
real(dp) function | glamax (a, n) |
integer function | iglmin (a, n) |
integer function | iglmax (a, n) |
integer function | iglsum (a, n) |
integer(i8) function | i8glsum (a, n) |
global sum (long integer) More... | |
real(dp) function | glmax (a, n) |
real(dp) function | glmin (a, n) |
subroutine | gllog (la, lb) |
If ANY LA=LB, then ALL LA=LB. More... | |
subroutine | isort (a, ind, n) |
Use Heap Sort (p 231 Num. Rec., 1st Ed.) More... | |
subroutine | sort (a, ind, n) |
Use Heap Sort (p 231 Num. Rec., 1st Ed.) More... | |
integer(i8) function | i8glmax (a, n) |
Global maximum of long integer array. More... | |
subroutine | ident (a, n) |
Construct A = I_n (identity matrix) More... | |
subroutine | iswapt_ip (x, p, n) |
subroutine blank | ( | character(1), dimension(*) | A, |
integer | N | ||
) |
blank a string
Definition at line 38 of file math.F90.
Referenced by string::cscan(), string::csplit(), echopar(), err_chk(), exitti(), files(), genmesh(), get_session_info(), get_vert_map(), initdat(), mfo_open_files(), mfo_write_hdr(), outfld(), pprint_all(), rdbdry(), rdcurve(), rdhist(), rdicdf(), runstat(), sioflag(), and slogic().
Definition at line 63 of file math.F90.
Referenced by string::cscan(), echopar(), err_chk(), exitti(), files(), io::get_restart_name(), get_session_info(), get_vert_map(), hmholtz(), helmholtz::hsolve(), mbyte_open(), mfo_open_files(), outfld(), restart_driver(), and sioflag().
Definition at line 52 of file math.F90.
Referenced by bcdirvc(), build_new_filter(), cdtp(), cggo(), convect_new(), filterq(), gen_crs_basis(), generalev(), helmholtz::gensh(), genwz(), get_local_crs_galerkin(), glmapm1(), gop(), hsmg_routines::h1mg_setup_semhat(), hsmg_routines::h1mg_solve(), hsmg_routines::hsmg_setup_semhat(), lagmass(), lagscal(), lagvel(), makeabf(), mapab4r(), mfo_outs(), mfo_outv(), io::mfo_read_scalar(), io::mfo_read_vector(), mpi_scan(), multd(), op_curl(), opcopy(), opdiv(), outpost2(), prepost_map(), restart_driver(), sethlm(), setinvm(), setup_topo(), setzgml(), startx1(), and vrdsmsh().
subroutine gllog | ( | logical | la, |
logical | lb | ||
) |
Definition at line 363 of file math.F90.
References gop().
Referenced by restart_driver().
real(dp) function glsc2 | ( | real(dp), dimension(n), intent(in) | x, |
real(dp), dimension(n), intent(in) | y, | ||
integer, intent(in) | n | ||
) |
Perform inner-product in double precision.
Definition at line 210 of file math.F90.
References gop().
Referenced by helmholtz::projh().
integer(i8) function i8glmax | ( | integer(i8), dimension(n), intent(inout) | a, |
integer, intent(in) | n | ||
) |
integer(i8) function i8glsum | ( | integer(i8), dimension(n), intent(in) | a, |
integer, intent(in) | n | ||
) |
Construct A = I_n (identity matrix)
Definition at line 555 of file math.F90.
Referenced by build_new_filter(), and q_filter().
integer function iglmax | ( | integer, dimension(n), intent(in) | a, |
integer, intent(in) | n | ||
) |
integer function iglmin | ( | integer, dimension(n), intent(in) | a, |
integer, intent(in) | n | ||
) |
integer function iglsum | ( | integer, dimension(n), intent(in) | a, |
integer, intent(in) | n | ||
) |
Use Heap Sort (p 231 Num. Rec., 1st Ed.)
Definition at line 421 of file math.F90.
Referenced by assign_gllnid(), and setvert3d().
subroutine iswapt_ip | ( | integer, dimension(n), intent(inout) | x, |
integer, dimension(n), intent(inout) | p, | ||
integer, intent(in) | n | ||
) |
Definition at line 570 of file math.F90.
References exitt().
Referenced by assign_gllnid().
integer function mod1 | ( | integer, intent(in) | i, |
integer, intent(in) | n | ||
) |
subroutine vcross | ( | real(dp), dimension(n), intent(out) | u1, |
real(dp), dimension(n), intent(out) | u2, | ||
real(dp), dimension(n), intent(out) | u3, | ||
real(dp), dimension(n), intent(in) | v1, | ||
real(dp), dimension(n), intent(in) | v2, | ||
real(dp), dimension(n), intent(in) | v3, | ||
real(dp), dimension(n), intent(in) | w1, | ||
real(dp), dimension(n), intent(in) | w2, | ||
real(dp), dimension(n), intent(in) | w3, | ||
integer, intent(in) | n | ||
) |