diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-01-28 22:41:30 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-01-28 22:41:30 +0000 |
commit | dcdd284aac2f21f0ca40b6c98d900f1727dd1091 (patch) | |
tree | b5a2f3a9c1901c559a104f46503c88fc2bc706ba /src | |
parent | 66048bb0842b6dba8073993ec44d01a431460d04 (diff) |
change syntax of two lines so that it compiles for gfortran
gfortran is picky about the ditinction between LOGICAL and INTEGER and does not
like Fortran line continuation in C preprocessor macros
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@63 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src')
-rw-r--r-- | src/Whisky_Con2Prim.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Whisky_Con2Prim.F90 b/src/Whisky_Con2Prim.F90 index 5d233f7..6d654e6 100644 --- a/src/Whisky_Con2Prim.F90 +++ b/src/Whisky_Con2Prim.F90 @@ -1600,7 +1600,7 @@ subroutine Conservative2PrimitiveGeneral(CCTK_ARGUMENTS) !do not compute if in atmosphere !or in an excised region - if (SpaceMask_CheckStateBitsF90(space_mask, i, j, k, type_bits, atmosphere) .ne. 0) & + if (SpaceMask_CheckStateBitsF90(space_mask, i, j, k, type_bits, atmosphere)) & then press_new(i,j,k) = press(i,j,k) press_old(i,j,k) = press(i,j,k) @@ -1825,7 +1825,7 @@ subroutine Conservative2PrimitiveGeneral(CCTK_ARGUMENTS) write(warnline,'(a20,1P1E15.6)') 'velocities: ',& vel(i,j,k,1),vel(i,j,k,2),vel(i,j,k,3) call CCTK_WARN(1,warnline) - call CCTK_WARN(whisky_c2p_warnlevel, & + call CCTK_WARN(whisky_c2p_warnlevel, \ "Specific internal energy negative") !$OMP END CRITICAL exit |