/*
	GAUSS - A System for Least Squares and Robust Estimation

	Source Code Copyright (C) 1987 by William H. Jefferys,
	Michael J. Fitzpatrick and Barbara E. McArthur
	All Rights Reserved.
*/


#ifndef THINK_C
	typedef char *Ptr;
#endif
#ifdef THINK_C
#define USEANSI
#endif