program csapi
real a,mx,mn,cs,atl(50,12,31),max(50,12,31),min(50,12,31),csap(50,12,31)
real a1,mx1,mn1,cs1,atl1(50,12,31),max1(50,12,31),min1(50,12,31),csap1(50,12,31)
integer ev,ho,nap,ev1,ho1,nap1,db

open(10,file="Magyarország.txt")
        do
        read(10,*,end=98) ev,ho,nap,a,mx,mn,cs
        ev=ev-1960
        atl(ev,ho,nap)=a
        max(ev,ho,nap)=mx
        min(ev,ho,nap)=mn
        csap(ev,ho,nap)=cs
        enddo
98      continue
        close(10)

        open(11,file="SR.txt")
        do
        read(11,*,end=97) ev1,ho1,nap1,a1,mx1,mn1,cs1
        ev1=ev1-1960
        atl1(ev1,ho1,nap1)=a1
        max1(ev1,ho1,nap1)=mx1
        min1(ev1,ho1,nap1)=mn1
        csap1(ev1,ho1,nap1)=cs1

        enddo
97      continue
        close(11)

open(20,file="evicsapnapSR.txt")

        do ev=1,50
        db=0.
        do ho=1,12
        do nap=1,31

        db=db+1.
        enddo
        enddo
        write(*,*) ev,db
        enddo

close(20)
end