From 37226790921e87a97e067dee3693ca070ed72630 Mon Sep 17 00:00:00 2001 From: vliqi Date: Tue, 15 Aug 2017 21:11:50 +0800 Subject: [PATCH] fix a bug in cfl3d/libs/mms.F while compile in complex version --- source/cfl3d/libs/mms.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/cfl3d/libs/mms.F b/source/cfl3d/libs/mms.F index a7c60e8e..f6201cf6 100644 --- a/source/cfl3d/libs/mms.F +++ b/source/cfl3d/libs/mms.F @@ -1579,7 +1579,7 @@ subroutine exact_flow_bc(jdim,kdim,idim,x,y,z,qi0,qj0,qk0,nface, c # ifdef CMPLX c do not compile all the exact routines if complex - continue +c # else subroutine analytic_compressible(x, y, z, neq, q, i_convert_q, + i_forcing, i_gradient, distf, xmut, iexact_trunc, iexact_disc) @@ -2825,5 +2825,5 @@ subroutine exact_polyfg(scale, polyfc, x, y, z, q, qx, qy, qz, qxz = qxz + scale*( 0.0 ) qyz = qyz + scale*( 0.0 ) return -# endif end +# endif