PROGRAM MAIN
C Vypocet minima nejake dvojhevezdy

      REAL T(1000),M(1000),T0,ER,w
      INTEGER KOD,N,POCSUM

!      OPEN(1,FILE='min.dat',STATUS='OLD')

      N = 0
   10 N = N + 1
c       READ(1,*,END=20) T(N),M(N)
c       READ(1,'(TR6,F6.0,F8.0)',END=20) T(N),M(N)
!        READ(1,'(TR5,F6.4,F10.0)',END=20) T(N),M(N)
        read(*, *, end=20) t(n),m(n)
      GOTO 10 
 20   continue
!   20 CLOSE(1)
      N = N - 1

      CALL KW('S','N',N,T,M,T0,ER,POCSUM,KOD)

      IF( KOD.NE.0 ) PRINT *,'KOD=',KOD
      PRINT *,'Cas minima=',T0,'+-',ER,' N=',POCSUM

      END