LOCAL
      status : BOOLEAN;
      srrs   : STRING;
    END_LOCAL;

    status := FALSE;
    srrs := 'STRUCTURAL_RESPONSE_REPRESENTATION_SCHEMA.';

    IF  (srrs + 'ELEMENT_VOLUME') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.CLOSED_SHELL' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'VOLUME_3D_FACE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.FACE' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'VOLUME_2D_FACE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.EDGE' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'SURFACE_3D_FACE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.FACE' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'SURFACE_2D_FACE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.EDGE' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'VOLUME_3D_EDGE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.EDGE' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'VOLUME_2D_EDGE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.VERTEX' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'SURFACE_3D_EDGE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.EDGE' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;



    IF  (srrs + 'SURFACE_2D_EDGE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.VERTEX' IN  TYPEOF(item) THEN
        status := TRUE;
      END_IF;
    END_IF;

    IF  (srrs + 'CURVE_EDGE') IN  TYPEOF(aspect) THEN
      IF  'TOPOLOGY_SCHEMA.EDGE' IN  TYPEOF(item) THEN
        status := TRUE;

      END_IF;
    END_IF;

    IF 'TOPOLOGICAL_DEFINITION_AND_MESH_SCHEMA.TOPOLOGICAL_REGION' IN TYPEOF(item) THEN
      status := TRUE;
    END_IF;

  RETURN(status);