diff --git a/sdpa-c/MUMPS_5.1.2_src/src/dmumps_driver.F b/sdpa-c/MUMPS_5.1.2_src/src/dmumps_driver.F
index 305b37cf7246cf45876899a695b7ff6531b9c0e3..7779b27500e3a6e7a6c7681c9db75d86c3692ea9 100644
--- a/sdpa-c/MUMPS_5.1.2_src/src/dmumps_driver.F
+++ b/sdpa-c/MUMPS_5.1.2_src/src/dmumps_driver.F
@@ -698,57 +698,6 @@ C       ICNTL should have been initialized and can be used
         ELSE
           FROM_C_INTERFACE_STRING=" "
         ENDIF
-        IF (PROKG) THEN
-C          Print basic information on MUMPS call
-           IF (JOB .EQ. -2
-     &       ) THEN
-C            N, NELT, NNZ not meaningful
-             WRITE(MPG,'(/A,A,A,A,I4,I12)') 
-     &               'Entering DMUMPS ',
-     &               trim(adjustl(id%VERSION_NUMBER)),
-     &               trim(FROM_C_INTERFACE_STRING),
-     &               ' with JOB =', JOB
-           ELSE IF (id%ICNTL(5) .NE. 1) THEN
-C            Assembled format
-             IF (id%ICNTL(18) .EQ. 0
-     &            ) THEN
-                 WRITE(MPG,'(/A,A,A,A,I4,I12,I15)') 
-     &                 'Entering DMUMPS ',
-     &                 trim(adjustl(id%VERSION_NUMBER)),
-     &                 trim(FROM_C_INTERFACE_STRING),
-     &                 ' with JOB, N, NNZ =', JOB,id%N,id%KEEP8(28)
-             ELSE
-                 WRITE(MPG,'(/A,A,A,A,I4,I12)') 
-     &                 'Entering DMUMPS ',
-     &                 trim(adjustl(id%VERSION_NUMBER)),
-     &                 trim(FROM_C_INTERFACE_STRING),
-     &                 ' with JOB, N =', JOB,id%N
-             ENDIF
-           ELSE
-C            Elemental format
-             WRITE(MPG,'(/A,A,A,A,I4,I12,I15)') 
-     &                'Entering DMUMPS ',
-     &                trim(adjustl(id%VERSION_NUMBER)),
-     &                trim(FROM_C_INTERFACE_STRING),
-     &                ' driver with JOB, N, NELT =', JOB,id%N,id%NELT
-           ENDIF
-C          MPI and OpenMP information
-!$         IF (.TRUE.) THEN
-!$           WRITE(MPG, '(A,I6,A,I6)') '      executing #MPI = ',
-!$   &                 id%NPROCS, ' and #OMP = ', NOMP
-!$           IF ( NOMPMIN .NE. NOMPMAX ) THEN
-!$             WRITE(MPG, '(A,I4,A,I4,A)')
-!$   &  '      WARNING detected: different number of threads (max ',
-!$   &         NOMPMAX, ', min ', NOMPMIN, ')'
-!$           END IF
-!$         ELSE
-             WRITE(MPG, '(A,I6,A)')    '      executing #MPI = ',
-     &                 id%NPROCS, ', without OMP'
-!$         ENDIF
-          IF (JOB.GE.1 .AND. JOB.LE.6) THEN
-            WRITE(MPG, '(A)')
-          ENDIF
-        ENDIF
       END IF
 C
 C----------------------------------------------------------------