NAG FL Interface
c09ezf (dim2_​coeff_​ins)

1 Purpose

c09ezf inserts a selected set of two-dimensional discrete wavelet transform (DWT) coefficients into the full set of coefficients stored in compact form, which may be later used as input to the multi-level reconstruction routine c09edf.

2 Specification

Fortran Interface
Subroutine c09ezf ( ilev, cindex, lenc, c, d, ldd, icomm, ifail)
Integer, Intent (In) :: ilev, cindex, lenc, ldd
Integer, Intent (Inout) :: icomm(180), ifail
Real (Kind=nag_wp), Intent (In) :: d(ldd,*)
Real (Kind=nag_wp), Intent (Inout) :: c(lenc)
C Header Interface
#include <nag.h>
void  c09ezf_ (const Integer *ilev, const Integer *cindex, const Integer *lenc, double c[], const double d[], const Integer *ldd, Integer icomm[], Integer *ifail)
The routine may be called by the names c09ezf or nagf_wav_dim2_coeff_ins.

3 Description

c09ezf inserts a selected set of two-dimensional DWT coefficients into the full set of coefficients stored in compact form in a one-dimensional array c. It is required that c09ezf is preceded by a call to the initialization routine c09abf and the forward multi-level transform routine c09ecf.
Given an initial two-dimensional data set A, a prior call to c09ecf computes the approximation coefficients (at the highest requested level) and three sets of detail coeficients at all levels and stores these in compact form in a one-dimensional array c. c09eyf can then extract either the approximation coefficients or one of the sets of detail coefficients at one of the levels into a two-dimensional array, d. Following some calculation on this set of coefficients (for example, denoising), the updated coefficients in d are inserted back into the full set c using c09ezf. Several extractions and insertions may be performed at different levels. c09edf can then be used to reconstruct a manipulated data set A~. The dimensions of d depend on the level extracted and are available from the arrays dwtlvm and dwtlvn as returned by c09ecf which contain the first and second dimensions respectively. See Section 2.1 in the C09 Chapter Introduction for a discussion of the multi-level two-dimensional DWT.

4 References

None.

5 Arguments

Note: the following notation is used in this section:
1: ilev Integer Input
On entry: the level at which coefficients are to be inserted.
Constraints:
  • 1ilevnwl, where nwl is as used in a preceding call to c09ecf;
  • if cindex=0, ilev=nwl.
2: cindex Integer Input
On entry: identifies which coefficients to insert. The coefficients are identified as follows:
cindex=0
The approximation coefficients, produced by application of the low pass filter over columns and rows of the original matrix (LL). The approximation coefficients are present only for ilev=nwl, where nwl is the value used in a preceding call to c09ecf.
cindex=1
The vertical detail coefficients produced by applying the low pass filter over columns of the original matrix and the high pass filter over rows (LH).
cindex=2
The horizontal detail coefficients produced by applying the high pass filter over columns of the original matrix and the low pass filter over rows (HL).
cindex=3
The diagonal detail coefficients produced by applying the high pass filter over columns and rows of the original matrix (HH).
Constraint: 0cindex3 when ilev=nwl as used in c09ecf, otherwise 1cindex3.
3: lenc Integer Input
On entry: the dimension of the array c as declared in the (sub)program from which c09ezf is called.
Constraint: lenc must be unchanged from the value used in the preceding call to c09ecf.
4: clenc Real (Kind=nag_wp) array Input/Output
On entry: contains the DWT coefficients inserted by previous calls to c09ezf, or computed by a previous call to c09ecf.
On exit: contains the same DWT coefficients provided on entry except for those identified by ilev and cindex, which are updated with the values supplied in d, inserted into the correct locations as expected by the reconstruction routine c09edf.
5: dldd* Real (Kind=nag_wp) array Input
Note: the second dimension of the array d must be at least ncn.
On entry: the coefficients to be inserted.
If ilev=nwl (as used in c09ecf) and cindex=0, the ncm by ncn manipulated approximation coefficients aij must be stored in dij, for i=1,2,,ncm and i=1,2,,ncn.
Otherwise the ncm by ncn manipulated level ilev detail coefficients (of type specified by cindex) dij must be stored in dij , for i=1,2,,ncm and j=1,2,,ncn.
6: ldd Integer Input
On entry: the first dimension of the array d as declared in the (sub)program from which c09ezf is called.
Constraint: lddncm.
7: icomm180 Integer array Communication Array
On entry: contains details of the discrete wavelet transform and the problem dimension as setup in the call to the initialization routine c09abf.
8: ifail Integer Input/Output
On entry: ifail must be set to 0, -1 or 1 to set behaviour on detection of an error; these values have no effect when no error is detected.
A value of 0 causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of -1 means that an error message is printed while a value of 1 means that it is not.
If halting is not appropriate, the value -1 or 1 is recommended. If message printing is undesirable, then the value 1 is recommended. Otherwise, the value 0 is recommended. When the value -1 or 1 is used it is essential to test the value of ifail on exit.
On exit: ifail=0 unless the routine detects an error or a warning has been flagged (see Section 6).

6 Error Indicators and Warnings

If on entry ifail=0 or -1, explanatory error messages are output on the current error message unit (as defined by x04aaf).
Errors or warnings detected by the routine:
ifail=1
On entry, ilev=value.
Constraint: ilev1.
On entry, ilev=value and nwl=value.
Constraint: ilevnwl, where nwl is the number of levels used in the call to c09ecf.
ifail=2
On entry, cindex=value.
Constraint: cindex3.
On entry, cindex=value.
Constraint: cindex0.
ifail=3
On entry, lenc=value and nct=value.
Constraint: lencnct, where nct is the number of DWT coefficients computed in a previous call to c09ecf.
ifail=4
On entry, ldd=value and ncm=value.
Constraint: lddncm, where ncm is the number of DWT coefficients in the first dimension at the selected level ilev.
ifail=5
On entry, ilev=value and nwl=value, but cindex=0.
Constraint: cindex>0 when ilev<nwl in the preceding call to c09ecf.
ifail=6
Either the initialization routine has not been called first or icomm has been corrupted.
Either the initialization routine was called with wtrans='S' or icomm has been corrupted.
ifail=-99
An unexpected error has been triggered by this routine. Please contact NAG.
See Section 7 in the Introduction to the NAG Library FL Interface for further information.
ifail=-399
Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library FL Interface for further information.
ifail=-999
Dynamic memory allocation failed.
See Section 9 in the Introduction to the NAG Library FL Interface for further information.

7 Accuracy

Not applicable.

8 Parallelism and Performance

c09ezf is not threaded in any implementation.

9 Further Comments

None.

10 Example

The following example demonstrates using the coefficient extraction and insertion routines in order to apply denoising using a thresholding operation. The original input data, which is horizontally striped, has artificial noise introduced to it, taken from a normal random number distribution. Reconstruction then takes place on both the noisy data and denoised data. The Mean Square Errors (MSE) of the two reconstructions are printed along with the reconstruction of the denoised data. The MSE of the denoised reconstruction is less than that of the noisy reconstruction.

10.1 Program Text

Program Text (c09ezfe.f90)

10.2 Program Data

Program Data (c09ezfe.d)

10.3 Program Results

Program Results (c09ezfe.r)