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
79PRIVATE 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
88INTERFACE insert_unique
89 MODULE PROCEDURE arrayof_type/**/_insert_unique
92INTERFACE append_unique
93 MODULE PROCEDURE arrayof_type/**/_append_unique
97INTERFACE insert_sorted
98 MODULE PROCEDURE arrayof_type/**/_insert_sorted
99END INTERFACE insert_sorted
101PRIVATE arrayof_type/**/_insert_sorted
104PRIVATE arrayof_type/**/_insert_unique, arrayof_type/**/_append_unique