/* xxor.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/*<       integer function xxor(a,b) >*/
integer xxor_(a, b)
doublereal *a, *b;
{
    /* System generated locals */
    integer ret_val;

/*<       implicit double precision (a-h,o-z) >*/

/*     this routine computes a single-precision integer result which is */

/* the result of exclusive-or*ing the two real-valued arguments a and b */

/* together. */

/*<       xxor=1 >*/
    ret_val = 1;
/*<       if(a.eq.b) xxor=0 >*/
    if (*a == *b) {
	ret_val = 0;
    }
/*<       return >*/
    return ret_val;
/*<       end >*/
} /* xxor_ */

