{$DS.}Function CLFI4(Ra,C,theta,thetacrit)
If (theta<=theta_crit) or (theta>=90) Then CALL ERROR ('El valor de theta está fuera de rango.Comprueba Variable info en el menú Options',theta)
CLFI4=CLFI2(Ra,C)*(sin(theta))^(1/4)
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.