Module oc_laplacian_mod

1.

Purpose: Laplacian and similar operators.

2.

Functions and subroutines

(a)

oc_laplacian_init(t_,nf,niter,maxmem)

Purpose: initialize the laplacian operators

• t_: filtering file tag
• nf: number of filter coefficients
• niter: number of Wilson iterations

(b)

subroutine oc_laplacian_factor(bb,t_,nf,niter,maxmem)

Purpose: find a laplacian minimum-phase factor

• bb: laplacian minimum-phase factor (real or complex)
• t_: filtering file tag
• nf: number of filter coefficients
• niter: number of Wilson iterations

(c)

function oc_laplacian(adj,add, x_,yy_,op1 ...op9) result(stat)

Purpose: laplacian operator

(d)

function oc_ilaplacian(adj,add, x_,yy_,op1 ...op9) result(stat)

Purpose: inverse laplacian operator

(e)

function oc_hderivative(adj,add, x_,yy_,op1 ...op9) result(stat)

Purpose: helix derivative operator

(f)

function oc_ihderivative(adj,add, x_,yy_,op1 ...op9) result(stat)

Purpose: inverse helix derivative operator