CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed trunc and symm to preserve original matrix insofar as is possible

Browse Source
This commit is contained in:
vhenson 1997-05-12 17:59:22 +00:00
parent 6f1f0f8099
commit e6c440f79d
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
seq_linear_solvers/amg/amg/setup.f
View File

@ -65,9 +65,13 @@ c
c
c => set form of fine grid matrix & print statistics
c
call trunc(1,imin,imax,a,ia,ja)
cveh
cveh calls to trunc and symm are removed to preserve original
cveh matrix as much as possible.
cveh
cveh call trunc(1,imin,imax,a,ia,ja)
c
call symm(1,1,imin,imax,a,ia,ja,icg,ifg)
cveh call symm(1,1,imin,imax,a,ia,ja,icg,ifg)
c
if(levels.le.1) then
if (ioutdat .ne. 0) close(9)

8
seq_ls/amg/amg/setup.f
View File

@ -65,9 +65,13 @@ c
c
c => set form of fine grid matrix & print statistics
c
call trunc(1,imin,imax,a,ia,ja)
cveh
cveh calls to trunc and symm are removed to preserve original
cveh matrix as much as possible.
cveh
cveh call trunc(1,imin,imax,a,ia,ja)
c
call symm(1,1,imin,imax,a,ia,ja,icg,ifg)
cveh call symm(1,1,imin,imax,a,ia,ja,icg,ifg)
c
if(levels.le.1) then
if (ioutdat .ne. 0) close(9)