FUNCTION LABELNRH, STR, GROUP=group

IF N_ELEMENTS(Group) EQ 0 THEN Group = 0

Str_label  = CW_LABELNRH (GROUP= Group)

LABEL = CRE_LABELNRH( Str, Str_label)

RETURN, Label

EN