20 lines
828 B
Text
20 lines
828 B
Text
*** 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,
|