Program MeteoData    !Fortran90 
      IMPLICIT NONE 
      
      REAL SRAD(365),TMAX(365),TMIN(365),RAIN(365),PAR(365)
      INTEGER DATE(365)
      INTEGER i
      
        OPEN (4,FILE='WEATHER.INP',STATUS='UNKNOWN')  
      
        
        do i=1,365
           READ(4,*) DATE(i),SRAD(i),TMAX(i),TMIN(i),RAIN(i),PAR(i)   ! * Não precisa especificar formato
        enddo
      
        CLOSE(4) 
        
! Calcular médias (intensivas) e somas (extensivas)
        
! Calcular uma média condicional
        ! Qual a média do Tmax e da Srad nos dias que chove e nos dias que não chove
        
        
        
        End Program