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

Timestamp:

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

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/misc/formcoord.F (modified) (2 diffs)

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

@@ -25 +25 @@
       endif
 
-      if (n.lt.2) then
+      if (n<2) then
          ndec=1
          write(unit,1000) text,n,x(1)*a
@@ -32 +32 @@
          do i=2,n-1
             dx=abs(x(i+1)-x(i))
-            if (dx.lt.dxmin) dxmin=dx
+            if (dx<dxmin) dxmin=dx
          enddo
 
          ndec=-log10(dxmin)+2
-         if(mod(n,6).eq.1) then
+         if(mod(n,6)==1) then
             write(unit,1000) text,n,x(i1)*a
             write(unit,2000) (x(i)*a,i=i2,in,id)