dMISC_utilities.f90 File Reference

Modules

module  d_misc_utilities
 

Functions/Subroutines

real(kind=8) function d_misc_utilities::d_seq_wtime ()
 
subroutine d_misc_utilities::d_linspacei (startI, endI, N, array)
 
subroutine d_misc_utilities::d_copysubmat_assumeshape (A, B, m, n, trans)
 
subroutine d_misc_utilities::d_copysubmat (A, ais, ajs, B, bis, bjs, m, n, trans)
 
subroutine d_misc_utilities::d_copymatt (A, B, m, n)
 
logical function d_misc_utilities::d_myisnan (a)
 
logical function d_misc_utilities::d_isnanmat (A, m, n)
 
subroutine d_misc_utilities::d_lr_recompression (matU, matV, Singular, M, N, rmax, rank, SVD_tolerance, Flops)
 
subroutine d_misc_utilities::d_lr_add (chara, U1, V1, U2, V2, rank1, rank2, ranknew, matU, matV, M, N, SVD_tolerance, flops)
 
subroutine d_misc_utilities::d_lr_add_aca (matU, matV, rankmax_r, rankmax_c, rmax, rank, tolerance, SVD_tolerance, error, flops)
 
subroutine d_misc_utilities::d_lr_fnormup (matU, matV, M, N, rskip, ruv, rup, ldV, normUV, normUVupdate, tolerance, Flops)
 
subroutine d_misc_utilities::d_lr_fnorm (matU, matV, M, N, rmax, norm, tolerance, Flops)
 
subroutine d_misc_utilities::d_getrank (M, N, mat, rank, eps, flop)
 
subroutine d_misc_utilities::d_pcomputerange (M_p, N, mat, rank, eps, ptree, pgno, Flops, norm_tol)
 
subroutine d_misc_utilities::d_computerange (M, N, mat, rank, rrflag, eps, Flops, norm_tol)
 
subroutine d_misc_utilities::d_checkrandomizedlr (M, N, mat, tolerance)
 
subroutine d_misc_utilities::d_rperm (N, p)
 
subroutine d_misc_utilities::d_init_random_seed ()
 
integer function d_lcg (s)
 
subroutine d_misc_utilities::d_random_dp_number (val)
 
complex(kind=8) function d_misc_utilities::d_c8_normal_01 (seed)
 
real(kind=8) function d_misc_utilities::d_r8_normal_01 (seed)
 
real(kind=8) function d_misc_utilities::d_r8_uniform_01 (seed)
 
subroutine d_misc_utilities::d_assert (statement, msg)
 
integer function d_misc_utilities::d_floor_safe (input)
 
integer function d_misc_utilities::d_ceiling_safe (input)
 
integer function d_misc_utilities::d_int_safe (input)
 
subroutine d_misc_utilities::d_cscalar (a, b, c)
 
subroutine d_misc_utilities::d_scalar (a, b, c)
 
subroutine d_misc_utilities::d_rrcurl (a, b, c)
 
subroutine d_misc_utilities::d_rccurl (a, b, c)
 
subroutine d_misc_utilities::d_cccurl (a, b, c)
 
subroutine d_misc_utilities::d_cscalar_sp (a, b, c)
 
subroutine d_misc_utilities::d_scalar_sp (a, b, c)
 
subroutine d_misc_utilities::d_rrcurl_sp (a, b, c)
 
subroutine d_misc_utilities::d_rccurl_sp (a, b, c)
 
subroutine d_misc_utilities::d_cccurl_sp (a, b, c)
 
real(kind=8) function d_misc_utilities::d_norm_vector (vector, n)
 
subroutine d_misc_utilities::d_linearsolve (m, n, k, A, b, x, eps_r, verbose, Flops)
 
subroutine d_misc_utilities::d_generalinverse (m, n, A, A_inv, eps_r, Flops)
 
subroutine d_misc_utilities::d_pgeneralinverse (m, n, A, A_inv, eps_r, ctxt, Flops)
 
subroutine d_misc_utilities::d_randomizedsvd (matRcol, matZRcol, matRrow, matZcRrow, matU, matV, Singular, rankmax_r, rankmax_c, rmax, rank, tolerance, SVD_tolerance, Flops)
 
subroutine d_misc_utilities::d_randomsubmat (ms, me, ns, ne, k, A, Oflag)
 
subroutine d_misc_utilities::d_randommat (m, n, k, A, Oflag)
 
subroutine d_misc_utilities::d_id_selection (Mat, select_column, select_row, m, n, rank, tolerance)
 
subroutine d_misc_utilities::d_aca_compressionfull (mat, matU, matV, rankmax_r, rankmax_c, rmax, rank, tolerance, SVD_tolerance)
 
recursive subroutine d_misc_utilities::d_rrqr_lq (mat, mm, nn, mn, UU, VV, tolerance, rank, lr, flops)
 
subroutine d_misc_utilities::d_svd_truncate (mat, mm, nn, mn, UU, VV, Singular, tolerance_rel, tolerance_abs, rank, flop)
 
