1 #include <stdio.h>
2 #include <stdlib.h>
3 /*
4   Fortran callable memory allocator (Cray version).
5 
6   Called as :
7 	ier = grgmem (size,pointer)
8 
9   where : size is an integer size of memory to allocate
10 	  pointer is an integer to return the pointer into
11 
12 */
13 
GRGMEM(size,pointer)14 int GRGMEM(size, pointer)
15 int *size, *pointer;
16 {
17   char *area = malloc(*size);
18   *pointer = (int)area;
19   if (area == NULL) return 0;
20   return 1;
21 }
22 
23 /*
24   Fortran callable memory deallocator
25 
26   Called as :
27 	ier = grfmem (size,pointer)
28 
29   where : size is an integer size of memory to deallocate (not used)
30 	  pointer is an integer that contains the pointer
31 
32 */
33 
GRFMEM(size,pointer)34 int GRFMEM(size, pointer)
35 int *size, *pointer;
36 {
37   char *area = (char *)*pointer;
38   free(area);
39   return 1;
40 }
41