SUBROUTINE GERADE(N,NGERA)
C FUER N UNGERADE WIRD NGERA = 1
C FUER N   GERADE WIRD NGERA = 0
	IF(IREM(N/2))1000,1000,1001
1000	NGERA=0
	RETURN
1001	NGERA=1
	RETURN
	END