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