subroutine char SEGMENTS

!show vari WORK_SEGM
!show vari SEGMENTS

build
sele segm name SEGMENTS end
fill
sele segm name SEGMENTS end
dihed
exit
calc coor append
dele bond sele segm name SEGMENTS .and. bond range 3.7 1000. end
image over false
return