kHATTRME10 kIDM1_TAGCIDM2_TAGCC?	STR(IDM,11).NOT. DELETED()
C$	STR(IDM,11)+STR(AttriIDM,11).NOT. DELETED()          1          1          1          1          1     110977          1     110979          1     110981          1     110983