aux.f#

These are the subroutines in aux.f.

Subroutines and functions

subroutine opadd3(a1, a2, a3, b1, b2, b3, c1, c2, c3)#

Parameters:

a1 (1) [real]
a2 (1) [real]
a3 (1) [real]
b1 (1) [real]
b2 (1) [real]
b3 (1) [real]
c1 (1) [real]
c2 (1) [real]
c3 (1) [real]

Called from:

rom_analysis(), fom_analysis(), sample_stats()

Call to:

ltruncr(), read_serial(), dump_serial(), dgetrf(), dgetrs(), reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine recont(tt, coef)#

Parameters:

tt (lt) [real]
coef (1 + nb) [real]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), cres(), c_avei(), set_sigma(), set_nres(), read_sigma(), c_sigma(), set_theta_poisson(), set_theta_heat(), set_theta_ad(), set_theta_ns(), rom_poisson(), setops_laplace(), seta_laplace(), setb_laplace(), rom_solve_laplace(), rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc(), mor_init_params(), mor_set_params_rea(), mor_set_params_uni_pre(), mor_set_params_uni_post(), mor_show_params(), mor_init_fields(), setc(), seta(), sets(), setb(), setae(), setu(), bdfext_step(), post()

Call to:

subroutine recont_rms(tt)#

Parameters:: tt (lt) [real]
Called from:: opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld()
Call to:: ltruncr(), read_serial(), dump_serial(), dgetrf(), dgetrs(), reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine reconu_rms(ux, uy, uz)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]

Called from:

Call to:

subroutine reconu_rm2(ux, uy, uz)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]

Called from:

Call to:

subroutine reconv(ux, uy, uz, coef)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]
coef (1 + nb) [real]

Called from:

Call to:

subroutine ctke_fom(tke, ux, uy, uz, uavg, vavg, wavg)#

Parameters:

tke [real]
ux (lt) [real]
uy (lt) [real]
uz (lt) [real]
uavg (lt) [real]
vavg (lt) [real]
wavg (lt) [real]

Called from:

rom_analysis(), fom_analysis(), sample_stats()

Call to:

subroutine ctke()#

subroutine lints(s1, s2, l)#

Parameters:

s1 (1) [character]
s2 (1) [character]
l [integer]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), read_fields(), restart_filen(), restart_file(), restart_time_file(), read_sigma_u_serial(), read_sigma_u_serial_helper(), read_sigma_t_serial(), read_sigma_t_serial_helper(), loadpbases(), get_p_rb(), rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc(), mor_init_params(), mor_set_params_rea(), mor_set_params_uni_pre(), mor_set_params_uni_post(), mor_show_params(), mor_init_fields(), setc(), seta(), sets(), setb(), setae(), setu(), setf(), setupvp(), setfluc(), final(), setbut(), calc_tmean(), set0mean(), calc_dudn(), set1dudn(), seteddy()

Call to:

function ltruncr(string_bn, l)#

Parameters:

string_bn (l) [character]
l [integer]

Return:

ltruncr [integer]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), dump_global(), idump_serial(), dump_serial(), read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), read_fields(), restart_filen(), restart_file(), restart_time_file(), read_sigma_u_serial(), read_sigma_u_serial_helper(), read_sigma_t_serial()

Call to:

read_serial(), dump_serial(), dgetrf(), dgetrs(), reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine shift(u, v, n, m)#

Parameters:

u (n,m) [real]
v (n) [real]
n [integer] :: ? not moving -> save?
m [integer]

Called from:

rom_step_legacy(), rom_step_t_legacy(), bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v()

Call to:

subroutine shift3(u, v, n)#

Parameters:

u (n,3) [real]
v (n) [real]
n [integer] :: ? not moving -> save?

Call to:

subroutine lap2d(d2u, u)#

Parameters:

d2u (1) [real]
u (1) [real]

Called from:

Call to:

subroutine lap3d(d2u, u)#

Parameters:

d2u (1) [real]
u (1) [real]

Called from:

Call to:

subroutine push_op(vx, vy, vz)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]

