Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/misc/i1mach.F

Timestamp:

Jul 19, 2024, 5:41:58 PM (4 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/misc/i1mach.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/i1mach.F

@@ -114 +114 @@
       IMACH(15) =      minexponent(0d0)
       IMACH(16) =       maxexponent(0d0)
-      IF (I .LT. 1  .OR.  I .GT. 16) GO TO 10
+      IF (I < 1  .OR.  I > 16) GO TO 10
 C
       I1MACH = IMACH(I)