(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION _Word_To_BoolArray :ARRAY [0..15] OF BOOL
VAR_INPUT
	i_Word				: WORD ;
END_VAR
VAR
	i					: INT ;
	mAuxWord			: WORD ;
END_VAR



(* @END_DECLARATION := '0' *)
mAuxWord := i_Word ;
FOR i:=0 TO 15 DO
	mAuxWord := SHR (i_Word, i) ;
	_Word_To_BoolArray[i] := WORD_TO_BOOL (mAuxWord MOD 2) ;
END_FOR
END_FUNCTION