/usr/include/mafdecls.fh is in libga-dev 5.3+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 | #ifndef _mafdecls_fh
#define _mafdecls_fh
!
! $Id: mafdecls.fh,v 1.11 2002-09-14 05:40:30 d3g001 Exp $
!
!
! Public header file for a portable dynamic memory allocator.
!
! This file may be included by internal and external FORTRAN files.
!
#include "macommon.h"
!
! The guard ends here instead of at the end of the file because we only
! need the cpp constants (stuff above) defined once per FORTRAN file,
! but need the declarations (stuff below) to be defined each time this
! file is included in a FORTRAN file.
!
#endif
!
! constants
!
! type declarations for datatype constants
integer MT_BYTE ! byte
integer MT_INT ! integer
integer MT_LOG ! logical
integer MT_REAL ! real
integer MT_DBL ! double precision
integer MT_SCPL ! single precision complex
integer MT_DCPL ! double precision complex
integer MT_F_FIRST ! first type
integer MT_F_LAST ! last type
! parameter declarations for datatype constants
parameter (MT_BYTE = MT_F_BYTE)
parameter (MT_INT = MT_F_INT)
parameter (MT_LOG = MT_F_LOG)
parameter (MT_REAL = MT_F_REAL)
parameter (MT_DBL = MT_F_DBL)
parameter (MT_SCPL = MT_F_SCPL)
parameter (MT_DCPL = MT_F_DCPL)
parameter (MT_F_FIRST = MT_BYTE)
parameter (MT_F_LAST = MT_DCPL)
!
! function types
!
#ifndef MAF_INTERNAL
logical MA_alloc_get
logical MA_allocate_heap
logical MA_chop_stack
logical MA_free_heap
logical MA_free_heap_piece
logical MA_get_index
logical MA_get_next_memhandle
logical MA_get_numalign
logical MA_init
logical MA_initialized
logical MA_init_memhandle_iterator
integer MA_inquire_avail
integer MA_inquire_heap
integer MA_inquire_heap_check_stack
integer MA_inquire_heap_no_partition
integer MA_inquire_stack
integer MA_inquire_stack_check_heap
integer MA_inquire_stack_no_partition
logical MA_pop_stack
! subroutine MA_print_stats
logical MA_push_get
logical MA_push_stack
logical MA_set_auto_verify
logical MA_set_error_print
logical MA_set_hard_fail
logical MA_set_numalign
integer MA_sizeof
integer MA_sizeof_overhead
! subroutine MA_summarize_allocated_blocks
! subroutine MA_trace
logical MA_verify_allocator_stuff
external MA_alloc_get
external MA_allocate_heap
external MA_chop_stack
external MA_free_heap
external MA_free_heap_piece
external MA_get_index
external MA_get_next_memhandle
external MA_get_numalign
external MA_init
external MA_initialized
external MA_init_memhandle_iterator
external MA_inquire_avail
external MA_inquire_heap
external MA_inquire_heap_check_stack
external MA_inquire_heap_no_partition
external MA_inquire_stack
external MA_inquire_stack_check_heap
external MA_inquire_stack_no_partition
external MA_pop_stack
external MA_print_stats
external MA_push_get
external MA_push_stack
external MA_set_auto_verify
external MA_set_error_print
external MA_set_hard_fail
external MA_set_numalign
external MA_sizeof
external MA_sizeof_overhead
external MA_summarize_allocated_blocks
external MA_trace
external MA_verify_allocator_stuff
#endif
!
! variables
!
#ifdef HPUX
# define HP_SHARED_COMMON_
#endif
! common blocks
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_byte/
#endif
common /mbc_byte/ byte_mb(2)
character*1 byte_mb
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_int/
#endif
common /mbc_int/ int_mb(2)
integer int_mb
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_log/
#endif
common /mbc_log/ log_mb(2)
logical log_mb
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_real/
#endif
common /mbc_real/ real_mb(2)
real real_mb
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_dbl/
#endif
common /mbc_dbl/ dbl_mb(2)
double precision dbl_mb
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_scpl/
#endif
common /mbc_scpl/ scpl_mb(2)
complex scpl_mb
#ifdef HP_SHARED_COMMON
*$HP$ shared_common /mbc_dcpl/
#endif
common /mbc_dcpl/ dcpl_mb(2)
double complex dcpl_mb
#define MA_ACCESS_INDEX_TYPE integer*8
#define MAPOINTER integer*8
|