*** matou1.f.2	Wed Apr 23 16:26:50 1997
--- matou1.f	Wed Apr 23 16:32:56 1997
***************
*** 2,8 ****
        IMPLICIT DOUBLE PRECISION (A-H,O-Z)
        INCLUDE 'SIZES'
        PARAMETER (MXDIM=MAXPAR+NUMATM)
!       PARAMETER (MAXDIM=MAX(MAXORB,3*NUMATM))
        DIMENSION A(NR,NR),B(NDIM)
        COMMON /MOLKST/ NUMAT,NAT(NUMATM),NFIRST(NUMATM),NMIDLE(NUMATM),
       1                NLAST(NUMATM), NORBS, NELECS,NALPHA,NBETA,
--- 2,9 ----
        IMPLICIT DOUBLE PRECISION (A-H,O-Z)
        INCLUDE 'SIZES'
        PARAMETER (MXDIM=MAXPAR+NUMATM)
! C      PARAMETER (MAXDIM=MAX(MAXORB,3*NUMATM))
!       PARAMETER (MAXDIM=(MAXORB+3*NUMATM))
        DIMENSION A(NR,NR),B(NDIM)
        COMMON /MOLKST/ NUMAT,NAT(NUMATM),NFIRST(NUMATM),NMIDLE(NUMATM),
       1                NLAST(NUMATM), NORBS, NELECS,NALPHA,NBETA,