Called from:

setcnv_c(), setcnv_u(), setcnv_u1(), cc(), convect_axis(), cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), set_xi_poisson(), set_xi_heat(), set_xi_ad(), set_xi_ns()

Call to:

subroutine pop_op(vx, vy, vz)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]

Called from:

Call to:

subroutine push_sol(vx, vy, vz, pr, t)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]
pr (lt2) [real]
t (lt1,ldimt) [real]

Called from:

pod_proj(), pod_df(), setdf(), set_les_imp(), read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), read_fields(), restart_filen(), restart_file(), restart_time_file(), read_sigma_u_serial(), read_sigma_u_serial_helper(), read_sigma_t_serial(), read_sigma_t_serial_helper(), loadpbases(), get_p_rb(), rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc(), mor_init_params(), mor_set_params_rea(), mor_set_params_uni_pre(), mor_set_params_uni_post(), mor_show_params(), mor_init_fields()

Call to:

subroutine pop_sol(vx, vy, vz, pr, t)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]
pr (lt2) [real]
t (lt1,ldimt) [real]

Called from:

Call to:

subroutine zero_sol(vx, vy, vz, pr, t)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]
pr (lt2) [real]
t (lt1,ldimt) [real]

Called from:

read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), read_fields()

Call to:

subroutine add_sol(vx, vy, vz, pr, t, ux, uy, uz, pp, tt)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]
pr (lt2) [real]
t (lt1,ldimt) [real]
ux (lt1) [real]
uy (lt1) [real]
uz (lt1) [real]
pp (lt2) [real]
tt (lt1,ldimt) [real]

Called from:

read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), read_fields()

Call to:

subroutine scale_sol(vx, vy, vz, pr, t, s)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]
pr (lt2) [real]
t (lt1,ldimt) [real]
s [real]

Called from:

read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), read_fields()

Call to:

subroutine copy_sol(vx, vy, vz, pr, t, ux, uy, uz, pp, tt)#

Parameters:

vx (lt1) [real]
vy (lt1) [real]
vz (lt1) [real]
pr (lt2) [real]
t (lt1,ldimt) [real]
ux (lt1) [real]
uy (lt1) [real]
uz (lt1) [real]
pp (lt2) [real]
tt (lt1,ldimt) [real]

Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc(), mor_init_params(), mor_set_params_rea(), mor_set_params_uni_pre(), mor_set_params_uni_post(), mor_show_params(), mor_init_fields()

Call to:

subroutine gradp(px, py, pz, pr)#

Parameters:

px (lt1) [real]
py (lt1) [real]
pz (lt1) [real]
pr (lt2) [real]

Call to:

subroutine setdps()#

subroutine setconvbases()#

subroutine setdtbases()#

subroutine hyperpar(uuk, ttk)#

Parameters:

uuk (1 + nb,ns) [real]
ttk (1 + nb,ns) [real]

Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc()

Call to:

subroutine opbinv1_nom(out1, out2, out3, inp1, inp2, inp3, scale)#

Parameters:

out1 (1) [real]
out2 (1) [real]
out3 (1) [real]
inp1 (1) [real]
inp2 (1) [real]
inp3 (1) [real]
scale [real]

Call to:

dgetrf(), dgetrs(), reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine binv1_nom(out1)#

Parameters:: out1 (lt) [real]
Called from:: set_xi_poisson()
Call to:: dgetrf(), dgetrs(), reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine binv1(out1)#

Parameters:: out1 (lt) [real]
Called from:: set_xi_poisson(), set_xi_heat(), set_xi_ad(), set_xi_ns(), rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc(), mor_init_params(), mor_set_params_rea(), mor_set_params_uni_pre(), mor_set_params_uni_post(), mor_show_params(), mor_init_fields(), setc(), seta(), sets(), setb(), setae(), setu(), setf()
Call to:: dgetrf(), dgetrs(), reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine invmat(a, b, c, iwk1, iwk2, n)#

Parameters:

