subroutine real angle0 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 -C3' -O3' P O5' angle0
secondary select active end no_save dihedral -O3' P O5' C5' angle1
secondary select active end no_save dihedral  P O5' C5' C4' angle2
secondary select active end no_save dihedral O5' C5' C4' C3' angle3
secondary select active end no_save dihedral C5' C4' C3' O3' angle4
secondary select active end no_save dihedral C4' C3' O3' +P angle5
secondary select active end no_save dihedral C3' O3' +P +O5' angle6
calc bond sele active .a atom name C4' O4' end resi dist = 2.5
image over false
return