istype(itmp)=sugarcode(sequence(i,molec)(1:1),i)
sequence(i,molec)=sequence(i,molec)(1:2)
itype(itmp,molec)=rescode(i,sequence(i,molec),iscode,molec)
istype(itmp)=sugarcode(sequence(i,molec)(1:1),i)
sequence(i,molec)=sequence(i,molec)(1:2)
itype(itmp,molec)=rescode(i,sequence(i,molec),iscode,molec)