Changeset 5082 for LMDZ6/branches/Amaury_dev/libf/filtrez/jacobi.F90

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/filtrez/jacobi.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/jacobi.F90

@@ -38 +38 @@
           ENDDO
         ENDDO
-        IF(SM.EQ.0.)RETURN
-        IF(I.LT.4)THEN
+        IF(SM==0.)RETURN
+        IF(I<4)THEN
           TRESH=0.2*SM/N**2
         ELSE
@@ -47 +47 @@
           DO IQ=IP+1,N
             G=100.*ABS(A(IP,IQ))
-            IF((I.GT.4).AND.(ABS(D(IP))+G.EQ.ABS(D(IP))) &
-               .AND.(ABS(D(IQ))+G.EQ.ABS(D(IQ))))THEN
+            IF((I>4).AND.(ABS(D(IP))+G==ABS(D(IP))) &
+               .AND.(ABS(D(IQ))+G==ABS(D(IQ))))THEN
               A(IP,IQ)=0.
-            ELSE IF(ABS(A(IP,IQ)).GT.TRESH)THEN
+            ELSE IF(ABS(A(IP,IQ))>TRESH)THEN
               H=D(IQ)-D(IP)
-              IF(ABS(H)+G.EQ.ABS(H))THEN
+              IF(ABS(H)+G==ABS(H))THEN
                 T=A(IP,IQ)/H
               ELSE
                 THETA=0.5*H/A(IP,IQ)
                 T=1./(ABS(THETA)+SQRT(1.+THETA**2))
-                IF(THETA.LT.0.)T=-T
+                IF(THETA<0.)T=-T
               ENDIF
               C=1./SQRT(1+T**2)