INTEGER RD1(884),RD2(884),RD3(884),RD4(884)
      INTEGER ERRS,AP,LASTAP,I1,I2,I,J,K,L,POS2,PUT
      INTEGER MATCH1(40),MATCH2(40)
      INTEGER OUT1(40),OUT2(40)
      INTEGER ROW1(500),ROW2(500)
      INTEGER ROW3(500),ROW4(500),BUF(500)
      INTEGER BUF1(500),BUF2(500)
      INTEGER RPN(200),CBUF(500)
      INTEGER GETARG,LOADRD,GETROW,ISATTY,EVAL,PARSE,ADDFI0
      INTEGER GETNA0,FINDF0,FINDQ0,COMPA0
      INTEGER ARG(128),OLDNA0(128),NEWNA0(17)
      INTEGER * 4 M
      INTEGER * 4 MARKF
      INTEGER AAAAA0(18)
      DATA AAAAA0/230,233,229,236,228,160,238,239,244,160,230,239,245,23
     *8,228,170,238,0/
      IF((LOADRD(RD1,-10).EQ.-2))GOTO 10000
        CALL ERROR('Cannot load input relation 1.')
10000 IF((LOADRD(RD2,-12).EQ.-2))GOTO 10001
        CALL ERROR('Cannot load input relation 2.')
10001 CALL MOVE$(RD1,RD3,RD1(1))
      AP=0
      I=3+1
      GOTO 10004
10002 I=I+22
10004 IF((I.GT.RD2(2)))GOTO 10003
        J=FINDF0(RD3,RD2(I+5))
        IF((J.NE.0))GOTO 10005
          POS2=ADDFI0(RD3,RD2(I),RD2(I+1),RD2(I+5))
          IF((POS2.NE.0))GOTO 10006
            CALL ERROR('Resulting relation has too many domains.')
10006     GOTO 10007
10005     AP=AP+1
          MATCH1(AP)=J
          MATCH2(AP)=I
10007 GOTO 10002
10003 LASTAP=AP
      CALL SAVERD(RD3,-11)
      IF((ISATTY(-11).NE.1))GOTO 10008
        CALL PRINT0(RD3,-11)
10008 M=MARKF(-12)
10009 IF((GETROW(RD1,-10,ROW1).EQ.-1))GOTO 10010
        J=3+1
        I=3+1
        GOTO 10013
10011   I=I+22
10013   IF((I.GT.RD1(2)))GOTO 10012
          CALL GETDA0(RD1,I,ROW1,BUF1)
          CALL PUTDA0(RD3,J,ROW3,BUF1)
          J=J+22
        GOTO 10011
10012   CALL SEEKF(M,-12)
10014   IF((GETROW(RD2,-12,ROW2).EQ.-1))GOTO 10015
          PUT=1
          AP=1
          GOTO 10018
10016     AP=AP+(1)
10018     IF((AP.GT.LASTAP))GOTO 10017
            CALL GETDA0(RD1,MATCH1(AP),ROW1,BUF1)
            CALL GETDA0(RD2,MATCH2(AP),ROW2,BUF2)
            IF((COMPA0(RD1(MATCH1(AP)),BUF1,BUF2).EQ.2))GOTO 10019
              PUT=0
10019     GOTO 10016
10017     IF((PUT.NE.1))GOTO 10020
            I=J
            GOTO 10023
10021       I=I+22
10023       IF((I.GT.RD3(2)))GOTO 10022
              K=FINDF0(RD2,RD3(I+5))
              IF((K.NE.0))GOTO 10024
                CALL PRINT(-11,AAAAA0)
                GOTO 10025
10024           CALL GETDA0(RD2,K,ROW2,BUF2)
                CALL PUTDA0(RD3,I,ROW3,BUF2)
10025       GOTO 10021
10022       CALL PUTROW(RD3,-11,ROW3)
10020   GOTO 10014
10015 GOTO 10009
10010 IF((ISATTY(-11).NE.1))GOTO 10026
        CALL PRINU0(RD3,-11)
