code 31504;
   procedure SYMRESVEC(LR, UR, LC, UC, A, B, C, X);
   value LR, UR, LC, UC, B, X; integer LR, UR, LC, UC;
   real X; array A, B, C;
   begin 
       for LR:= LR step 1 until UR do 
      C[LR]:= SYMMATVEC(LC, UC, LR, A, B) + C[LR] * X
   end SYMRESVEC;
        eop