29 November 2022   4:32:56.802 PM
 
CELL_TEST:
  FORTRAN90 version
  Test CELL.

TEST01
  Use a real cell array (vector of vectors) to store rows 3:7
  of Pascal's triangle.
 
  The row sizes:
 
         1:             4
         2:             5
         3:             6
         4:             7
         5:             8

  The storage for the cell array is   30
 
  The row offsets:
 
         1:             0
         2:             4
         3:             9
         4:            15
         5:            22
         6:            30
 
  Rows 3:7 of Pascal's Triangle:
 
    1     1.00000       3.00000       3.00000       1.00000    
    2     1.00000       4.00000       6.00000       4.00000       1.00000    
    3     1.00000       5.00000       10.0000       10.0000       5.00000    
          1.00000    
    4     1.00000       6.00000       15.0000       20.0000       15.0000    
          6.00000       1.00000    
    5     1.00000       7.00000       21.0000       35.0000       35.0000    
          21.0000       7.00000       1.00000    
 
  A(3,4) =    10.0000    
 
  A(4,*):
 
   1.00000       6.00000       15.0000       20.0000       15.0000    
   6.00000       1.00000    
 
  Retrieve an arbitrary list of items:
 
  A(1,2) =    3.00000    
  A(2,3) =    6.00000    
  A(5,4) =    35.0000    
  A(5,8) =    1.00000    

TEST02
  Use an integer cell array (vector of vectors) to store rows 3:7
  of Pascal's triangle.
 
  The row sizes:
 
         1:             4
         2:             5
         3:             6
         4:             7
         5:             8

  The storage for the cell array is   30
 
  The row offsets:
 
         1:             0
         2:             4
         3:             9
         4:            15
         5:            22
         6:            30
 
  Rows 3:7 of Pascal's Triangle:
 
    1        1      3      3      1
    2        1      4      6      4      1
    3        1      5     10     10      5      1
    4        1      6     15     20     15      6      1
    5        1      7     21     35     35     21      7      1
 
  A(3,4) =             10
 
  A(4,*):
 
           1           6          15          20          15
           6           1
 
  Retrieve an arbitrary list of items:
 
  A(1,2) =      3
  A(2,3) =      6
  A(5,4) =     35
  A(5,8) =      1
 
CELL_TEST:
  Normal end of execution.
 
29 November 2022   4:32:56.802 PM