src/common/chanvalue.c

#ifndef lint
static const char       RCSid[] = "$Id: chanvalue.c,v 3.1 2003/02/22 02:07:21 greg Exp $";
#endif
/*
 * Dummy definition of chanvalue() for calcomp routines.
 */

#include "standard.h"

double
chanvalue(int n)
{
        eputs("Call to unsupported chanvalue routine\n");
        quit(1);
        return 0.0; /* pro forma return */
}
Revision:	3.2
Committed:	Sat Jun 7 12:50:20 2003 UTC (21 years, 11 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
Changes since 3.1:	+4 -1 lines
Log Message:	Various small changes to reduce compile warnings/errors on Windows.
#	User	Rev	Content
1	greg	3.1	#ifndef lint
2	schorsch	3.2	static const char RCSid[] = "$Id: chanvalue.c,v 3.1 2003/02/22 02:07:21 greg Exp $";
3	greg	3.1	#endif
4			/*
5			* Dummy definition of chanvalue() for calcomp routines.
6			*/
7
8	schorsch	3.2	#include "standard.h"
9
10	greg	3.1	double
11			chanvalue(int n)
12			{
13			eputs("Call to unsupported chanvalue routine\n");
14			quit(1);
15	schorsch	3.2	return 0.0; /* pro forma return */
16	greg	3.1	}