mopac606_nbo/src/mult.f

   1       SUBROUTINE MULT(C,S,VECS,N)
   2       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
   3       DIMENSION C(N,*), S(N,*), VECS(N,*)
   4 ***********************************************************************
   5 *
   6 *   MULT IS USED IN THE MULLIKEN ANALYSIS ONLY. IT PERFORMS THE
   7 *        OPERATION:-
   8 *                                   VECS=BACK-TRANSFORMED EIGENVECTORS
   9 *        VECS  =  C*S               C   =UN-BACK-TRANSFORMED VECTORS
  10 *                                   S   =1/SQRT(OVERLAP MATRIX)
  11 *
  12 ***********************************************************************
  13       DO 20 I=1,N
  14          DO 20 J=1,N
  15             SUM=0.D0
  16             DO 10 K=1,N
  17    10       SUM=SUM+C(K,I)*S(J,K)
  18    20 VECS(J,I)=SUM
  19       RETURN
  20       END