diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90 index d334613937bb1b179726d1308221a7f8830a7341..0490663dbd01d4619743c2e7c6adf3d03fa2341a 100644 --- a/src/LIB/SURCOUCHE/src/mode_io.f90 +++ b/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)