etisserant@0:  FUNCTION_BLOCK INTEGRAL
etisserant@0:    VAR_INPUT
etisserant@0:      RUN : BOOL ;       (* 1 = integrate, 0 = hold *)
etisserant@0:      R1 : BOOL ;        (* Overriding reset        *)
etisserant@0:      XIN : REAL ;       (* Input variable          *)
etisserant@0:      X0  : REAL ;       (* Initial value           *)
etisserant@0:      CYCLE : TIME ;     (* Sampling period         *)
etisserant@0:    END_VAR
etisserant@0:    VAR_OUTPUT
etisserant@0:      Q : BOOL ;         (* NOT R1                  *)
etisserant@0:      XOUT : REAL ;      (* Integrated output       *)
etisserant@0:    END_VAR
etisserant@0:    Q := NOT R1 ;
etisserant@0:    IF R1 THEN XOUT := X0 ;
etisserant@0:    ELSIF RUN THEN XOUT := XOUT + XIN * TIME_TO_REAL(CYCLE);
etisserant@0:    END_IF ;
etisserant@0:  END_FUNCTION_BLOCK
etisserant@0: