forums.silverfrost.com

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

Kenny,

If you know the byte length of the CMAP type structure (which could vary between compilers) and the start address of where you want it stored, can't you just use a loop to transfer n bytes to the address, using ICOREx, in a purpose built function ?
I would expect that the layout of a type structure could vary significantly between compilers, depending on the alignment approach and allowance for small or large arrays within the type structure. ( Look at the way FTN95 stores modules, splitting out large arrays )

The use of LOC was not standard at Fortran 95, which is where FTN95 is at and I am not sure how standard "cray pointers" have become.
I have not seen "LOC (RSCALAR) = " used in this way before, so am not surprised you would need a work around with FTN95, using the xCOREx approach.

John

wahorger · Joined: 13 Oct 2014 Posts: 1257 Location: Morrison, CO, USA

For my application I took a different approach.

The address of the data (of differing types) is stored generically in INTEGER (KIND=3) array and has a type array associated with it as well. At run time, after data are entered, the program goes through the array and moves the data into the appropriate destination (based on a "type" associated with each location). I did this to make the code more "portable", but it also solved the /undef issue that would arise. Here are a few examples. I'm fortunate that the character data used is always < 1024 bytes in length.