subroutine char SEGMENTS
rena atom CD1 sele resi name ILE .a atom name CD .a segm name SEGMENTS end
rena atom O sele atom name OT1 .a segm name SEGMENTS end
rena atom OXT sele atom name OT2 .a segm name SEGMENTS end
rena resi TIP3 sele resi name H2O  .a segm name SEGMENTS end
rena atom KA sele atom name CAL .a segm name SEGMENTS end
rena resi KA sele resi name CAL .a segm name SEGMENTS end
return