$SB1-X5.226 Function DTLM_FP(Tce,Tcs,Tfe,Tfs) If (Tfs>Tcs) Then CALL ERROR ('La temperatura de salida del fluido frío no puede exceder a la temperatura de salida del fluido caliente') DELTAT_1=Tce-Tfe DELTAT_2=Tcs-Tfs DTLM_FP=(DELTAT_2-DELTAT_1)/(ln(DELTAT_2/DELTAT_1)) End