KTH framework for Nek5000 toolboxes; testing version
0.0.1
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | cggosf (u1, u2, u3, r1, r2, r3, h1, h2, rmult, binv, vol, tin, maxit, matmod) |
subroutine | setdt |
subroutine | cvgnlps (ifconv) |
subroutine | unorm |
subroutine | chktmg (tol, res, w1, w2, mult, mask, imesh) |
subroutine | setdtc |
subroutine | setdtfs (dtfs) |
subroutine | cdxmin2 (dtst, rhosig, iel, ifc, ifaxis) |
subroutine | cdxmin3 (dtst, rhosig, iel, ifc) |
function | facdot (A, B, IFACE1) |
subroutine | fcaver (xaver, a, iel, iface1) |
subroutine | faccl2 (a, b, iface1) |
subroutine | faccl3 (a, b, c, iface1) |
subroutine | faddcl3 (a, b, c, iface1) |
subroutine | sethlm (h1, h2, intloc) |
subroutine | nekuvp (iel) |
subroutine | diagnos |
subroutine | setsolv |
subroutine | hmhzsf (name, u1, u2, u3, r1, r2, r3, h1, h2, rmask1, rmask2, rmask3, rmult, tol, maxit, matmod) |
subroutine | chktcgs (r1, r2, r3, rmask1, rmask2, rmask3, rmult, binv, vol, tol, nel) |
subroutine | axhmsf (au1, au2, au3, u1, u2, u3, h1, h2, matmod) |
subroutine | stnrate (u1, u2, u3, nel, matmod) |
subroutine | stress (h1, h2, nel, matmod, ifaxis) |
subroutine | aijuj (au1, au2, au3, nel, ifaxis) |
subroutine | uxyz (u, ex, ey, ez, nel) |
subroutine | urst (u, ur, us, ut, nel) |
subroutine | ddrst (u, ur, us, ut) |
subroutine | axiezz (u2, eyy, ezz, nel) |
subroutine | flush_io |
subroutine | fcsum2 (xsum, asum, x, e, f) |
function | surf_mean (u, ifld, bc_in, ierr) |
subroutine | fdm_h1a (z, r, d, nel, kt, rr) |
subroutine | set_vert_strs (glo_num, ngv, nx, nel, vertex, ifcenter) |
subroutine | get_strs_mask (mask, nxc, nzc, nel) |
subroutine | axstrs (a1, a2, a3, p1, p2, p3, h1, h2, matmod, nel) |
subroutine | axstrs_nds (a1, a2, a3, p1, p2, p3, h1, h2, matmod, nel) |
subroutine | get_local_crs_galerkin_strs (a, ncl, nxc, h1, h2, matmod) |
subroutine | crs_strs (u1, u2, u3, v1, v2, v3) |
subroutine | set_up_h1_crs_strs (h1, h2, ifld, matmod) |
subroutine | axsf_e_3d (au, av, aw, u, v, w, h1, h2, ur, e) |
subroutine | axsf_e_2d (au, av, u, v, h1, h2, ur, e) |
subroutine | axsf_fast (au, av, aw, u, v, w, h1, h2, ifld) |
subroutine | ttxyz (ff, tx, ty, tz, nel) |
subroutine | ttrst (ff, fr, fs, ft, ta) |
subroutine | axitzz (vfy, tzz, nel) |
subroutine | setaxdy (ifaxdy) |
function | opnorm2w (v1, v2, v3, w) |
subroutine | strs_project_a (b1, b2, b3, h1, h2, wt, ifld, ierr, matmod) |
subroutine | strs_project_b (x1, x2, x3, h1, h2, wt, ifld, ierr) |
subroutine | strs_orthok (x, b, n, k, h1, h2, wt, ifld, w, ierr, matmod) |
subroutine | strs_ortho_one (x, b, n, k, h1, h2, wt, ifld, w, ierr, matmod) |
subroutine | strs_ortho_all (x, b, n, k, h1, h2, wt, ifld, w, ierr, matmod) |
subroutine | setprop |
subroutine axhmsf | ( | dimension(lx1,ly1,lz1,1) | au1, |
dimension(lx1,ly1,lz1,1) | au2, | ||
dimension(lx1,ly1,lz1,1) | au3, | ||
dimension (lx1*ly1*lz1*1) | u1, | ||
dimension (lx1*ly1*lz1*1) | u2, | ||
dimension (lx1*ly1*lz1*1) | u3, | ||
dimension (lx1,ly1,lz1,1) | h1, | ||
dimension (lx1,ly1,lz1,1) | h2, | ||
matmod | |||
) |
Definition at line 1240 of file subs1.f.
References addcol4(), aijuj(), axhelm(), axsf_fast(), dnekclock(), setfast(), stnrate(), and stress().
subroutine axsf_e_2d | ( | real, dimension(1) | au, |
real, dimension(1) | av, | ||
real, dimension(1) | u, | ||
real, dimension(1) | v, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(l,ldim,ldim) | ur, | ||
integer | e | ||
) |
Definition at line 2120 of file subs1.f.
References local_grad2(), and local_grad2_t().
subroutine axsf_e_3d | ( | real, dimension(1) | au, |
real, dimension(1) | av, | ||
real, dimension(1) | aw, | ||
real, dimension(1) | u, | ||
real, dimension(1) | v, | ||
real, dimension(1) | w, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(l,ldim,ldim) | ur, | ||
integer | e | ||
) |
Definition at line 2031 of file subs1.f.
References local_grad3(), and local_grad3_t().
subroutine axsf_fast | ( | real, dimension(l,1) | au, |
real, dimension(l,1) | av, | ||
real, dimension(l,1) | aw, | ||
real, dimension(l,1) | u, | ||
real, dimension(l,1) | v, | ||
real, dimension(l,1) | w, | ||
real, dimension(l,1) | h1, | ||
real, dimension(l,1) | h2, | ||
ifld | |||
) |
Definition at line 2177 of file subs1.f.
References axsf_e_2d(), and axsf_e_3d().
subroutine axstrs | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | p1, | ||
real, dimension(1) | p2, | ||
real, dimension(1) | p3, | ||
h1, | |||
h2, | |||
matmod, | |||
nel | |||
) |
subroutine axstrs_nds | ( | real, dimension(1) | a1, |
real, dimension(1) | a2, | ||
real, dimension(1) | a3, | ||
real, dimension(1) | p1, | ||
real, dimension(1) | p2, | ||
real, dimension(1) | p3, | ||
h1, | |||
h2, | |||
matmod, | |||
nel | |||
) |
subroutine cdxmin2 | ( | dimension(lx1,1) | dtst, |
rhosig, | |||
iel, | |||
ifc, | |||
logical | ifaxis | ||
) |
subroutine cdxmin3 | ( | dimension(lx1,ly1) | dtst, |
rhosig, | |||
iel, | |||
ifc | |||
) |
subroutine cggosf | ( | real, dimension(1) | u1, |
real, dimension(1) | u2, | ||
real, dimension(1) | u3, | ||
real, dimension(1) | r1, | ||
real, dimension(1) | r2, | ||
real, dimension(1) | r3, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(1) | rmult, | ||
real, dimension(1) | binv, | ||
vol, | |||
tin, | |||
maxit, | |||
matmod | |||
) |
Definition at line 2 of file subs1.f.
References add2(), axhmsf(), col3(), crs_strs(), fdm_h1a(), glsc2(), glsc3(), op_glsc2_wt(), opadd2(), opadds(), opdot(), opdssum(), opzero(), rmask(), set_fdm_prec_h1a(), set_fdm_prec_h1b(), set_up_h1_crs_strs(), setfast(), and setprec().
subroutine crs_strs | ( | real, dimension(1) | u1, |
real, dimension(1) | u2, | ||
real, dimension(1) | u3, | ||
real, dimension(1) | v1, | ||
real, dimension(1) | v2, | ||
real, dimension(1) | v3 | ||
) |
Definition at line 1875 of file subs1.f.
References dnekclock(), map_c_to_f_h1_bilin(), and map_f_to_c_h1_bilin().
subroutine cvgnlps | ( | logical | ifconv | ) |
subroutine flush_io |
subroutine get_local_crs_galerkin_strs | ( | real, dimension(ldim,ncl,ldim,ncl,1) | a, |
ncl, | |||
nxc, | |||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
matmod | |||
) |
Definition at line 1817 of file subs1.f.
References axstrs_nds(), copy(), gen_crs_basis(), opzero(), and vlsc2().
subroutine get_strs_mask | ( | real, dimension(ldim,nxc,nxc,nzc,nel) | mask, |
nxc, | |||
nzc, | |||
nel | |||
) |
subroutine hmhzsf | ( | character | name, |
real, dimension(1) | u1, | ||
real, dimension(1) | u2, | ||
real, dimension(1) | u3, | ||
real, dimension(1) | r1, | ||
real, dimension(1) | r2, | ||
real, dimension(1) | r3, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(1) | rmask1, | ||
real, dimension(1) | rmask2, | ||
real, dimension(1) | rmask3, | ||
real, dimension(1) | rmult, | ||
tol, | |||
maxit, | |||
matmod | |||
) |
Definition at line 1093 of file subs1.f.
References cggosf(), chktcgs(), dnekclock(), opdssum(), rmask(), rzero3(), strs_project_a(), and strs_project_b().
subroutine nekuvp | ( | iel | ) |
function opnorm2w | ( | real, dimension(1) | v1, |
real, dimension(1) | v2, | ||
real, dimension(1) | v3, | ||
real, dimension(1) | w | ||
) |
subroutine set_up_h1_crs_strs | ( | h1, | |
h2, | |||
ifld, | |||
matmod | |||
) |
Definition at line 1952 of file subs1.f.
References dnekclock(), get_local_crs_galerkin_strs(), get_strs_mask(), get_vertex(), set_jl_crs_mask(), set_mat_ij(), and set_vert_strs().
subroutine set_vert_strs | ( | integer*8, dimension(1) | glo_num, |
integer*8 | ngv, | ||
integer | nx, | ||
nel, | |||
integer, dimension(1) | vertex, | ||
logical | ifcenter | ||
) |
Definition at line 1721 of file subs1.f.
References set_vert().
subroutine setaxdy | ( | logical | ifaxdy | ) |
subroutine setdt |
Definition at line 178 of file subs1.f.
References compute_cfl(), emerxit(), glmin_ms(), opsub3(), setdtc(), and setdtfs().
subroutine setdtc |
subroutine setdtfs | ( | dtfs | ) |
subroutine sethlm | ( | real, dimension(1) | h1, |
real, dimension(1) | h2, | ||
intloc | |||
) |
subroutine setprop |
Definition at line 2617 of file subs1.f.
References dnekclock(), and vprops().
subroutine setsolv |
subroutine strs_ortho_all | ( | real, dimension(n,ldim,k) | x, |
real, dimension(n,ldim,k) | b, | ||
n, | |||
k, | |||
real, dimension(n) | h1, | ||
real, dimension(n) | h2, | ||
real, dimension(n) | wt, | ||
ifld, | |||
real, dimension(n,ldim) | w, | ||
ierr, | |||
matmod | |||
) |
Definition at line 2597 of file subs1.f.
References copy(), and strs_orthok().
subroutine strs_ortho_one | ( | real, dimension(n,ldim,k) | x, |
real, dimension(n,ldim,k) | b, | ||
n, | |||
k, | |||
real, dimension(n) | h1, | ||
real, dimension(n) | h2, | ||
real, dimension(n) | wt, | ||
ifld, | |||
real, dimension(n,ldim) | w, | ||
ierr, | |||
matmod | |||
) |
Definition at line 2577 of file subs1.f.
References copy(), and strs_orthok().
subroutine strs_orthok | ( | real, dimension(n,ldim,k) | x, |
real, dimension(n,ldim,k) | b, | ||
n, | |||
k, | |||
real, dimension(n) | h1, | ||
real, dimension(n) | h2, | ||
real, dimension(n) | wt, | ||
ifld, | |||
real, dimension(n,ldim) | w, | ||
ierr, | |||
matmod | |||
) |
subroutine strs_project_a | ( | real, dimension(1) | b1, |
real, dimension(1) | b2, | ||
real, dimension(1) | b3, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(1) | wt, | ||
ifld, | |||
ierr, | |||
matmod | |||
) |
Definition at line 2376 of file subs1.f.
References col3(), copy(), difmax(), dnekclock(), op_glsc2_wt(), opadds(), opcopy(), opnorm2w(), opzero(), strs_ortho_all(), and strs_ortho_one().
subroutine strs_project_b | ( | real, dimension(1) | x1, |
real, dimension(1) | x2, | ||
real, dimension(1) | x3, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(1) | wt, | ||
ifld, | |||
ierr | |||
) |
Definition at line 2454 of file subs1.f.
References dnekclock(), opadd2(), and opcopy().
function surf_mean | ( | real, dimension(1) | u, |
ifld, | |||
character*3 | bc_in, | ||
ierr | |||
) |
subroutine unorm |