CREQSC ( scale, centre, transf, ifail )
=======================================

  Create an equal scaling transformation.

Receives:
  KI_dbl_sc_fact           *scale          --- scaling factor
  KI_vec_position           centre         --- centre of scaling

Returns:
  KI_tag_transform         *transf         --- equal scaling transformation
  KI_cod_error             *ifail          --- failure code


Description:
  Creates a transformation matrix that, when applied to an entity, causes
  an equal scaling along all axes, centred on the given position.