At 14:03 24-08-2004 -0400, Aleks wrote:
>Hello PAPI developers,
>
[ ... ]
>The way to set bit patterns in Fortran (for now) is to use BOZ constants
>(starting with letter B, O or Z for binary, octal and hexadecimal), and
>also, you can use IEOR to get bitwise or and use the same mechanism you
>do in the C header file:
>
> INTEGER, PARAMETER :: PAPI_L1_DCM = Z'80000000'
> ! Is -2147483648
> INTEGER, PARAMETER :: PAPI_L1_ICM = IOR(PAPI_L1_DCM,1)
> ! Is -2147483647
Sorry, Aleks, this is non-standard.
BOZ (upto F95) can, regrettably, be used only in DATA statements
and consequently only for variables.
\---
Best regards,
Jan van Oosterwijk | "They that can give up essential liberty
Netherlands | to obtain a little temporary safety deserve
| neither liberty nor safety."
| -- Benjamin Franklin (1759)
write(*,*)transfer((/778985834,1869504886,1702130543,1785296754 &
&,1635205227,1868849518,1819160175 /),(/'x'/)) ; end
mailto:Jan <dot> vanOosterwijk <at> wanadoo <dot> NL
http://huizen <dot> dto <dot> tudelft <dot> nl/vanOosterwijk/
|