a (n,n) [real]
b (n,n) [real]
c (n,n) [real]
iwk1 (n) [integer]
iwk2 (n) [integer]
n [integer] :: ? not moving -> save?

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), c_distortion_measure(), projtoprerb(), evaldut(), evalut(), reconv_wo0(), divm1(), recont_wo0(), svint(), checkaeq(), checkaeqp(), checkaeqd(), setdiff(), projvecm(), setpsi(), splitvec(), combvec(), tfunc(), evalf(), evalcflds(), evalaflds(), set0flow(), p2b(), p2b_helper(), fip(), find_cerr(), find_cerr2(), genrij(), orthonormb(), setab(), rbf_setup(), set_rbf_sig(), c_rbfwt(), cp_setup(), compute_cp(), set_rank(), als(), check_conv_err(), check_conv_err_old(), cp_als_old(), mttkrp(), set_lsm(), compute_relerr(), compute_residual(), compute_cp_weight(), mode_normalize(), rand_initial(), check_normalize(), set_product_matrix(), read_cp_weight(), read_cp_mode(), case1_tensor(), case2_tensor(), als_core(), set_c_slice(), set_c_core(), als_quad(), bdfext_step()

Call to:

subroutine cpsi(uu, vv, ww)#

Parameters:

uu (lt) [real]
vv (lt) [real]
ww (lt) [real]

Call to:

reconv(), recont(), reconu_rms(), recont_rms(), reconu_rm2(), interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine csga(ga, sb)#

Parameters:

ga (lt,1 + nb) [real]
sb (lt,1 + nb) [real]

Call to:

subroutine emask(g, ie)#

Parameters:

g (lx1 * ly1 * lz1,lelt) [real]
ie [integer]

Call to:

subroutine set_surf(s, f)#

Parameters:

s (lx1,ly1,lz1,lelt) [real]
f (lx1,ly1,lz1,lelt) [real]

Called from:

set_xi_poisson()

Call to:

subroutine set_gradn(gn, s)#

Parameters:

gn (lx1,ly1,lz1,lelt) [real]
s [real]

Called from:

set_xi_poisson()

Call to:

subroutine dump_sfld()#

subroutine sol_intp_xline(ux, uy, uz, ut, ytgt, ztgt, nx, pfx)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]
ut (lt) [real]
ytgt [real]
ztgt [real]
nx [integer]
pfx [character]

Call to:

interp_vec_prop2(), interp_sca_prop2(), interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine sol_intp_xline_qoi(ux, uy, uz, ut, ytgt, ztgt, nx, j)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]
ut (lt) [real]
ytgt [real]
ztgt [real]
nx [integer]
j [integer]

Called from:

rom_analysis(), fom_analysis(), sample_stats(), ce0n(), bases_analysis(), rom_sample(), snap_analysis(), tj_analysis()

Call to:

subroutine sol_intp_xline_fqoi(ux, uy, uz, ut, ytgt, ztgt, nx)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]
ut (lt) [real]
ytgt [real]
ztgt [real]
nx [integer]

Called from:

rom_analysis(), fom_analysis(), sample_stats(), ce0n(), bases_analysis(), rom_sample(), snap_analysis(), tj_analysis(), tj_analysis2(), tj_analysis3()

Call to:

subroutine interp_vec_prop2(uu, vv, ww, ux, uy, uz, xx, yy, zz, n)#

Parameters:

uu (n) [real]
vv (n) [real]
ww (n) [real]
ux (n) [real]
uy (n) [real]
uz (n) [real]
xx (n) [real]
yy (n) [real]
zz (n) [real]
n [integer] :: ? not moving -> save?

Called from:

Call to:

interp_vec2(), interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine interp_vec2(uvw, ux, uy, uz, xyz, n)#

Parameters:

uvw (ldim,n) [real]
ux (n) [real]
uy (n) [real]
uz (n) [real]
xyz (ldim,n) [real]
n [integer] :: ? not moving -> save?

Called from:

Call to:

interp_sca2(), invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine interp_sca_prop2(u, s, xx, yy, zz, n)#

Parameters:

