csyncTELoss.f File Reference

Go to the source code of this file.

Functions/Subroutines
real *8 function	csyncteloss (u)

Function/Subroutine Documentation

csyncteloss()

real*8 function csyncteloss

(

real*8

u

)

Definition at line 6 of file csyncTELoss.f.

    implicit none
#include "Zglobalc.h"
    real*8 u  ! input. upsilon
        real*8  cgupsilon
    csyncteloss = 0.66666 * syncconvr * cgupsilon(u)