FUNCTION NTERMS (ITERM)
C
C RETURNS:
C   IF ITERM = 0: NUMBER OF ACTIVE TERMINALS
C   IF ITERM ^= 0: 1 OR 0 FOR TERMINAL ITEM ACTIVE/INACTIVE
C
	INCLUDE	'DAGCOM.FTN'
C
	J = 0			!NUMBER OF ACTIVE TERMINALS
	IMASK = 1
	DO 1000 I=1,MAXTRM
	  IF ((ITERM .NE. 0) .AND. (I .NE. ITERM)) GOTO 1000
	  IF ((IMASK .AND. SPYTRM) .NE. 0) J = J+1
1000	  IMASK = 2*IMASK
	NTERMS = J
	END