u (n) [real]
s (1) [real]
xx (n) [real]
yy (n) [real]
zz (n) [real]
n [integer] :: ? not moving -> save?

Called from:

Call to:

subroutine interp_sca2(u, xyz, s, n)#

Parameters:

u (n) [real]
xyz (ldim,n) [real]
s (n) [real]
n [integer] :: ? not moving -> save?

Called from:

Call to:

invmat(), regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), abm_shuffle_helper()

subroutine count_gal(cgal, acgal, uu, amax, amin, bctol, n)#

Parameters:

cgal (n) [real]
acgal [real]
uu (n) [real]
amax (n) [real]
amin (n) [real]
bctol [real]
n [integer]

Called from:

rom_step_legacy(), rom_step_t_legacy(), bdfext_step(), post()

Call to:

subroutine cdump()#

subroutine set_binv2()#

subroutine diag(h, wt, wk, n)#

Parameters:

h (n,n) [real]
wt (n,n) [real]
wk (n) [real]
n [integer]

Called from:

bdfext_step()

Call to:

regularev(), lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine checker(cstr, myind)#

Parameters:

cstr [character]
myind [integer]

Call to:

lints(), c_distortion_measure(), vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine checkera(cstr, a, nn, myind)#

Parameters:

cstr [character]
a (nn) [real]
nn [integer]
myind [integer]

Call to:

subroutine k_mean(k, nsu, nsp, nst, fn, seed)#

Parameters:

k [integer] :: number of clusters
nsu [integer]
nsp [integer]
nst [integer]
fn [character]
seed [integer]

Call to:

subroutine c_distortion_measure(obj_f, cent_fld, rnk, k)#

Parameters:

obj_f [real] :: objective function value
cent_fld (lt,k) [real] :: centroid
rnk (ls,k) [real] :: binary indicator
k [integer] :: number of clusters

Called from:

Call to:

vip(), sip(), reconv_wo0(), recont_wo0(), svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine projtoprerb(nocp, uuk, ttk)#

Parameters:

nocp [integer]
uuk (1 + nb,ns) [real]
ttk (1 + nb,ns) [real]

Call to:

subroutine evaldut(ev, ut, vt, wt, u, v, w, t)#

Parameters:

ev (lt) [real]
ut (lt) [real]
vt (lt) [real]
wt (lt) [real]
u (lt) [real]
v (lt) [real]
w (lt) [real]
t (lt) [real]

Call to:

svint(), divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine evalut(utp, vtp, wtp, ut, vt, wt, u, v, w, t)#

Parameters:

utp (lt) [real]
vtp (lt) [real]
wtp (lt) [real]
ut (lt) [real]
vt (lt) [real]
wt (lt) [real]
u (lt) [real]
v (lt) [real]
w (lt) [real]
t (lt) [real]

Call to:

subroutine reconv_wo0(ux, uy, uz, coef, ncop)#

Parameters:

ux (lt) [real]
uy (lt) [real]
uz (lt) [real]
coef (1 + nb) [real]
ncop [integer]

Called from:

Call to:

subroutine divm1(div, ux, uy, uz)#

Parameters:

div (lxyz,1) [real]
ux (lxyz,1) [real]
uy (lxyz,1) [real]
uz (lxyz,1) [real]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), c_distortion_measure(), projtoprerb(), evaldut(), evalut(), reconv_wo0(), divm1(), recont_wo0(), svint(), checkaeq(), checkaeqp(), checkaeqd(), setdiff(), projvecm(), setpsi(), splitvec(), combvec(), tfunc(), evalf(), evalcflds(), evalaflds(), set0flow(), p2b(), p2b_helper(), fip(), find_cerr(), find_cerr2(), genrij(), rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi(), update_k(), update_hyper(), setmisc(), mor_init_params(), mor_set_params_rea(), mor_set_params_uni_pre(), mor_set_params_uni_post(), mor_show_params(), mor_init_fields()

Call to:

subroutine recont_wo0(tt, coef, nocp)#

Parameters:

tt (lt) [real]
coef (1 + nb) [real]
nocp [integer]

Called from:

