aboutsummaryrefslogtreecommitdiff
path: root/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
diff options
context:
space:
mode:
authorJonathan Thornburg <jthorn@aei.mpg.de>2006-08-29 17:05:00 +0000
committerJonathan Thornburg <jthorn@aei.mpg.de>2006-08-29 17:05:00 +0000
commitbfcb2cfd680ceb3742cf93693b97ab0763383cc7 (patch)
treef288a888cd258f64008741039ee71a7df601a779 /Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
parent57c4a61e709cd5fde77ac4bded23d82b71a4e94e (diff)
[CarpetLib] add option to omit Fortran 90 files by adding -DOMIT_F90 to compiler flags
Carpet is _almost_ entirely written in C, C++, and Fortran 77, but there are a few Fortran 90 files in CarpetLib defining the ENO and WENO prolongation operators. This patch allows Carpet to be compiled without a Fortran 90 compiler if these (ENO/WENO) operators are not needed, by defining the C preprocessor symbol OMIT_F90. For example, you could do this by putting CFLAGS=-DOMIT_F90 CXXFLAGS=-DOMIT_F90 F77FLAGS=-DOMIT_F90 F90FLAGS=-DOMIT_F90 in a ~/.cactus/config file. I emphasize that in the default case, where OMIT_F90 is not defined, this patch is a no-op: the ENO and WENO prolongation operators are still defined, a Fortran 90 compiler is still needed to compile CarpetLib, you still pass go, you still collect $200. :) This patch only changes the behavior of Carpet in the non-default case where OMIT_F90 is defined. darcs-hash:20060829170502-b0a3f-0d423f190bd7388faa9e1a6e0a980694b044516b.gz
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90')
-rw-r--r--Carpet/CarpetLib/src/prolongate_3d_real8_eno.F902
1 files changed, 2 insertions, 0 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
index e5f1c53ae..105b06148 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90
@@ -1,3 +1,4 @@
+#ifndef OMIT_F90
!!$ -*-Fortran-*-
#include "cctk.h"
@@ -291,3 +292,4 @@ subroutine prolongate_3d_real8_eno (src, srciext, srcjext, &
end do
end subroutine prolongate_3d_real8_eno
+#endif /* !OMIT_F90 */