        SUBROUTINE SWAP (I,J)
        IF (I .LT. J)GOTO 10
        GOTO 11
   10   ITEMP = I
        I = J
        J = ITEMP
   11   RETURN
        END

