PROGRAM ch1007 IMPLICIT NONE REAL , DIMENSION(-180:180) :: Time=0 INTEGER :: Degree,Strip REAL :: Value DO Degree=-180,165,15 Value=Degree/15. DO Strip=0,14 Time(Degree+Strip)=Value ENDDO ENDDO DO Degree=-180,180 PRINT *,Degree,' ',Time(Degree) END DO END PROGRAM ch1007