3 September 2021 12:38:55.787 PM blend_test() FORTRAN90 version Test blend(). blend_101_test(): blend_101() blends endpoint values into a list. Initial data list 1: 1.0000000 2: 0.0000000 3: 0.0000000 4: 0.0000000 5: 0.0000000 6: 0.0000000 7: 0.0000000 8: 0.0000000 9: 0.0000000 10: 10.000000 Interpolated data list 1: 1.0000000 2: 2.0000000 3: 3.0000000 4: 4.0000000 5: 5.0000000 6: 6.0000000 7: 7.0000000 8: 8.0000000 9: 9.0000000 10: 10.000000 blend_102_test(): blend_102() blends corner values into a table. Initial data array Col 1 2 3 4 5 Row 1 2.00000 0.00000 0.00000 0.00000 6.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 0.00000 0.00000 0.00000 0.00000 0.00000 4 0.00000 0.00000 0.00000 0.00000 0.00000 5 6.00000 0.00000 0.00000 0.00000 10.0000 Interpolated data array Col 1 2 3 4 5 Row 1 2.00000 3.00000 4.00000 5.00000 6.00000 2 3.00000 4.00000 5.00000 6.00000 7.00000 3 4.00000 5.00000 6.00000 7.00000 8.00000 4 5.00000 6.00000 7.00000 8.00000 9.00000 5 6.00000 7.00000 8.00000 9.00000 10.0000 blend_103_test(): blend_103() blends corner values into a table. Initial data array K = 1 1 2 3 4 5 1 3.00000 0.00000 0.00000 0.00000 7.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 5.00000 0.00000 0.00000 0.00000 9.00000 K = 2 1 2 3 4 5 1 0.00000 0.00000 0.00000 0.00000 0.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 0.00000 0.00000 0.00000 0.00000 0.00000 K = 3 1 2 3 4 5 1 0.00000 0.00000 0.00000 0.00000 0.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 0.00000 0.00000 0.00000 0.00000 0.00000 K = 4 1 2 3 4 5 1 6.00000 0.00000 0.00000 0.00000 10.0000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 8.00000 0.00000 0.00000 0.00000 12.0000 Interpolated data array K = 1 1 2 3 4 5 1 3.00000 4.00000 5.00000 6.00000 7.00000 2 4.00000 5.00000 6.00000 7.00000 8.00000 3 5.00000 6.00000 7.00000 8.00000 9.00000 K = 2 1 2 3 4 5 1 4.00000 5.00000 6.00000 7.00000 8.00000 2 5.00000 6.00000 7.00000 8.00000 9.00000 3 6.00000 7.00000 8.00000 9.00000 10.0000 K = 3 1 2 3 4 5 1 5.00000 6.00000 7.00000 8.00000 9.00000 2 6.00000 7.00000 8.00000 9.00000 10.0000 3 7.00000 8.00000 9.00000 10.0000 11.0000 K = 4 1 2 3 4 5 1 6.00000 7.00000 8.00000 9.00000 10.0000 2 7.00000 8.00000 9.00000 10.0000 11.0000 3 8.00000 9.00000 10.0000 11.0000 12.0000 blend_112_test(): blend_112() blends side values into a table. Initial data array Col 1 2 3 4 5 Row 1 2.00000 3.00000 4.00000 5.00000 6.00000 2 3.00000 0.00000 0.00000 0.00000 7.00000 3 4.00000 0.00000 0.00000 0.00000 8.00000 4 5.00000 0.00000 0.00000 0.00000 9.00000 5 6.00000 7.00000 8.00000 9.00000 10.0000 Interpolated data array Col 1 2 3 4 5 Row 1 2.00000 3.00000 4.00000 5.00000 6.00000 2 3.00000 4.00000 5.00000 6.00000 7.00000 3 4.00000 5.00000 6.00000 7.00000 8.00000 4 5.00000 6.00000 7.00000 8.00000 9.00000 5 6.00000 7.00000 8.00000 9.00000 10.0000 blend_113_test(): blend_113() blends edge values into a table. Initial data array K = 1 1 2 3 4 5 1 3.00000 4.00000 5.00000 6.00000 7.00000 2 4.00000 0.00000 0.00000 0.00000 8.00000 3 5.00000 6.00000 7.00000 8.00000 9.00000 K = 2 1 2 3 4 5 1 4.00000 0.00000 0.00000 0.00000 8.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 6.00000 0.00000 0.00000 0.00000 10.0000 K = 3 1 2 3 4 5 1 5.00000 0.00000 0.00000 0.00000 9.00000 2 0.00000 0.00000 0.00000 0.00000 0.00000 3 7.00000 0.00000 0.00000 0.00000 11.0000 K = 4 1 2 3 4 5 1 6.00000 7.00000 8.00000 9.00000 10.0000 2 7.00000 0.00000 0.00000 0.00000 11.0000 3 8.00000 9.00000 10.0000 11.0000 12.0000 Interpolated data array K = 1 1 2 3 4 5 1 3.00000 4.00000 5.00000 6.00000 7.00000 2 4.00000 5.00000 6.00000 7.00000 8.00000 3 5.00000 6.00000 7.00000 8.00000 9.00000 K = 2 1 2 3 4 5 1 4.00000 5.00000 6.00000 7.00000 8.00000 2 5.00000 6.00000 7.00000 8.00000 9.00000 3 6.00000 7.00000 8.00000 9.00000 10.0000 K = 3 1 2 3 4 5 1 5.00000 6.00000 7.00000 8.00000 9.00000 2 6.00000 7.00000 8.00000 9.00000 10.0000 3 7.00000 8.00000 9.00000 10.0000 11.0000 K = 4 1 2 3 4 5 1 6.00000 7.00000 8.00000 9.00000 10.0000 2 7.00000 8.00000 9.00000 10.0000 11.0000 3 8.00000 9.00000 10.0000 11.0000 12.0000 blend_123_test(): blend_123() blends face values into a table. Initial data array K = 1 1 2 3 4 5 1 3.00000 4.00000 5.00000 6.00000 7.00000 2 4.00000 5.00000 6.00000 7.00000 8.00000 3 5.00000 6.00000 7.00000 8.00000 9.00000 K = 2 1 2 3 4 5 1 4.00000 5.00000 6.00000 7.00000 8.00000 2 5.00000 0.00000 0.00000 0.00000 9.00000 3 6.00000 7.00000 8.00000 9.00000 10.0000 K = 3 1 2 3 4 5 1 5.00000 6.00000 7.00000 8.00000 9.00000 2 6.00000 0.00000 0.00000 0.00000 10.0000 3 7.00000 8.00000 9.00000 10.0000 11.0000 K = 4 1 2 3 4 5 1 6.00000 7.00000 8.00000 9.00000 10.0000 2 7.00000 8.00000 9.00000 10.0000 11.0000 3 8.00000 9.00000 10.0000 11.0000 12.0000 Interpolated data array K = 1 1 2 3 4 5 1 3.00000 4.00000 5.00000 6.00000 7.00000 2 4.00000 5.00000 6.00000 7.00000 8.00000 3 5.00000 6.00000 7.00000 8.00000 9.00000 K = 2 1 2 3 4 5 1 4.00000 5.00000 6.00000 7.00000 8.00000 2 5.00000 6.00000 7.00000 8.00000 9.00000 3 6.00000 7.00000 8.00000 9.00000 10.0000 K = 3 1 2 3 4 5 1 5.00000 6.00000 7.00000 8.00000 9.00000 2 6.00000 7.00000 8.00000 9.00000 10.0000 3 7.00000 8.00000 9.00000 10.0000 11.0000 K = 4 1 2 3 4 5 1 6.00000 7.00000 8.00000 9.00000 10.0000 2 7.00000 8.00000 9.00000 10.0000 11.0000 3 8.00000 9.00000 10.0000 11.0000 12.0000 blend_i_0d1_test(): blend_i_0d1() interpolates data in a vector. X(1) = 100.000 X( 5)= 120.000 Interpolated values: 1 100.000 2 105.000 3 110.000 4 115.000 5 120.000 blend_ij_0d1_test(): blend_ij_0d1() interpolates data in a table, from corner data. The table is 5 rows by 4 columns. Values interpolated by blend_ij_0d1: 0.00000 0.00000 0.00000 0.00000 0.00000 1.66667 3.33333 5.00000 0.00000 3.33333 6.66667 10.0000 0.00000 5.00000 10.0000 15.0000 0.00000 6.66667 13.3333 20.0000 blend_ij_1d1_test(): blend_ij_1d1() interpolates data in a table, from edge data. The table is 5 rows by 4 columns. Values interpolated by blend_ij_1d1: 0.00000 0.00000 0.00000 0.00000 0.00000 -1.06481 -1.01852 1.25000 0.00000 -1.29630 -0.370370 5.00000 0.00000 -0.694444 1.94444 11.2500 0.00000 0.740741 5.92593 20.0000 blend_ij_w_1d1_test(): blend_ij_w_1d1() uses weighted blending to fill in the interior of a table. R S X Y 0.000 0.000 0.000 0.000 0.000 0.6250E-01 0.000 0.1875 0.000 0.2500 0.000 0.7500 0.000 0.5625 0.000 1.688 0.000 1.000 0.000 3.000 0.6250E-01 0.000 0.000 0.000 0.6250E-01 0.6250E-01 0.1838E-01 0.1866 0.6250E-01 0.2500 0.7351E-01 0.7464 0.6250E-01 0.5625 0.1654 1.679 0.6250E-01 1.000 0.2941 2.986 0.2500 0.000 0.000 0.000 0.2500 0.6250E-01 0.7175E-01 0.1732 0.2500 0.2500 0.2870 0.6929 0.2500 0.5625 0.6458 1.559 0.2500 1.000 1.148 2.772 0.5625 0.000 0.000 0.000 0.5625 0.6250E-01 0.1449 0.1189 0.5625 0.2500 0.5798 0.4758 0.5625 0.5625 1.304 1.071 0.5625 1.000 2.319 1.903 1.000 0.000 0.000 0.000 1.000 0.6250E-01 0.1875 0.000 1.000 0.2500 0.7500 0.000 1.000 0.5625 1.688 0.000 1.000 1.000 3.000 0.000 blend_ijk_0d1_test(): blend_ijk_0d1() interpolates data in a table, from corner data. The table is 4 rows by 3 columns by 3 layers. Data given to blend_ijk_0d1: Layer K = 1 0.00000 0.00000 18.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 18.0000 0.00000 36.0000 Layer K = 2 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 Layer K = 3 18.0000 0.00000 36.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 36.0000 0.00000 54.0000 Values interpolated by blend_ijk_0d1: Layer K = 1 0.00000 9.00000 18.0000 6.00000 15.0000 24.0000 12.0000 21.0000 30.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 15.0000 24.0000 33.0000 21.0000 30.0000 39.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 24.0000 33.0000 42.0000 30.0000 39.0000 48.0000 36.0000 45.0000 54.0000 Exact data: Layer K = 1 0.00000 9.00000 18.0000 2.00000 11.0000 20.0000 8.00000 17.0000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 11.0000 20.0000 29.0000 17.0000 26.0000 35.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 29.0000 38.0000 26.0000 35.0000 44.0000 36.0000 45.0000 54.0000 blend_ijk_1d1_test(): blend_ijk_1d1() interpolates data in a table, from edge data. The table is 4 rows by 3 columns by 3 layers. Data given to blend_ijk_1d1: Layer K = 1 0.00000 9.00000 18.0000 2.00000 0.00000 20.0000 8.00000 0.00000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 0.00000 27.0000 0.00000 0.00000 0.00000 0.00000 0.00000 0.00000 27.0000 0.00000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 0.00000 38.0000 26.0000 0.00000 44.0000 36.0000 45.0000 54.0000 Values interpolated by blend_ijk_1d1: Layer K = 1 0.00000 9.00000 18.0000 2.00000 11.0000 20.0000 8.00000 17.0000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 11.0000 20.0000 29.0000 17.0000 26.0000 35.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 29.0000 38.0000 26.0000 35.0000 44.0000 36.0000 45.0000 54.0000 Exact data: Layer K = 1 0.00000 9.00000 18.0000 2.00000 11.0000 20.0000 8.00000 17.0000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 11.0000 20.0000 29.0000 17.0000 26.0000 35.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 29.0000 38.0000 26.0000 35.0000 44.0000 36.0000 45.0000 54.0000 blend_ijk_2d1_test(): blend_ijk_2d1() interpolates data in a table, from face data. The table is 4 rows by 3 columns by 3 layers. Data given to blend_ijk_2d1: Layer K = 1 0.00000 9.00000 18.0000 2.00000 11.0000 20.0000 8.00000 17.0000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 11.0000 0.00000 29.0000 17.0000 0.00000 35.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 29.0000 38.0000 26.0000 35.0000 44.0000 36.0000 45.0000 54.0000 Values interpolated by blend_ijk_2d1: Layer K = 1 0.00000 9.00000 18.0000 2.00000 11.0000 20.0000 8.00000 17.0000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 11.0000 20.0000 29.0000 17.0000 26.0000 35.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 29.0000 38.0000 26.0000 35.0000 44.0000 36.0000 45.0000 54.0000 Exact data: Layer K = 1 0.00000 9.00000 18.0000 2.00000 11.0000 20.0000 8.00000 17.0000 26.0000 18.0000 27.0000 36.0000 Layer K = 2 9.00000 18.0000 27.0000 11.0000 20.0000 29.0000 17.0000 26.0000 35.0000 27.0000 36.0000 45.0000 Layer K = 3 18.0000 27.0000 36.0000 20.0000 29.0000 38.0000 26.0000 35.0000 44.0000 36.0000 45.0000 54.0000 blend_r_0dn_test(): blend_r_0dn() interpolates endpoint vector data into a list. The list is 11 rows long. Each vector has length 2 Data blended by blend_r_0dn: Col 1 2 Row 1 0.00000 0.00000 2 0.100000 0.100000 3 0.200000 0.200000 4 0.300000 0.300000 5 0.400000 0.400000 6 0.500000 0.500000 7 0.600000 0.600000 8 0.700000 0.700000 9 0.800000 0.800000 10 0.900000 0.900000 11 1.00000 1.00000 Exact data: Col 1 2 Row 1 0.00000 0.00000 2 0.100000 0.100000E-01 3 0.200000 0.400000E-01 4 0.300000 0.900000E-01 5 0.400000 0.160000 6 0.500000 0.250000 7 0.600000 0.360000 8 0.700000 0.490000 9 0.800000 0.640000 10 0.900000 0.810000 11 1.00000 1.00000 blend_r_0dn_identity_test(): Simple identity test to detect gross errors. Identity test for blend_r_0dn: 0.0000 0.0000 1.0000 1.0000 0.5000 0.5000 blend_r_0dn_stretch_test(): Shift and stretch test to detect simple errors. Shift and stretch test for blend_r_0dn: 0.0000 1.0000 1.0000 3.0000 0.5000 2.0000 blend_rs_0dn_test(): blend_rs_0dn() interpolates data in a table, from corner data. The table is 5 rows by 4 columns. Data blended by blend_rs_0dn: 0.00000 0.00000 0.00000 0.00000 0.00000 1.66667 3.33333 5.00000 0.00000 3.33333 6.66667 10.0000 0.00000 5.00000 10.0000 15.0000 0.00000 6.66667 13.3333 20.0000 Exact data: 0.00000 0.00000 0.00000 0.00000 0.00000 0.462963E-01 0.370370 1.25000 0.00000 0.185185 1.48148 5.00000 0.00000 0.416667 3.33333 11.2500 0.00000 0.740741 5.92593 20.0000 blend_rs_0dn_identity_test(): Simple identity test to detect gross errors. Identity test for blend_rs_0dn: 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 0.5000 0.5000 0.5000 0.5000 blend_rs_0dn_stretch_test(): Shift and stretch test to detect simple errors. Shift and stretch test for blend_rs_0dn: 0.0000 0.0000 1.0000 2.0000 1.0000 0.0000 4.0000 2.0000 0.0000 1.0000 1.0000 6.0000 1.0000 1.0000 4.0000 6.0000 0.5000 0.5000 2.5000 4.0000 blend_rs_1dn_test(): blend_rs_1dn() interpolates data in a table, from edge data. The table is 5 rows by 4 columns. Data blended by blend_rs_1dn: 0.00000 0.00000 0.00000 0.00000 0.00000 -1.06481 -1.01852 1.25000 0.00000 -1.29630 -0.370370 5.00000 0.00000 -0.694444 1.94444 11.2500 0.00000 0.740741 5.92593 20.0000 Exact data: 0.00000 0.00000 0.00000 0.00000 0.00000 0.462963E-01 0.370370 1.25000 0.00000 0.185185 1.48148 5.00000 0.00000 0.416667 3.33333 11.2500 0.00000 0.740741 5.92593 20.0000 blend_rs_1dn_identity_test(): Simple identity test to detect gross errors. Identity test for blend_rs_1dn: 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 0.5000 0.5000 0.5000 0.5000 blend_rs_1dn_stretch_test(): Shift and stretch test to detect simple errors. Shift and stretch test for blend_rs_1dn: 0.0000 0.0000 1.0000 2.0000 1.0000 0.0000 4.0000 2.0000 0.0000 1.0000 1.0000 6.0000 1.0000 1.0000 4.0000 6.0000 0.5000 0.5000 2.5000 4.0000 blend_rst_1dn_identity_test(): Simple identity test to detect gross errors. Identity test for blend_rst_1dn: 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 0.5000 0.5000 0.5000 0.5000 0.5000 0.5000 blend_rst_1dn_stretch_test(): Shift and stretch test to detect simple errors. Shift and stretch test for blend_rst_1dn: 0.0000 0.0000 0.0000 1.0000 2.0000 3.0000 1.0000 0.0000 0.0000 5.0000 2.0000 3.0000 0.0000 1.0000 0.0000 1.0000 7.0000 3.0000 0.0000 0.0000 1.0000 1.0000 2.0000 9.0000 1.0000 1.0000 1.0000 5.0000 7.0000 9.0000 0.5000 0.5000 0.5000 3.0000 4.5000 6.0000 blend_rst_1dn_identity_test(): Simple identity test to detect gross errors. Identity test for blend_rst_1dn: 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 0.5000 0.5000 0.5000 0.5000 0.5000 0.5000 blend_rst_1dn_stretch_test(): Shift and stretch test to detect simple errors. Shift and stretch test for blend_rst_1dn: 0.0000 0.0000 0.0000 1.0000 2.0000 3.0000 1.0000 0.0000 0.0000 5.0000 2.0000 3.0000 0.0000 1.0000 0.0000 1.0000 7.0000 3.0000 0.0000 0.0000 1.0000 1.0000 2.0000 9.0000 1.0000 1.0000 1.0000 5.0000 7.0000 9.0000 0.5000 0.5000 0.5000 3.0000 4.5000 6.0000 blend_rst_2dn_identity_test(): Simple identity test to detect gross errors. Identity test for blend_rst_2dn: 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 0.5000 0.5000 0.5000 0.5000 0.5000 0.5000 blend_rst_2dn_stretch_test(): Shift and stretch test to detect simple errors. Shift and stretch test for blend_rst_2dn: 0.0000 0.0000 0.0000 1.0000 2.0000 3.0000 1.0000 0.0000 0.0000 5.0000 2.0000 3.0000 0.0000 1.0000 0.0000 1.0000 7.0000 3.0000 0.0000 0.0000 1.0000 1.0000 2.0000 9.0000 1.0000 1.0000 1.0000 5.0000 7.0000 9.0000 0.5000 0.5000 0.5000 3.0000 4.5000 6.0000 blend_test() Normal end of execution. 3 September 2021 12:38:55.789 PM