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