subroutine d_misc_utilities::d_rrqr_svd (mat, mm, nn, mn, rmax, UU, VV, Singular, tolerance, rank, flop)
 
subroutine d_misc_utilities::d_psvd_truncate (mm, nn, mat, descMat, UU, VV, descUU, descVV, Singular, tolerance, rank, ctxt, tolerance_abs, flop)
 
subroutine d_misc_utilities::d_piksrt_dble_multi (N, M, ARR)
 
subroutine d_misc_utilities::d_piksrt_int_multi (N, M, ARR)
 
subroutine d_misc_utilities::d_remove_dup_int (array, nin, nout)
 *** remove the duplicates in an integer array More...
 
subroutine d_misc_utilities::d_binary_search (N, x, val, mid)
 
subroutine d_misc_utilities::quick_sort (d_list, order, n)
 
recursive subroutine quick_sort_1 (left_end, right_end)
 
subroutine interchange_sort (left_end, right_end)
 
subroutine d_misc_utilities::quick_sort_int (d_list, order, n)
 
subroutine d_misc_utilities::d_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 d_misc_utilities::d_cart2sph (xin, yin, zin, origin, r, theta, phi)
 
complex(kind=8) function d_misc_utilities::d_hankel02_func (x)
 
real(kind=8) function d_misc_utilities::d_besselj0_func (x)
 
real(kind=8) function d_misc_utilities::d_bessely0_func (x)
 
subroutine d_misc_utilities::bessjyv (Nmax, x, sjv, bf)
 
subroutine d_misc_utilities::bessjy (x, xnu, rj)
 
real *8 function absc (z)
 
subroutine d_misc_utilities::beschb (x, gam1, gam2, gampl, gammi)
 
real *8 function d_misc_utilities::chebev (a, b, c, x)
 
recursive subroutine d_misc_utilities::d_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 d_misc_utilities::d_numberingptree (ptree)
 
subroutine d_misc_utilities::d_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 d_misc_utilities::d_singleindextomultiindex (Ndim, dims, single_index_in, multi_index)
 **** convert single index to multi-index, assuming first index is the fastest More...
 
subroutine d_misc_utilities::d_multiindextosingleindex (Ndim, dims, single_index, multi_index)
 **** convert multi-index to single-index, assuming first index is the fastest More...
 
subroutine d_misc_utilities::d_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 d_misc_utilities::d_tensorunfoldingreshape (Ndim, dims_ref_old, dims_ref_new, offsets_ref, ld_old, ld_new, data_in, trans_in, data_out, trans_out, loopnew)
 
subroutine d_misc_utilities::d_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 d_misc_utilities::d_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 d_misc_utilities::d_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 d_misc_utilities::d_getmshgroup_pgno (ptree, ndim, group)
 **** get the pgno for the multi-dimensinoal group in msh. More...
 
subroutine d_misc_utilities::d_blacs_exit_wrp (flag)
 
subroutine d_misc_utilities::d_blacs_gridexit_wrp (ctxt)
 
subroutine d_misc_utilities::d_blacs_gridmap_wrp (ctxt, pmap, ldu, nprow, npcol)
 
integer function d_misc_utilities::d_sys2blacs_handle_wrp (comm)
 
subroutine d_misc_utilities::d_createptree (nmpi, groupmembers, MPI_Comm_base, ptree)
 
subroutine d_misc_utilities::d_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 d_misc_utilities::d_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 d_misc_utilities::d_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 d_misc_utilities::d_redistribute1dto2d (dat_i, M_p_i, head_i, pgno_i, dat_o, M, head_o, pgno_o, N, ptree)
 
subroutine d_misc_utilities::d_redistribute2dto1d (dat_i, M, head_i, pgno_i, dat_o, M_p_o, head_o, pgno_o, N, ptree)
 
subroutine d_misc_utilities::d_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 d_misc_utilities::d_gettreelevel (gno)
 
logical function d_misc_utilities::d_iownpgrp (ptree, pgno)
 
integer function d_misc_utilities::d_lcm (a, b)
 
integer function d_misc_utilities::d_gcd (a, b)
 
integer function d_misc_utilities::d_blacs_pnum_wp (NPROW, NPCOL, PROW, PCOL)
 
subroutine d_misc_utilities::d_gridinfo_2d (pmap, MyID, myrow, mycol)
 
subroutine d_misc_utilities::d_array1dtopointer2d (x, p, n1, n2)
 
subroutine d_misc_utilities::d_logmemory (stats, mem)
 
subroutine d_misc_utilities::d_get_graph_colors_jp (rows, ia, ja, colors)
 
integer function d_misc_utilities::d_bit_reverse (n, bits)
 

Variables

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

Function/Subroutine Documentation

◆ absc()

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

◆ d_lcg()

integer function d_init_random_seed::d_lcg ( integer(int64)  s)

◆ interchange_sort()

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

◆ quick_sort_1()

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