!************************************************************
!CÁLCULO DO COEFICIENTE DE ARRASTO DEVIDO À INTERFERÊNCIA                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
!************************************************************
    
SUBROUTINE Cdinterferencia(Cfe, e, Le, Tc, Dc, N, Sref, Cdi)

REAL*8 Cdi, Cfe, e, Le, Tc, Dc, N, Sref

Cdi = Cfe*(1d0+2d0*e/Le)*Tc*Dc*N/Sref

END SUBROUTINE Cdinterferencia