|
SICOPOLIS V3.0
|
SOR solver for a system of linear equations lgs_a*lgs_x=lgs_b [matrix in compressed row storage CRS, represented by arrays lgs_a_value(values), lgs_a_index (indices) and lgs_a_ptr (pointers)]. More...
Go to the source code of this file.
Functions/Subroutines | |
| subroutine | sor_sprs (lgs_a_value, lgs_a_index, lgs_a_diag_index, lgs_a_ptr, lgs_b_value, nnz, nmax, omega, eps_sor, lgs_x_value, ierr) |
| SOR solver for a system of linear equations lgs_a*lgs_x=lgs_b [matrix in compressed row storage CRS, represented by arrays lgs_a_value(values), lgs_a_index (indices) and lgs_a_ptr (pointers)]. | |
SOR solver for a system of linear equations lgs_a*lgs_x=lgs_b [matrix in compressed row storage CRS, represented by arrays lgs_a_value(values), lgs_a_index (indices) and lgs_a_ptr (pointers)].
Copyright 2009-2013 Ralf Greve, Tatsuru Sato
This file is part of SICOPOLIS.
SICOPOLIS is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
SICOPOLIS is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with SICOPOLIS. If not, see http://www.gnu.org/licenses/.
Definition in file sor_sprs.F90.
| subroutine sor_sprs | ( | real(dp), dimension(nnz), intent(in) | lgs_a_value, |
| integer(i4b), dimension(nnz), intent(in) | lgs_a_index, | ||
| integer(i4b), dimension(nmax), intent(in) | lgs_a_diag_index, | ||
| integer(i4b), dimension(nmax+1), intent(in) | lgs_a_ptr, | ||
| real(dp), dimension(nmax), intent(in) | lgs_b_value, | ||
| integer(i4b), intent(in) | nnz, | ||
| integer(i4b), intent(in) | nmax, | ||
| real(dp), intent(in) | omega, | ||
| real(dp), intent(in) | eps_sor, | ||
| real(dp), dimension(nmax), intent(inout) | lgs_x_value, | ||
| integer(i4b), intent(out) | ierr | ||
| ) |
SOR solver for a system of linear equations lgs_a*lgs_x=lgs_b [matrix in compressed row storage CRS, represented by arrays lgs_a_value(values), lgs_a_index (indices) and lgs_a_ptr (pointers)].
Definition at line 41 of file sor_sprs.F90.
1.8.1
