
  TYPE
    clt$type_name = clt$variable_name;

*copyc clt$variable_name
