feat(inference_engine_t): tensor_range_t getters

src/inference_engine/inference_engine_m_.f90

@@ -31,6 +31,8 @@ module inference_engine_m_
   contains
     procedure :: infer
     procedure :: to_json
+    procedure :: input_range
+    procedure :: output_range
     procedure :: num_inputs
     procedure :: num_outputs
     procedure :: nodes_per_layer
@@ -80,6 +82,18 @@ impure elemental module function construct_from_json(file_) result(inference_eng
 
   interface
 
+    pure module function input_range(self) result(my_input_range)
+      implicit none
+      class(inference_engine_t), intent(in) :: self
+      type(tensor_range_t) my_input_range
+    end function
+
+    pure module function output_range(self) result(my_output_range)
+      implicit none
+      class(inference_engine_t), intent(in) :: self
+      type(tensor_range_t) my_output_range
+    end function
+
     pure module function to_exchange(self) result(exchange)
       implicit none
       class(inference_engine_t), intent(in) :: self

src/inference_engine/inference_engine_s.F90

@@ -18,6 +18,14 @@
 
 contains
 
+  module procedure input_range
+    my_input_range = self%input_range_
+  end procedure
+
+  module procedure output_range
+    my_output_range = self%output_range_
+  end procedure
+
   module procedure to_exchange
     exchange%input_range_ = self%input_range_
     exchange%output_range_ = self%output_range_