1 SUBROUTINE reset_coords(s, theta, phi)
6 REAL(rprec),
INTENT(INOUT) :: s, theta, phi
14 IF(theta > zero .AND. theta <= twopi)
EXIT
16 ELSEIF(theta > twopi)
THEN
19 IF(theta > zero .AND. theta <= twopi)
EXIT
26 IF(phi > zero .AND. phi <= twopi)
EXIT
28 ELSEIF(phi > twopi)
THEN
31 IF(phi > zero .AND. phi <= twopi)
EXIT
35 END SUBROUTINE reset_coords