subroutine real angle1 real angle2 real angle3 \
	real angle4 real angle5 real angle6

dele bond sele active .a atom name C4' O4' end
secondary select active end dihedral -O3' P O5' C5' angle1
secondary select active end false dihedral  P O5' C5' C4' angle2
secondary select active end false dihedral O5' C5' C4' C3' angle3
secondary select active end false dihedral C5' C4' C3' O3' angle4
secondary select active end false dihedral C4' C3' O3' +P angle5
secondary select active end false dihedral C3' O3' +P +O5' angle6
calc bond sele active .a atom name C4' O4' end dist = 2.0
image over false
return