c  the following parameters can be adjusted to determine the memory
c  requirements of the program
 
c   nzmax  = maximum number of (thermal) zones
c   nbzmax = maximum number of (real) zones
c   nasmax = maximum number of additional air spaces per zone
c   noumax = maximum number of outputs
c   nszmax = maximum number of surfaces per zone
c   nwamax = maximum number of walls
c   nwimax = maximum number of windows
c   ntcmax = maximum number of tcsurf
c   npcmax = maximum number of pcm-layers
c   ntbmax = maximum number of TABS zones
c   ncpmax = maximum number of coupling walls
c   nwtmax = maximum number of wall types
c   ngtmax = maximum number of window types
c   normax = maximum number of orientation types
c   nhtmax = maximum number of heating types
c   ngamax = maximum number of gain types
c   ngzmax = maximum number of gain types per zone
c   nvtmax = maximum number of ventilation types
c   nvzmax = maximum number of ventilation types per zone
c   nscmax = maximum number of schedule types
c   ninmax = maximum number of input types
c            note: (ninmax+1 must be a prime number!!!!!!!)
c   nvarmx = maximum number of calls of schedule
c   ncoef  = maximum number of a,b,c,& d transfer function coefficients
c              -this number can be approximated by the average number
c               of coeff/per wall (determined with "bid") * nwtmax.
c   nhist  = maximum number of past data required for transfer functions
c              -nhist(max)=ncoef*nwamax, but in general this number
c               can be much less
 
c  the following lines set the default settings for the mainframe and the
c  pc versions.  comment out the set that does not apply.
c
      integer nzmax,nbzmax,ndat,nwamax,nwimax,nsum,nwtmax,ngtmax,ntbmax,
     .        normax,nhtmax,nscmax,ninmax,ncoef,noumax,nzmsq,ngdat,
     .        ngamax,nasmax,ncpmax,ngzmax,nvzmax,nszmax,nninmx,nninmy,
     .        nvarmx,nninmz,nhist,ntcmax,nacmax,npcmax,nvdat,nxdim,
     .        nvtmax,kmax,kadapt,imeth,iswitc
      real*8  epsad,omega
 
 
      parameter (      nzmax =    1)
      parameter (      nbzmax=    1)
      parameter (      nasmax=    1)
      parameter (      noumax=   45)
      parameter (      nszmax=    7)
      parameter (      nwamax=    6)
      parameter (      nwimax=    1)
      parameter (      ntcmax=    1)
      parameter (      npcmax=    1)
      parameter (      ncpmax=    1)
      parameter (      nwtmax=    5)
      parameter (      ngtmax=    1)
      parameter (      normax=    1)
      parameter (      ntbmax=    1)
      parameter (      nhtmax=    1)
      parameter (      ngamax=    1)
      parameter (      ngzmax=    1)
      parameter (      nvtmax=    2)
      parameter (      nvzmax=    2)
      parameter (      nscmax=    1)
      parameter (      ninmax=   17)
      parameter (      nvarmx=   18)
      parameter (      ncoef =   57)
      parameter (      nhist =   84)
c  note:  some of these parameters also appear in block data and their
c         values should be the same in both locations
 
      parameter (ndat=6*nzmax,nzmsq=nzmax*nzmax,ngdat=ngzmax*nzmax,
     .           nvdat=nvzmax*nzmax,nninmx=ninmax+1,nninmy=nninmx*12,
     .           nninmz=nninmx*120,nsum=nwamax+nwimax+ntcmax+ncpmax,
     .           nxdim=2*nzmax+nsum)
 
c  parameter for adsor(solver for equations system)
c  KADAPT : Anzahl Iterationsschritte, nach denen der Relaxa-
c           tionskoeffizient jeweils neu angepasst werden soll
c  EPSAD  : Gewuenschte Genauigkeit; die Iteration wird abgebro-
c           chen, wenn der relative Fehler in der Maximumnorm
c           kleiner oder gleich EPS ist
c  KMAX   : Maximalzahl der Iterationen
c  IMETH  : Schalter, der festlegt, welches Verfahren ausge-
c           fuehrt werden soll:
c           = 0, adaptives SOR-Verfahren
c           = 1, SOR-Verfahren mit festem Relaxationskoeffi-
c                zienten
c           = 2, Gauss-Seidel-Verfahren
c  ISWITC : Schalter, der festlegt, welches Konvergenzkriterium
c           geprueft werden soll:
c           = 0, keines
c           = 1, Zeilensummenkriterium
c           = 2, Spaltensummenkriterium
c           = 3, Kriterium von Schmidt-v. Mises
c  OMEGA  : Fuer den Fall IMETH=1 muss der optimale Relaxations-
c           koeffizient uebergeben werden, andernfalls nur der
c           Variablenname.
      parameter (kmax=5000,kadapt=50,epsad=1d-7,imeth=0,iswitc=0,
     .           omega=0.)
 
