PROGRAM Time8.8.2.1
IMPLICIT NONE
REAL :: Light_Minute, Distance, Elapse
INTERGER :: Minute, Second

! Light_Year : Distance travelled by light
! in on year in km
! Light_Minute : Distance travelled by light
! in one minute in km
! Distance : Distance from sun to earth in km
! Elapse : Time taken to travel a
! distance (Distance) in minutes
! Minute : Interger number part of elapse
! Second : Interger number of seconds
! equlivalent to fractional part of elapse
!
	Light_Minute = (365.25*24.0*60.0)
	Distance = 35870.0
	Elapse = Distance / Light_Minute
	Minute = Elapse
	Second =( Elapse - Minute)*60
	Print*, ' It takes ' , Minute, 'Minutes'
	Print*, '             ' , Second, 'Seconds'
	Print*, ' For telephone call to reach a satellite'
END PROGRAM Time8.8.2.1