1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
*** 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,
|
