Example code for solving Smith-Hutton test - Fortran 90
From CFD-Wiki
(Difference between revisions)
(→Main.f90) |
|||
(5 intermediate revisions not shown) | |||
Line 1: | Line 1: | ||
- | + | ''Dear friends'' | |
- | + | ''It's just a scrap. Later I'll correct it, although it's a complete working code'' | |
- | + | '''This code have been developed completely by myself in my native Marijampole. Please use it without limitations. Also I ask to add here procedures, which implement other schemes of approximation''' | |
- | + | '''Kirichkov Michail, Lithuania, Marijampole, 2005 09 19''' | |
- | + | *[[Bound_1.f90 - Set boundary conditions]] | |
- | + | *[[Check_koeff.f90 - Performing checking of koefficients]] | |
- | + | *[[Coeff_11.f90 - calculate the coefficients]] | |
- | + | *[[Contr_gem1.f90]] | |
- | + | *[[COnvrg_sub.f90 - calculationg ]] | |
- | + | *[[Geom_1.f90]] | |
- | + | *[[Grid_sub.f90]] | |
- | + | *[[HLPA.f90]] | |
- | + | *[[ini.f90]] | |
- | + | *[[input.f90]] | |
- | + | *[[Main.f90 - Main modul]] | |
- | + | *[[Out_array_1.f90]] | |
- | + | *[[Output_aa.f90]] | |
- | + | *[[TDMA_11.f90 - Solution of system of linear equatrions by Thomas method]] | |
- | + | *[[icomm_1.f90 - include module]] | |
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + |
Latest revision as of 05:53, 19 September 2005
Dear friends
It's just a scrap. Later I'll correct it, although it's a complete working code
This code have been developed completely by myself in my native Marijampole. Please use it without limitations. Also I ask to add here procedures, which implement other schemes of approximation
Kirichkov Michail, Lithuania, Marijampole, 2005 09 19
- Bound_1.f90 - Set boundary conditions
- Check_koeff.f90 - Performing checking of koefficients
- Coeff_11.f90 - calculate the coefficients
- Contr_gem1.f90
- COnvrg_sub.f90 - calculationg
- Geom_1.f90
- Grid_sub.f90
- HLPA.f90
- ini.f90
- input.f90
- Main.f90 - Main modul
- Out_array_1.f90
- Output_aa.f90
- TDMA_11.f90 - Solution of system of linear equatrions by Thomas method
- icomm_1.f90 - include module