dump on every funct3d call: xc

jons-pf · Oct 23, 2024 · 2de809a · 2de809a
1 parent 2e20df3
commit 2de809a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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")