Module oc_scale_mod

1.

Purpose: scaling operator

2.

Functions and subroutines

(a)

subroutine oc_scale_init(eps,maxmem)

Purpose: initialize the scaling operator

• eps: scaling parameter (real or complex)

(b)

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

Purpose: scaling operator