code 31506;
   procedure LNGFULTAMVEC(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 LC:= LC step 1 until UC do 
      begin LNGTAMVEC(LR, UR, LC, A, B, 0, 0, D, DD); C[LC]:= D + DD
      end 
   end LNGFULTAMVEC

        eop