decimal to hexadecimal conversion

tmcole · ‎11-19-2003

I am biting the bullet and building my own output for all variables in my code so that I can easily track down differences in variables in order to ensure that changes made to the code do not impact the results. In order to do this, I need all reals output as hexadecimal. Does anyone know an easy way to do this?

sgongola · ‎11-19-2003

Did you look at the Z format descriptor?

The Z data edit descriptor transfers hexadecimal (base 16) values. It takes the following form:

Zw[.m]
The value of m (the minimum number of digits in the constant) must not exceed the value of w (the field width). The m has no effect on input, only output.

The specified I/O list item can be of type integer, real, or logical.

Jugoslav_Dujic · ‎11-19-2003

Well, moderately easy :-).

real:: f = 2.71828

write(*,"(Z8.8)") TRANSFER(f,1)

Maybe it would work even without TRANSFER (which performs bit-by-bit conversion from 1st argument to type of second argument), but I'm not sure.

Jugoslav

tmcole · ‎11-19-2003

Thanks Jugoslav. Your intuition is correct. I can use the internal write without the TRANSFER function to convert. I was originally hoping to do this but, As usual, the manual is as clear as mud regarding how to do this. Your are a scholar and a gentleman!