function CAL_rgsGetEffectiveArea(Efrom, Eto, order, theta, phi) result(area)
use types
real(kind=double), intent(in) :: Efrom, Eto, &
theta, phi
integer(kind=int32), intent(in) :: order
real(kind=double) :: area
end function