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