40种常用差分格式的源代码(Fortran)

做毕业设计时找到的，各位做数值模拟的时候可能会用得着。

这些格式见证了CFD的发展历史，从简单的CTCS到TVD、ENO这里都应有尽有。 [傲雪论坛]
http://www.aoxue.org/cgi-bin/bbs/fav_add_x.cgi?id=219831&bid=13
其中包括如下源代码：
1 Simple Burgers’ Equation Solver
2 Exact Riemann Solver
3 Roe’s Approximate Riemann Solver
4 Lagrange Form Polynomial Interpolation
5 Newton Form Polynomial Interpolation
6 Cubic Splines
7 Piecewise-Quadratic ENO Reconstruction (via the Primitive Function)
8 Average-Quadratic ENO Reconstruction (via the Primitive Function)
9 Implicit Euler Method (BTCS)
10 Leapfrog Method (CTCS)
11 Generator for Initial Conditions
12 Lax-Friedrichs Method
13 Lax-Wendroff Method
14 Roe’s First-Order Upwind Method
15 Beam-Warming Second-Order Upwind Method with Flux Splitting
16 Lax-Friedrichs Method (18.1)
17 Lax-Wendroff Methods (MacCormack and Richtmyer)
18 Steger-Warming Flux Split First-Order Upwind Method
19 Van Leer Flux Split First-Order Upwind Method
20 Liou-Steffen Flux Split First-Order Upwind Method (AUSM)
21 Zha-Bilgen Flux Split First-Order Upwind Method
22 Beam-Warming Second-Order Upwind Method w/Three Options for Flux Vector Splitting
23 Godunov’s First-Order Upwind Method
24 Roe’s First-Order Upwind Method
25 Van Leer’s Flux Limited Method
26 Sweby’s Flux Limited Method (TVD)
27 Davis-Roe Flux Limited Method (TVD)
28 Yee-Roe Flux Limited Method (TVD)
29 Boris-Book Flux-Corrected Method (FCT)
30 Harten’s Flux-Corrected Method (TVD)
31 Shu-Osher Method (ENO): Second-Order
32 Shu-Osher Method (ENO): Second-Order plus Subcell Resolution
33 Shu-Osher Method (ENO): Third-Order Method
34 Shu-Osher Method (ENO): Third-Order plus Subcell Resolution
35 Shu-Osher Method (ENO): Arbitrary Grid and Order-of-Accuracy
36 Jameson’s Method
37 Jameson’s Method: Arbitrary Grid
38 Original MUSCL (A Slope-Limited Version of Fromm’s Method)
39 UNO
40 Second-Order ENO
41 Second-Order ENO with Subcell Resolution
42 Third-Order ENO
43 First-Order Upwind Method Based on One-Wave Solver