13 September 2021 8:51:52.812 AM HERMITE_PRODUCT_POLYNOMIAL_TEST: FORTRAN90 version Test the HERMITE_PRODUCT_POLYNOMIAL library. HPP_TEST01: COMP_NEXT_GRLEX is given a composition, and computes the next composition in grlex order. Rank Sum Components 1 0: 0 0 2 1: 0 1 3 1: 1 0 4 2: 0 2 5 2: 1 1 6 2: 2 0 7 3: 0 3 8 3: 1 2 9 3: 2 1 10 3: 3 0 11 4: 0 4 12 4: 1 3 13 4: 2 2 14 4: 3 1 15 4: 4 0 16 5: 0 5 17 5: 1 4 18 5: 2 3 19 5: 3 2 20 5: 4 1 COMP_UNRANK_GRLEX is given a rank and returns the corresponding set of multinomial exponents. Rank Sum Components 15 4: 4 0 14 4: 3 1 17 5: 1 4 2 1: 0 1 14 4: 3 1 COMP_RANDOM_GRLEX randomly selects a composition between given lower and upper ranks. Rank Sum Components 7 3: 0 3 7 3: 0 3 10 3: 3 0 18 5: 2 3 14 4: 3 1 COMP_RANK_GRLEX returns the rank of a given composition. Rank Sum Components 15 4: 4 0 148 16: 11 5 HPP_TEST015: HEP_COEFFICIENTS computes the coefficients and exponents of the Hermite polynomial He(n,x). He(1,x) = + 1.00000 * x^( 1). He(2,x) = - 1.00000 * x^( 0) + 1.00000 * x^( 2). He(3,x) = - 3.00000 * x^( 1) + 1.00000 * x^( 3). He(4,x) = + 3.00000 * x^( 0) - 6.00000 * x^( 2) + 1.00000 * x^( 4). He(5,x) = + 15.0000 * x^( 1) - 10.0000 * x^( 3) + 1.00000 * x^( 5). HPP_TEST02: HEP_VALUES stores values of the Hermite polynomial He(n,x). HEP_VALUE evaluates a Hermite polynomial. Tabulated Computed O X He(O,X) He(O,X) Error 0 5.00000000 1.000000000000000 1.000000000000000 0.0 1 5.00000000 5.000000000000000 5.000000000000000 0.0 2 5.00000000 24.00000000000000 24.00000000000000 0.0 3 5.00000000 110.0000000000000 110.0000000000000 0.0 4 5.00000000 478.0000000000000 478.0000000000000 0.0 5 5.00000000 1950.000000000000 1950.000000000000 0.0 6 5.00000000 7360.000000000000 7360.000000000000 0.0 7 5.00000000 25100.00000000000 25100.00000000000 0.0 8 5.00000000 73980.00000000000 73980.00000000000 0.0 9 5.00000000 169100.0000000000 169100.0000000000 0.0 10 5.00000000 179680.0000000000 179680.0000000000 0.0 11 5.00000000 -792600.0000000000 -792600.0000000000 0.0 12 5.00000000 -5939480.000000000 -5939480.000000000 0.0 5 0.00000000 0.000000000000000 0.000000000000000 0.0 5 0.50000000 6.281250000000000 6.281250000000000 0.0 5 1.00000000 6.000000000000000 6.000000000000000 0.0 5 3.00000000 18.00000000000000 18.00000000000000 0.0 5 10.00000000 90150.00000000000 90150.00000000000 0.0 HPP_TEST03: HEPP_VALUE evaluates a Hermite product polynomial. POLYNOMIAL_VALUE evaluates a polynomial. Evaluate at X = 0.507431 -0.249790 0.297622 Rank I1 I2 I3: He(I1,X1)*He(I2,X2)*He(I3,X3) P(X1,X2,X3) 1 0 0 0 1.00000 1.00000 2 0 0 1 0.297622 0.297622 3 0 1 0 -0.249790 -0.249790 4 1 0 0 0.507431 0.507431 5 0 0 2 -0.911421 -0.911421 6 0 1 1 -0.743428E-01 -0.743428E-01 7 0 2 0 -0.937605 -0.937605 8 1 0 1 0.151022 0.151022 9 1 1 0 -0.126751 -0.126751 10 2 0 0 -0.742514 -0.742514 11 0 0 3 -0.866502 -0.866502 12 0 1 2 0.227664 0.227664 13 0 2 1 -0.279051 -0.279051 14 0 3 0 0.733783 0.733783 15 1 0 2 -0.462484 -0.462484 16 1 1 1 -0.377238E-01 -0.377238E-01 17 1 2 0 -0.475770 -0.475770 18 2 0 1 -0.220988 -0.220988 19 2 1 0 0.185472 0.185472 20 3 0 0 -1.39164 -1.39164 HPP_TEST04: HEPP_TO_POLYNOMIAL is given a Hermite product polynomial and determines its polynomial representation. Using spatial dimension M = 2 HePP # 1 = L( 0,X)*L( 0,Y) = + 1.00000 * x^( 0, 0). HePP # 2 = L( 0,X)*L( 1,Y) = + 1.00000 * x^( 0, 1). HePP # 3 = L( 1,X)*L( 0,Y) = + 1.00000 * x^( 1, 0). HePP # 4 = L( 0,X)*L( 2,Y) = - 1.00000 * x^( 0, 0) + 1.00000 * x^( 0, 2). HePP # 5 = L( 1,X)*L( 1,Y) = + 1.00000 * x^( 1, 1). HePP # 6 = L( 2,X)*L( 0,Y) = - 1.00000 * x^( 0, 0) + 1.00000 * x^( 2, 0). HePP # 7 = L( 0,X)*L( 3,Y) = - 3.00000 * x^( 0, 1) + 1.00000 * x^( 0, 3). HePP # 8 = L( 1,X)*L( 2,Y) = - 1.00000 * x^( 1, 0) + 1.00000 * x^( 1, 2). HePP # 9 = L( 2,X)*L( 1,Y) = - 1.00000 * x^( 0, 1) + 1.00000 * x^( 2, 1). HePP #10 = L( 3,X)*L( 0,Y) = - 3.00000 * x^( 1, 0) + 1.00000 * x^( 3, 0). HePP #11 = L( 0,X)*L( 4,Y) = + 3.00000 * x^( 0, 0) - 6.00000 * x^( 0, 2) + 1.00000 * x^( 0, 4). HERMITE_PRODUCT_POLYNOMIAL_TEST: Normal end of execution. 13 September 2021 8:51:52.812 AM