program ch0707
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 ch0707