1!!G Toolbox.finc
2C  If you have a power mac version of LS fortran uncomment the
3C next 5 lines and comment out "!!MP InLines.f"
4C!!IFC NOT LSPOWERF
5C!!MP 68KInlines
6C!!ELSEC
7C!!MP PPCInlines
8C!!ENDC
9C  If you have a 68K mac version of LS fortran comment out the
10C 5 lines above and uncomment the next line.
11!!MP InLines.f
12C  Fortran callable memory allocator
13
14C  Called as :
15C	ier = grgmem (size,pointer)
16
17C  where : size is an integer size of memory to allocate
18C	  pointer is an integer to return the pointer into
19
20      Integer Function GRGMEM(size, pointer)
21      Integer*4 size, pointer
22
23      pointer = NewPtr(Size)
24	  If (pointer .eq. 0) Then
25	     grgmem = 0
26	  Else
27	     grgmem = 1
28	  End if
29      Return
30	  End
31
32C  Fortran callable memory deallocator
33
34C  Called as :
35C	ier = grfmem (size,pointer)
36
37C  where : size is an integer size of memory to deallocate (not used)
38C	  pointer is an integer that contains the pointer
39
40
41      Integer Function GRFMEM(size, pointer)
42      Integer*4 size, pointer
43
44      Call DisposPtr(Pointer)
45	  grfmem = 1
46	  Return
47      End