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 #ifdef F2CSTYLE
14 void da_memory__(
15 #else
16 void da_memory_(
17 #endif
18 #endif
19 
20   memory_used)
21 
22   int *memory_used;
23 {
24 
25 #if !(defined(vpp) || defined(vpp2) || defined(SUN) || defined(crayx1) || defined(MACOS)) || defined(IRIX)
26 struct mallinfo result;
27 
28 result=mallinfo();
29 /* return memory in kbytes, both for smaller numbers, and to avoid going outside integer*4 range */
30 *memory_used=result.uordblks/1024;
31 #else
32   *memory_used=0;
33 #endif
34 }