ports/misc/libemos/files/patch-gribex_csect4.F

11 lines
585 B
Forth

--- 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)))