Corrected response functions for option (3)

Corrected position of s.esc. and d.esc. peaks for option (3). At higher energies, e.g. at 6130 keV the single escape was placed at 6130-500 keV instead at 6130-511 keV

Author: magneg

mama/src/libs/gf2/folding.f

@@ -120,7 +120,7 @@ SUBROUTINE ExpThres
 C Writes parameters to disk, to be used for next run
       OPEN(23,FILE='input.unx',ACCESS='SEQUENTIAL',ERR=88)
       WRITE(23,*)IRSP,facFWHM,FWHM
-      WRITE(23,*)ix1,iy1,ix2,iy2
+      WRITE(23,*)ix1,iy1,ix2,iy2
       WRITE(23,*)LOW,HIGH
       WRITE(23,*)Iter,LowChi
       WRITE(23,*)(EffD(i),i=1,10)
@@ -830,11 +830,11 @@ SUBROUTINE Resp
       DATA ER3/   360.,   847.,   1238.,   1779., 2839., 3089.,
      +           4497.,  6130.,   9900.,  15000.,              0,0,0,0,0,0,0,0,0,0,
      +    0,0,0,0,0,0,0,0,0,0/
-      DATA ESE3/  511.,   511.,    511.,    505.,  491.,  490.,
-     +            493.,   500.,    511.,    511.,              0,0,0,0,0,0,0,0,0,0,
+      DATA ESE3/  511.,   511.,    511.,    511.,  511.,  511.,
+     +            511.,   511.,    511.,    511.,              0,0,0,0,0,0,0,0,0,0,
      +    0,0,0,0,0,0,0,0,0,0/
-      DATA EDE3/ 1022.,  1030.,   1022.,   1022.,  994.,  985.,
-     +            982.,   995.,   1050.,   1022.,              0,0,0,0,0,0,0,0,0,0,
+      DATA EDE3/ 1022.,  1022.,   1022.,   1022., 1022., 1022.,
+     +           1022.,  1022.,   1022.,   1022.,              0,0,0,0,0,0,0,0,0,0,
      +    0,0,0,0,0,0,0,0,0,0/