INTEGER iMinAdvR, iMaxAdvR, jMinAdvR, jMaxAdvR
PARAMETER ( jMinAdvR = 1 , jMaxAdvR = sNy )
DO j=jMinAdvR,jMaxAdvR