Import Geant4 11.0.0 source tree

This commit is contained in:
Gabriele Cosmo
2021-12-10 14:46:44 +01:00
committed by Ben Morgan
parent 6399a014b6
commit 80e2389dd8
3932 changed files with 202519 additions and 246221 deletions
@@ -1318,8 +1318,8 @@ c Clear BU_TAB (array of multifragmentation products)
EV_TAB[i][4] = VZOUT;
}
if(IMULTBU>200)std::cout << "IMULTBU>200 " << IMULTBU << std::endl;
delete problamb;
delete Nblamb;
delete[] problamb;
delete[] Nblamb;
}// if(T_diff>0.1)
// End of multi-fragmentation
mult7777:
@@ -7793,32 +7793,65 @@ G4double G4Abla::gethyperseparation(G4double A, G4double Z, G4int ny){
if(A<1.)return 1.e38;
// For light nuclei we take experimental values
// Journal of Physics G, Nucl Part Phys 32,363 (2006)
if(ny==1){
if(Z==1 && A==4) return 2.04;
else if(Z==2 && A==4) return 2.39;
else if(Z==2 && A==5) return 3.12;
else if(Z==2 && A==6) return 4.18;
else if(Z==2 && A==7) return 5.23;
else if(Z==2 && A==8) return 7.16;
else if(Z==3 && A==6) return 4.50;
else if(Z==3 && A==7) return 5.58;
else if(Z==3 && A==8) return 6.80;
else if(Z==3 && A==9) return 8.50;
else if(Z==4 && A==7) return 5.16;
else if(Z==4 && A==8) return 6.84;
else if(Z==4 && A==9) return 6.71;
else if(Z==4 && A==10) return 9.11;
else if(Z==5 && A==9) return 8.29;
else if(Z==5 && A==10) return 8.89;
else if(Z==5 && A==11) return 10.24;
else if(Z==5 && A==12) return 11.37;
else if(Z==6 && A==12) return 10.76;
else if(Z==6 && A==13) return 11.69;
else if(Z==6 && A==14) return 12.17;
else if(Z==14 && A==28) return 16.0;
else if(Z==39 && A==89) return 22.1;
else if(Z==57 && A==139) return 23.8;
else if(Z==82 && A==208) return 26.5;
if (ny == 1) {
if (Z == 1 && A == 4)
return 2.04;
else if (Z == 2 && A == 4)
return 2.39;
else if (Z == 2 && A == 5)
return 3.12;
else if (Z == 2 && A == 6)
return 4.18;
else if (Z == 2 && A == 7)
return 5.23;
else if (Z == 2 && A == 8)
return 7.16;
else if (Z == 3 && A == 6)
return 4.50;
else if (Z == 3 && A == 7)
return 5.58;
else if (Z == 3 && A == 8)
return 6.80;
else if (Z == 3 && A == 9)
return 8.50;
else if (Z == 4 && A == 7)
return 5.16;
else if (Z == 4 && A == 8)
return 6.84;
else if (Z == 4 && A == 9)
return 6.71;
else if (Z == 4 && A == 10)
return 9.11;
else if (Z == 5 && A == 9)
return 8.29;
else if (Z == 5 && A == 10)
return 9.01;
else if (Z == 5 && A == 11)
return 10.29;
else if (Z == 5 && A == 12)
return 11.43;
else if (Z == 6 && A == 12)
return 10.95;
else if (Z == 6 && A == 13)
return 11.81;
else if (Z == 6 && A == 14)
return 12.50;
else if (Z == 7 && A == 14)
return 12.17;
else if (Z == 7 && A == 15)
return 13.59;
else if (Z == 8 && A == 16)
return 12.50;
else if (Z == 8 && A == 17)
return 13.59;
else if (Z == 14 && A == 28)
return 16.0;
else if (Z == 39 && A == 89)
return 22.1;
else if (Z == 57 && A == 139)
return 23.8;
else if (Z == 82 && A == 208)
return 26.5;
}//ny==1
// For other nuclei we take Bethe-Weizsacker mass formula
return gethyperbinding(A, Z, ny)-gethyperbinding(A-1., Z, ny-1);