/* (c) Copyright 1987 Michael Goetz								*/
/*																			*/
/*				File:		  	rprime									*/
/*				Returns:	  	int - true if i1 is prime to i2	*/
/*				Parameters:	int i1, i2								*/
/*																			*/
/*																			*/


#include "advm.h"


int rprime(i1,i2)
int i1,i2;

{
	int m;

	while (i2 > 0)
		{
		m = i1;
		i1 = i2;
		i2 = m % i1;
		}
	return (i1 == 1);
}