File Coverage

lib/PDL/MatrixOps/sslib.c
Criterion Covered Total %
statement 0 7 0.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 0 7 0.0


line stmt bran cond sub pod time code
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
20              
21             /*
22             * SSLerror is an error handling routine.
23             *
24             */
25              
26 0           void SSLerror(char *msg) {
27              
28 0           fprintf(stderr, "Fatal error in SSL.\n%s\n", msg);
29 0           } /* SSLerror */
30              
31              
32             /*
33             * Sqr and Cube is two simple power-raising routines.
34             *
35             */
36              
37 0           double Sqr(double x) {
38              
39 0           return x*x;
40             } /* Sqr */
41              
42 0           double Cube(double x) {
43              
44 0           return x*x*x;
45             } /* Cube */