```pascal
FUNCTION "CIP CVQ" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      i_TempIn : Real;
      i_TempOut : Real;
   END_VAR


BEGIN
	    (* classic code: IF #i_TempOut <= 0.5 THEN*)
	    IF #i_TempOut <= REAL#0.5 THEN
	        (* classic code: #"CIP CVQ" := 50.0 ;*)
	        #"CIP CVQ" := REAL#50.0 ;
	    ELSIF #i_TempIn-#i_TempOut <= 1 THEN
	        (* classic code: #"CIP CVQ" := 100.0 ;*)
	        #"CIP CVQ" := REAL#100.0 ;
	    ELSIF (#i_TempIn-#i_TempOut > 1) AND (#i_TempIn-#i_TempOut <= 5) THEN
	        (* classic code: #"CIP CVQ" := (#i_TempOut - #i_TempIn) * 12.5 + 87.5 ;*)
	        #"CIP CVQ" := (#i_TempOut - #i_TempIn) * REAL#12.5 + REAL#87.5 ;
	    ELSIF #i_TempIn-#i_TempOut > 5 THEN
	        (* classic code: #"CIP CVQ" := 50.0 ;*)
	        #"CIP CVQ" := REAL#50.0 ;
	    ELSE
	        (* classic code: #"CIP CVQ" := 0.0;*)
	        #"CIP CVQ" := REAL#0.0;
	    END_IF;
END_FUNCTION


```