Fix io (#102)

* Attempt... * Fix for intel. Which uses INT to store MPI_COMMs * Ran beautify
william-dawson · Feb 1, 2019 · 8713272 · 8713272
1 parent 7c83532
commit 8713272
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Source/Fortran/PSMatrixModule.F90 b/Source/Fortran/PSMatrixModule.F90
@@ -460,7 +460,11 @@ RECURSIVE SUBROUTINE ConstructMatrixFromMatrixMarket_ps(this, file_name, &
                & MAX_LINE_LENGTH*bytes_per_character
           IF (local_offset + local_data_size_plus_buffer .GT. &
                & total_file_size) THEN
-             local_data_size_plus_buffer = (total_file_size - local_offset)
+             local_data_size_plus_buffer = total_file_size - local_offset
+          END IF
+          IF (this%process_grid%global_rank .EQ. &
+               & this%process_grid%total_processors-1) THEN
+             local_data_size_plus_buffer = total_file_size - local_offset
           END IF
        ELSE
           local_data_size_plus_buffer = 0