c
c	Boolean functions.
c
	parameter	(TRUE = .true.)
	parameter	(FALSE = .false.)