http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&feed=atom&action=history 2013-05-26T00:30:00Z Revision history for this page on the wiki MediaWiki 1.16.5 http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=14202&oldid=prev 2012-04-20T18:02:17Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 18:02, 20 April 2012</td> </tr><tr><td colspan="2" class="diff-lineno">Line 44:</td> <td colspan="2" class="diff-lineno">Line 44:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Grid_sub.f90&nbsp; &nbsp; - definition of the grid]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Grid_sub.f90&nbsp; &nbsp; - definition of the grid]]</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[HLPA.f90&nbsp; &nbsp; &nbsp; &nbsp; - HLPA scheme implementation modul]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[HLPA.f90&nbsp; &nbsp; &nbsp; &nbsp; - HLPA scheme implementation modul]]</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">*[[QUICK.f90&nbsp; &nbsp; &nbsp; &nbsp; - QUICK scheme implementation modul]]</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[ini.f90&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; - setting &quot;0&quot; to all arrays]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[ini.f90&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; - setting &quot;0&quot; to all arrays]]</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[input.f90&nbsp; &nbsp; &nbsp; &nbsp; - determination of intial conditions]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[input.f90&nbsp; &nbsp; &nbsp; &nbsp; - determination of intial conditions]]</div></td></tr> </table>

Michail http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=13574&oldid=prev 2011-12-09T09:09:10Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 09:09, 9 December 2011</td> </tr><tr><td colspan="2" class="diff-lineno">Line 5:</td> <td colspan="2" class="diff-lineno">Line 5:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Sample program for solving Smith-Hutton Test using different schemes of covective terms approximation</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Sample program for solving Smith-Hutton Test using different schemes of covective terms approximation</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>'''Copyright (C) 2005&nbsp; Michail <del class="diffchange diffchange-inline">Kirichkov </del>,Lithuania, Marijampole'''</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>'''Copyright (C) 2005&nbsp; Michail <ins class="diffchange diffchange-inline">Kiričkov </ins>,Lithuania, Marijampole'''</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>This program is free software; you can redistribute it and/or</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>This program is free software; you can redistribute it and/or</div></td></tr> </table>

Michail http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=2972&oldid=prev 2005-09-29T19:42:49Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 19:42, 29 September 2005</td> </tr><tr><td colspan="2" class="diff-lineno">Line 30:</td> <td colspan="2" class="diff-lineno">Line 30:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and&nbsp; '''F(:,:,5)'''represented scalar.</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and&nbsp; '''F(:,:,5)'''represented scalar.</div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Arrays '''Xp''' and '''Yp''' represents the coordinates of the CV centres, and '''X''' and '''Y''' - coordinates of grids nodes</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>----------------------------------------------------------------------</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>----------------------------------------------------------------------</div></td></tr> </table>

Michail http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=2728&oldid=prev 2005-09-25T21:02:53Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 21:02, 25 September 2005</td> </tr><tr><td colspan="2" class="diff-lineno">Line 21:</td> <td colspan="2" class="diff-lineno">Line 21:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA&nbsp; 02110-1301, USA.</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA&nbsp; 02110-1301, USA.</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">--------------------------------------------------------------------</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">'''Short description'''</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">In this program general transport equation for scalar transport is solved. </ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Because it was primarily developing program for learning, there was implemented an output for all variables in the txt format as well as for TECPLOT format.</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Structured orthogonal uniform grid is used (now). All variables are saved in array '''F(1:nx,1:ny,10)''' which mean that 2D array for 10 variables. </ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Variables '''F(:,:,1)''' and '''F(:,:,2)''' represented U and V velocity components, and&nbsp; '''F(:,:,5)'''represented scalar.</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">----------------------------------------------------------------------</ins></div></td></tr> <tr><td colspan="2">&nbsp;</td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"> </ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Bound_1.f90&nbsp; &nbsp; &nbsp; - Set boundary conditions]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Bound_1.f90&nbsp; &nbsp; &nbsp; - Set boundary conditions]]</div></td></tr> </table>

Michail http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=2666&oldid=prev 2005-09-21T17:23:23Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 17:23, 21 September 2005</td> </tr><tr><td colspan="2" class="diff-lineno">Line 27:</td> <td colspan="2" class="diff-lineno">Line 27:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Coeff_11.f90&nbsp; &nbsp; - calculate the coefficients]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Coeff_11.f90&nbsp; &nbsp; - calculate the coefficients]]</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Contr_gem1.f90&nbsp; - control and output of geometry]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Contr_gem1.f90&nbsp; - control and output of geometry]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[COnvrg_sub.f90&nbsp; - calculationg ]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[COnvrg_sub.f90&nbsp; - calculationg <ins class="diffchange diffchange-inline">of covergence kriteria</ins>]]</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Geom_1.f90&nbsp; &nbsp; &nbsp; - calculation of geometry properties]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Geom_1.f90&nbsp; &nbsp; &nbsp; - calculation of geometry properties]]</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Grid_sub.f90&nbsp; &nbsp; - definition of the grid]]</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>*[[Grid_sub.f90&nbsp; &nbsp; - definition of the grid]]</div></td></tr> </table>

