|  | //===================================================== | 
|  | // File   :  init_matrix.hh | 
|  | // Author :  L. Plagne <laurent.plagne@edf.fr)> | 
|  | // Copyright (C) EDF R&D,  lun sep 30 14:23:19 CEST 2002 | 
|  | //===================================================== | 
|  | // | 
|  | // This program 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 2 | 
|  | // of the License, or (at your option) any later version. | 
|  | // | 
|  | // This program 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 this program; if not, write to the Free Software | 
|  | // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. | 
|  | // | 
|  | #ifndef INIT_MATRIX_HH | 
|  | #define INIT_MATRIX_HH | 
|  |  | 
|  | // The Vector class must satisfy the following part of STL vector concept : | 
|  | //            resize() method | 
|  | //            [] operator for setting element | 
|  | //            value_type defined | 
|  | template <double init_function(int, int), class Vector> | 
|  | BTL_DONT_INLINE void init_row(Vector& X, int size, int row) { | 
|  | X.resize(size); | 
|  |  | 
|  | for (unsigned int j = 0; j < X.size(); j++) { | 
|  | X[j] = typename Vector::value_type(init_function(row, j)); | 
|  | } | 
|  | } | 
|  |  | 
|  | // Matrix is a Vector of Vector | 
|  | // The Matrix class must satisfy the following part of STL vector concept : | 
|  | //            resize() method | 
|  | //            [] operator for setting rows | 
|  | template <double init_function(int, int), class Vector> | 
|  | BTL_DONT_INLINE void init_matrix(Vector& A, int size) { | 
|  | A.resize(size); | 
|  | for (unsigned int row = 0; row < A.size(); row++) { | 
|  | init_row<init_function>(A[row], size, row); | 
|  | } | 
|  | } | 
|  |  | 
|  | template <double init_function(int, int), class Matrix> | 
|  | BTL_DONT_INLINE void init_matrix_symm(Matrix& A, int size) { | 
|  | A.resize(size); | 
|  | for (unsigned int row = 0; row < A.size(); row++) A[row].resize(size); | 
|  | for (unsigned int row = 0; row < A.size(); row++) { | 
|  | A[row][row] = init_function(row, row); | 
|  | for (unsigned int col = 0; col < row; col++) { | 
|  | double x = init_function(row, col); | 
|  | A[row][col] = A[col][row] = x; | 
|  | } | 
|  | } | 
|  | } | 
|  |  | 
|  | #endif |