C
C
C     This code is distributed under the terms and conditions of the
C     CCP4 licence agreement as `Part 2' (Annex 2) software.
C     A copy of the CCP4 licence can be obtained by writing to the
C     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
C
c+++ bigarg.fh
c
c Big arrays, as dummy arguments in subroutine
c
c To change from single to double precision, remove the comments cDP
c below, & comment out the "double precision" lines. 
c Also in subroutines refscl and foxholmes, change the call
c dsyev to call ssyev, 
c change "types" in scala main program, declaration in s/r cmpmvc
c (all flagged as "cDP")
c
c Note that work is declared as 5*maxmtx here and in the calls to dsyev
c  in subroutines refscl and foxholmes
c
      integer maxmtx
      double precision amatrx(maxmtx,maxmtx),
     $     eigval(maxmtx), eigvec(maxmtx,maxmtx), vecinv(maxmtx),
     $     work(5*maxmtx)
c & a local
      double precision eigmin, eigflt
cDP      real  amatrx(maxmtx,maxmtx),
cDP     $     eigval(maxmtx), eigvec(maxmtx,maxmtx), vecinv(maxmtx),
cDP     $     work(5*maxmtx)
cDP      real eigmin, eigflt
c--- bigarg.fh ---