zMISC_utilities.f90 File Reference

Modules

module  z_misc_utilities
 

Functions/Subroutines

real(kind=8) function z_misc_utilities::z_seq_wtime ()
 
subroutine z_misc_utilities::z_linspacei (startI, endI, N, array)
 
subroutine z_misc_utilities::z_copysubmat_assumeshape (A, B, m, n, trans)
 
subroutine z_misc_utilities::z_copysubmat (A, ais, ajs, B, bis, bjs, m, n, trans)
 
subroutine z_misc_utilities::z_copymatt (A, B, m, n)
 
logical function z_misc_utilities::z_myisnan (a)
 
logical function z_misc_utilities::z_isnanmat (A, m, n)
 
subroutine z_misc_utilities::z_lr_recompression (matU, matV, Singular, M, N, rmax, rank, SVD_tolerance, Flops)
 
subroutine z_misc_utilities::z_lr_add (chara, U1, V1, U2, V2, rank1, rank2, ranknew, matU, matV, M, N, SVD_tolerance, flops)
 
subroutine z_misc_utilities::z_lr_add_aca (matU, matV, rankmax_r, rankmax_c, rmax, rank, tolerance, SVD_tolerance, error, flops)
 
subroutine z_misc_utilities::z_lr_fnormup (matU, matV, M, N, rskip, ruv, rup, ldV, normUV, normUVupdate, tolerance, Flops)
 
subroutine z_misc_utilities::z_lr_fnorm (matU, matV, M, N, rmax, norm, tolerance, Flops)
 
subroutine z_misc_utilities::z_getrank (M, N, mat, rank, eps, flop)
 
subroutine z_misc_utilities::z_pcomputerange (M_p, N, mat, rank, eps, ptree, pgno, Flops, norm_tol)
 
subroutine z_misc_utilities::z_computerange (M, N, mat, rank, rrflag, eps, Flops, norm_tol)
 
subroutine z_misc_utilities::z_checkrandomizedlr (M, N, mat, tolerance)
 
subroutine z_misc_utilities::z_rperm (N, p)
 
subroutine z_misc_utilities::z_init_random_seed ()
 
integer function z_lcg (s)
 
subroutine z_misc_utilities::z_random_dp_number (val)
 
complex(kind=8) function z_misc_utilities::z_c8_normal_01 (seed)
 
real(kind=8) function z_misc_utilities::z_r8_normal_01 (seed)
 
real(kind=8) function z_misc_utilities::z_r8_uniform_01 (seed)
 
subroutine z_misc_utilities::z_assert (statement, msg)
 
integer function z_misc_utilities::z_floor_safe (input)
 
integer function z_misc_utilities::z_ceiling_safe (input)
 
integer function z_misc_utilities::z_int_safe (input)
 
subroutine z_misc_utilities::z_cscalar (a, b, c)
 
subroutine z_misc_utilities::z_scalar (a, b, c)
 
subroutine z_misc_utilities::z_rrcurl (a, b, c)
 
subroutine z_misc_utilities::z_rccurl (a, b, c)
 
subroutine z_misc_utilities::z_cccurl (a, b, c)
 
subroutine z_misc_utilities::z_cscalar_sp (a, b, c)
 
subroutine z_misc_utilities::z_scalar_sp (a, b, c)
 
subroutine z_misc_utilities::z_rrcurl_sp (a, b, c)
 
subroutine z_misc_utilities::z_rccurl_sp (a, b, c)
 
subroutine z_misc_utilities::z_cccurl_sp (a, b, c)
 
real(kind=8) function z_misc_utilities::z_norm_vector (vector, n)
 
subroutine z_misc_utilities::z_linearsolve (m, n, k, A, b, x, eps_r, verbose, Flops)
 
subroutine z_misc_utilities::z_generalinverse (m, n, A, A_inv, eps_r, Flops)
 
subroutine z_misc_utilities::z_pgeneralinverse (m, n, A, A_inv, eps_r, ctxt, Flops)
 
subroutine z_misc_utilities::z_randomizedsvd (matRcol, matZRcol, matRrow, matZcRrow, matU, matV, Singular, rankmax_r, rankmax_c, rmax, rank, tolerance, SVD_tolerance, Flops)
 
subroutine z_misc_utilities::z_randomsubmat (ms, me, ns, ne, k, A, Oflag)
 
subroutine z_misc_utilities::z_randommat (m, n, k, A, Oflag)
 
