CRSPSO ( centre, radius, sphere, ifail )
========================================

  Create spherical solid

Receives:
  KI_vec_position           centre         --- centre of sphere
  KI_dbl_radius            *radius         --- radius of sphere

Returns:
  KI_tag_body              *sphere         --- sphere
  KI_cod_error             *ifail          --- failure indicator

Specific errors:
  KI_radius_too_large       Radius too large

Description:
  A sphere is created of radius 'radius', with its centre at 'centre'.