FUNCTION FC 1 : VOID
TITLE =
VERSION : 0.1
VAR_INPUT
dbData : BLOCK_DB ;
END_VAR
VAR_OUTPUT
rMax : REAL ;
rMin : REAL ;
END_VAR
VAR_TEMP
iLoopCount : INT ;
END_VAR
BEGIN
NETWORK
TITLE =
L -3.402823e+038;
T #rMax;
L 3.402823e+038;
T #rMin;
LAR1 P#DBX 0.0;
OPN #dbData;
L DBLG;
L 4;
/D ;
L1: T #iLoopCount;
L #rMax;
L D [AR1,P#0.0];
>=R ;
JC t2;
T #rMax;
t2: L #rMin;
>=R ;
JC t3;
TAK ;
T #rMin;
t3: +AR1 P#4.0;
L #iLoopCount;
LOOP L1;
END_FUNCTION