From dcd8c0de6d4302e9c3aee17c76166dcb17b704f2 Mon Sep 17 00:00:00 2001 From: Samuel Andermatt Date: Tue, 20 Mar 2018 08:43:00 +0000 Subject: [PATCH] fix integer overflow for large, very sparse matrices on few ranks svn-origin-rev: 18332 --- src/dbcsr/ops/dbcsr_csr_conversions.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/dbcsr/ops/dbcsr_csr_conversions.F b/src/dbcsr/ops/dbcsr_csr_conversions.F index 4ce60bfd4e..878e49109d 100644 --- a/src/dbcsr/ops/dbcsr_csr_conversions.F +++ b/src/dbcsr/ops/dbcsr_csr_conversions.F @@ -220,7 +220,7 @@ CONTAINS IF (INT(nrows_total, kind=int_8)*INT(ncols_total, kind=int_8) .LT. nze_total) & CPABORT("Total number of non-zero elements must not exceed total matrix size") - IF (nrows_local*ncols_total .LT. nze_local) & + IF (INT(nrows_local, kind=int_8)*INT(ncols_total, kind=int_8) .LT. nze_local) & CPABORT("Local number of non-zero elements must not exceed local matrix size") csr_mat%ncols_total = ncols_total