Update REGION.f90