DO k = 1,rdimLoc
DO k=1,rdimLoc
INTEGER ldimLoc, kdimLoc, fdimLoc, rdimLoc
PARAMETER ( rdimLoc = nRegions+21 )
INTEGER stat_region(rdimLoc,ldimLoc)
INTEGER set_regMask(rdimLoc)
_RS val_regMask(rdimLoc)