fixed warnings in piodarray.F90.in

jedwards4b · Jun 27, 2019 · 82d900a · 82d900a
1 parent 80c569d
commit 82d900a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/flib/piodarray.F90.in b/src/flib/piodarray.F90.in
@@ -59,9 +59,9 @@ interface
         bind(C,name="PIOc_write_darray_multi")
      use iso_c_binding
      integer(C_INT), value :: ncid
+     integer(C_INT), value :: nvars
      integer(C_INT) :: vid(nvars)
      integer(C_INT), value :: ioid
-     integer(C_INT), value :: nvars
      integer(C_SIZE_T), value :: arraylen
      type(c_ptr), value :: array
      type(C_PTR), value :: fillvalue