INTEGER iMinAdvR, iMaxAdvR, jMinAdvR, jMaxAdvR
PARAMETER ( iMinAdvR = 1 , iMaxAdvR = sNx )
DO i=iMinAdvR,iMaxAdvR