***********************************************************************
*     ץ 3D-box-mpi ˤĤ               By в 2002/05/07
***********************************************************************
-----------------------------------------------------------------------

-----------------------------------------------------------------------

  Υץץ, ΤȤǤ3󰵽ήΤ
ȯŸԤץץ 3D-box  p3pack ǤϤʤ, MPI
󲽤줿 p3pack-mpi 򤷤ƽľΤǤ.

ѿ䥵֥롼ޤʰ̣ϥȹԤȤդƤ뤬, º
ˤΥץѤƻȤˤ, p3pack-mpi  tdpack Ѥ
򻲾ȤΤ.

-----------------------------------------------------------------------

-----------------------------------------------------------------------

  - Makefile: ᡼ե
  
  - euler-mpi.f: 
     ǥץ. Ǵ = 0, ʤ EulerλȯŸԤ, 
     ¸̤Ǥ륨ͥ륮ȥإꥷƥ¸å.

  - navier-stokes-mpi.f:
     ǥץ. Navier-StokesλȯŸԤ.
     ȿʬؤζON/OFFˤ, /ή¸Ǥ褦
     Ƥ.
     
     ʤ, ǡνϤ˺ݤƤ, ʬ֤줿ǡץ0
     󤹤뤳Ȥˤ, ../3D-box/navier-stokes.f Ʊ֤ͤ̾
     ڥȥǡϤ褦ˤƤΤ, ǡβϥץ
     ΥץȤƤ  ../3D-box/navier-stokes-graph.f Τޤ޻Ȥ.
     
     ⤷ȿ礭¸ʤɤǤΤ褦ʽϤǤϥե뤬
     礭ʤꤹ褦ʾ, ʬ֤ΤޤޤΥǡƥץ
     ̤˽ϤǤǽ⤢뤬, Τ褦ʾˤĤƤ
     Ƽɬפ˱ƹפ줿.
     
  - test-smga-gmsa.f:
     ƥȥץ. ڥȥǡͿ P3PACK  P3PACK-MPI
     εѴ/Ѵ롼
      P3S2GA -> P3GMSA -> P3SMGA -> P3G2SA 
     ν˸ߤŬѤƸͤ뤫ΥåԤ. Ϥ
     OK.
     
  - test-smgb-gmsb.f:
     ƥȥץ. ڥȥǡͿ P3PACK-MPI
     εѴ/Ѵ롼 P3SMGB -> P3GMSB 
     νŬѤƸͤ뤫ΥåԤ. Ϥ
     OK.
     
  - test-cmsv.f:
     ƥȥץ. ٥٥ȥ2ʬΥڥȥǡͿ,
     P3CMSV ǥڥȥ뤫饨ͥ륮ȥإꥷƥ׻ͤ,
     P3GMTU, P3GMTO ®٥٥ȥ뤪ӱ٥٥ȥ3ʬΥڥȥ
     ǡƤ P3SMGB ǳʻͤѴΤ
     ᤿ͥ륮ȥإꥷƥͤӤ.
     ͤOK.
     
-----------------------------------------------------------------------
ˡ
-----------------------------------------------------------------------

 MakefileΥޥʬδĶ˹礻Ŭ˽, 

  % make (ץ̾).out

ˤäƼ¹Էե뤬ǤΤ, ¹Ԥ뤳. 㤨,
嵭 euler.f Ǽ¸Ԥˤ,

  % make euler-mpi.out
  % mpirun -np 3 ./euler-mpi.out

ʤɤȤ뤳. (MPIΥץμ¹ˡˤĤƤϳƽϤMPI
ޥ˥奢򻲾Ȥ뤳)

-----------------------------------------------------------------------

-----------------------------------------------------------------------

  ܥץץǤ, եåɽġȤ, Ǿ饤
ѤƤΤ, ѥŬ󥯤뤳.

