 TYPE
    cmt$cm_connectivity = record
      port: array [cmt$central_memory_port_number] of cmt$element_connection,
    recend;

*copyc cmt$central_memory_port_number
*copyc cmt$element_connection
