! Lowest minumum for each day of the year

    integer iday,imin,iyear
    real zmax,zmin,zrain,z1,z2,z3,zpres,z4,z5
    real tmax(1881:2007,12,31),tmin(1881:2007,12,31)
    real rain(1881:2007,12,31),pres(1881:2007,12,31)
    real a(100,100)

    open(unit=1,file='c://daily_1881-2007.txt',status='old')
    do i=1,999999
    read(1,*,end=999)iday,imon,iyear,zmax,zmin,zrain,z1,z2,z3,zpres,z4,z5

!12 Put's value into particular location in array
    tmax(iyear,imon,iday)=zmax
    tmin(iyear,imon,iday)=zmin
    rain(iyear,imon,iday)=zrain
    pres(iyear,imon,iday)=zpres
    enddo
999 close(unit=1)

!Above here - on handout, basis for other programmes

!Calculate minimum temp for each day of the year

        do 10 i = 1988,imon,iday
        do 10 j = iyear,1,iday
        do 10 k = iyear,imon,1
            if (tmin(i,j,k) .LT. zmin) then
                zmin = tmin(i,j,k)
            endif
10  continue
    print *, zmin
    end