Function:     irim_disjunct

Purpose:      make two lists disjunct

Category:     IRAS, private to program: IMAGE

Author:       Do Kester		do@guspace.rug.nl

Use:
void irim_disjunct(
	list_type	*list1,
	list_type	*list2 )

The lists should be ordered before entering this routine.
They are made disjunct by kicking doublets out of list2.
Items which differ less than epsil = 0.001 are regarded
as identical. List1 remains unchanged.


Comment:      This routine is not callable in FORTRAN

Updates:      08 Aug 1991: DK, Creation date
	      04 Jun 1992: DK, prepared for GIPSY library

Original:     IMDISJ
	Structured and translated by ASSISTANT II Plus, v1.2