da_memory.c

1 #include <stdio.h>
2 #include <stdlib.h>
3 #include <string.h>
4 #include <time.h>
5 
6 #if !(defined(MACOS) || defined(IRIX))
7 #include <malloc.h>
8 #endif
9 
10 #ifdef NOUNDERSCORE
11 void da_memory(
12 #else
13 void da_memory_(
14 #endif
15 
16   memory_used)
17 
18   int *memory_used;
19 {
20 
21 #if !(defined(vpp) || defined(vpp2) || defined(SUN) || defined(crayx1) || defined(MACOS)) || defined(IRIX)
22 struct mallinfo result;
23 
24 result=mallinfo();
25 /* return memory in kbytes, both for smaller numbers, and to avoid going outside integer*4 range */
26 *memory_used=result.uordblks/1024;
27 #else
28   *memory_used=0;
29 #endif
30 }