1C Fortran callable memory allocator (OpenVMS)
2C
3C Called as :
4C	ier = grgmem (size,pointer)
5C
6C where : size is an integer size of memory to allocate
7C	  pointer is an integer to return the pointer into
8
9      INTEGER FUNCTION GRGMEM(SIZE, POINTER)
10      INTEGER SIZE, POINTER
11      INTEGER LIB$GET_VM
12      GRGMEM = LIB$GET_VM(SIZE, POINTER)
13      END
14
15C Fortran callable memory deallocator
16C
17C Called as :
18C	ier = grfmem (size,pointer)
19C
20C where : size is an integer size of memory to deallocate (not used)
21C	  pointer is an integer that contains the pointer
22
23      INTEGER FUNCTION GRFMEM(SIZE, POINTER)
24      INTEGER SIZE, POINTER
25      INTEGER LIB$FREE_VM
26      GRFMEM = LIB$FREE_VM(SIZE, POINTER)
27      END
28