fortran 77

 
        PROGRAM ORTALAMA 
        IMPLICIT NONE 
        REAL (A,B,TA,TB,ORTA,ORTB) 
        open (1, file='input.xvg') 
        open (2, file='ortalama.txt', status='NEW') 
   
  20  TA=0.0 
       TB=0.0 
       J=0 
       do i = 1,100 
          read(1,*) A,B 
          if EOF(1) goto 60 
          J=J+1 
          TA=TA+A 
          TB=TB+B 
       end do 
   
       ortA=TA/100 
       ortB=TB/100 
       write(2,*) ortA,ortB 
       goto 20 
  60 
       if (J.EQ.0)  goto 80 
       ortA=TA/J 
       ortB=TB/J 
       write(2,*) ortA,ortB 
  80 
       close(1) 
       close(2) 
  end