h_ieor X
1: /* IEOR fortran callable. PLW 8/7/79.*/ 2: int h_ieor(x,y) 3: int *x,*y; 4: { 5: return(*x ^ *y); 6: }