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