adds sig to namelist so that SphInx correlation program will work for…

… ECP master patterns.

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, &