This routine gets SIZE bytes of virtual memory.

If status is bad on entry the routine will return immediately.

If START_PTR is not equal to 0 then

• It’s possible that VM may have already been allocated to START_PTR so issue an error message and set status bad.

else

• Call PSX_MALLOC to allocate the required memory plus space for 2 integers at either end.

• If status is good then Set START_PTR and END_PTR to point to the first and last bytes in the section of memory to be used and call SCULIB_CFILLI to set the sentinel integers at either end of the block to 37. SCULIB_FREE will check these for corruption when the time comes to free the VM.

end if

CALL SCULIB_MALLOC (SIZE, START_PTR, END_PTR, STATUS)

SIZE = INTEGER (Given)

START_PTR = INTEGER (Given and returned)

END_PTR = INTEGER (Returned)

STATUS = INTEGER (Given and returned)

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.