forums.silverfrost.com

Ryan · Joined: 25 Feb 2016 Posts: 110

I'm looking to xor two integers together in Fortran, is there a function in FTN95 to do this?

JohnCampbell · Joined: 16 Feb 2006 Posts: 2615 Location: Sydney

IEOR (i,j)

LitusSaxonicum · Posted: Sun Sep 01, 2019 12:18 pm Post subject:

There's a whole slew of such functions introduced in Fortran 90 and referenced in FTN95.chm. In addition, FTN77 had a few functions for setting and reading individual bits - see the FTN77 Library Reference Manual in the support section of the website.

Eddie

Ryan · Joined: 25 Feb 2016 Posts: 110

Thanks both, I did check the docs by searching for XOR couldn't find it.

LitusSaxonicum · Posted: Sun Sep 01, 2019 8:29 pm Post subject:

Ryan,

I couldn't find it either, as FTN95.CHM doesn't have the sort of language guide that you used to get with printed documentation. I found a whole lot of information on bit operations here:

https://rosettacode.org/wiki/Bitwise_operations#Fortran

which gives the Fortran 90 routines as well as IEOR for all the related operations.

Eddie

PaulLaidler · Posted: Sun Sep 01, 2019 9:40 pm Post subject:

https://www.silverfrost.com/ftn95-help/intrin/bitwise_operations.aspx