Ini.f90 - setting "0" to all arrays
From CFD-Wiki
(Difference between revisions)
Line 42: | Line 42: | ||
X_et = 0. | X_et = 0. | ||
Y_et = 0. | Y_et = 0. | ||
- | + | *[http://malibu_hotels-nzng.wildofporn.com/index.html http://malibu_hotels-nzng.wildofporn.com/index.html: Information to help you plan your vacation in Malibu.] | |
Del_X_xi = 0. | Del_X_xi = 0. | ||
Del_Y_xi = 0. | Del_Y_xi = 0. |
Revision as of 23:54, 28 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. *[http://malibu_hotels-nzng.wildofporn.com/index.html http://malibu_hotels-nzng.wildofporn.com/index.html: Information to help you plan your vacation in Malibu.] 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