2
* Revision 1.1 2000/02/04 22:52:32 evaleev
5
/* Revision 1.2 1999/08/17 19:04:18 evaleev
6
/* Changed the default symmetric orthogonalization to the canonical
7
/* orthogonalization. Now, if near-linear dependencies in the basis are found,
8
/* eigenvectors of the overlap matrix with eigenvalues less than 1E-6 will be
9
/* left out. This will lead to num_mo != num_so, i.e. SCF eigenvector is no
10
/* longer a square matrix. Had to rework some routines in libfile30, and add some.
11
/* The progrem prints out a warning if near-linear dependencies are found. TRANSQT
12
/* and a whole bunch of other codes has to be fixed to work with such basis sets.
14
/* Revision 1.1.1.1 1999/04/12 16:59:27 evaleev
15
/* Added a version of CSCF that can work with CINTS.
19
static char *rcsid = "$Id: sdot.c 2 2000-02-04 22:50:39Z evaleev $";
25
void sdot(a,b,n,value)
26
double **a, **b, *value;
31
double *ta, *tb, tval;
34
for (i=0; i < n; i++) {
37
for (j=0; j <= i; j++,ta++,tb++) {
38
tval += (*ta) * (*tb);
44
void vdot(a,b,n,value)
51
for(i=0; i < n ; i++) tval += a[i]*b[i];