1 /*
2 * ssl.c - misc. functions for Small Scientific Library
3 *
4 * (C) Copyright 2001 by NetGroup A/S. All rights reserved.
5 *
6 * $Log$
7 * Revision 1.1 2006/06/20 15:57:22 djburke
8 * Hopefully a saner way to build Basic/MatrixOps
9 *
10 * Revision 1.1 2005/01/08 09:22:57 zowie
11 * Added non-symmetric matrices to eigens; updated version to 2.4.2cvs.
12 *
13 * Revision 1.1.1.1 2001/07/06 13:39:35 kneth
14 * Initial import of code.
15 *
16 *
17 */
18
19 #include <stdio.h>
20
21 /*
22 * SSLerror is an error handling routine.
23 *
24 */
25
SSLerror(char * msg)26 void SSLerror(char *msg) {
27
28 fprintf(stderr, "Fatal error in SSL.\n%s\n", msg);
29 } /* SSLerror */
30
31
32 /*
33 * Sqr and Cube is two simple power-raising routines.
34 *
35 */
36
Sqr(double x)37 double Sqr(double x) {
38
39 return x*x;
40 } /* Sqr */
41
Cube(double x)42 double Cube(double x) {
43
44 return x*x*x;
45 } /* Cube */
46