gauge.inc

shpf 1.9一个并行编译器

  REAL, DIMENSION (nt/2, nx, nx, nx, ngauge, ndir, 0:1)  ::  gauge
  COMMON / links / gauge

!HPF$ ALIGN (*, :, :, :, *, *, *) WITH tmpl :: gauge