Philippe 24/05/2018: IO: bug correction: open OUTPUTLISTING file only for...

Philippe 24/05/2018: IO: bug correction: open OUTPUTLISTING file only for processes that need to write to it

src/LIB/SURCOUCHE/src/mode_io.f90

@@ -377,9 +377,15 @@ CONTAINS
           TPFILE%LMULTIMASTERS = .TRUE.
        ELSE
           IF (TPFILE%CTYPE=='OUTPUTLISTING') THEN
-            TPFILE%NMASTER_RANK  = -1
-            TPFILE%LMASTER       = .TRUE. !Every process may write in the file
-            TPFILE%LMULTIMASTERS = .TRUE.
+            IF (LVERB_ALLPRC) THEN
+              TPFILE%NMASTER_RANK  = -1
+              TPFILE%LMASTER       = .TRUE. !Every process may write in the file
+              TPFILE%LMULTIMASTERS = .TRUE.
+            ELSE
+              TPFILE%NMASTER_RANK  = ISIOP
+              TPFILE%LMASTER       = (ISP == ISIOP)
+              TPFILE%LMULTIMASTERS = .FALSE.
+            END IF
           ELSE
             TPFILE%NMASTER_RANK  = ISIOP
             TPFILE%LMASTER       = (ISP == ISIOP)