Fixed typo in physics module.

This commit is contained in:
Paul Romano 2012-07-23 17:49:02 -04:00
parent ec93d10383
commit 67cda4c736

View file

@ -647,7 +647,7 @@ contains
k = binary_search(sab % elastic_P(1:i+1), i+1, prob)
end if
! Characteristic scattering cosine for this Bragg egg
! Characteristic scattering cosine for this Bragg edge
mu = ONE - 2.0*sab % elastic_e_in(k) / p % E
end if