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
58PRIVATE 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
67INTERFACE insert_unique
68 MODULE PROCEDURE arrayof_type/**/_insert_unique
71INTERFACE append_unique
72 MODULE PROCEDURE arrayof_type/**/_append_unique
76INTERFACE insert_sorted
77 MODULE PROCEDURE arrayof_type/**/_insert_sorted
78END INTERFACE insert_sorted
80PRIVATE arrayof_type/**/_insert_sorted
83PRIVATE arrayof_type/**/_insert_unique, arrayof_type/**/_append_unique