c234567
      program sum
      open(50,file='1s.kk')
      open(51,file='1p.kk')
      do 1000 i=1,1000
      read(50,*,end=1000)tpf,x1,x2,x3,x4
      read(51,*)tpf,y1,y2,y3,y4
      write(*,'(6e13.5)')tpf,x1+y1,x2+y2,x3+y3,x4+y4
1000  continue
      end
