program angolo
implicit none
integer                  :: i,righe,step,cont
real*8                   :: time,angle
integer,dimension(0:100) :: ang    

righe = 15092

do i = 0,72
  ang = 0
enddo
step = 5
do i = 1,righe
  read(5,*) time,angle 
  if (angle .ge. 0) then
    angle = angle - int(angle/360)*360 
  else
    angle = angle + (1 + int(angle/360))*360 
  endif 
  cont = angle/step 
  ang(cont) = ang(cont) + 1
enddo

do i = 0,72
  write(6,'(I3,2x,F10.5)') i*step,ang(i)/real(righe)
enddo
end program angolo