Changeset 2622

Timestamp:

03/20/24 16:34:00 (7 weeks ago)

Author:

jderouillat

Message:

Logical comparison requires eqv (not eq)

File:

• XIOS3/trunk/src/interface/fortran/ilogical_bool_conversion.f90 (modified) (17 diffs)

XIOS3/trunk/src/interface/fortran/ilogical_bool_conversion.f90

@@ -21 +21 @@
     ctrue  =  cxios_set_logical_true()
     cfalse =  cxios_set_logical_false()
-    if (tmp.eq..false.) then
+    if (tmp.eqv..false.) then
       tmp = cfalse
     else
@@ -37 +37 @@
     cfalse =  cxios_set_logical_false()
     do ij=1,ni_(1)
-       if (tmp(ij).eq..false.) then
+       if (tmp(ij).eqv..false.) then
           tmp(ij) = cfalse
        else
@@ -55 +55 @@
     do j=1,ni_(2)
       do i=1,ni_(1)
-        if (tmp(i,j).eq..false.) then
+        if (tmp(i,j).eqv..false.) then
           tmp(i,j) = cfalse
         else
@@ -75 +75 @@
       do j=1,ni_(2)
         do i=1,ni_(1)
-          if (tmp(i,j,k).eq..false.) then
+          if (tmp(i,j,k).eqv..false.) then
             tmp(i,j,k) = cfalse
           else
@@ -97 +97 @@
         do j=1,ni_(2)
           do i=1,ni_(1)
-            if (tmp(i,j,k,l).eq..false.) then
+            if (tmp(i,j,k,l).eqv..false.) then
               tmp(i,j,k,l) = cfalse
             else
@@ -121 +121 @@
           do j=1,ni_(2)
             do i=1,ni_(1)
-              if (tmp(i,j,k,l,m).eq..false.) then
+              if (tmp(i,j,k,l,m).eqv..false.) then
                 tmp(i,j,k,l,m) = cfalse
               else
@@ -147 +147 @@
             do j=1,ni_(2)
               do i=1,ni_(1)
-                if (tmp(i,j,k,l,m,p).eq..false.) then
+                if (tmp(i,j,k,l,m,p).eqv..false.) then
                   tmp(i,j,k,l,m,p) = cfalse
                 else
@@ -175 +175 @@
               do j=1,ni_(2)
                 do i=1,ni_(1)
-                  if (tmp(i,j,k,l,m,p,q).eq..false.) then
+                  if (tmp(i,j,k,l,m,p,q).eqv..false.) then
                     tmp(i,j,k,l,m,p,q) = cfalse
                   else
@@ -193 +193 @@
     IMPLICIT NONE
     LOGICAL (KIND=C_BOOL), INTENT(INOUT) :: tmp
-    if (tmp.eq..false.) then
+    if (tmp.eqv..false.) then
       tmp = .false.
     else
@@ -206 +206 @@
     INTEGER :: ij
     do ij=1,ni_(1)
-       if (tmp(ij).eq..false.) then
+       if (tmp(ij).eqv..false.) then
           tmp(ij) = .false.
        else
@@ -221 +221 @@
     do j=1,ni_(2)
       do i=1,ni_(1)
-        if (tmp(i,j).eq..false.) then
+        if (tmp(i,j).eqv..false.) then
           tmp(i,j) = .false.
         else
@@ -238 +238 @@
       do j=1,ni_(2)
         do i=1,ni_(1)
-          if (tmp(i,j,k).eq..false.) then
+          if (tmp(i,j,k).eqv..false.) then
             tmp(i,j,k) = .false.
           else
@@ -257 +257 @@
         do j=1,ni_(2)
           do i=1,ni_(1)
-            if (tmp(i,j,k,l).eq..false.) then
+            if (tmp(i,j,k,l).eqv..false.) then
               tmp(i,j,k,l) = .false.
             else
@@ -278 +278 @@
           do j=1,ni_(2)
             do i=1,ni_(1)
-              if (tmp(i,j,k,l,m).eq..false.) then
+              if (tmp(i,j,k,l,m).eqv..false.) then
                 tmp(i,j,k,l,m) = .false.
               else
@@ -301 +301 @@
             do j=1,ni_(2)
               do i=1,ni_(1)
-                if (tmp(i,j,k,l,m,p).eq..false.) then
+                if (tmp(i,j,k,l,m,p).eqv..false.) then
                   tmp(i,j,k,l,m,p) = .false.
                 else
@@ -326 +326 @@
               do j=1,ni_(2)
                 do i=1,ni_(1)
-                  if (tmp(i,j,k,l,m,p,q).eq..false.) then
+                  if (tmp(i,j,k,l,m,p,q).eqv..false.) then
                     tmp(i,j,k,l,m,p,q) = .false.
                   else
@@ -340 +340 @@
   END SUBROUTINE xios_bool_to_logical_7d
   
-  !SUBROUTINE xios_bool_to_logical_0d(tmp, ni_)
-  !  IMPLICIT NONE
-  !  LOGICAL (KIND=C_BOOL), INTENT(INOUT) :: tmp(:)
-  !  INTEGER, INTENT(IN) :: ni_(:)
-  !  INTEGER :: ij
-  !  do ij=1,ni_(1)
-  !     if (tmp(ij).eq..false.) then
-  !        tmp(ij) = .false.
-  !     else
-  !        tmp(ij) = .true.
-  !     endif
-  !  enddo
-  !END SUBROUTINE xios_bool_to_logical_0d
-
-
 END MODULE logical_bool_conversion