--- trunk/OOPSE-4/src/utils/definitions.F90	2005/06/27 21:01:36	2259
+++ trunk/OOPSE-4/src/utils/definitions.F90	2006/05/17 19:54:27	2758
@@ -61,7 +61,11 @@ module definitions
   !! Various precision parameters
 
   INTEGER, PARAMETER :: SP = selected_real_kind(4)
+#ifdef SINGLE_PRECISION
+  INTEGER, PARAMETER :: DP = selected_real_kind(4)
+#else
   INTEGER, PARAMETER :: DP = selected_real_kind(8)
+#endif
 
   !! Maximum number of fortran streams...
   INTEGER, PARAMETER :: MAX_UNITS = 100