Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313:

Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Edouard@1410: ,CURRENT_TIME,,__CURRENT_TIME)} Laurent@1313: Laurent@1313: IF IN Laurent@1313: THEN Laurent@1313: IF NOT PREV_IN Laurent@1313: THEN Laurent@1313: OFFSET := PDT - CURRENT_TIME; Laurent@1313: END_IF; Laurent@1313: Laurent@1313: (* PDT + time since PDT was loaded *) Laurent@1313: CDT := CURRENT_TIME + OFFSET; Laurent@1313: ELSE Laurent@1313: CDT := CURRENT_TIME; Laurent@1313: END_IF; Laurent@1313: Laurent@1313: Q := IN; Laurent@1313: PREV_IN := IN; Laurent@1313: ]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1314: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: = TR THEN Laurent@1313: BUSY := 0; Laurent@1313: XOUT := X1; Laurent@1313: ELSE XOUT := XI + (X1-XI) * TIME_TO_REAL(T) Laurent@1313: / TIME_TO_REAL(TR); Laurent@1313: T := T + CYCLE; Laurent@1313: END_IF; Laurent@1313: ELSE Laurent@1313: XOUT := X0; Laurent@1313: XI := X0; Laurent@1313: T := T#0s; Laurent@1313: END_IF;]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: (XIN2 + EPS) THEN Laurent@1313: Q := 1; Laurent@1313: END_IF;]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: