From 2de809ae79d0fa4669fd4b8413afc50ecd9de522 Mon Sep 17 00:00:00 2001
From: Jonathan Schilling <jons@proximafusion.com>
Date: Wed, 23 Oct 2024 10:56:39 +0200
Subject: [PATCH] dump on every funct3d call: xc

---
 Sources/General/funct3d.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Sources/General/funct3d.f b/Sources/General/funct3d.f
index 1cf69e5..a4720e2 100644
--- a/Sources/General/funct3d.f
+++ b/Sources/General/funct3d.f
@@ -53,7 +53,7 @@ SUBROUTINE funct3d_par (lscreen, ier_flag)
 
       ! dump state vector
       write(filename, 998) "dump_parvmec",                                     &
-     &                     "funct3d_xc_",                                      &
+     &                     "funct3d_xc",                                      &
      &                     ns, nfunct3d
 998   format(a,'/',a,'_',i5.5,'_',i5.5,'.dat')
       open(unit=73, file=trim(filename), status="unknown")