diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index aeddf6f1e681ecfa6329eb7c4bf1c5ad5d207eb2..6fd8a58d865a7ac2446f1d23b06ee9032593d10d 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -591,7 +591,7 @@ CONTAINS
        ELSE
           TZFD%NB_PROCIO = 1
        ENDIF
-       IF( GPARALLELIO /= .TRUE. ) THEN
+       IF( .NOT. GPARALLELIO ) THEN
          TZFD%NB_PROCIO = 1
        ENDIF
        TZFD%COMM = NMNH_COMM_WORLD
@@ -797,7 +797,7 @@ CONTAINS
        !
        ! close LFI file in the different PROC
        !
-       IF( GPARALLELIO /= .TRUE. ) THEN
+       IF( .NOT. GPARALLELIO ) THEN
          TZFD%NB_PROCIO = 1
        ENDIF
        IF (TZFD%NB_PROCIO .GT. 1 ) THEN