3
\brief Enter brief description of file here
6
* Revision 1.2 2002/03/25 02:17:36 janssen
7
* Get rid of tmpl. Use new naming scheme for libipv1 includes.
9
/* Revision 1.1.1.1 2000/02/04 22:52:30 evaleev
10
/* Started PSI 3 repository
12
/* Revision 1.2 1999/08/17 19:04:14 evaleev
13
/* Changed the default symmetric orthogonalization to the canonical
14
/* orthogonalization. Now, if near-linear dependencies in the basis are found,
15
/* eigenvectors of the overlap matrix with eigenvalues less than 1E-6 will be
16
/* left out. This will lead to num_mo != num_so, i.e. SCF eigenvector is no
17
/* longer a square matrix. Had to rework some routines in libfile30, and add some.
18
/* The progrem prints out a warning if near-linear dependencies are found. TRANSQT
19
/* and a whole bunch of other codes has to be fixed to work with such basis sets.
21
/* Revision 1.1.1.1 1999/04/12 16:59:26 evaleev
22
/* Added a version of CSCF that can work with CINTS.
27
#include <libipv1/ip_lib.h>
29
namespace psi { namespace cscf {
31
void errchk(int errcod, const char* token)
34
fprintf(stderr,"ERROR: %s\n",ip_error_message(errcod));
35
fprintf(stderr,"TOKEN: %s\n",token);
39
}} // namespace psi::cscf