最近在学习SCL，你看下能不能行？

#X := #enable AND NOT #Y;

#Y := #enable;

IF #X THEN

    //计算数组上限

    #tmpUBound := UPPER_BOUND(ARR := #sourceQueue, DIM := 1);

    //计算数组下限

    #tmpUBound := LOWER_BOUND(ARR := #sourceQueue, DIM := 1);

    FOR #J := #tmpUBound TO #tmpLBound - 1 DO

        IF #sourceQueue[#J] = #dest_num THEN            //dest_num：被查找的数

            #m := #m + 1;

            #k[#m - 1] := #J;            //与被查数相同元素的下标存在k数组中。

        ELSE

            EXIT;

        END_IF;

    END_FOR;              //找出数组中与被查找数相同的位置m

END_IF;