subroutine z_misc_utilities::z_id_selection (Mat, select_column, select_row, m, n, rank, tolerance)
 
subroutine z_misc_utilities::z_aca_compressionfull (mat, matU, matV, rankmax_r, rankmax_c, rmax, rank, tolerance, SVD_tolerance)
 
recursive subroutine z_misc_utilities::z_rrqr_lq (mat, mm, nn, mn, UU, VV, tolerance, rank, lr, flops)
 
subroutine z_misc_utilities::z_svd_truncate (mat, mm, nn, mn, UU, VV, Singular, tolerance_rel, tolerance_abs, rank, flop)
 
subroutine z_misc_utilities::z_rrqr_svd (mat, mm, nn, mn, rmax, UU, VV, Singular, tolerance, rank, flop)
 
subroutine z_misc_utilities::z_psvd_truncate (mm, nn, mat, descMat, UU, VV, descUU, descVV, Singular, tolerance, rank, ctxt, tolerance_abs, flop)
 
subroutine z_misc_utilities::z_piksrt_dble_multi (N, M, ARR)
 
subroutine z_misc_utilities::z_piksrt_int_multi (N, M, ARR)
 
subroutine z_misc_utilities::z_remove_dup_int (array, nin, nout)
 *** remove the duplicates in an integer array More...
 
subroutine z_misc_utilities::z_binary_search (N, x, val, mid)
 
subroutine z_misc_utilities::quick_sort (z_list, order, n)
 
recursive subroutine quick_sort_1 (left_end, right_end)
 
subroutine interchange_sort (left_end, right_end)
 
subroutine z_misc_utilities::quick_sort_int (z_list, order, n)
 
subroutine z_misc_utilities::z_cart2sph_loc (xin, yin, zin, origin, xunit, yunit, zunit, r, theta, phi)
 ******* convert from a gloal Cartesian coordinate to a local Cartesian coordinate (origin, xunit, yunit, zunit) and then convert to the local spherial coordinate More...
 
subroutine z_misc_utilities::z_cart2sph (xin, yin, zin, origin, r, theta, phi)
 
complex(kind=8) function z_misc_utilities::z_hankel02_func (x)
 
real(kind=8) function z_misc_utilities::z_besselj0_func (x)
 
real(kind=8) function z_misc_utilities::z_bessely0_func (x)
 
subroutine z_misc_utilities::bessjyv (Nmax, x, sjv, bf)
 
subroutine z_misc_utilities::bessjy (x, xnu, rj)
 
real *8 function absc (z)
 
subroutine z_misc_utilities::beschb (x, gam1, gam2, gampl, gammi)
 
real *8 function z_misc_utilities::chebev (a, b, c, x)
 
recursive subroutine z_misc_utilities::z_createleaf_natural (nlevel, level, group, idxs, idxe, treeleaf)
 **** create a array treeleaf holding size of each leaf box of a tree with nlevel levels (0<=level<=nlevel) More...
 
subroutine z_misc_utilities::z_numberingptree (ptree)
 
subroutine z_misc_utilities::z_getlocalblockrange (ptree, pgno, level, level_butterfly, idx_r, inc_r, nr, idx_c, inc_c, nc, dir)
 **** computation of the local butterfly block ranges owned by this MPI rank More...
 
subroutine z_misc_utilities::z_singleindextomultiindex (Ndim, dims, single_index_in, multi_index)
 **** convert single index to multi-index, assuming first index is the fastest More...
 
subroutine z_misc_utilities::z_multiindextosingleindex (Ndim, dims, single_index, multi_index)
 **** convert multi-index to single-index, assuming first index is the fastest More...
 
subroutine z_misc_utilities::z_getlocalblockrange_md (ptree, pgno, level, level_butterfly, ndim, dim_s, idx_r, inc_r, nr, idx_c, inc_c, nc, dir)
 **** computation of the local (multi-dimensinonal) butterfly block ranges owned by this MPI rank More...
 
subroutine z_misc_utilities::z_tensorunfoldingreshape (Ndim, dims_ref_old, dims_ref_new, offsets_ref, ld_old, ld_new, data_in, trans_in, data_out, trans_out, loopnew)
 
subroutine z_misc_utilities::z_getpgno_sub (ptree, pgno, level_butterfly, pgno_sub)
 **** computation of the sub process group that handles one block of the outtermost factor of a butterfly. Note: if level_butterfly=0, then pgno_sub=pgno More...
 
