Fix #260: rest mass not initialized in C interface

Fix the rest mass initialization for EGSnrc applications that depend on the C interface. The bug fix in the parent commit moved the declaration of the rest mass inside the COMIN/USEFUL/ macro. However this in turn breaks C and C++ EGSnrc applications because the C interface relies on its own declaration of the COMIN/USEFUL/ macro, which also has to be updated with the rest mass data statement.
nrc-cnrc · Mar 2, 2017 · a4b710b · a4b710b
1 parent 805881c
commit a4b710b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/HEN_HOUSE/interface/egs_c_interface1.macros b/HEN_HOUSE/interface/egs_c_interface1.macros
@@ -202,6 +202,7 @@ REPLACE {;COMIN/USEFUL/;} WITH {
   real*8         pzero, prm, prmt2;
   $REAL          rm, rhor, rhor_new;
   $INTEGER       medium, medium_new, medold;
+  data rm,prm,prmt2,pzero/0.5109989461,0.5109989461,1.0219978922,0.D0/;
 };
 
 " And now the cross section options common                             "

diff --git a/HEN_HOUSE/interface/egs_c_interface2.macros b/HEN_HOUSE/interface/egs_c_interface2.macros
@@ -232,6 +232,7 @@ REPLACE {;COMIN/USEFUL/;} WITH {
   real*8         pzero, prm, prmt2;
   $REAL          rm, rhor, rhor_new;
   $INTEGER       medium, medium_new, medold;
+  data rm,prm,prmt2,pzero/0.5109989461,0.5109989461,1.0219978922,0.D0/;
 };
 
 " And now the cross section options common                             "