1      SUBROUTINE DRPAUL(SMAT,TMAT,EPS,EPT,SIJ,TIJ,WRK,VEC,ARRAY,FMO,
2     *                  XMKVIR,TMJ,XMI,YMI,ZMI,ZQQ,L1,L1EF,LNA,LNA2,
3     *                  NAEF,L2,NLOC,NVIR,PROVEC,FOCKMA,MXBF,MXMO2)
4      DIMENSION CMO(L1,L1),TLOC(LNA,LNA),SMJ(L1,NAEF),XMK(L1,LNA)
5      DO I = 1,LNA
6         DO J = 1,LNA
7            IF (I.LE.NOUT) TLOC(I,J) = ZERO
8            IF (J.LE.NOUT) TLOC(I,J) = ZERO
9         END DO
10         DO NA=1,NOC
11            IF ( ABS(E(NI)-E(NA)) .GE.TOL) THEN
12            END IF
13         END DO
14      END DO
15      END
16
17