2 December 2013 9:11:10.517 AM BLEND_PRB FORTRAN77 version Test the BLEND library. TEST01 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 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 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 Identity test for BLEND_RST_0DN: 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 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 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 TEST02 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 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 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 Shift and stretch test for BLEND_RST_0DN: 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 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 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 TEST03 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 TEST04 BLEND_IJ_0D1 interpolates data in a table, from corner data. BLEND_IJ_1D1 interpolates data in a table, from edge 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 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 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 TEST05 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 TEST06 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 TEST07 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 TEST08 BLEND_IJ_W_1D1 uses 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 TEST09 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 TEST10 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 TEST11 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 TEST12 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 TEST13 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_PRB Normal end of execution. 2 December 2013 9:11:10.520 AM