|  | //===================================================== | 
|  | // 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 |