csyncTELoss.f

Go to the documentation of this file.

!       ********************************************8
!   The total energy loss rate by synchrotron radiation
!       (GeV/m)
!       
    real*8 function csyncteloss(u)
    implicit none
#include "Zglobalc.h"
    real*8 u  ! input. upsilon
        real*8  cgUpsilon
    csyncteloss = 0.66666 * syncconvr * cgupsilon(u)
    end