kHATTRIB10 kIDA1_TAGCIDA2_TAGCC?STR(IDA,11).NOT. DELETED()
C$STR(IDA,11)+STR(AttriID,11).NOT. DELETED()          1
          1          1          1
          1	          1          1          1          1          1          1          1          1          1
          1       4098
          1       4101          1       4102          1     110947          1     110948          1     110949          1     110950          1     110951          1     110952          1     110953	          1     110954          1     110955          1     111473          1     111824