subroutine real angle1 real angle2 real angle3

secondary select active end dihedral C4' C3' O3' +P angle1
secondary select active end dihedral C4' C3' O3' +P angle2
secondary select active end dihedral C4' C3' O3' +P angle3
image over false
return