2
* Revision 1.1 2000/02/04 22:52:29 evaleev
5
/* Revision 1.2 1999/08/17 19:04:14 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:26 evaleev
15
/* Added a version of CSCF that can work with CINTS.
19
static char *rcsid = "$Id: dmat_2.c 2 2000-02-04 22:50:39Z evaleev $";
34
for (l=0; l < num_ir ; l++) {
38
if (l == opblk) ndocc++;
41
for (i=0; i < n ; i++) {
42
for (j=0; j < i; j++,ij++) {
44
for (k=0; k < ndocc ; k++) {
45
ptempc += 4.0*s->cmat[i][k]*s->cmat[j][k];
47
if(opblk==opblk1) s->pmato2[ij] = ptempc;
48
else s->pmat2[ij] = ptempc;
51
for (k=0; k < ndocc ; k++) {
53
ptempc += 2.0*ctmp*ctmp;
55
if(opblk==opblk1) s->pmato2[ij] = ptempc;
56
else s->pmat2[ij] = ptempc;
62
"\ndensity matrix 1 for irrep %s",s->irrep_label);
63
print_array(s->pmato2,n,outfile);
67
"\ndensity matrix 1 for irrep %s",s->irrep_label);
68
print_array(s->pmat2,n,outfile);