Changes between Version 10 and Version 11 of FortranTranslationIssues

Timestamp:

12/09/19 14:05:42 (6 years ago)

Author:

wuwenhao

Comment:

--

FortranTranslationIssues

@@ -48 +48 @@
 }}}
 
-=== 1.3 Fortran Array Implementation ===
+=== 1.3 Fortran Array Section ===
+
+{{{
+  ...
+! A section of array A is passed in.
+  CALL UPDATE(A(L2+X:H2-Y:S2*Z, K))
+! A full array B is passed in
+  CALL UPDATE(B)
+  ...
+
+! update all elements in the input array section 
+  SUBROUTINE UPDATE(S)
+    INTEGER S(L4:H4:S4, L3:H3:S3)
+    ... 
+      S(J,I) = ...
+    ...
+  END SUBROUTINE
+}}}
+
+  =>
+
+{{{
+  ...
+    UPDATE(
+      f_arr_sect(    // Constructs a wrapper for array section
+        A,            // 1. The array identifier
+        (int[3][2]){  // 2. Dimension information
+          {L2+X, K},   // Lower-bound for each dim.
+          {H2-Y, K},   // Upper-bound for each dim.
+          {S2*Z, S1}   // Idx. step for each dim
+        }
+      )              // This instance is freed in subroutine.
+    );
+    UPDATE(
+      f_arr_full(B)  // Constructs a wrapper for full array arg
+    );
+  ...
+
+  void UPDATE(f_arr _S) {  // Change to _S as an intermediate instance
+    f_arr S = f_arr_sect(    // A wrapper reshaped with new idx. sys.
+                _S,           // 1. the input array _S
+                (int[3][2]){  // 2. new dimension info
+                  {L4, L3},    // New lower-bound for each dim.
+                  {H4, H3},    // New upper-bound for each dim.
+                  {S4, S3}.    // New idx. step for each dim
+                }
+              ); 
+    ...
+      *((int*)f_arr_subscript(S, (int[2]){J, I})) = ...
+    ...
+    // free the outer most wrapper (i.e. S)
+    f_arr_destroy(S);   
+    // free the intermediate wrapper (i.e. _S), 
+    // whose construction is inlined in the calling statement.
+    f_arr_destroy(_S);  
+  }
+}}}
+
+=== 1.4 Fortran array reshape w/ diff. dim ===
+
+In-progress.
+
+=== 1.5 Fortran Array Implementation ===
 
 `fortran-array.cvl`
@@ -198 +260 @@
 }}}
 
-=== 1.4 A transformation example ===
+=== 1.6 A transformation example ===
 
 Here is the prototype of handling Fortran array sections:
@@ -286 +348 @@
  for (int i=1; i<=m; i++) {
     for (int j=1; j<=n; j++)
-      printf("%d%s", *((int*)f_arr_subscript(mat, (int[2]){i, j})), ", ");
+      printf("%d%s", 
+        *((int*)f_arr_subscript(mat, (int[2]){i, j})), ", ");
     printf("%s", "\n");
   }
@@ -355 +418 @@
 void test_neg_stride() {
   // INTEGER A(1:21:2);
-  f_arr A = f_arr_create(sizeof(int), 1, (int[3][1]){{1}, {21}, {2}});
+  f_arr A = f_arr_create(
+              sizeof(int), 1, (int[3][1]){{1}, {21}, {2}});
 
   // DO I=1, 21, 2