Call to:

function svint(s1, s2, s3)#

Parameters:

s1 (lx1,ly1,lz1,lelt) [real]
s2 (lx1,ly1,lz1,lelt) [real]
s3 (lx1,ly1,lz1,lelt) [real]

Return:

svint [real]

Called from:

Call to:

divm1(), lap2d(), lap3d(), projvecm(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine checkaeq(ux, uy, uz, uxx, uxy, pp, visc)#

Parameters:

ux (lx1,ly1,lz1,lelt) [real]
uy (lx1,ly1,lz1,lelt) [real]
uz (lx1,ly1,lz1,lelt) [real]
uxx (lelt * lx1 * ly1 * lz1,ldim) [real]
uxy (lelt * lx1 * ly1 * lz1,ldim) [real]
pp (lx2,ly2,lz2,lelt) [real]
visc [real]

Call to:

subroutine checkaeqp(ux, uy, uz, uxx, uxy, pp, visc)#

Parameters:

ux (lx1,ly1,lz1,lelt) [real]
uy (lx1,ly1,lz1,lelt) [real]
uz (lx1,ly1,lz1,lelt) [real]
uxx (lelt * lx1 * ly1 * lz1,ldim) [real]
uxy (lelt * lx1 * ly1 * lz1,ldim) [real]
pp (lx2,ly2,lz2,lelt) [real]
visc [real]

Call to:

subroutine checkaeqd(ux, uy, uz, uxx, uxy, pp, ud, visc)#

Parameters:

ux (lelt * lx1 * ly1 * lz1) [real]
uy (lelt * lx1 * ly1 * lz1) [real]
uz (lelt * lx1 * ly1 * lz1) [real]
uxx (lelt * lx1 * ly1 * lz1,ldim) [real]
uxy (lelt * lx1 * ly1 * lz1,ldim) [real]
pp (lx2,ly2,lz2,lelt) [real]
ud (lelt * lx1 * ly1 * lz1,ldim) [real]
visc [real]

Call to:

subroutine setdiff(udfld, tdfld, uafld, tafld, upup, upvp, uptp)#

Parameters:

udfld (lelt * lx1 * ly1 * lz1,ldim) [real]
tdfld (lelt * lx1 * ly1 * lz1) [real]
uafld (lelt * lx1 * ly1 * lz1,ldim) [real]
tafld (lelt * lx1 * ly1 * lz1) [real]
upup (lelt * lx1 * ly1 * lz1,ldim) [real]
upvp (lelt * lx1 * ly1 * lz1,ldim) [real]
uptp (lelt * lx1 * ly1 * lz1,ldim) [real]

Called from:

Call to:

projvecm(), divm1(), evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine projvecm(ax, ay, az, bx, by, bz, pfld)#

Parameters:

ax (lt) [real]
ay (lt) [real]
az (lt) [real]
bx (lt) [real]
by (lt) [real]
bz (lt) [real]
pfld (lelt * lx1 * ly1 * lz1) [real]

Called from:

Call to:

evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine setpsi(psit, veca, vecb)#

Parameters:

psit (lelt * lx1 * ly1 * lz1,ldim * ldim) [real]
veca (lelt * lx1 * ly1 * lz1,ldim) [real]
vecb (lelt * lx1 * ly1 * lz1,ldim) [real]

Call to:

evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine splitvec(x, y, z, xyz, ndim, n)#

Parameters:

x (n) [real]
y (n) [real]
z (n) [real]
xyz (ndim,n) [real]
ndim [integer]
n [integer]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), ctsurf(), ctsurf3(), ctbulk_den(), ctbulk_num(), ctbulk(), cnuss(), savg(), facint3(), neumann(), cubar_setup(), cubar(), find_nelx(), find_nely(), gfldi(), interp_s(), interp_v()

Call to:

evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine combvec(xyz, x, y, z, ndim, n)#

Parameters:

xyz (ndim,n) [real]
x (n) [real]
y (n) [real]
z (n) [real]
ndim [integer]
n [integer]

Call to:

evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine tfunc(u, rad, wt, n)#

Parameters:

u (n) [real]
rad [real]
wt [real]
n [integer]

Call to:

evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine evalf(f, uu, tt, g, mdim, ifweak)#

Parameters:

f (lt,mdim) [real]
uu (lt,ldim) [real]
tt (lt,mdim) [real]
g (lt,mdim) [real]
mdim [integer]
ifweak [logical]

Call to:

evalcflds(), evalaflds(), setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine evalcflds(cfld, us0, ts0, mdim, ns, ifweak)#

Parameters:

cfld (lt,mdim,ns) [real]
us0 (lt,ldim,ns) [real]
ts0 (lt,mdim,ns) [real]
mdim [integer]
ns [integer]
ifweak [logical]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), c_distortion_measure(), projtoprerb(), evaldut(), evalut(), reconv_wo0(), divm1(), recont_wo0(), svint(), checkaeq(), checkaeqp(), checkaeqd(), setdiff(), projvecm(), setpsi(), splitvec(), combvec(), tfunc(), evalf(), evalcflds(), evalaflds(), set0flow(), p2b(), p2b_helper(), fip(), find_cerr(), find_cerr2(), genrij(), orthonormb(), setab(), dump_global(), idump_serial(), dump_serial(), dump_global_helper(), idump_serial_helper(), dump_serial_helper(), dump_all(), dump_ops(), dump_bas(), dump_cbas()

Call to:

