CRCYSO ( centre, axis, radius, height, cylind, ifail )
======================================================

  Create cylindrical solid

Receives:
  KI_vec_position           centre         --- centre of base of cylinder
  KI_vec_axis               axis           --- axis of cylinder
  KI_dbl_radius            *radius         --- radius of cylinder
 <KI_dbl_distance>         *height         --- height of cylinder

Returns:
  KI_tag_body              *cylind         --- cylinder
  KI_cod_error             *ifail          --- failure indicator

Specific errors:
  KI_radius_too_large       Radius too large

Description:
  If 'height' is positive, a body is created which is a right circular cylinder
  of length 'height' and radius 'radius'. One end face is centred at 'centre',
  and the axis of the cylinder is parallel with 'axis'.

  If 'height' is zero, a sheet body is created which is a circle, centre
  'centre', radius 'radius'. The normal to the plane of the sheet is parallel to
  'axis'.