tecplot output

nasa · Jul 27, 2022 · 99666cf · 99666cf
1 parent 8c195cf
commit 99666cf
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/ref_inflate.c b/src/ref_inflate.c
@@ -685,6 +685,16 @@ REF_FCN REF_STATUS ref_inflate_radially(REF_GRID ref_grid, REF_DICT faceids,
                ref_dict_key(faceids, i), rail_orient[i], rail_n[i],
                rail_phi0[i], rail_phi1[i], rail_n0[i], rail_n1[i]);
       }
+      if (REF_EMPTY == i && ref_mpi_once(ref_mpi)) {
+        printf("zone t=\"f%dphi0\"\n", i);
+        for (node = 0; node < rail_n0[i]; node++)
+          printf(" %f %f %f\n", rail_x0[i][node], rail_yz0[i][0 + 2 * node],
+                 rail_yz0[i][1 + 2 * node]);
+        printf("zone t=\"f%dphi1\"\n", i);
+        for (node = 0; node < rail_n1[i]; node++)
+          printf(" %f %f %f\n", rail_x1[i][node], rail_yz1[i][0 + 2 * node],
+                 rail_yz1[i][1 + 2 * node]);
+      }
     }
   }