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

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

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

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