PROGRAM C0802A
      DIMENSION TIME(-180:180)
      REAL TIME
      REAL VALUE
      INTEGER DEGREE,STRIP
      DO 10 DEGREE=-180,165,15
       VALUE=DEGREE/15.
       DO 11 STRIP=0,14
        TIME(DEGREE+STRIP)=VALUE
11     CONTINUE
10    CONTINUE
      DO 12 DEGREE=-180,180
       PRINT*,DEGREE,' ',TIME(DEGREE)
12    CONTINUE       
      END