From 4664710b9646731223c4a9f81b7315e44708dec6 Mon Sep 17 00:00:00 2001
From: Maximilian Reininghaus <maximilian.reininghaus@kit.edu>
Date: Thu, 22 Sep 2022 20:47:59 +0200
Subject: [PATCH] fix missing initialization in EPOS
---
modules/epos/epos-sem-lhc.f | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/modules/epos/epos-sem-lhc.f b/modules/epos/epos-sem-lhc.f
index c02b67f58..218b42230 100644
--- a/modules/epos/epos-sem-lhc.f
+++ b/modules/epos/epos-sem-lhc.f
@@ -2430,6 +2430,7 @@ c p=sqrt(max(0.,egy**2-ampro**2))
maproj=mapr
matarg=matg
engy=egy
+ call Class("pscrse-1")
if(matg.eq.1.and.mapr.eq.1)then
if(iqq.eq.1)then !sig ela
call psfz(1,gz2,0.)
@@ -2479,6 +2480,7 @@ c p=sqrt(max(0.,egy**2-ampro**2))
maproj=maprojsave
matarg=matargsave
engy=engysave
+ call Class("pscrse-2")
else
ye=log10(max(1.,egy/1.5))+1.
je=min(5,int(ye))
@@ -2597,7 +2599,7 @@ c------------------------------------------------------------------------------
else
eposelacrse=pscrse(ek,mapro,matar,1)
endif
-
+
return
end
--
GitLab