consts.inc

shpf 1.9一个并行编译器

!------ 'Global' constants - i.e. array dimensions:

  INTEGER    nt,  nx,  nsites,  ncmplx,  ncolor,  ngauge,  ndir
  PARAMETER (nt = 16,  nx = 8,   nsites = nt * nx * nx * nx,      &
             ncmplx = 2,  ncolor = 2,  ngauge = 4,  ndir = 4 )

!------ 'Switch' or 'selector' type constants:

  INTEGER    tdir,  xdir,  ydir,  zdir,  even,  odd,             &
             possense,  negsense,  plus,  minus,  re,  im
  PARAMETER (tdir = 1,    xdir = 2,    ydir = 3,    zdir = 4,    &
             even = 0,     odd = 1, possense= 0, negsense= 1,    &
             plus = 0,   minus = 1,      re = 1,      im = 2 )

!------ Run parameters:

  INTEGER    nsweep
  PARAMETER (nsweep = 2)

  REAL       h,  halfh,  mquark,  msq
  PARAMETER (h = 0.01,  halfh = 0.005,  mquark = 0.2,  msq = 0.04)

  INTEGER    maxiter,  sigfigs
  PARAMETER (maxiter = 1000,  sigfigs = 7)