10026 CALL SWT
      END
      INTEGER FUNCTION GETNA0(ARG,OLDNA0,NEWNA0)
      INTEGER ARG(1),OLDNA0(128),NEWNA0(17)
      INTEGER I,J
      NEWNA0(1)=0
      OLDNA0(1)=0
      IF((193.GT.ARG(1)))GOTO 10028
      IF((ARG(1).GT.218))GOTO 10028
      GOTO 10027
10028 IF((225.GT.ARG(1)))GOTO 10029
      IF((ARG(1).GT.250))GOTO 10029
      GOTO 10027
10029   GETNA0=-3
        RETURN
10027 OLDNA0(1)=ARG(1)
      I=2
      GOTO 10032
10030 I=I+(1)
10032 IF((ARG(I).EQ.0))GOTO 10031
      IF((ARG(I).EQ.189))GOTO 10031
      IF((I.GE.128))GOTO 10031
        IF((193.GT.ARG(I)))GOTO 10034
        IF((ARG(I).GT.218))GOTO 10034
        GOTO 10033
10034   IF((225.GT.ARG(I)))GOTO 10035
        IF((ARG(I).GT.250))GOTO 10035
        GOTO 10033
10035   IF((176.GT.ARG(I)))GOTO 10036
        IF((ARG(I).GT.185))GOTO 10036
        GOTO 10033
10036   IF((ARG(I).EQ.223))GOTO 10033
        IF((ARG(I).EQ.174))GOTO 10033
          OLDNA0(1)=0
          GETNA0=-3
          RETURN
10033   OLDNA0(I)=ARG(I)
      GOTO 10030
10031 OLDNA0(I)=0
      IF((ARG(I).NE.0))GOTO 10037
        I=1
        GOTO 10040
10038   I=I+(1)
10040   IF((ARG(I).EQ.174))GOTO 10039
        IF((ARG(I).EQ.0))GOTO 10039
        IF((I.GE.17))GOTO 10039
          NEWNA0(I)=ARG(I)
        GOTO 10038
10039   NEWNA0(I)=0
        GOTO 10041
10037   IF((ARG(I).NE.189))GOTO 10042
          I=I+(1)
          IF((193.GT.ARG(I)))GOTO 10044
          IF((ARG(I).GT.218))GOTO 10044
          GOTO 10043
10044     IF((225.GT.ARG(I)))GOTO 10045
          IF((ARG(I).GT.250))GOTO 10045
          GOTO 10043
10045       GETNA0=-3
            RETURN
10043     NEWNA0(1)=ARG(I)
          J=2
          I=I+(1)
          GOTO 10048
10046     J=J+(1)
          I=I+(1)
10048     IF((ARG(I).EQ.0))GOTO 10047
          IF((J.GE.17))GOTO 10047
            IF((193.GT.ARG(I)))GOTO 10050
            IF((ARG(I).GT.218))GOTO 10050
            GOTO 10049
10050       IF((225.GT.ARG(I)))GOTO 10051
            IF((ARG(I).GT.250))GOTO 10051
            GOTO 10049
10051       IF((176.GT.ARG(I)))GOTO 10052
            IF((ARG(I).GT.185))GOTO 10052
            GOTO 10049
10052       IF((ARG(I).EQ.223))GOTO 10049
              NEWNA0(1)=0
              GETNA0=-3
              RETURN
10049       NEWNA0(J)=ARG(I)
          GOTO 10046
10047     NEWNA0(J)=0
          IF((ARG(I).EQ.0))GOTO 10053
            GETNA0=-3
            RETURN
10053     GOTO 10054
10042     GETNA0=-3
          RETURN
