//
//      For each spectrum, list no. of peaks.
//
//	(C) Copyright 1996, Carlsberg Laboratory, Dept. of Chemistry
//
//

DIM sp. OF sp_rec

DIGITS 4

sp_id%:=CAT_SP_FIRST
WHILE sp_id%<>-1 DO
  CAT_SP_GET sp_id%,sp.
  ncp%:=0
  nused:=0
  cp_id%:=CAT_SP_CP_FIRST(sp_id%)
  WHILE cp_id%<>-1 DO
    ncp%:=ncp%+1
    nused:=nused+cp_used%(cp_id%)
    cp_id%:=CAT_SP_CP_NEXT#(cp_id%,sp_id%)
  ENDWHILE
  
  PRINT "sp_id: ",sp_id%," name: ",sp.sp_name!,": no. of cross peaks: ",ncp%,
  IF ncp%>0 THEN
    PRINT "  ",nused/ncp%*100,"% assigned."
  ELSE
    PRINT 
  ENDIF
  
  sp_id%:=CAT_SP_NEXT(sp_id%)
ENDWHILE

FUNC cp_used%(cp_id%)
  at_cp_id%:=CAT_CP_AT_FIRST(cp_id%)
  RETURN at_cp_id%<>-1
ENDFUNC cp_used%