code 31508;
   procedure LNGRESVEC(LR, UR, LC, UC, A, B, C, X);
   value LR, UR, LC, UC, 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);
         LNGMATVEC(LC, UC, LR, A, B, E, EE, D, DD); C[LR]:= D + DD
      end 
   end LNGRESVEC;
        eop