From 5f19198decd5d111e7b1b00c30a078018ad2fa96 Mon Sep 17 00:00:00 2001 From: Sylvain Tricot Date: Mon, 19 Jun 2023 14:50:08 +0200 Subject: [PATCH] Remove the creation of output file "fort.354" This file was created for debugging purposes by the renormalization procedure. But since it had one line per diffusion path, its size could rapidly become an issue. The line is simply commented in the code. --- src/msspec/spec/fortran/phd_se_noso_nosp_nosym/pathop.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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