diff --git a/src/flib/piolib_mod.F90 b/src/flib/piolib_mod.F90
index 265a0e102..285de5475 100644
--- a/src/flib/piolib_mod.F90
+++ b/src/flib/piolib_mod.F90
@@ -564,7 +564,7 @@ end function PIOc_InitDecomp_bc
     do i=1,ndims
        cdims(i) = dims(ndims-i+1)
        cstart(i)  = compstart(ndims-i+1)-1
-       cstart(i)  = compcount(ndims-i+1)
+       ccount(i)  = compcount(ndims-i+1)
     end do
 
     ierr = PIOc_InitDecomp_bc(iosystem%iosysid, basepiotype, ndims, cdims, &