C DO 777 ILM=1,8 ARRAY1(ILM)=.NOT.ARRAY1(ILM) 777 CONTINUE DECODE(8,701,ARRAY1)VAR8 C