proc.inc

shpf 1.9一个并行编译器

      INTEGER LOGP

      PARAMETER (LOGP=2)

!---> USER SUPPLIED PARAMETERS:
!
!       LOGP    THE POWER OF 2 OF THE TOTAL NUMBER OF PROCESSORS,
!               I.E. THE NUMBER OF PROCESSORS = 2**LOGP
!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

      INTEGER NXPROC, NYPROC, NZPROC
      INTEGER LNX, LNY, LNZ

      PARAMETER (LNX=LOGP/3, NXPROC=2**LNX)
      PARAMETER (LNY=(LOGP-LNX)/2, NYPROC=2**LNY)
      PARAMETER (LNZ=LOGP-LNX-LNY, NZPROC=2**LNZ)

!HPF$ PROCESSORS FARM(NXPROC,NYPROC,NZPROC)