IF (jG.LT.Ny-xmw+1) THEN
IF (iG.LE.xmw) xmf = 1. _d 0 - (iG-1 )*recipMW
IF (iG.GE.Nx-xmw+1) xmf = 1. _d 0 - (Nx-iG)*recipMW
IF (iG.LE.xmw) THEN
ELSEIF (iG.GE.Nx-xmw+1) THEN
xmw = Cheapaml_mask_width
tmpVar = xmw
IF (iG.LE.xmw) xmf = oneRL - (iG-1 )*tmpVar
IF (iG.GE.Nx-xmw+1) xmf = oneRL - (Nx-iG)*tmpVar
IF (jG.LE.xmw)
IF (jG.GE.Ny-xmw+1)
INTEGER xmw
recipMW = ( xmw - 1 )
IF ( xmw.NE.1 ) recipMW = 1. _d 0 / recipMW
IF (jG.GT.xmw) THEN