i_iand X
1: /* IAND fortran callable. PLW 8/5/79.*/ 2: long int i_iand(x,y) 3: long int *x,*y; 4: { 5: return(*x & *y); 6: }