Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/misc/xersve.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/xersve.F (modified) (6 diffs)

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

@@ -72 +72 @@
 C***FIRST EXECUTABLE STATEMENT  XERSVE
 C
-      IF (KFLAG.LE.0) THEN
+      IF (KFLAG<=0) THEN
 C
 C        Dump the table.
 C
-         IF (NMSG.EQ.0) RETURN
+         IF (NMSG==0) RETURN
 C
 C        Print to each unit.
@@ -83 +83 @@
          DO 20 KUNIT = 1,NUNIT
             IUNIT = LUN(KUNIT)
-            IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
+            IF (IUNIT==0) IUNIT = I1MACH(4)
 C
 C           Print the table header.
@@ -98 +98 @@
 C           Print number of other errors.
 C
-            IF (KOUNTX.NE.0) WRITE (IUNIT,9020) KOUNTX
+            IF (KOUNTX/=0) WRITE (IUNIT,9020) KOUNTX
             WRITE (IUNIT,9030)
    20    CONTINUE
@@ -104 +104 @@
 C        Clear the error tables.
 C
-         IF (KFLAG.EQ.0) THEN
+         IF (KFLAG==0) THEN
             NMSG = 0
             KOUNTX = 0
@@ -118 +118 @@
          MES = MESSG
          DO 30 I = 1,NMSG
-            IF (LIB.EQ.LIBTAB(I) .AND. SUB.EQ.SUBTAB(I) .AND.
-     *         MES.EQ.MESTAB(I) .AND. NERR.EQ.NERTAB(I) .AND.
-     *         LEVEL.EQ.LEVTAB(I)) THEN
+            IF (LIB==LIBTAB(I) .AND. SUB==SUBTAB(I) .AND.
+     *         MES==MESTAB(I) .AND. NERR==NERTAB(I) .AND.
+     *         LEVEL==LEVTAB(I)) THEN
                   KOUNT(I) = KOUNT(I) + 1
                   ICOUNT = KOUNT(I)
@@ -127 +127 @@
    30    CONTINUE
 C
-         IF (NMSG.LT.LENTAB) THEN
+         IF (NMSG<LENTAB) THEN
 C
 C           Empty slot found for new message.