
% make
        f77 -c laplace.f
        f77 laplace.o -o laplace
        f77 -c parlapl.f
        f77 parlapl.o -o parlapl -L/wrk/sbs/pvm3/lib/SGI5 -lfpvm3 -lpvm3
        f77 -c gparlapl.f
        f77 gparlapl.o -o gparlapl -L/wrk/sbs/pvm3/lib/SGI5 -lfpvm3 -lgpvm3 -lpvm3

% laplace
 Laplace: System-size mxn=           6           6
  Iteration    Error-norm2
         25   1.236590    
         50  6.7182001E-03
         75  3.6537772E-05
        100  1.9871529E-07
        125  1.0807383E-09
        126  8.7728376E-10 <   1.0000000E-09
 Solution T: (# of iters =         126)
    0.00   0.00   0.00   0.00   0.00   0.00   0.00   0.00
    0.00   2.29   4.08   5.05   5.05   4.08   2.29   0.00
    0.00   5.06   8.98  11.08  11.08   8.98   5.06   0.00
    0.00   8.98  15.71  19.20  19.20  15.71   8.98   0.00
    0.00  15.16  25.67  30.80  30.80  25.67  15.16   0.00
    0.00  25.97  41.02  47.54  47.54  41.02  25.97   0.00
    0.00  47.71  64.89  70.81  70.81  64.89  47.71   0.00
   50.00 100.00 100.00 100.00 100.00 100.00 100.00  50.00

% pvm hostfile
pvm> conf
1 host, 1 data format
                    HOST     DTID     ARCH   SPEED
                  crocus    40000     SGI5    1000
pvm> quit
pvmd still running.

% parlapl
[t40003] BEGIN
[t40004] BEGIN
    0: Laplace: System-size mxn & NPROC=     6     6     3
    0: Iteration    Error-norm2
    0:        25   1.236590    
    0:        50  6.7182001E-03
    0:        75  3.6537772E-05
    0:       100  1.9871529E-07
    0:       125  1.0807383E-09
    0:       126  8.7728376E-10 <   1.0000000E-09
    0: Solution T: (# of iters =       126)
    0:   0.00  25.97  41.02  47.54  47.54  41.02  25.97   0.00
    0:   0.00  47.71  64.89  70.81  70.81  64.89  47.71   0.00
    0:  50.00 100.00 100.00 100.00 100.00 100.00 100.00  50.00
    2:   0.00   0.00   0.00   0.00   0.00   0.00   0.00   0.00
    2:   0.00   2.29   4.08   5.05   5.05   4.08   2.29   0.00
    2:   0.00   5.06   8.98  11.08  11.08   8.98   5.06   0.00
    1:   0.00   8.98  15.71  19.20  19.20  15.71   8.98   0.00
    1:   0.00  15.16  25.67  30.80  30.80  25.67  15.16   0.00

% pvm
pvmd already running.
pvm> halt

% cat /tmp/pvml.127
[t80040000] ready  3.3.6   Fri Feb 10 13:26:58 1995
[t80040000] dm_halt() from (crocus), halting...
[t80040000] work() pvmd halting
[t80040000] pvmbailout(0)


=== sorted parallel output (done by using an editor!)===
    0: Laplace: System-size mxn & NPROC=     6     6     3
    0: Iteration    Error-norm2
    0:        25   1.236590    
    0:        50  6.7182001E-03
    0:        75  3.6537772E-05
    0:       100  1.9871529E-07
    0:       125  1.0807383E-09
    0:       126  8.7728376E-10 <   1.0000000E-09
    0: Solution T: (# of iters =       126)
    2:   0.00   0.00   0.00   0.00   0.00   0.00   0.00   0.00
    2:   0.00   2.29   4.08   5.05   5.05   4.08   2.29   0.00
    2:   0.00   5.06   8.98  11.08  11.08   8.98   5.06   0.00
    1:   0.00   8.98  15.71  19.20  19.20  15.71   8.98   0.00
    1:   0.00  15.16  25.67  30.80  30.80  25.67  15.16   0.00
    0:   0.00  25.97  41.02  47.54  47.54  41.02  25.97   0.00
    0:   0.00  47.71  64.89  70.81  70.81  64.89  47.71   0.00
    0:  50.00 100.00 100.00 100.00 100.00 100.00 100.00  50.00
=== end ===


% pvm hostfile.grp
pvm> conf
1 host, 1 data format
                    HOST     DTID     ARCH   SPEED
                  crocus    40000     SGI5    1000
pvm> ^D
pvmd still running.

% gparlapl
[t40004] BEGIN
[t40005] BEGIN
    0: Laplace(group): System-size mxn & NPROC=     6     6     3
    0: Iteration    Error-norm2
    0:        25   1.236590    
    0:        50  6.7182001E-03
    0:        75  3.6537772E-05
    0:       100  1.9871529E-07
    0:       125  1.0807383E-09
    0:       126  8.7728376E-10 <   1.0000000E-09
    0: Solution T: (# of iters =       126)
    0:   0.00  25.97  41.02  47.54  47.54  41.02  25.97   0.00
    0:   0.00  47.71  64.89  70.81  70.81  64.89  47.71   0.00
    0:  50.00 100.00 100.00 100.00 100.00 100.00 100.00  50.00
    1:   0.00   8.98  15.71  19.20  19.20  15.71   8.98   0.00
    1:   0.00  15.16  25.67  30.80  30.80  25.67  15.16   0.00
    2:   0.00   0.00   0.00   0.00   0.00   0.00   0.00   0.00
    2:   0.00   2.29   4.08   5.05   5.05   4.08   2.29   0.00
    2:   0.00   5.06   8.98  11.08  11.08   8.98   5.06   0.00

% pvm
pvmd already running.
pvm> ps -a
                    HOST      TID   FLAG 0x COMMAND
                  crocus    40003     6/c,f pvmgs       
pvm> spawn -> gparlapl
[1]
1 successful
t40007
pvm> [1:t40007] [t40008] BEGIN
[1:t40007] [t40009] BEGIN
[1:t40007]     0: Laplace(group): System-size mxn & NPROC=     6     6     3
[1:t40007]     0: Iteration    Error-norm2
[1:t40007]     0:        25   1.236590    
[1:t40007]     0:        50  6.7182001E-03
[1:t40007]     0:        75  3.6537772E-05
[1:t40007]     0:       100  1.9871529E-07
[1:t40007]     0:       125  1.0807383E-09
[1:t40007]     0:       126  8.7728376E-10 <   1.0000000E-09
[1:t40007]     0: Solution T: (# of iters =       126)
[1:t40007]     0:   0.00  25.97  41.02  47.54  47.54  41.02  25.97   0.00
[1:t40007]     0:   0.00  47.71  64.89  70.81  70.81  64.89  47.71   0.00
[1:t40007]     0:  50.00 100.00 100.00 100.00 100.00 100.00 100.00  50.00
[1:t40007]     1:   0.00   8.98  15.71  19.20  19.20  15.71   8.98   0.00
[1:t40007]     1:   0.00  15.16  25.67  30.80  30.80  25.67  15.16   0.00
[1:t40007]     2:   0.00   0.00   0.00   0.00   0.00   0.00   0.00   0.00
[1:t40007]     2:   0.00   2.29   4.08   5.05   5.05   4.08   2.29   0.00
[1:t40007]     2:   0.00   5.06   8.98  11.08  11.08   8.98   5.06   0.00
[1:t40007] EOF
[1] finished
pvm> halt

% cat /tmp/pvml.127
[t80040000] ready  3.3.6   Fri Feb 10 15:28:05 1995
[t80040000] dm_halt() from (crocus), halting...
[t80040000] work() pvmd halting
[t80040000] pvmbailout(0)
