$SB1-X5.226 q Function CFFE18(Re_max,Pr,Pr_s,C,m) If (Re_max<=1000) or (Re_max>=2E6) Then CALL ERROR ( 'El valor de Re_max está fuera de rango.Comprueba Variable info en el menú Options',Re_max) If(Pr<=0.7) or (Pr>=500) Then CALL ERROR ('El valor de Pr está fuera de rango.Comprueba Variable info en el menú Options',Pr) CFFE18=C*(Re_max^m)*(Pr^0.36)*(Pr/Pr_s)^(1/4) END