ARRoffset

Synopsis

INTEGER FUNCTION ARRFoffset(array_ptr,
. basevec,
. type)
INTEGER array_ptr
DIMENSION basevec(1)

Description

This routine enables FORTRAN programmers to access memory locations specified by a pointer in a portable manner.On 64-bit platforms, the first argument to ARRFoffset and the first argument to ARRFoffset are actually an INTEGER*8.

Arguments

array_ptr

The address of a memory area allocated with ARRFalloc or returned by ARRFretptr or by one of the get_array access routines described below (expressed as an integer).

basevec

A local array, used as a reference location. This array can be dimensioned with one element.

typetype

A code for the data type of the local array basevec , expressed as an integer. It is used to compute the correct addressing offset according to the size of the elements of the local array. The meaningful codes predefined in the include file omf.inc are:

Code	basevec(1) data type
DTYPE_INT	INTEGER
DTYPE_FLOAT	REAL
DTYPE_DOUBLE	DOUBLE PRECISION

Returned value

The addressing offset of an allocated memory area with respect to the first element of basevec .

Examples

C Allocate a memory area and fill some values in#include <avs/omf.inc>       INTEGER iaddr, offset, sizeC On 64-bit platforms, iaddr should be INTEGER*8       REAL base(1)       ...       size = 2000       iaddr = ARRFalloc(0,DTYPE_FLOAT,size,0)       IF (iaddr .EQ. 0) PRINT*,'Error allocating memory area'        offset = ARRFoffset(iaddr,base,DTYPE_FLOAT)C       DO 100 i=1,size base(offset+i) = FLOAT(i) 100   CONTINUE

See Also

ARRFincr_refcnt

ARRFfree

ARRFoffset

ARRFretptr