code 31502;
   procedure FULSYMMATVEC(LR, UR, LC, UC, A, B, C);
   value LR, UR, LC, UC, B; integer LR, UR, LC, UC;
   array A, B, C;
   begin 
       for LR:= LR step 1 until UR do 
       C[LR]:= SYMMATVEC(LC, UC, LR, A, B)
   end FULSYMMATVEC;
        eop