2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
14 c---------------------------------------------------------------------
16 c---------------------------------------------------------------------
19 c---------------------------------------------------------------------
21 c---------------------------------------------------------------------
22 dxi = 1.0d+00 / ( nx0 - 1 )
23 deta = 1.0d+00 / ( ny0 - 1 )
24 dzeta = 1.0d+00 / ( nz0 - 1 )
26 tx1 = 1.0d+00 / ( dxi * dxi )
27 tx2 = 1.0d+00 / ( 2.0d+00 * dxi )
30 ty1 = 1.0d+00 / ( deta * deta )
31 ty2 = 1.0d+00 / ( 2.0d+00 * deta )
34 tz1 = 1.0d+00 / ( dzeta * dzeta )
35 tz2 = 1.0d+00 / ( 2.0d+00 * dzeta )
45 c---------------------------------------------------------------------
46 c diffusion coefficients
47 c---------------------------------------------------------------------
66 c---------------------------------------------------------------------
67 c fourth difference dissipation
68 c---------------------------------------------------------------------
69 dssp = ( max (dx1, dy1, dz1 ) ) / 4.0d+00
71 c---------------------------------------------------------------------
72 c coefficients of the exact solution to the first pde
73 c---------------------------------------------------------------------
88 c---------------------------------------------------------------------
89 c coefficients of the exact solution to the second pde
90 c---------------------------------------------------------------------
105 c---------------------------------------------------------------------
106 c coefficients of the exact solution to the third pde
107 c---------------------------------------------------------------------
122 c---------------------------------------------------------------------
123 c coefficients of the exact solution to the fourth pde
124 c---------------------------------------------------------------------
139 c---------------------------------------------------------------------
140 c coefficients of the exact solution to the fifth pde
141 c---------------------------------------------------------------------