MODULE Region_Module
   SAVE
   CHARACTER(LEN=7) iregion   ! iregion='aph    '  for APH region, 'delves ' for Delves region, 'jacobi ' for Jacobi region, 'proje
   NAMELIST/region/ iregion
END MODULE Region_Module