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