subroutine char SEGMENTS
calc hbonds \
	angle = 125.0 \
	distance = 3.8 \
	sele segm name SEGMENTS end \
	sele segm name SEGMENTS end hydrogen
< ?MAIN_UTILS:def_top_par_19 SEGMENTS
< ?MAIN_CMDS:re_image.cmds SEGMENTS
return