INTEGER iFree
iFree = 1
idString(iFree:) = strTmp(iFirst:iFirst+iEnd)
iFree = iFree+iEnd+1
IF ( iFree .LE. idSize ) THEN
idString(iFree:iFree) = '@'
iFree = iFree+1
iEnd = MIN(iEnd,idSize-iFree)