CRBXSO ( centre, axis, width, length, height, box1, ifail )
===========================================================

  Create box solid

Receives:
  KI_vec_position           centre         --- centre of base of box
  KI_vec_axis               axis           --- axis of box
  KI_dbl_distance          *width          --- width of box
  KI_dbl_distance          *length         --- length of box
 <KI_dbl_distance>         *height         --- height of box

Returns:
  KI_tag_body              *box1           --- box
  KI_cod_error             *ifail          --- failure indicator


Description:
  If 'height' is positive, a body is created with six rectangular faces (a box
  or cuboid). One of the faces is centred at the point 'centre', and the body
  extends a distance 'height' from there in the direction of 'axis'. The other
  two dimensions of the box are 'width' and 'height'.

  If 'height' is zero, a rectangular sheet body is created, of dimension 'width'
  by 'length'. The normal to the plane face of the sheet is 'axis'.

  In either case, if 'axis' is parallel to the Z-axis (0,0,1) then the faces or
  sides of length 'width' will be parallel to the X-axis, and those of length
  'length' parallel to the Y-axis. If 'axis' is not parallel to the Z-axis, the
  orientation of the body about 'axis' is not defined.