From e9edd3d55f1eac1690a73ae9b6a54a3b893aca99 Mon Sep 17 00:00:00 2001 From: Marc DeGraef Date: Sun, 14 Jul 2024 06:48:57 -0400 Subject: [PATCH] adds sig to namelist so that SphInx correlation program will work for ECP master patterns. --- Source/EMsoftOOLib/program_mods/mod_MCfiles.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Source/EMsoftOOLib/program_mods/mod_MCfiles.f90 b/Source/EMsoftOOLib/program_mods/mod_MCfiles.f90 index 236b4ba..fbcae5c 100644 --- a/Source/EMsoftOOLib/program_mods/mod_MCfiles.f90 +++ b/Source/EMsoftOOLib/program_mods/mod_MCfiles.f90 @@ -392,7 +392,7 @@ recursive subroutine writeHDFNameList_(self, HDF, HDFnames) type(HDF_T), INTENT(INOUT) :: HDF type(HDFnames_T), INTENT(INOUT) :: HDFnames -integer(kind=irg),parameter :: n_int = 11, n_real_bse1 = 9, n_real_full = 7, n_real_ivol = 6, & +integer(kind=irg),parameter :: n_int = 11, n_real_bse1 = 10, n_real_full = 7, n_real_ivol = 6, & n_real_foil = 10 integer(kind=irg) :: hdferr, io_int(n_int) real(kind=dbl) :: io_real_bse1(n_real_bse1), io_real_full(n_real_full), & @@ -428,7 +428,7 @@ recursive subroutine writeHDFNameList_(self, HDF, HDFnames) ! write all the single doubles if (mcnl%mode .eq. 'bse1') then io_real_bse1 = (/ mcnl%sigstart, mcnl%sigend, mcnl%sigstep, mcnl%omega, mcnl%EkeV, mcnl%Ehistmin, & - mcnl%Ebinsize, mcnl%depthmax, mcnl%depthstep /) + mcnl%Ebinsize, mcnl%depthmax, mcnl%depthstep, mcnl%sig /) reallist_bse1(1) = 'sigstart' reallist_bse1(2) = 'sigend' reallist_bse1(3) = 'sigstep' @@ -438,6 +438,7 @@ recursive subroutine writeHDFNameList_(self, HDF, HDFnames) reallist_bse1(7) = 'Ebinsize' reallist_bse1(8) = 'depthmax' reallist_bse1(9) = 'depthstep' + reallist_bse1(10) = 'sig' call HDF%writeNMLdbles(io_real_bse1, reallist_bse1, n_real_bse1) else if (mcnl%mode .eq. 'full') then io_real_full = (/ mcnl%sig, mcnl%omega, mcnl%EkeV, mcnl%Ehistmin, &