INTEGER FUNCTION ISWAP (WORD) 
      INTEGER WORD  
      INTEGER GCHAR, BYTEA, BYTEB, TEMP 
      BYTEA = GCHAR (WORD, 1)   
      BYTEB = GCHAR (WORD, 2)   
      CALL PCHAR (TEMP, 1, BYTEB)   
      CALL PCHAR (TEMP, 2, BYTEA)   
      ISWAP = TEMP  
      RETURN
      END