C     PROGRAM IIPR
C     EXPANSION OF ISOTROPIC VECTOR PRODUCTS
      CHARACTER*14 PR(5),PX
      DATA IMP/32/,LM/4/
C     INPUT DATA MD HALF DIMENSION
      DATA MD/4/
      LN=0
      MDB=ISHFT(MD,1)
      MM=0
      MM=IBSET(MM,MD)
      MN=MM-1
      DO 4 MY=0,MN
      DO 4 MZ=0,MN
      WRITE(IMP,104)MY,MZ
  104 FORMAT(16X,'II(',I4,',',I4,')=')
      MYS=ISHFT(MY,MD)
      MZS=ISHFT(MZ,MD)
      DO 6 MX=0,MN
      IF(IAND(MX,MY).NE.0)GO TO 6
      IF(IAND(MX,MZ).NE.0)GO TO 6
C     SIGN OF REARANGEMENT IN MX*MY AND MX*MZ
      M=MX
      K=0
      DO 8 N=1,MD
      M=ISHFT(M,1)
      MA=IAND(M,MYS)
      MB=IAND(M,MZS)
      DO 9 I=MD,MDB
      IF(BTEST(MA,I))K=K+1
      IF(BTEST(MB,I))K=K+1
    9 CONTINUE
    8 CONTINUE
      MU=IEOR(MX,MY)
      MV=IEOR(MX,MZ)
      IF(.NOT.BTEST(K,0))WRITE(PX,100)MU,MV
  100 FORMAT('+P(',I4,',',I4,') ')
      IF(BTEST(K,0))WRITE(PX,101)MU,MV
  101 FORMAT('-P(',I4,',',I4,') ')
      LN=LN+1
      PR(LN)=PX
      IF(LN.LT.LM)GO TO 6
      WRITE(IMP,103)(PR(L),L=1,LM)
  103 FORMAT(5A14)
      LN=0
    6 CONTINUE
      IF(LN.EQ.0)GO TO 4
      WRITE(IMP,103)(PR(L),L=1,LN)
      LN=0
    4 CONTINUE
      END
