Ini.f90 - setting "0" to all arrays
From CFD-Wiki
(Difference between revisions)
m (Reverted edit of Eagle, changed back to last version by Michail) |
|
(One intermediate revision not shown) |
Latest revision as of 07:03, 29 September 2006
!Sample program for solving Smith-Hutton Test using different schemes !of covective terms approximation - Intial data modul !Copyright (C) 2005 Michail Kirichkov !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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. !*************************************************************************** Subroutine Ini include 'icomm_1.f90' U = 0. V = 0. PP = 0. F = 0. Xp = 0. Yp = 0. X = 0. Y = 0. Gam = 0. Ro = 0. X_xi = 0. Y_xi = 0. X_et = 0. Y_et = 0. Del_X_xi = 0. Del_Y_xi = 0. Del_X_et = 0. Del_Y_et = 0. Ap = 0. As = 0. An = 0. Aw = 0. Ae = 0. Sp = 0. Return End