subroutine char SEGMENTS
calc hbonds \
	angle = 125.0 \
	distance = 3.8 \
	sele segm name SEGMENTS .a atom name H N HT* end \
	sele segm name SEGMENTS .a atom name O C OXT OT* end \
        hydrogen
< ?MAIN_UTILS:def_top_par_19 SEGMENTS
< ?MAIN_CMDS:re_image.cmds SEGMENTS
return