type ULimit = Double(Unit="µm", range=(0.0 ..])

type PBEparticle ={
    FractalIndex: Double(unit="U"),
    Bondforce: Double(unit="N"),
    Density: Double(unit="kg/m^3"),
    RefractiveIndex: Double(unit="U"),
    UVabsorption: (Double(unit="1/s"), Double(unit="1/s")),
    SurfacePotential: Double(unit="V"),
    SurfaceCharge: Double,
    RPermittivity: Double(unit="U"),
    AvgRadius: Double(unit="m"),
    AD_dist: ULimit,
    v1 : Variant
    
    
    
    
    
    /*v2 : Variant,
    v3 : Variant,
    v4 : Variant,
    r : { a : Integer(Range=[0 ..]), b : String }
    */
}

/*






TYPE_DEFINITIONS 4
  TYPE_DEFINITION 5
    PBEparticle 23
    RECORD_TYPE 7
      TYPE_COMPONENT 12
        v1 23
        TYPE_REFERENCE 10
          Variant 23
      TYPE_COMPONENT 12
        v2 23
        TYPE_REFERENCE 10
          Variant 23
      TYPE_COMPONENT 12
        v3 23
        TYPE_REFERENCE 10
          Variant 23
      TYPE_COMPONENT 12
        v4 23
        TYPE_REFERENCE 10
          Variant 23
          
        r 23
        RECORD_TYPE 7
          TYPE_COMPONENT 12
            a 23
            TYPE_REFERENCE 10
              Integer 23
              TYPE_ANNOTATION 11
                Range 23
                [ 37
                0 24
                .. 39
                ] 38
          TYPE_COMPONENT 12
            b 23
            TYPE_REFERENCE 10
              String 23

          
          */