      SUBROUTINE TNCM (X)
C *** SEE R H LANDAU, PROGRAM LPOTT, 1981
      IMPLICIT  REAL*8   (A-H,O-Z)
      COMMON /SEC2/ BNUC(20),BN(16),BNUCF(20),BNF(16),T(14),TX(14),HBARC
     1,PI,MPI,MN,NZ,NES,NWAVES,NIFTY(20),NA
      N = NIFTY(1)+1
      GO TO (10,10,10,10,10,50,10,20,20,50), N
 10   CALL TPICM (X)
      GO TO 30
 20   CALL TKCM (X)
 30   CONTINUE
C     CHECK TO SEE IF SOME ELEM T S SET TO ZERO
      IF (NIFTY(7).NE.1.AND.NIFTY(7).NE.2) RETURN
C     NIFTY(7)=1;  SET P,D,F = 0    NIFTY(7)=2; SET DF= 0
      NI = 5
      IF (NIFTY(7).EQ.2) NI = 9
      DO 40 NL=NI,16
         BN(NL) = 0.
         BNF(NL) = 0.
 40   CONTINUE
      RETURN
C      NO PROTONS IN THIS VERSION
 50   STOP
      END
