code 31509;
   procedure LNGSYMRESVEC(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 real D, DD, E, EE;
      for LR:= LR step 1 until UR do 
      begin DPMUL(C[LR], X, E, EE);
         LNGSYMMATVEC(LC, UC, LR, A, B, E, EE, D, DD); C[LR]:= D + DD
      end 
   end LNGSYMRESVEC;
        eop