diff --git a/sources/io.F90 b/sources/io.F90
index d5bedce..fccf641 100644
--- a/sources/io.F90
+++ b/sources/io.F90
@@ -2396,8 +2396,8 @@ module io
 
         bytes = size(ids, kind=8) * kind(ids)
         write(str, "('datablock_ids_',i6.6)") nproc
-        call write_binary_xml(rpath, "ids", trim(str), c_loc(ids), bytes, &
-                              "int32", shape(ids), hash_type, &
+        call write_binary_xml(rpath, "ids", trim(str), c_loc(ids), &
+                              bytes, "int32", shape(ids), hash_type, &
                               snapshot_compressor, compression_level, &
                               snapshot_encoder, xml_ptr, status)
         if (status /= 0) &
@@ -2418,10 +2418,9 @@ module io
           end do
 
           write(str,"('datablock_',a,'_',i6.6)") trim(pvars(p)), nproc
-          call write_binary_xml(rpath, pvars(p), trim(str), c_loc(array), bytes, &
-                                "float64", shape(array), hash_type, &
-                                snapshot_compressor, &
-                                compression_level, &
+          call write_binary_xml(rpath, pvars(p), trim(str), c_loc(array), &
+                                bytes, "float64", shape(array), hash_type, &
+                                snapshot_compressor, compression_level, &
                                 snapshot_encoder, xml_ptr, status)
           if (status /= 0) &
             call print_message(loc, "Could not store variable '" // &