25 #define ARRAYOF_TYPE arrayof_/**/ARRAYOF_ORIGTYPE
30 arrayof_origtype,
POINTER :: array(:)=>null()
31 INTEGER :: arraysize=0
34 DOUBLE PRECISION :: overalloc=2.0d0
40 MODULE PROCEDURE arrayof_type/**/_insert, arrayof_type/**/_insert_array
49 MODULE PROCEDURE arrayof_type/**/_append
55 MODULE PROCEDURE arrayof_type/**/_remove
62 MODULE PROCEDURE arrayof_type/**/_delete
72 MODULE PROCEDURE arrayof_type/**/_packarray
75 #ifndef ARRAYOF_PRIVATE
79 PRIVATE arrayof_type/**/_alloc, &
80 arrayof_type/**/_insert, arrayof_type/**/_insert_array, &
81 arrayof_type/**/_append, arrayof_type/**/_remove, &
82 arrayof_type/**/_delete, &
83 arrayof_type/**/_packarray
88 INTERFACE insert_unique
89 MODULE PROCEDURE arrayof_type/**/_insert_unique
92 INTERFACE append_unique
93 MODULE PROCEDURE arrayof_type/**/_append_unique
97 INTERFACE insert_sorted
98 MODULE PROCEDURE arrayof_type/**/_insert_sorted
99 END INTERFACE insert_sorted
101 PRIVATE arrayof_type/**/_insert_sorted
104 PRIVATE arrayof_type/**/_insert_unique, arrayof_type/**/_append_unique