10054 CONTINUE
10041 GETNA0=-2
      RETURN
      END
      INTEGER FUNCTION LOADRD(RD,FD)
      INTEGER RD(884)
      INTEGER FD
      INTEGER ISATTY,READF
      IF((ISATTY(FD).NE.1))GOTO 10055
        CALL REMARK('Sorry, a relation can''t be read from the terminal.
     *')
        LOADRD=-3
        RETURN
10055 IF((READF(RD(1),1,FD).NE.-1))GOTO 10056
        LOADRD=-3
        RETURN
10056 IF((READF(RD(2),RD(1)-1,FD).NE.-1))GOTO 10057
        CALL REMARK('relation is corrupted!!.')
        LOADRD=-3
        RETURN
10057 LOADRD=-2
      RETURN
      END
      SUBROUTINE SAVERD(RD,FD)
      INTEGER RD(884)
      INTEGER FD
      INTEGER ISATTY
      IF((ISATTY(FD).NE.1))GOTO 10058
        CALL PRINV0(RD,FD)
        GOTO 10059
10058   CALL WRITEF(RD,RD(1),FD)
10059 RETURN
      END
      SUBROUTINE PRINV0(RD,FD)
      INTEGER RD(884)
      INTEGER FD
      INTEGER I
      INTEGER TYPE(102)
      INTEGER AAAAB0(10)
      INTEGER AAAAC0(33)
      INTEGER AAAAD0(10)
      INTEGER AAAAE0
      INTEGER AAAAF0(8)
      INTEGER AAAAG0(5)
      INTEGER AAAAH0(7)
      INTEGER AAAAI0(24)
      INTEGER AAAAJ0(10)
      DATA AAAAB0/170,179,185,172,172,173,248,170,238,0/
      DATA AAAAC0/252,160,244,249,240,229,160,160,160,160,252,160,236,22
     *9,238,231,244,232,160,252,160,238,225,237,229,170,177,179,248,252,
     *170,238,0/
      DATA AAAAD0/170,179,185,172,172,173,248,170,238,0/
      DATA AAAAF0/233,238,244,229,231,229,242,0/
      DATA AAAAG0/242,229,225,236,0/
      DATA AAAAH0/243,244,242,233,238,231,0/
      DATA AAAAI0/252,160,170,183,243,160,252,160,170,181,233,160,160,25
     *2,160,170,177,182,243,160,252,170,238,0/
      DATA AAAAJ0/170,179,185,172,172,173,248,170,238,0/
      CALL PRINT(FD,AAAAB0)
      CALL PRINT(FD,AAAAC0)
      CALL PRINT(FD,AAAAD0)
      I=3+1
      GOTO 10062
10060 I=I+22
10062 IF((I.GT.RD(2)))GOTO 10061
        AAAAE0=RD(I)
        GOTO 10063
10064     CALL CTOC(AAAAF0,TYPE,102)
        GOTO 10065
10066     CALL CTOC(AAAAG0,TYPE,102)
        GOTO 10065
10067     CALL CTOC(AAAAH0,TYPE,102)
        GOTO 10065
10063   GOTO(10064,10066,10067),AAAAE0
10065   CALL PRINT(FD,AAAAI0,TYPE,RD(I+1),RD(I+5))
      GOTO 10060
10061 CALL PRINT(FD,AAAAJ0)
      RETURN
      END
      INTEGER FUNCTION ADDFI0(RD,TYPE,LEN,NAME)
      INTEGER RD(884)
      INTEGER TYPE,LEN
      INTEGER NAME(1)
      INTEGER I
      INTEGER AAAAK0
      I=RD(2)+22
      IF((I+22-1.LE.884))GOTO 10068
        ADDFI0=0
        RETURN
10068 RD(I)=TYPE
      RD(I+4)=LENGTH(NAME)
      AAAAK0=TYPE
      GOTO 10069
10070   RD(I+1)=2
        RD(I+4)=MAX0(RD(I+4),10)
      GOTO 10071
10072   RD(I+1)=4
        RD(I+4)=MAX0(RD(I+4),15)
      GOTO 10071
10073   RD(I+1)=LEN
        RD(I+4)=MAX0(RD(I+4),LEN)
      GOTO 10071
10069 GOTO(10070,10072,10073),AAAAK0
        CALL ERROR('in add_field_to_rd: bogus type passed.')
10071 RD(I+2)=RD(3)+1
      RD(I+3)=RD(3)+RD(I+1)
      CALL CTOC(NAME,RD(I+5),17)
      RD(1)=RD(1)+(22)
      RD(2)=RD(2)+(22)
      RD(3)=RD(3)+(RD(I+1))
      IF((RD(3).LE.500))GOTO 10074
        ADDFI0=0
        RETURN
10074 ADDFI0=I
      RETURN
      END
      INTEGER FUNCTION FINDF0(RD,NAME)
      INTEGER RD(884)
      INTEGER NAME(1)
      INTEGER I
      INTEGER EQUAL
      I=3+1
      GOTO 10077
10075 I=I+22
10077 IF((I.GT.RD(2)))GOTO 10076
        IF((EQUAL(RD(I+5),NAME).NE.1))GOTO 10078
          FINDF0=I
          RETURN
10078 GOTO 10075
10076 FINDF0=0
      RETURN
      END
      INTEGER FUNCTION COMPA0(TYPE,BUF1,BUF2)
      INTEGER TYPE
      INTEGER BUF1(500),BUF2(500)
      INTEGER R
      INTEGER COMPB0,COMPC0,COMPD0
      INTEGER AAAAL0
      INTEGER AAAAM0(34)
      DATA AAAAM0/233,238,160,227,239,237,240,225,242,229,223,230,233,22
     *9,236,228,186,160,226,239,231,245,243,160,244,249,240,229,160,170,
     *233,170,238,0/
      AAAAL0=TYPE
      GOTO 10079
10080   R=COMPB0(BUF1,BUF2)
      GOTO 10081
10082   R=COMPC0(BUF1,BUF2)
      GOTO 10081
10083   R=COMPD0(BUF1,BUF2)
      GOTO 10081
10079 GOTO(10080,10082,10083),AAAAL0
        CALL PRINT(-15,AAAAM0,TYPE)
        R=2
10081 COMPA0=R
      RETURN
      END
      INTEGER FUNCTION COMPB0(I1,I2)
      INTEGER * 4 I1,I2
      IF((I1.GE.I2))GOTO 10084
        COMPB0=1
        RETURN
10084 IF((I1.LE.I2))GOTO 10085
        COMPB0=3
        RETURN
10085 COMPB0=2
      RETURN
      END
      INTEGER FUNCTION COMPC0(D1,D2)
      REAL * 8 D1,D2
      IF((D1.GE.D2))GOTO 10086
        COMPC0=1
        RETURN
10086 IF((D1.LE.D2))GOTO 10087
        COMPC0=3
        RETURN
10087 COMPC0=2
      RETURN
      END
      INTEGER FUNCTION COMPD0(S1,S2)
      INTEGER S1(1),S2(1)
      INTEGER I
      I=1
      GOTO 10090
10088 I=I+(1)
10090 IF((S1(I).NE.S2(I)))GOTO 10089
      IF((S1(I).EQ.0))GOTO 10089
      GOTO 10088
10089 IF((S1(I).NE.S2(I)))GOTO 10091
        COMPD0=2
        RETURN
10091 IF((S1(I).EQ.0))GOTO 10093
      IF((S1(I).LT.S2(I)))GOTO 10093
      GOTO 10092
10093   COMPD0=1
        RETURN
10092 COMPD0=3
      RETURN
      END
      SUBROUTINE PRINT0(RD,FD)
      INTEGER RD(884)
      INTEGER FD
      INTEGER I
      INTEGER AAAAN0(2)
      INTEGER AAAAO0(7)
      INTEGER AAAAP0(3)
      INTEGER AAAAQ0(2)
      INTEGER AAAAR0(7)
      INTEGER AAAAS0(3)
      INTEGER AAAAT0(2)
      INTEGER AAAAU0(7)
      INTEGER AAAAV0(3)
      DATA AAAAN0/173,0/
      DATA AAAAO0/170,163,172,172,173,248,0/
      DATA AAAAP0/170,238,0/
      DATA AAAAQ0/252,0/
      DATA AAAAR0/160,170,163,243,160,252,0/
      DATA AAAAS0/170,238,0/
      DATA AAAAT0/173,0/
      DATA AAAAU0/170,163,172,172,173,248,0/
      DATA AAAAV0/170,238,0/
      CALL PRINT(FD,AAAAN0)
      I=3+1
      GOTO 10096
10094 I=I+22
10096 IF((I.GT.RD(2)))GOTO 10095
        CALL PRINT(FD,AAAAO0,RD(I+4)+3)
      GOTO 10094
10095 CALL PRINT(FD,AAAAP0)
      CALL PRINT(FD,AAAAQ0)
      I=3+1
      GOTO 10099
10097 I=I+22
10099 IF((I.GT.RD(2)))GOTO 10098
        CALL PRINT(FD,AAAAR0,RD(I+4),RD(I+5))
      GOTO 10097
10098 CALL PRINT(FD,AAAAS0)
      CALL PRINT(FD,AAAAT0)
      I=3+1
      GOTO 10102
10100 I=I+22
10102 IF((I.GT.RD(2)))GOTO 10101
        CALL PRINT(FD,AAAAU0,RD(I+4)+3)
      GOTO 10100
10101 CALL PRINT(FD,AAAAV0)
      RETURN
      END
      SUBROUTINE PRINU0(RD,FD)
      INTEGER RD(884)
      INTEGER FD
      INTEGER I
      INTEGER AAAAW0(2)
      INTEGER AAAAX0(7)
      INTEGER AAAAY0(3)
      DATA AAAAW0/173,0/
      DATA AAAAX0/170,163,172,172,173,248,0/
      DATA AAAAY0/170,238,0/
      CALL PRINT(FD,AAAAW0)
      I=3+1
      GOTO 10105
10103 I=I+22
10105 IF((I.GT.RD(2)))GOTO 10104
        CALL PRINT(FD,AAAAX0,RD(I+4)+3)
      GOTO 10103
10104 CALL PRINT(FD,AAAAY0)
      RETURN
      END
      SUBROUTINE PRINW0(RD,FD,BUF)
      INTEGER RD(884)
      INTEGER FD
      INTEGER BUF(500)
      INTEGER I
      INTEGER AAAAZ0(2)
      INTEGER AAABA0
      INTEGER AAABB0(7)
      INTEGER AAABC0(7)
      INTEGER AAABD0(9)
      INTEGER AAABE0(3)
      DATA AAAAZ0/252,0/
      DATA AAABB0/160,170,163,236,160,252,0/
      DATA AAABC0/160,170,163,228,160,252,0/
      DATA AAABD0/160,170,163,172,163,243,160,252,0/
      DATA AAABE0/170,238,0/
      CALL PRINT(FD,AAAAZ0)
      I=3+1
      GOTO 10108
10106 I=I+22
10108 IF((I.GT.RD(2)))GOTO 10107
        AAABA0=RD(I)
        GOTO 10109
10110     CALL PRINT(FD,AAABB0,RD(I+4),BUF(RD(I+2)))
        GOTO 10111
10112     CALL PRINT(FD,AAABC0,RD(I+4),BUF(RD(I+2)))
        GOTO 10111
10113     CALL PRINT(FD,AAABD0,RD(I+4),RD(I+1),BUF(RD(I+2)))
        GOTO 10111
10109   GOTO(10110,10112,10113),AAABA0
10111 GOTO 10106
10107 CALL PRINT(FD,AAABE0)
      RETURN
      END
      INTEGER FUNCTION GETROW(RD,FD,BUF)
      INTEGER RD(884)
      INTEGER FD
      INTEGER BUF(500),I
      INTEGER READF
      I=READF(BUF,RD(3),FD)
      GETROW=I
      RETURN
      END
      SUBROUTINE PUTROW(RD,FD,BUF)
      INTEGER RD(884)
      INTEGER FD
      INTEGER BUF(500)
      INTEGER ISATTY
      IF((ISATTY(FD).NE.1))GOTO 10114
        CALL PRINW0(RD,FD,BUF)
        GOTO 10115
10114   CALL WRITEF(BUF,RD(3),FD)
10115 RETURN
      END
      SUBROUTINE GETDA0(RD,I,BUF,DEST)
      INTEGER RD(884)
      INTEGER I,BUF(1),DEST(102)
      INTEGER J,K
      INTEGER AAABF0
      AAABF0=RD(I)
      GOTO 10116
10117   J=RD(I+2)
        DEST(1)=BUF(J)
        DEST(2)=BUF(J+1)
      GOTO 10118
10119   J=RD(I+2)
        DEST(1)=BUF(J)
        DEST(2)=BUF(J+1)
        DEST(3)=BUF(J+2)
        DEST(4)=BUF(J+3)
      GOTO 10118
10120   J=RD(I+3)
        K=RD(I+1)
        GOTO 10123
10121   J=J-(1)
        K=K-(1)
10123   IF((K.LE.0))GOTO 10122
        IF((BUF(J).NE.160))GOTO 10122
        GOTO 10121
10122   DEST(K+1)=0
        GOTO 10126
10124   J=J-(1)
        K=K-(1)
10126   IF((K.LE.0))GOTO 10125
          DEST(K)=BUF(J)
        GOTO 10124
10125 GOTO 10118
10116 GOTO(10117,10119,10120),AAABF0
10118 RETURN
      END
      SUBROUTINE PUTDA0(RD,I,BUF,SRC)
      INTEGER RD(884)
      INTEGER I,BUF(1),SRC(102)
      INTEGER J,K
      INTEGER AAABG0
      AAABG0=RD(I)
      GOTO 10127
10128   J=RD(I+2)
        BUF(J)=SRC(1)
        BUF(J+1)=SRC(2)
      GOTO 10129
10130   J=RD(I+2)
        BUF(J)=SRC(1)
        BUF(J+1)=SRC(2)
        BUF(J+2)=SRC(3)
        BUF(J+3)=SRC(4)
      GOTO 10129
10131   J=RD(I+2)
        K=1
        GOTO 10134
10132   J=J+(1)
        K=K+(1)
10134   IF((SRC(K).EQ.0))GOTO 10133
        IF((K.GT.RD(I+1)))GOTO 10133
          BUF(J)=SRC(K)
        GOTO 10132
10133   GOTO 10137
10135   K=K+(1)
        J=J+(1)
10137   IF((K.GT.RD(I+1)))GOTO 10136
          BUF(J)=160
        GOTO 10135
10136 GOTO 10129
10127 GOTO(10128,10130,10131),AAABG0
10129 RETURN
      END
      INTEGER FUNCTION COMPE0(RD,ROW1,ROW2)
      INTEGER RD(884)
      INTEGER ROW1(500),ROW2(500)
      INTEGER BUF1(500),BUF2(500)
      INTEGER R,I
      INTEGER COMPA0
      I=3+1
      GOTO 10140
10138 I=I+22
10140 IF((I.GT.RD(2)))GOTO 10139
        CALL GETDA0(RD,I,ROW1,BUF1)
        CALL GETDA0(RD,I,ROW2,BUF2)
        R=COMPA0(RD(I),BUF1,BUF2)
        IF((R.EQ.2))GOTO 10141
          COMPE0=R
          RETURN
10141 GOTO 10138
10139 COMPE0=2
      RETURN
      END
C ---- Long Name Map ----
C comparefield                   compa0
C printheader                    print0
C comparerow                     compe0
C newname                        newna0
C printtrailer                   prinu0
C putdata                        putda0
C compareinteger                 compb0
C comparestring                  compd0
C findfield                      findf0
C findqualfield                  findq0
C printrd                        prinv0
C printrow                       prinw0
C comparereal                    compc0
C getdata                        getda0
C addfieldtord                   addfi0
C oldname                        oldna0
C getname                        getna0