changes

shpf 1.9一个并行编译器

	Changes for compilation with Southampton HPF system.
	----------------------------------------------------
		  dbc, Fri 19 May 11:10:09 1995
		  -----------------------------


Create `proc.inc' file.

Changes to `fft1.inc'...

  2) Move parameter definitions of `LOGP', `NPROC' to `proc.inc'.
 

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

  1) Move type declarations of

       LOGN,NITER,LOGNIN,NTOTAL,NTOTIN,NPART

     to fft1.inc, and type declarations of 

       LOGP,NPROC

     and HPF definition of processor arrangement `LINE' to `proc.inc'.

  2) Include `proc.inc'.

  3) Declare alignment dummies `I'.

  4) Change erroneous call

       CALL INGENB(INDEX,NTOTIN,LOGN)

     to

       CALL INGENB(INDEX,NTOTIN,LOGN - LOGP)

     [I *guess* this is what was intended.  The original version gives
     an out-of-bounds error]


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

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


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

  1) Delete declarations of

       LOGN,LOGP,NITER,LOGNIN,NTOTAL,NPROC,NTOTIN,NPART

  2) Include `proc.inc'.

  3) Delete unnecessary INHERIT FR directive

  4) Add ``ONTO LINE'' clause to ``DISTRIBUTE FR'' directive.


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

  1) Delete declarations of

       LOGN,LOGP,NITER,LOGNIN,NTOTAL,NPROC,NTOTIN,NPART

  2) Include `proc.inc'.

  3) Delete unnecessary INHERIT FR directive

  4) Change erroneous ``DISTRIBUTE G(BLOCK)'' directive to
     ``DISTRIBUTE G(BLOCK, *)''.

  5) Add ``ONTO LINE'' clause to ``DISTRIBUTE'' directives.

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

  1) Include `proc.inc'.

  2) Change erroneous references to FINTR, FINTI to references to
     FR, FI.

  3) Delete unnecessary INHERIT FR directive

  4) Add ``ONTO LINE'' clause to ``DISTRIBUTE'' directive.


Thurs 20 June 1996 (J.Merlin)
-----------------------------

Replaced original `timer.f' with 'dtimer.f90'.


Made associated changes to `Makefile'.