! Type your code here, or load an example. pure function nth(v, n) result(out) implicit none integer, intent(in) :: v(:) integer, intent(in) :: n integer :: out out = v(n) return end function nth pure function nth_int64(v, n) result(out) implicit none integer, inte…