COLIST ( list, nitems, ifail )
==============================

  Count items in a  list

    Can be called from the GO.

Receives:
  KI_tag_list              *list           --- list in which to count items

Returns:
 <KI_int_nitems>           *nitems         --- number of items in list
  KI_cod_error             *ifail          --- failure indicator


Description:
  The length of the given list is returned in 'nitems'.