20 October 2007   3:32:30.534 PM
 
TASK_DIVISION:
  FORTRAN90 version
 
  Demonstrate how to automate the assignment of
  T tasks among P processors.
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =        0
  P(last) =         3
 
  T =       23
  P =        4
 
 Processor     Tasks     First      Last
 
         0         6         1         6
         1         6         7        12
         2         5        13        17
         3         6        18        23
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =        1
  P(last) =         6
 
  T =       17
  P =        6
 
 Processor     Tasks     First      Last
 
         1         3         1         3
         2         3         4         6
         3         3         7         9
         4         3        10        12
         5         2        13        14
         6         3        15        17
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =        4
  P(last) =         6
 
  T =       17
  P =        3
 
 Processor     Tasks     First      Last
 
         4         6         1         6
         5         5         7        11
         6         6        12        17
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =       -2
  P(last) =         6
 
  T =        5
  P =        9
 
 Processor     Tasks     First      Last
 
        -2         1         1         1
        -1         0         2         1
         0         1         2         2
         1         0         3         2
         2         1         3         3
         3         0         4         3
         4         1         4         4
         5         0         5         4
         6         1         5         5
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =        0
  P(last) =         4
 
  T =        5
  P =        5
 
 Processor     Tasks     First      Last
 
         0         1         1         1
         1         1         2         2
         2         1         3         3
         3         1         4         4
         4         1         5         5
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =        0
  P(last) =         0
 
  T =        5
  P =        1
 
 Processor     Tasks     First      Last
 
         0         5         1         5
 
TASK_DIVIDE
  Divide T tasks among P processors.
 
  P(first) =        1
  P(last) =        17
 
  T =     1000
  P =       17
 
 Processor     Tasks     First      Last
 
         1        59         1        59
         2        59        60       118
         3        59       119       177
         4        59       178       236
         5        59       237       295
         6        59       296       354
         7        59       355       413
         8        59       414       472
         9        59       473       531
        10        59       532       590
        11        59       591       649
        12        58       650       707
        13        59       708       766
        14        58       767       824
        15        59       825       883
        16        58       884       941
        17        59       942      1000
 
TASK_DIVISION:
  Normal end of execution.
 
20 October 2007   3:32:30.539 PM