Subroutines
subroutine roots (x, square_root, cube_root, fourth_root, &
! Subroutine to calculate various roots of positive real
! Number supplied as the first argument, and return them in
! the second to fifth arguments
! Dummy argument declarations
real, intent(out) :: square_root, cube_root, &
! Local variable declaration
! Calculate square root using intrinsic sqrt
! Calculate other roots by using logs
cube_root = exp(log_x/3.0)
fourth_root = exp(log_x/4.0)
fifth_root = exp(log_x/5.0)