% make
        f77  -c transp.f
        f77 transp.o -o transp
        f77  -c partrans.f
        f77 partrans.o -o partrans -L/wrk/sbs/pvm3/lib/SGI5 -lfpvm3 -lpvm3

% transp
 Square matrix dimension:           12
 A=
    1   0   0   0   0   0   0   0   0   0   0   0
    2   3   0   0   0   0   0   0   0   0   0   0
    4   5   6   0   0   0   0   0   0   0   0   0
    7   8   9  10   0   0   0   0   0   0   0   0
   11  12  13  14  15   0   0   0   0   0   0   0
   16  17  18  19  20  21   0   0   0   0   0   0
   22  23  24  25  26  27  28   0   0   0   0   0
   29  30  31  32  33  34  35  36   0   0   0   0
   37  38  39  40  41  42  43  44  45   0   0   0
   46  47  48  49  50  51  52  53  54  55   0   0
   56  57  58  59  60  61  62  63  64  65  66   0
   67  68  69  70  71  72  73  74  75  76  77  78
 A-transpose=
    1   2   4   7  11  16  22  29  37  46  56  67
    0   3   5   8  12  17  23  30  38  47  57  68
    0   0   6   9  13  18  24  31  39  48  58  69
    0   0   0  10  14  19  25  32  40  49  59  70
    0   0   0   0  15  20  26  33  41  50  60  71
    0   0   0   0   0  21  27  34  42  51  61  72
    0   0   0   0   0   0  28  35  43  52  62  73
    0   0   0   0   0   0   0  36  44  53  63  74
    0   0   0   0   0   0   0   0  45  54  64  75
    0   0   0   0   0   0   0   0   0  55  65  76
    0   0   0   0   0   0   0   0   0   0  66  77
    0   0   0   0   0   0   0   0   0   0   0  78

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

% partrans 
[t40003] BEGIN
[t40004] BEGIN
[t40005] BEGIN
[t40006] BEGIN
[t40007] BEGIN
   0: Square matrix dimension:    12
   0: NPROC=    6
   0: A( 1: 2 ,  1:12)=
   0:   1   0   0   0   0   0   0   0   0   0   0   0
   0:   2   3   0   0   0   0   0   0   0   0   0   0
   3: A( 7: 8 ,  1:12)=
   3:  22  23  24  25  26  27  28   0   0   0   0   0
   3:  29  30  31  32  33  34  35  36   0   0   0   0
   3: A-transpose( 7: 8 ,  1:12)=
   3:   0   0   0   0   0   0  28  35  43  52  62  73
   3:   0   0   0   0   0   0   0  36  44  53  63  74
   0: A-transpose( 1: 2 ,  1:12)=
   0:   1   2   4   7  11  16  22  29  37  46  56  67
   0:   0   3   5   8  12  17  23  30  38  47  57  68
   4: A( 9:10 ,  1:12)=
   4:  37  38  39  40  41  42  43  44  45   0   0   0
   4:  46  47  48  49  50  51  52  53  54  55   0   0
   4: A-transpose( 9:10 ,  1:12)=
   4:   0   0   0   0   0   0   0   0  45  54  64  75
   4:   0   0   0   0   0   0   0   0   0  55  65  76
   2: A( 5: 6 ,  1:12)=
   2:  11  12  13  14  15   0   0   0   0   0   0   0
   2:  16  17  18  19  20  21   0   0   0   0   0   0
   2: A-transpose( 5: 6 ,  1:12)=
   2:   0   0   0   0  15  20  26  33  41  50  60  71
   2:   0   0   0   0   0  21  27  34  42  51  61  72
   1: A( 3: 4 ,  1:12)=
   1:   4   5   6   0   0   0   0   0   0   0   0   0
   1:   7   8   9  10   0   0   0   0   0   0   0   0
   1: A-transpose( 3: 4 ,  1:12)=
   1:   0   0   6   9  13  18  24  31  39  48  58  69
   1:   0   0   0  10  14  19  25  32  40  49  59  70
   5: A(11:12 ,  1:12)=
   5:  56  57  58  59  60  61  62  63  64  65  66   0
   5:  67  68  69  70  71  72  73  74  75  76  77  78
   5: A-transpose(11:12 ,  1:12)=
   5:   0   0   0   0   0   0   0   0   0   0  66  77
   5:   0   0   0   0   0   0   0   0   0   0   0  78

% pvm
pvmd already running.
pvm> halt

===
   0: Square matrix dimension:    12
   0: NPROC=    6

   0: A( 1: 2 ,  1:12)=
   0:   1   0   0   0   0   0   0   0   0   0   0   0
   0:   2   3   0   0   0   0   0   0   0   0   0   0
   1: A( 3: 4 ,  1:12)=
   1:   4   5   6   0   0   0   0   0   0   0   0   0
   1:   7   8   9  10   0   0   0   0   0   0   0   0
   2: A( 5: 6 ,  1:12)=
   2:  11  12  13  14  15   0   0   0   0   0   0   0
   2:  16  17  18  19  20  21   0   0   0   0   0   0
   3: A( 7: 8 ,  1:12)=
   3:  22  23  24  25  26  27  28   0   0   0   0   0
   3:  29  30  31  32  33  34  35  36   0   0   0   0
   4: A( 9:10 ,  1:12)=
   4:  37  38  39  40  41  42  43  44  45   0   0   0
   4:  46  47  48  49  50  51  52  53  54  55   0   0
   5: A(11:12 ,  1:12)=
   5:  56  57  58  59  60  61  62  63  64  65  66   0
   5:  67  68  69  70  71  72  73  74  75  76  77  78

   0: A-transpose( 1: 2 ,  1:12)=
   0:   1   2   4   7  11  16  22  29  37  46  56  67
   0:   0   3   5   8  12  17  23  30  38  47  57  68
   1: A-transpose( 3: 4 ,  1:12)=
   1:   0   0   6   9  13  18  24  31  39  48  58  69
   1:   0   0   0  10  14  19  25  32  40  49  59  70
   2: A-transpose( 5: 6 ,  1:12)=
   2:   0   0   0   0  15  20  26  33  41  50  60  71
   2:   0   0   0   0   0  21  27  34  42  51  61  72
   3: A-transpose( 7: 8 ,  1:12)=
   3:   0   0   0   0   0   0  28  35  43  52  62  73
   3:   0   0   0   0   0   0   0  36  44  53  63  74
   4: A-transpose( 9:10 ,  1:12)=
   4:   0   0   0   0   0   0   0   0  45  54  64  75
   4:   0   0   0   0   0   0   0   0   0  55  65  76
   5: A-transpose(11:12 ,  1:12)=
   5:   0   0   0   0   0   0   0   0   0   0  66  77
   5:   0   0   0   0   0   0   0   0   0   0   0  78
===
