00001 /* 00002 * Copyright (c) 2000-2001 Jerome Novak 00003 * 00004 * This file is part of LORENE. 00005 * 00006 * LORENE is free software; you can redistribute it and/or modify 00007 * it under the terms of the GNU General Public License as published by 00008 * the Free Software Foundation; either version 2 of the License, or 00009 * (at your option) any later version. 00010 * 00011 * LORENE is distributed in the hope that it will be useful, 00012 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00013 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00014 * GNU General Public License for more details. 00015 * 00016 * You should have received a copy of the GNU General Public License 00017 * along with LORENE; if not, write to the Free Software 00018 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 00019 * 00020 */ 00021 00022 00023 char map_et_dalembert_C[] = "$Header: /cvsroot/Lorene/C++/Source/Map/map_et_dalembert.C,v 1.4 2004/03/01 09:57:03 j_novak Exp $" ; 00024 00025 /* 00026 * $Id: map_et_dalembert.C,v 1.4 2004/03/01 09:57:03 j_novak Exp $ 00027 * $Log: map_et_dalembert.C,v $ 00028 * Revision 1.4 2004/03/01 09:57:03 j_novak 00029 * the wave equation is solved with Scalars. It now accepts a grid with a 00030 * compactified external domain, which the solver ignores and where it copies 00031 * the values of the field from one time-step to the next. 00032 * 00033 * Revision 1.3 2003/06/18 08:45:27 j_novak 00034 * In class Mg3d: added the member get_radial, returning only a radial grid 00035 * For dAlembert solver: the way the coefficients of the operator are defined has been changed. 00036 * 00037 * Revision 1.2 2002/01/03 15:30:28 j_novak 00038 * Some comments modified. 00039 * 00040 * Revision 1.1.1.1 2001/11/20 15:19:27 e_gourgoulhon 00041 * LORENE 00042 * 00043 * Revision 1.3 2001/10/16 10:07:52 novak 00044 * *** empty log message *** 00045 * 00046 * Revision 1.2 2001/07/19 14:13:55 novak 00047 * new list of arguments for Map_et::dalembert 00048 * 00049 * Revision 1.1 2000/10/19 15:41:15 novak 00050 * Initial revision 00051 * 00052 * 00053 * $Header: /cvsroot/Lorene/C++/Source/Map/map_et_dalembert.C,v 1.4 2004/03/01 09:57:03 j_novak Exp $ 00054 * 00055 */ 00056 00057 // Header Lorene: 00058 #include "tensor.h" 00059 #include "param.h" 00060 00061 Mtbl_cf sol_dalembert(Param&, const Map_af&, const Mtbl_cf&) ; 00062 00063 //***************************************************************************** 00064 00065 void Map_et::dalembert(Param& , Scalar& fJp1, const Scalar& fJ, const Scalar& fJm1, 00066 const Scalar& source) const { 00067 00068 assert(source.get_etat() != ETATNONDEF) ; 00069 assert(source.get_mp().get_mg() == mg) ; 00070 assert(fJ.get_etat() != ETATNONDEF) ; 00071 assert(fJ.get_mp().get_mg() == mg) ; 00072 assert(fJm1.get_etat() != ETATNONDEF) ; 00073 assert(fJm1.get_mp().get_mg() == mg) ; 00074 assert(fJp1.get_mp().get_mg() == mg) ; 00075 00076 cout << "Map_et_dalembert:" << endl ; 00077 cout << "Not implemented" << endl ; 00078 cout << fJp1 << fJ << fJm1 << source ; 00079 abort() ; 00080 00081 00082 } 00083 00084
1.4.6