subroutine char SEGMENTS
rena resi A sele resi name ALA .a segm name SEGMENTS end
rena resi V sele resi name VAL .a segm name SEGMENTS end
rena resi L sele resi name LEU .a segm name SEGMENTS end
rena resi I sele resi name ILE .a segm name SEGMENTS end
rena resi F sele resi name PHE .a segm name SEGMENTS end

rena resi W sele resi name TRP .a segm name SEGMENTS end
rena resi H sele resi name HIS* .a segm name SEGMENTS end
rena resi Y sele resi name TYR .a segm name SEGMENTS end
rena resi S sele resi name SER .a segm name SEGMENTS end
rena resi T sele resi name THR .a segm name SEGMENTS end

rena resi N sele resi name ASN .a segm name SEGMENTS end
rena resi D sele resi name ASP .a segm name SEGMENTS end
rena resi Q sele resi name GLN .a segm name SEGMENTS end
rena resi E sele resi name GLU .a segm name SEGMENTS end
rena resi C sele resi name CYS .a segm name SEGMENTS end

rena resi M sele resi name MET .a segm name SEGMENTS end
rena resi P sele resi name PRO .a segm name SEGMENTS end
rena resi R sele resi name ARG .a segm name SEGMENTS end
rena resi K sele resi name LYS .a segm name SEGMENTS end
rena resi G sele resi name GLY .a segm name SEGMENTS end
return