Fortran

examples/attach_file/Makefile

@@ -23,7 +23,7 @@ DEBUG           ?= 1		# Include debugging symbols
 OUTPUT_LEVEL    ?= LEVEL_DEBUG	# Compile time logging level
 USE_CUDA        ?= 0		# Include CUDA support (requires CUDA)
 USE_GASNET      ?= 0		# Include GASNet support (requires GASNet)
-USE_HDF         ?= 0		# Include HDF5 support (requires HDF5)
+USE_HDF         ?= 1		# Include HDF5 support (requires HDF5)
 ALT_MAPPERS     ?= 0		# Include alternative mappers (not recommended)
 
 # Put the binary file name here

examples/attach_file/attach_file.cc

@@ -462,4 +462,4 @@ int main(int argc, char **argv)
   }
 
   return Runtime::start(argc, argv);
-}
+}

runtime/legion/legion_c.cc

@@ -6279,3 +6279,39 @@ legion_mapper_runtime_acquire_instances(
     instances.push_back(*CObjectWrapper::unwrap(instances_[idx]));
   return runtime->acquire_instances(ctx, instances);
 }
+
+legion_physical_region_t
+legion_get_physical_region_by_id(
+    legion_physical_region_t *regionptr, 
+    int id, 
+    int num_regions)
+{
+  assert(id < num_regions);
+  return regionptr[id];
+}
+
+legion_index_space_t
+legion_logical_region_get_index_space(legion_logical_region_t lr_)
+{
+  LogicalRegion lr = CObjectWrapper::unwrap(lr_);
+  return CObjectWrapper::wrap(lr.get_index_space());
+}
+
+legion_index_space_t
+legion_task_get_index_space_from_logical_region(
+    legion_task_t task, unsigned idx)
+{
+  legion_region_requirement_t req = legion_task_get_region(task, idx);
+  legion_logical_region_t lr = legion_region_requirement_get_region(req);
+  return legion_logical_region_get_index_space(lr);
+}
+
+void 
+legion_convert_1d_to_2d_column_major(
+    void *src, void *dst[], legion_byte_offset_t offset, int num_columns)
+{
+    int i;
+    for (i = 0; i < num_columns; i++) {
+        dst[i] = (void*)((unsigned char*)src + offset.offset * i);
+    }
+}

runtime/legion/legion_c.h

@@ -1661,6 +1661,11 @@ extern "C" {
                                       legion_logical_region_t handle,
                                       const char **result);
 
+  /**
+   * @see Legion::LogicalRegion::get_index_space
+   */
+  legion_index_space_t
+  legion_logical_region_get_index_space(legion_logical_region_t handle); 
   // -----------------------------------------------------------------------
   // Logical Region Tree Traversal Operations
   // -----------------------------------------------------------------------
@@ -4754,7 +4759,31 @@ extern "C" {
       legion_mapper_context_t ctx,
       legion_physical_instance_t *instances,
       size_t instances_size);
+
+  /**
+   * used by fortran API
+   */
+  legion_physical_region_t
+  legion_get_physical_region_by_id(
+      legion_physical_region_t *regionptr, 
+      int id, 
+      int num_regions); 
+
+  // -----------------------------------------------------------------------
+  // Combined Operations (combined of some functions)
+  // -----------------------------------------------------------------------
+
+  /**
+   * @see Legion::Task::RegionRequirement::LogicalRegion::get_index_space
+   */
+  legion_index_space_t
+  legion_task_get_index_space_from_logical_region(
+      legion_task_t task, unsigned idx);
+
 
+  void 
+  legion_convert_1d_to_2d_column_major(
+      void *src, void *dst[], legion_byte_offset_t offset, int num_columns);
 #ifdef __cplusplus
 }
 #endif