LIM_H THEN LIM := TRUE; Y := LIM_H; ELSE LIM := FALSE; END_IF; END_IF; (* revision history hm 13. jun. 2008 rev 1.0 original version hm 25. jan 2008 rev 1.1 multiply differential part with KP hm 11. mar. 2009 rev 1.2 real constants updated to new systax using dot hm 13. nov. 2009 rev 1.3 fixed code for negative KP *)]]>