25 #define ARRAYOF_TYPE arrayof_/**/ARRAYOF_ORIGTYPE
29 arrayof_origtype,
POINTER :: array(:)=>null()
30 INTEGER :: arraysize=0
31 DOUBLE PRECISION :: overalloc=2.0d0
35 MODULE PROCEDURE arrayof_type/**/_insert, arrayof_type/**/_insert_array
39 MODULE PROCEDURE arrayof_type/**/_append
43 MODULE PROCEDURE arrayof_type/**/_remove
47 MODULE PROCEDURE arrayof_type/**/_delete
51 MODULE PROCEDURE arrayof_type/**/_packarray
54 #ifndef ARRAYOF_PRIVATE
58 PRIVATE arrayof_type/**/_alloc, &
59 arrayof_type/**/_insert, arrayof_type/**/_insert_array, &
60 arrayof_type/**/_append, arrayof_type/**/_remove, &
61 arrayof_type/**/_delete, &
62 arrayof_type/**/_packarray
67 INTERFACE insert_unique
68 MODULE PROCEDURE arrayof_type/**/_insert_unique
71 INTERFACE append_unique
72 MODULE PROCEDURE arrayof_type/**/_append_unique
76 INTERFACE insert_sorted
77 MODULE PROCEDURE arrayof_type/**/_insert_sorted
78 END INTERFACE insert_sorted
80 PRIVATE arrayof_type/**/_insert_sorted
83 PRIVATE arrayof_type/**/_insert_unique, arrayof_type/**/_append_unique