begin 

    comment library 1;

    array 
        a[1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 :
            2, 1 : 2, 1 : 2, 1 : 2, 1 : 2];
    a[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] := 1.0;
    outreal(1, a[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]);
end