fix offset too

william-dawson · Oct 16, 2023 · a942401 · a942401
1 parent 43df004
commit a942401
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Source/Fortran/PSMatrixModule.F90 b/Source/Fortran/PSMatrixModule.F90
@@ -651,7 +651,8 @@ RECURSIVE SUBROUTINE ConstructMatrixFromBinary_ps(this, file_name, &
 
        !! Compute Offset
        local_triplets = total_values / this%process_grid%total_processors
-       local_offset = local_triplets * this%process_grid%global_rank
+       local_offset = INT(local_triplets, KIND=NTLONG) * &
+          & this%process_grid%global_rank
        header_size = 3 * bytes_per_int + bytes_per_long
        IF (this%process_grid%global_rank .EQ. &
             & this%process_grid%total_processors - 1) THEN