C     PROGRAM IIMT
C     MATRICES OF ISOTROPIC VECTOR PRODUCTS
      PARAMETER (MD=2,MM=2**MD,MN=MM-1)
      DIMENSION MP(0:MN,0:MN)
      DATA IMP/32/
      MDB=ISHFT(MD,1)
      DO 4 MY=0,MN
      DO 4 MZ=0,MN
      WRITE(IMP,104)MY,MZ
  104 FORMAT(4X,'II(',I4,',',I4,')=')
      MYS=ISHFT(MY,MD)
      MZS=ISHFT(MZ,MD)
      DO 5 MA=0,MN
      DO 5 MB=0,MN
      MP(MA,MB)=0
    5 CONTINUE
      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)
      MP(MU,MV)=1
      IF(BTEST(K,0))MP(MU,MV)=-1
    6 CONTINUE
      DO 11 MU=0,MN
      WRITE(IMP,103)(MP(MU,MV),MV=0,MN)
  103 FORMAT(20I4)
   11 CONTINUE
    4 CONTINUE
      END

