code 31505;
   procedure LNGFULMATVEC(LR, UR, LC, UC, A, B, C);
   value LR, UR, LC, UC; integer LR, UR, LC, UC;
   array A, B, C;
   begin real D, DD;
      for LR:= LR step 1 until UR do 
      begin LNGMATVEC(LC, UC, LR, A, B, 0, 0, D, DD); C[LR]:= D + DD
      end 
   end LNGFULMATVEC;
        eop