(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION _DWord_To_BoolArray :ARRAY [0..31] OF BOOL
VAR_INPUT
	i_DWord				: DWORD ;
END_VAR
VAR
	i					: INT ;
	mAuxDWord			: DWORD ;
END_VAR



(* @END_DECLARATION := '0' *)
mAuxDWord := i_DWord ;
FOR i:=0 TO 31 DO
	mAuxDWord := SHR (i_DWord, i) ;
	_DWord_To_BoolArray[i] := DWORD_TO_BOOL (mAuxDWord MOD 2) ;
END_FOR
END_FUNCTION