      SUBROUTINE MIXUP (BN,BNF,RT,AIT,NIF1)
C *** SEE R H LANDAU, PROGRAM LPOTT, 1981
C     MIXUP CALLS PION, NUCLEON OR KAON MIX TO FOR PARTIAL WAVES
C     FROM EIGEN CHANNEL AMPLITUDES
      IMPLICIT  REAL*8   (A-H,O-Z)
      DIMENSION BN(16), BNF(16), RT(14), AIT(14)
      N = NIF1+1
      GO TO (10,10,10,10,10,30,10,20,20,30), N
 10   CALL PIMIX (BN,BNF,RT,AIT)
      RETURN
 20   CALL KMIXUP (BN,BNF,RT,AIT)
      RETURN
C     PROTONS NOT IN THIS VERSION
 30   STOP
      END