subroutine z_misc_utilities::z_getblockpid (ptree, pgno, level, level_butterfly, index_i, index_j, dir, pgno_sub)
 **** computation of the process group number "pgno_sub" that shares the (index_i,index_j,level) block. Note for blocks in the kernels, only the head process in pgno_sub is active; for blocks in the outtermost factors, all processes could be active More...
 
subroutine z_misc_utilities::z_getblockpid_md (ptree, pgno, ndim, dim_s, level, level_butterfly, index_i, index_j, dir, pgno_sub)
 **** computation of the process group number "pgno_sub" that shares the multi-dimensional (index_i(ndim),index_j(ndim),level) block. Note for blocks in the kernels, only the head process in pgno_sub is active; for blocks in the outtermost factors, all processes could be active More...
 
integer function z_misc_utilities::z_getmshgroup_pgno (ptree, ndim, group)
 **** get the pgno for the multi-dimensinoal group in msh. More...
 
subroutine z_misc_utilities::z_blacs_exit_wrp (flag)
 
subroutine z_misc_utilities::z_blacs_gridexit_wrp (ctxt)
 
subroutine z_misc_utilities::z_blacs_gridmap_wrp (ctxt, pmap, ldu, nprow, npcol)
 
integer function z_misc_utilities::z_sys2blacs_handle_wrp (comm)
 
subroutine z_misc_utilities::z_createptree (nmpi, groupmembers, MPI_Comm_base, ptree)
 
subroutine z_misc_utilities::z_redistribute1dto1d (dat_i, ldi, M_p_i, head_i, pgno_i, dat_o, ldo, M_p_o, head_o, pgno_o, N, ptree, addflag)
 
subroutine z_misc_utilities::z_redistribute1dto1d_onetotwo (dat_i, ldi, M_p_i, head_i, pgno_i, dat_o1, ldo1, M_p_o1, head_o1, pgno_o1, dat_o2, ldo2, M_p_o2, head_o2, pgno_o2, N, ptree)
 
subroutine z_misc_utilities::z_redistribute1dto1d_twotoone (dat_i1, ldi1, M_p_i1, head_i1, pgno_i1, dat_i2, ldi2, M_p_i2, head_i2, pgno_i2, dat_o, ldo, M_p_o, head_o, pgno_o, N, ptree)
 
subroutine z_misc_utilities::z_redistribute1dto2d (dat_i, M_p_i, head_i, pgno_i, dat_o, M, head_o, pgno_o, N, ptree)
 
subroutine z_misc_utilities::z_redistribute2dto1d (dat_i, M, head_i, pgno_i, dat_o, M_p_o, head_o, pgno_o, N, ptree)
 
subroutine z_misc_utilities::z_redistribute1dto1d_md (Ndim, dat_i, ldi, M_p_i, head_i, pgno_i, dat_o, ldo, M_p_o, head_o, pgno_o, N, ptree, addflag)
 
integer function z_misc_utilities::z_gettreelevel (gno)
 
logical function z_misc_utilities::z_iownpgrp (ptree, pgno)
 
integer function z_misc_utilities::z_lcm (a, b)
 
integer function z_misc_utilities::z_gcd (a, b)
 
integer function z_misc_utilities::z_blacs_pnum_wp (NPROW, NPCOL, PROW, PCOL)
 
subroutine z_misc_utilities::z_gridinfo_2d (pmap, MyID, myrow, mycol)
 
subroutine z_misc_utilities::z_array1dtopointer2d (x, p, n1, n2)
 
subroutine z_misc_utilities::z_logmemory (stats, mem)
 
subroutine z_misc_utilities::z_get_graph_colors_jp (rows, ia, ja, colors)
 
integer function z_misc_utilities::z_bit_reverse (n, bits)
 

Variables

integer, parameter z_misc_utilities::int64 = selected_int_kind(18)
 

Function/Subroutine Documentation

◆ absc()

real*8 function bessjy::absc ( complex(kind = 8), intent(in)  z)

◆ interchange_sort()

subroutine interchange_sort ( integer, intent(in)  left_end,
integer, intent(in)  right_end 
)

◆ quick_sort_1()

recursive subroutine quick_sort_1 ( integer, intent(in)  left_end,
integer, intent(in)  right_end 
)
Here is the call graph for this function:

◆ z_lcg()

integer function z_init_random_seed::z_lcg ( integer(int64)  s)