read.f

These are the subroutines in read.f.

Subroutines and functions

subroutine  read_serial(a, n, fname, wk, nid)

Parameters:

• a (n) [real]

• n [integer]

• fname [character]

• wk (n) [real]

• nid [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(), 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(), setr_poisson(), set_alphaj(), set_betaj(), set_residual(), csigma_u(), csigma_t(), set_sigma_new(), crd(), cres_new(), cres_new1(), crd_test(), steady_stokes_solve(), crd_divf(), mor_set_params_par(), mpar_read(), cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), 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(), 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()

Call to:

ltruncr(), read_serial_helper(), read_mat_serial_helper(), push_sol(), read_fields(), restart_filen(), pop_sol(), lints(), zero_sol(), add_sol(), scale_sol(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), get_p_rb()

subroutine  read_serial_helper(a, n, fname)

Parameters:

• a (n) [real]

• n [integer]

• fname [character]

Called from:

read_serial()

Call to:

ltruncr(), read_mat_serial_helper(), push_sol(), read_fields(), restart_filen(), pop_sol(), lints(), zero_sol(), add_sol(), scale_sol(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), get_p_rb()

subroutine  read_mat_serial(a, n1, n2, fname, m1, m2, wk, nid)

Parameters:

• a (n1,n2) [real]

• n1 [integer]

• n2 [integer]

• fname [character]

• m1 [integer]

• m2 [integer]

• wk (n1 * n2) [real]

• nid [integer]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), 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(), 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()

Call to:

ltruncr(), read_mat_serial_helper(), push_sol(), read_fields(), restart_filen(), pop_sol(), lints(), zero_sol(), add_sol(), scale_sol(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), get_p_rb()

subroutine  read_mat_serial_helper(a, n1, n2, fname, m1, m2)

Parameters:

• a (n1,n2) [real]

• n1 [integer]

• n2 [integer]

• fname [character]

• m1 [integer]

• m2 [integer]

Called from:

read_serial(), read_serial_helper(), read_mat_serial()

Call to:

push_sol(), read_fields(), restart_filen(), pop_sol(), lints(), zero_sol(), add_sol(), scale_sol(), ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), get_p_rb()

subroutine  loadbases()

Called from:

setbases()

Call to:

push_sol(), read_fields(), restart_filen(), pop_sol(), lints(), zero_sol(), add_sol(), scale_sol(), ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), get_p_rb()

subroutine  read_fields(usave, psave, tsave, ns, ls, nskp, ifread, tk, fn, ifa)

Parameters:

• usave (lt,ldim,1) [real]

• psave (lt2,1) [real]

• tsave (lt,ls,ldimt) [real]

• ns [integer] :: Actual number of files read

• ls [integer]

• nskp [integer]

• ifread (1 + ldimt1) [logical]

• tk (1) [real]

• fn [character]

• ifa [logical]

Called from:

read_serial(), read_serial_helper(), read_mat_serial(), read_mat_serial_helper(), loadbases(), 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:

lints(), push_sol(), zero_sol(), add_sol(), pop_sol(), scale_sol(), ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), get_p_rb(), restart_filen()

subroutine  restart_filen(fname127, nch)

Parameters:

• fname127 [character]

• nch [integer]

Called from:

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()

Call to:

ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  restart_file(fname127)

Parameters:

fname127 [character]

Call to:

ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  restart_time_file(fname127)

Parameters:

fname127 [character]

Call to:

ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  read_sigma_u_serial(a, n1, n2, fname, m1, m2, m3, m4, wk, nid)

Parameters:

• a (n1,n2) [real]

• n1 [integer]

• n2 [integer]

• fname [character]

• m1 [integer]

• m2 [integer]

• m3 [integer]

• m4 [integer]

• wk (n1 * n2) [real]

• nid [integer]

Called from:

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(), setr_poisson(), set_alphaj(), set_betaj(), set_residual(), csigma_u(), csigma_t(), set_sigma_new()

Call to:

ltruncr(), read_sigma_u_serial_helper(), read_sigma_t_serial_helper(), push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  read_sigma_u_serial_helper(a, n1, n2, fname, m1, m2, m3, m4)

Parameters:

• a (n1,n2) [real]

• n1 [integer]

• n2 [integer]

• fname [character]

• m1 [integer]

• m2 [integer]

• m3 [integer]

• m4 [integer]

Called from:

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()

Call to:

ltruncr(), read_sigma_t_serial_helper(), push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  read_sigma_t_serial(a, n1, n2, fname, m1, m2, m3, m4, wk, nid)

Parameters:

• a (n1,n2) [real]

• n1 [integer]

• n2 [integer]

• fname [character]

• m1 [integer]

• m2 [integer]

• m3 [integer]

• m4 [integer]

• wk (n1 * n2) [real]

• nid [integer]

Called from:

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(), setr_poisson(), set_alphaj(), set_betaj(), set_residual(), csigma_u(), csigma_t(), set_sigma_new()

Call to:

ltruncr(), read_sigma_t_serial_helper(), push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  read_sigma_t_serial_helper(a, n1, n2, fname, m1, m2, m3, m4)

Parameters:

• a (n1,n2) [real]

• n1 [integer]

• n2 [integer]

• fname [character]

• m1 [integer]

• m2 [integer]

• m3 [integer]

• m4 [integer]

Called from:

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:

push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  loadpbases(nsave)

Parameters:

nsave [integer] :: Actual number of files read

Call to:

push_sol(), get_p_rb(), restart_filen(), pop_sol(), lints()

subroutine  get_p_rb(nocp, nsu, nsp, nst, ttk, fn)

Parameters:

• nocp [integer]

• nsu [integer]

• nsp [integer]

• nst [integer]

• ttk (nsu) [real]

• fn [character]

Called from:

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()

Call to:

lints(), push_sol(), pop_sol()