Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
character attribute (unchanged in this example) is stored in SCREEN(1,I). The column major ordering
of arrays must be taken into consideration when mapping an array onto a fixed area of memory.
The following example is similar but uses an allocatable character variable.
Example:
CHARACTER*(*) SCREEN
INTEGER SCRSIZE, I
PARAMETER ( SCRSIZE = 80*25*2 )
*$IFDEF __386__
ALLOCATE( SCREEN*SCRSIZE, LOCATION=’B8000’X )
*$ELSE
ALLOCATE( SCREEN*SCRSIZE, LOCATION=’B8000000’X )
*$ENDIF
DO I = 1, SCRSIZE, 2
SCREEN(I:I) = ’*’
ENDDO
END
A user-defined memory allocator may be specified using the LOCATION= specifier.
Example:
CHARACTER*1 BUFFER(:)
N = 128
ALLOCATE( BUFFER(0:N-1), LOCATION=MYALLOC(N) )
.
.
.
END
Perhaps a better way to check for a successful allocation, in this case, would be the following.
Example:
CHARACTER*1 BUFFER(:)
N = 128
LOC = MYALLOC( N )
IF( LOC .EQ. 0 ) STOP
ALLOCATE( BUFFER(0:N-1), LOCATION=LOC )
.
.
.
END
For more information on arrays, see the chapter entitled "Arrays" on page 159.
ALLOCATE Statement 15