program ex0702
implicit none
real :: angle, speed
interface
function get_distance(angle, speed)
implicit none
real :: get_distance
real, intent(in) :: angle, speed
end function get_distance
end interface
write(*,*) 'Input shoot angle:’
read(*,*) angle
write(*,*) 'Input shoot speed:’
read(*,*) speed:
write(*, '(T2, A4, F7.2, 1A)’) 'Fly' ,get_distance(angle, speed), 'm’
stop
end program ex0702