moving functions around

rfiorella · Jul 6, 2019 · bc3de41 · bc3de41
1 parent 8cd22e5
commit bc3de41
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 24 deletions.
diff --git a/src/ncint/ncint_pio.c b/src/ncint/ncint_pio.c
@@ -13,6 +13,33 @@
 /* The default io system id. */
 extern int diosysid;
 
+/* Have we initialized? */
+extern int ncint_initialized;
+
+/**
+ * Same as PIOc_Init_Intracomm().
+ *
+ * @author Ed Hartnett
+ */
+int
+nc_init_intracomm(MPI_Comm comp_comm, int num_iotasks, int stride, int base, int rearr,
+                  int *iosysidp)
+{
+    int ret;
+
+    if (!ncint_initialized)
+        NC_NCINT_initialize();
+
+    if ((ret = PIOc_Init_Intracomm(comp_comm, num_iotasks, stride, base, rearr,
+                                   iosysidp)))
+        return ret;
+
+    /* Remember the io system id. */
+    diosysid = *iosysidp;
+
+    return PIO_NOERR;
+}
+
 /**
  * Same as PIOc_free_iosystem().
  *

diff --git a/src/ncint/ncintdispatch.c b/src/ncint/ncintdispatch.c
@@ -113,30 +113,6 @@ NC_Dispatch NCINT_dispatcher = {
 
 const NC_Dispatch* NCINT_dispatch_table = NULL;
 
-/**
- * Same as PIOc_Init_Intracomm().
- *
- * @author Ed Hartnett
- */
-int
-nc_init_intracomm(MPI_Comm comp_comm, int num_iotasks, int stride, int base, int rearr,
-                  int *iosysidp)
-{
-    int ret;
-
-    if (!ncint_initialized)
-        NC_NCINT_initialize();
-
-    if ((ret = PIOc_Init_Intracomm(comp_comm, num_iotasks, stride, base, rearr,
-                                   iosysidp)))
-        return ret;
-
-    /* Remember the io system id. */
-    diosysid = *iosysidp;
-
-    return PIO_NOERR;
-}
-
 /**
  * @internal Initialize NCINT dispatch layer.
  *