setcnv_c(), setcnv_u(), setcnv_u1(), cc(), divm1(), p2b_helper(), fip(), vip(), sip(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine evalaflds(afld, ts0, mdim, ns, ifweak)#

Parameters:

afld (lt,mdim,ns) [real]
ts0 (lt,mdim,ns) [real]
mdim [integer]
ns [integer]
ifweak [logical]

Called from:

Call to:

divm1(), p2b_helper(), fip(), vip(), sip(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine set0flow(uvwb, nb, idirf)#

Parameters:

uvwb (lt,ldim,nb) [real]
nb [integer]
idirf [integer]

Called from:

setbases()

Call to:

p2b_helper(), fip(), vip(), sip(), divm1(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine p2b(uvw, uvwb, mdim, nb, iforth, sc)#

Parameters:

uvw (lt,mdim) [real]
uvwb (lt,mdim,nb) [real]
mdim [integer]
nb [integer]
iforth [logical]
sc (nb) [real]

Call to:

p2b_helper(), fip(), vip(), sip(), divm1(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine p2b_helper(sc, uvw, uvwb, mdim, nb)#

Parameters:

sc (nb) [real]
uvw (lt,mdim) [real]
uvwb (lt,mdim,nb) [real]
mdim [integer]
nb [integer]

Called from:

Call to:

fip(), vip(), sip(), divm1(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

function fip(uvw, xyz, mdim)#

Parameters:

uvw (lt,mdim) [real]
xyz (lt,mdim) [real]
mdim [integer]

Return:

fip [real]

Called from:

Call to:

vip(), sip(), divm1(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine find_cerr()#

Call to:: divm1(), vip(), sip(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine find_cerr2()#

Call to:: divm1(), vip(), sip(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine genrij()#

Call to:: divm1(), vip(), sip(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine orthonormb(b, mdim, nb)#

Parameters:

b (lelt * lx1 * ly1 * lz1,mdim,nb) [real]
mdim [integer]
nb [integer]

Called from:

setbases()

Call to:

vip(), sip(), evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine setab(uxyz, uvwb, uvwb0)#

Parameters:

uxyz (lt,ldim) [real]
uvwb (lt,ldim) [real]
uvwb0 (lt,ldim) [real]

Called from:

setbases()

Call to:

evalcflds(), set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine rbf_setup(rbfwt, rbf_sigma, edk, anch, ns, nb)#

Parameters:

rbfwt (ns,nb) [real] :: rbf matrix and weight
rbf_sigma (nb) [real] :: rbf parameter
edk (1 + nb,ns) [real] :: rbf data value
anch (ns) [real] :: rbf data point
ns [integer]
nb [integer]

Call to:

set_rbf_sig(), c_rbfwt(), invmat(), abm_shuffle_helper()

subroutine set_rbf_sig(rbf_sigma, edk, anch, ns, nb)#

Parameters:

rbf_sigma (nb) [real] :: rbf parameter
edk (1 + nb,ns) [real]
anch (ns) [real] :: rbf data point
ns [integer]
nb [integer]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), c_distortion_measure(), projtoprerb(), evaldut(), evalut(), reconv_wo0(), divm1(), recont_wo0(), svint(), checkaeq(), checkaeqp(), checkaeqd(), setdiff(), projvecm(), setpsi(), splitvec(), combvec(), tfunc(), evalf(), evalcflds(), evalaflds(), set0flow(), p2b(), p2b_helper(), fip(), find_cerr(), find_cerr2(), genrij(), orthonormb(), setab(), rbf_setup()

Call to:

invmat(), abm_shuffle_helper()

subroutine c_rbfwt(rbfwt, rbf_sigma, edk, anch, ns, nb)#

Parameters:

rbfwt (ns,nb) [real] :: rbf matrix and weight
rbf_sigma (nb) [real] :: rbf parameter
edk (1 + nb,ns) [real]
anch (ns) [real] :: rbf data point
ns [integer]
nb [integer]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), c_distortion_measure(), projtoprerb(), evaldut(), evalut(), reconv_wo0(), divm1(), recont_wo0(), svint(), checkaeq(), checkaeqp(), checkaeqd(), setdiff(), projvecm(), setpsi(), splitvec(), combvec(), tfunc(), evalf(), evalcflds(), evalaflds(), set0flow(), p2b(), p2b_helper(), fip(), find_cerr(), find_cerr2(), genrij(), orthonormb(), setab(), rbf_setup()

Call to:

invmat(), abm_shuffle_helper()

subroutine rbf_interp(edv, test_p, rbfwt, rbf_sigma, anch, ns, nb)#

Parameters:

edv (nb) [real]
test_p [real]
rbfwt (ns,nb) [real]
rbf_sigma (nb) [real]
anch (ns) [real]
ns [integer]
nb [integer]

Call to:

abm_shuffle_helper()

function abm_shuffle_helper(indo, nb, nsplit)#

Parameters:

indo [integer]
nb [integer]
nsplit [integer]

Return:

abm_shuffle_helper [real]

Called from:

opadd3(), recont(), recont_rms(), reconu_rms(), reconu_rm2(), reconv(), ctke_fom(), ctke(), lints(), ltruncr(), shift(), shift3(), lap2d(), lap3d(), push_op(), pop_op(), push_sol(), pop_sol(), zero_sol(), add_sol(), scale_sol(), copy_sol(), gradp(), setdps(), setconvbases(), setdtbases(), hyperpar(), opbinv1_nom(), binv1_nom(), binv1(), invmat(), cpsi(), csga(), emask(), set_surf(), set_gradn(), dump_sfld(), sol_intp_xline(), sol_intp_xline_qoi(), sol_intp_xline_fqoi(), interp_vec_prop2(), interp_vec2(), interp_sca_prop2(), interp_sca2(), count_gal(), cdump(), set_binv2(), diag(), checker(), checkera(), k_mean(), c_distortion_measure(), projtoprerb(), evaldut(), evalut(), reconv_wo0(), divm1(), recont_wo0(), svint(), checkaeq(), checkaeqp(), checkaeqd(), setdiff(), projvecm(), setpsi(), splitvec(), combvec(), tfunc(), evalf(), evalcflds(), evalaflds(), set0flow(), p2b(), p2b_helper(), fip(), find_cerr(), find_cerr2(), genrij(), orthonormb(), setab(), rbf_setup(), set_rbf_sig(), c_rbfwt(), rbf_interp(), abm_shuffle_helper(), abm_shuffle()

Call to:

abm_shuffle_helper()

subroutine abm_shuffle()#

Called from:: setbases()
Call to:: abm_shuffle_helper()