blob: 9eef94927efc8268d3ba13ae9ce9e72e127a1c71 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- gribex/csect4.F.orig 2018-12-17 15:56:26 UTC
+++ gribex/csect4.F
@@ -308,7 +308,7 @@ C Calculate the scale and reference
#endif
#if defined hpR32 || defined (__alpha) || defined hpR64 || defined hpiaR64
ISCALE = MIN (INT(ZS),INT(ZS+DSIGN(1.0D0,ZS)))
-#elif defined (linux) || defined (darwin)
+#elif 1/*defined(__FreeBSD__) doesn't work for some reason: https://jira.ecmwf.int/browse/SUP-2687*/ || defined (linux) || defined(__FreeBSD__) || defined (darwin)
ISCALE = MIN (INT(ZS),INT(ZS+SIGN(1.D0,ZS)))
#else
ISCALE = MIN (INT(ZS),INT(ZS+SIGN(1.,ZS)))
|