Michail http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=2663&oldid=prev 2005-09-21T17:16:44Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 17:16, 21 September 2005</td> </tr><tr><td colspan="2" class="diff-lineno">Line 23:</td> <td colspan="2" class="diff-lineno">Line 23:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Bound_1.f90 - Set boundary conditions]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Bound_1.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; </ins>- Set boundary conditions]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Check_koeff.f90 - Performing checking of koefficients]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Check_koeff.f90 <ins class="diffchange diffchange-inline"> </ins>- Performing checking of koefficients <ins class="diffchange diffchange-inline">(output for visual control) </ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Coeff_11.f90 - calculate the coefficients]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Coeff_11.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; </ins>- calculate the coefficients]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Contr_gem1.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Contr_gem1.f90 <ins class="diffchange diffchange-inline">&nbsp; - control and output of geometry</ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[COnvrg_sub.f90 - calculationg ]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[COnvrg_sub.f90 <ins class="diffchange diffchange-inline">&nbsp; </ins>- calculationg ]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Geom_1.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Geom_1.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; &nbsp; - calculation of geometry properties</ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Grid_sub.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Grid_sub.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; - definition of the grid</ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[HLPA.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[HLPA.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; &nbsp; &nbsp; - HLPA scheme implementation modul</ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[ini.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[ini.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; &nbsp; &nbsp; - setting &quot;0&quot; to all arrays</ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[input.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[input.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; &nbsp; - determination of intial conditions</ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Main.f90 - Main modul]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Main.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; &nbsp; &nbsp; </ins>- Main modul]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Out_array_1.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Out_array_1.f90 <ins class="diffchange diffchange-inline"> - output of separate array in .txt file for visual control </ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[Output_aa.f90]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[Output_aa.f90 <ins class="diffchange diffchange-inline">&nbsp; - output of all necessary information </ins>]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[TDMA_11.f90 - Solution of system of linear equatrions by Thomas method]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[TDMA_11.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; </ins>- Solution of system of linear equatrions by Thomas method]]</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>*[[icomm_1.f90 - include module]]</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>*[[icomm_1.f90 <ins class="diffchange diffchange-inline">&nbsp; &nbsp; </ins>- include module]]</div></td></tr> </table>

Michail http://www.cfd-online.com/W/index.php?title=Sample_code_for_solving_Smith-Hutton_test_-_Fortran_90&diff=2595&oldid=prev 2005-09-20T20:28:46Z

<p></p> <p><b>New page</b></p><div>''Dear friends''<br /> <br /> ''It's just a scrap. Later I'll correct it, although it's a complete working code''<br /> <br /> <br /> Sample program for solving Smith-Hutton Test using different schemes of covective terms approximation<br /> '''Copyright (C) 2005 Michail Kirichkov ,Lithuania, Marijampole'''<br /> <br /> This program is free software; you can redistribute it and/or<br /> modify it under the terms of the GNU General Public License<br /> as published by the Free Software Foundation; either version 2<br /> of the License, or (at your option) any later version.<br /> <br /> This program is distributed in the hope that it will be useful,<br /> but WITHOUT ANY WARRANTY; without even the implied warranty of<br /> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the<br /> GNU General Public License for more details.<br /> <br /> You should have received a copy of the GNU General Public License<br /> along with this program; if not, write to the Free Software<br /> Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.<br /> <br /> <br /> <br /> *[[Bound_1.f90 - Set boundary conditions]]<br /> *[[Check_koeff.f90 - Performing checking of koefficients]]<br /> *[[Coeff_11.f90 - calculate the coefficients]]<br /> *[[Contr_gem1.f90]]<br /> *[[COnvrg_sub.f90 - calculationg ]]<br /> *[[Geom_1.f90]]<br /> *[[Grid_sub.f90]]<br /> *[[HLPA.f90]]<br /> *[[ini.f90]]<br /> *[[input.f90]]<br /> *[[Main.f90 - Main modul]]<br /> *[[Out_array_1.f90]]<br /> *[[Output_aa.f90]]<br /> *[[TDMA_11.f90 - Solution of system of linear equatrions by Thomas method]]<br /> *[[icomm_1.f90 - include module]]</div>

Michail