feat: add multidensionsal intrinsic_array support

Author: Damian Rouson

src/intrinsic_array_m.F90

@@ -16,6 +16,11 @@ module intrinsic_array_m
     integer, allocatable :: integer_2D(:,:)
     logical, allocatable :: logical_2D(:,:)
     real,    allocatable :: real_2D(:,:)
+
+    complex, allocatable :: complex_3D(:,:,:)
+    integer, allocatable :: integer_3D(:,:,:)
+    logical, allocatable :: logical_3D(:,:,:)
+    real,    allocatable :: real_3D(:,:,:)
   contains
     procedure :: as_character
   end type

src/intrinsic_array_s.F90

@@ -35,6 +35,21 @@
       class default
         error  stop "intrinsic_array_t construct: unsupported rank-2 type"
       end select
+
+    rank(3)
+      select type(array)
+      type is(complex)
+        intrinsic_array%complex_3D = array
+      type is(integer)
+        intrinsic_array%integer_3D = array
+      type is(logical)
+        intrinsic_array%logical_3D = array
+      type is(real)
+        intrinsic_array%real_3D = array
+      class default
+        error  stop "intrinsic_array_t construct: unsupported rank-3 type"
+      end select
+
     rank default
       error  stop "intrinsic_array_t construct: unsupported rank"
     end select