home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / toolpack.000 / toolpack / toolpack1.2 / tables / LLHEAP.f < prev    next >
Encoding:
Text File  |  1989-03-04  |  677 b   |  31 lines
  1. C ----------------------------------------------------------------------
  2. C
  3. C       L L G M E M   -   Get memory routine for linked-list handler
  4. C
  5. C       This version calls the heap handler
  6. C
  7.  
  8.         INTEGER FUNCTION LLGMEM(ARRAY,BSIZE)
  9.         INTEGER ARRAY(*),BSIZE
  10.  
  11.         INTEGER HALLOC
  12.         EXTERNAL HALLOC
  13.  
  14.         LLGMEM=HALLOC(ARRAY,BSIZE)
  15.  
  16.         END
  17. C ----------------------------------------------------------------------
  18. C
  19. C       L L F R E E   -   Release memory routine for linked-list handler
  20. C
  21. C       This version calls the heap handler
  22. C
  23.  
  24.         SUBROUTINE LLFREE(ARRAY,ADDR)
  25.         INTEGER ARRAY(*),ADDR
  26.  
  27.         CALL HFREE(ARRAY,ADDR)
  28.  
  29.         END
  30.  
  31.