changes

来自「shpf 1.9一个并行编译器」· 代码 · 共 79 行

Wed 17 May 16:00:43 1995
------------------------

Create `procs.inc' and declare HPF processor arrangements `GRID' and
`LINE' in it.

Changes to `md1.f', renamed `md1.hpf'...

  1) Move all code from main program, apart from assignments to
     DENS, RCUT, NC, NATM, SIGMA, M, MX, MY, MZ, to new subroutine
     `DORUN'.

  2) In `DORUN', replace declarations of allocatable arrays RX, RY, RZ,
     VX, VY, VZ, FX, FY, FZ by automatic arrays of length `NATM'.
     Replace declarations of allocatable array `NATMCL' by automatic
     array of shape (MX, MY, MZ).  Replace declarations of allocatable
     arrays IDL, FXL, FYL, FZL, RXL, RYL, RZL by automatic array of
     shape (LMAX, MX, MY, MZ).  Replace declarations of allocatable
     arrays DSPXAR, DSPYAR, DSPZAR by arrays of automatic shapes (13,
     MX), (13, MY), (13, MZ).

     Delete the allocate statement for these arrays.

  3) Declare alignment dummies I, X, Y, Z in various places.

  4) Include `procs.inc' wherever there are DISTRIBUTE directives.

     Add ``ONTO LINE'' or ``ONTO GRID'' or ``ONTO * LINE'' or
     ``ONTO * GRID'' clauses to DISTRIBUTE directives, as appropriate.

  5) Changed DATA statements in `XSRAND' to PARAMETER statements
     (DATA not supported).

  6) Declare and initialise vectors `SHP1D' and `SHP3D' in `MKLIST'
     and 'MKVECT', to replace expression (/ NCELLS /) and
     (/ MX, MY, MZ /) where they appear (array constructors not
     supported).

  7) Replace erroneous alignment

CHPF$   ALIGN WITH NATMCL ::
CHPF$1    RXN (*, :, :, :), RYN (*, :, :, :), RZN (*, :, :, :),
CHPF$2    FXN (*, :, :, :), FYN (*, :, :, :), FZN (*, :, :, :)

      with series of simple allignments.

  8) Replace lines

          DSPX = SPREAD (SPREAD (DSPXAR (NABOR, 1 : MX), 2, MY), 3, MZ)
          DSPY = SPREAD (SPREAD (DSPYAR (NABOR, 1 : MY), 1, MX), 3, MZ)
          DSPZ = SPREAD (SPREAD (DSPZAR (NABOR, 1 : MZ), 1, MX), 2, MY)

      with lines

          DSPTMP1 = SPREAD (DSPXAR (NABOR, 1 : MX), 2, MY)
          DSPX = SPREAD (DSPTMP1, 3, MZ)
          DSPTMP2 = SPREAD (DSPYAR (NABOR, 1 : MY), 1, MX)
          DSPY = SPREAD (DSPTMP2, 3, MZ)
          DSPTMP3 = SPREAD (DSPZAR (NABOR, 1 : MZ), 1, MX)
          DSPZ = SPREAD (DSPTMP3, 2, MY)

      and declared temporary arrays (appearance of SPREAD anywhere
      other than RHS of assignment not implemented).

  9) Changed IMPLICIT CHARACTER (A-Z) with IMPLICIT NONE
     (CHARACTER variables no longer supported).

Changes to `header.f', renamed `header.hpf'...

  1) Comment out call to `SETDAT' (`DATE_AND_TIME' not implemented).

Thurs 20 June 1996 (J. Merlin)
------------------------------
Replaced original `timer.f' by 'dtimer.f90'.

Made associated changes to `Makefile'.