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)14int 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)34int GRFMEM(size, pointer) 35 int *size, *pointer; 36 { 37 char *area = (char *)*pointer; 38 free(area); 39 return 1; 40 } 41