Module oc_weight_mod

1.

Purpose: weighting operator

2.

Functions and subroutines

(a)

subroutine oc_weight_init(w_,maxmem)

Purpose: initialize the weighting operator

• w_: weighting file tag (real or complex)

(b)

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

Purpose: weighting operator