-
Notifications
You must be signed in to change notification settings - Fork 22
Description
elseif (znuclear .eq. 24) then # argon
if (zatomic .eq. 0) then
ebindz=6.76
elseif (zatomic .eq. 1) then
ebindz=16.49
elseif (zatomic .eq. 2) then
ebindz=34.97
elseif (zatomic .eq. 3) then
ebindz=54.44
elseif (zatomic .eq. 4) then
ebindz=73.91
elseif (zatomic .eq. 5) then
ebindz=93.38
elseif (zatomic .eq. 6) then
ebindz=159.3
elseif (zatomic .eq. 7) then
ebindz=187.2
elseif (zatomic .eq. 8) then
ebindz=215.2
elseif (zatomic .eq. 9) then
ebindz=234.1
elseif (zatomic .eq. 10) then
ebindz=276.6
elseif (zatomic .eq. 11) then
ebindz=304.7
elseif (zatomic .eq. 12) then
ebindz=364.02
elseif (zatomic .eq. 13) then
ebindz=394.1
elseif (zatomic .eq. 14) then
ebindz=934.3
elseif (zatomic .eq. 15) then
ebindz=1039
elseif (zatomic .eq. 16) then
ebindz=1144
elseif (zatomic .eq. 17) then
ebindz=1249
elseif (zatomic .eq. 18) then
ebindz=1363
elseif (zatomic .eq. 19) then
ebindz=1469
elseif (zatomic .eq. 20) then
ebindz=1618
elseif (zatomic .eq. 21) then
ebindz=1711
elseif (zatomic .eq. 22) then
ebindz=7195
elseif (zatomic .eq. 23) then
ebindz=7624
endif