! ! Numerical Mathematics and Computing, Fifth Edition ! Ward Cheney & David Kincaid ! Brooks/Cole Publ. Co. ! Copyright (c) 2003. All rights reserved. ! For educational use with the Cheney-Kincaid textbook. ! Absolutely no warranty implied or expressed. ! ! Section 2.1 ! ! File: hex.f90 ! ! Print hexadecimal representation of a floating-point number ! subroutine hex(i) integer :: i write(6,600) i 600 format(z20) end subroutine hex