Creates the wavelet kernel for the wavelet based poisson solver. More...
Functions | |
| subroutine, public | scaling_function (itype, nd, nrange, a, x) |
| Calculate the values of a scaling function in real uniform grid. | |
| subroutine | wavelet_function (itype, nd, a, x) |
| Calculate the values of the wavelet function in a real uniform mesh. | |
| subroutine, public | scf_recursion (itype, n_iter, n_range, kernel_scf, kern_1_scf) |
| Do iterations to go from p0gauss to pgauss order interpolating scaling function. | |
| subroutine | zero (n, x) |
| Set to zero an array x(n) | |
| subroutine | for_trans (nd, nt, x, y, m, ch, cg, cgt, cht) |
| forward wavelet transform nd: length of data set nt length of data in data set to be transformed m filter length (m has to be even!) x input data, y output data | |
| subroutine | back_trans (nd, nt, x, y, m, ch, cg, cgt, cht) |
| subroutine | ftest (m, ch, cg, cgt, cht) |
| Tests the 4 orthogonality relations of the filters. | |
| subroutine | scf_recurs (n_iter, n_range, kernel_scf, kern_1_scf, m, ch, cg, cgt, cht) |
| Do iterations to go from p0gauss to pgauss 8th-order interpolating scaling function. | |
Detailed Description
Creates the wavelet kernel for the wavelet based poisson solver.
Function Documentation
| subroutine ps_wavelet_scaling_function::back_trans | ( | INTEGER,intent(in) | nd, |
| INTEGER,intent(in) | nt, | ||
| REAL(KIND=dp),dimension(0:nd-1),intent(in) | x, | ||
| REAL(KIND=dp),dimension(0:nd-1),intent(out) | y, | ||
| INTEGER | m, | ||
| REAL(KIND=dp),dimension(:),pointer | ch, | ||
| REAL(KIND=dp),dimension(:),pointer | cg, | ||
| REAL(KIND=dp),dimension(:),pointer | cgt, | ||
| REAL(KIND=dp),dimension(:),pointer | cht | ||
| ) | [private] |
Definition at line 218 of file ps_wavelet_scaling_function.f90.
Referenced by scaling_function(), and wavelet_function().
Here is the caller graph for this function:
| subroutine ps_wavelet_scaling_function::for_trans | ( | INTEGER,intent(in) | nd, |
| INTEGER,intent(in) | nt, | ||
| REAL(KIND=dp),dimension(0:nd-1),intent(in) | x, | ||
| REAL(KIND=dp),dimension(0:nd-1),intent(out) | y, | ||
| INTEGER | m, | ||
| REAL(KIND=dp),dimension(:),pointer | ch, | ||
| REAL(KIND=dp),dimension(:),pointer | cg, | ||
| REAL(KIND=dp),dimension(:),pointer | cgt, | ||
| REAL(KIND=dp),dimension(:),pointer | cht | ||
| ) | [private] |
forward wavelet transform nd: length of data set nt length of data in data set to be transformed m filter length (m has to be even!) x input data, y output data
Definition at line 179 of file ps_wavelet_scaling_function.f90.
| subroutine ps_wavelet_scaling_function::ftest | ( | INTEGER | m, |
| REAL(KIND=dp),dimension(:),pointer | ch, | ||
| REAL(KIND=dp),dimension(:),pointer | cg, | ||
| REAL(KIND=dp),dimension(:),pointer | cgt, | ||
| REAL(KIND=dp),dimension(:),pointer | cht | ||
| ) | [private] |
Tests the 4 orthogonality relations of the filters.
Definition at line 265 of file ps_wavelet_scaling_function.f90.
| subroutine,public ps_wavelet_scaling_function::scaling_function | ( | INTEGER,intent(in) | itype, |
| INTEGER,intent(in) | nd, | ||
| INTEGER,intent(out) | nrange, | ||
| REAL(KIND=dp),dimension(0:nd),intent(out) | a, | ||
| REAL(KIND=dp),dimension(0:nd),intent(out) | x | ||
| ) |
Calculate the values of a scaling function in real uniform grid.
Definition at line 25 of file ps_wavelet_scaling_function.f90.
References back_trans(), lazy::lazy_arrays(), and zero().
Referenced by ps_wavelet_kernel::Free_Kernel(), and ps_wavelet_kernel::Surfaces_Kernel().
Here is the call graph for this function:
Here is the caller graph for this function:
| subroutine ps_wavelet_scaling_function::scf_recurs | ( | INTEGER,intent(in) | n_iter, |
| INTEGER,intent(in) | n_range, | ||
| REAL(KIND=dp),dimension(-n_range:n_range),intent(inout) | kernel_scf, | ||
| REAL(KIND=dp),dimension(-n_range:n_range),intent(out) | kern_1_scf, | ||
| INTEGER | m, | ||
| REAL(KIND=dp),dimension(:),pointer | ch, | ||
| REAL(KIND=dp),dimension(:),pointer | cg, | ||
| REAL(KIND=dp),dimension(:),pointer | cgt, | ||
| REAL(KIND=dp),dimension(:),pointer | cht | ||
| ) | [private] |
Do iterations to go from p0gauss to pgauss 8th-order interpolating scaling function.
Definition at line 316 of file ps_wavelet_scaling_function.f90.
Referenced by scf_recursion().
Here is the caller graph for this function:
| subroutine,public ps_wavelet_scaling_function::scf_recursion | ( | INTEGER,intent(in) | itype, |
| INTEGER,intent(in) | n_iter, | ||
| INTEGER,intent(in) | n_range, | ||
| REAL(KIND=dp),dimension(-n_range:n_range),intent(inout) | kernel_scf, | ||
| REAL(KIND=dp),dimension(-n_range:n_range),intent(out) | kern_1_scf | ||
| ) |
Do iterations to go from p0gauss to pgauss order interpolating scaling function.
Definition at line 142 of file ps_wavelet_scaling_function.f90.
References lazy::lazy_arrays(), and scf_recurs().
Here is the call graph for this function:
| subroutine ps_wavelet_scaling_function::wavelet_function | ( | INTEGER,intent(in) | itype, |
| INTEGER,intent(in) | nd, | ||
| REAL(KIND=dp),dimension(0:nd),intent(out) | a, | ||
| REAL(KIND=dp),dimension(0:nd),intent(out) | x | ||
| ) | [private] |
Calculate the values of the wavelet function in a real uniform mesh.
Definition at line 84 of file ps_wavelet_scaling_function.f90.
References back_trans(), lazy::lazy_arrays(), and zero().
Here is the call graph for this function:
| subroutine ps_wavelet_scaling_function::zero | ( | INTEGER,intent(in) | n, |
| REAL(KIND=dp),dimension(n),intent(out) | x | ||
| ) | [private] |
Set to zero an array x(n)
Definition at line 161 of file ps_wavelet_scaling_function.f90.
Referenced by scaling_function(), and wavelet_function().
Here is the caller graph for this function:
