fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 12:52:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Avoid integer overflow when computing nnz.

Browse Source
This commit is contained in:
Salvatore Filippone
2018-09-27 13:32:49 +01:00
parent a0343aa36a
commit 331e57ed35
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pdegen/mld_d_pde2d.f90
+2 -2
View File
@@ -247,8 +247,8 @@ contains
m = idim*idim
n = m
nnz = ((n*7)/(np))
if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
nnz = 7*((n+np-1)/np)
if (iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
t0 = psb_wtime()
select case(partition_)
case(1)
tests/pdegen/mld_d_pde3d.f90
+1 -1
View File
@@ -263,7 +263,7 @@ contains
m = idim*idim*idim
n = m
nnz = ((n*7)/(np))
nnz = 7*((n+np-1)/np)
if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
t0 = psb_wtime()
select case(partition_)
tests/pdegen/mld_s_pde2d.f90
+2 -2
View File
@@ -247,8 +247,8 @@ contains
m = idim*idim
n = m
nnz = ((n*7)/(np))
if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
nnz = 7*((n+np-1)/np)
if (iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
t0 = psb_wtime()
select case(partition_)
case(1)
tests/pdegen/mld_s_pde3d.f90
+1 -1
View File
@@ -263,7 +263,7 @@ contains
m = idim*idim*idim
n = m
nnz = ((n*7)/(np))
nnz = 7*((n+np-1)/np)
if(iam == psb_root_) write(psb_out_unit,'("Generating Matrix (size=",i0,")...")')n
t0 = psb_wtime()
select case(partition_)