diff --git a/src/msspec/spec/fortran/phd_se_noso_nosp_nosym/pathop.f b/src/msspec/spec/fortran/phd_se_noso_nosp_nosym/pathop.f
index e07d33d..55d90bc 100644
--- a/src/msspec/spec/fortran/phd_se_noso_nosp_nosym/pathop.f
+++ b/src/msspec/spec/fortran/phd_se_noso_nosp_nosym/pathop.f
@@ -115,7 +115,7 @@ C  Renormalization of the path
 C
       IF(I_REN.GE.1) THEN
          COEF=COEF*C_REN(JORDP)
-         write(354,*) JORDP,C_REN(JORDP)
+C         write(354,*) JORDP,C_REN(JORDP)
       ENDIF
 C
 C   Call of the subroutines used for the R-A termination matrix