Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/misc/ismax.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/ismax.F (modified) (1 diff)

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

@@ -14 +14 @@
       do 10 i=1,n-1
        ix=ix+incx
-       if(sx(ix).gt.sxmax) then
+       if(sx(ix)>sxmax) then
          sxmax=sx(ix)
          ismax=i+1