L #iPEW
ITD
DTR
T #INPUT_Real
// Preset errorvalue
L 0.000000e+000
T #errorvalue
// Check value
L #rOGR_IN
L #INPUT_Real
= #bOV_FAULT
JCN lim1
// value by overrange 2,5 times bigger then upper limit
L #rOGR_OUT
L 2.500000e+000
*R
T #errorvalue
lim1: L #rUGR_IN
L #INPUT_Real
>R
O #bOV_FAULT
= #bOV_FAULT
L #rOGR_IN
L #INPUT_Real
-R
L #rUGR_OUT
*R
T #rTEMP1
//
L #INPUT_Real
L #rUGR_IN
-R
L #rOGR_OUT
*R
L #rTEMP1
+R
T #rTEMP1
L #rOGR_IN
L #rUGR_IN
-R
T #rTEMP2
L #rTEMP1
L #rTEMP2
/R
T #rOUT
A #bOV_FAULT
= #bFAULT
AN #bFAULT
SAVE
BEC
L #errorvalue
T #rOUT