03 September 2021 9:54:26.613 AM bivar_test(): FORTRAN90 version Test bivar(). test01(): idbvip() accepts scattered Z(X,Y) data, and interpolates values of Z at new points. X Y Z Exact Z Error 0.00000 1.00000 0.692658 0.841471 -0.148813 0.250000 0.750000 0.873381 0.875241 -0.186057E-02 0.500000 0.500000 0.976363 0.790439 0.185924 0.750000 0.250000 1.86218 0.523754 1.33843 1.00000 0.00000 0.851521E-03 0.00000 0.851521E-03 test02(): idsfft() accepts scattered Z(X,Y) data, and interpolates values of Z on a regular grid of points. X Y Z Exact Z Error 0.00000 0.00000 -0.770780E-02 0.00000 -0.770780E-02 0.00000 0.333333 0.249476 0.327195 -0.777188E-01 0.00000 0.666667 0.739454 0.618370 0.121085 0.00000 1.00000 0.692658 0.841471 -0.148813 0.250000 0.00000 1.98134 0.00000 1.98134 0.250000 0.333333 1.68468 0.420126 1.26455 0.250000 0.666667 0.806856 0.794003 0.128534E-01 0.250000 1.00000 1.03375 1.08047 -0.467198E-01 0.500000 0.00000 5.11397 0.00000 5.11397 0.500000 0.333333 6.73460 0.539453 6.19515 0.500000 0.666667 0.419446 1.01952 -0.600074 0.500000 1.00000 1.38693 1.38735 -0.420788E-03 0.750000 0.00000 3.30290 0.00000 3.30290 0.750000 0.333333 3.81688 0.692671 3.12421 0.750000 0.666667 1.18613 1.30909 -0.122955 0.750000 1.00000 1.86475 1.78139 0.833571E-01 1.00000 0.00000 0.851521E-03 0.00000 0.851521E-03 1.00000 0.333333 4.14272 0.889407 3.25331 1.00000 0.666667 6.43355 1.68090 4.75265 1.00000 1.00000 0.630312 2.28736 -1.65704 test03(): Original test program for ACM TOMS 526 Input data NDP = 30 I XD YD ZD 1 11.16 1.24 22.15 2 24.20 16.23 2.83 3 19.85 10.72 7.97 4 10.35 4.11 22.33 5 19.72 1.39 16.83 6 0.00 20.00 34.60 7 20.87 20.00 5.74 8 19.99 4.62 14.72 9 10.28 15.16 21.59 10 4.51 20.00 15.61 11 0.00 4.48 61.77 12 16.70 19.65 6.31 13 6.08 4.58 35.74 14 25.00 11.87 4.40 15 14.90 3.12 21.70 16 0.00 0.00 58.20 17 9.66 20.00 4.73 18 5.22 14.66 40.36 19 11.77 10.47 13.62 20 15.10 17.19 12.57 21 25.00 3.87 8.74 22 25.00 0.00 12.00 23 14.59 8.71 14.81 24 15.20 0.00 21.60 25 5.23 10.72 26.50 26 2.14 15.03 53.10 27 0.51 8.37 49.43 28 25.00 20.00 0.60 29 21.67 14.36 5.52 30 3.31 0.13 44.08 Using IDBVIP for interpolation on arbitrary points. ZI1(XI,YI) XI YI = 0.00 5.00 10.00 15.00 20.00 0.00 58.20 61.58 59.18 52.82 34.60 5.00 39.55 39.39 27.39 40.27 14.05 10.00 26.90 22.04 16.78 22.76 4.12 15.00 21.71 21.29 13.25 16.61 3.17 20.00 17.68 14.36 8.59 7.40 6.31 25.00 12.00 8.04 5.36 2.88 0.60 Difference DZI1(XI,YI) XI YI = 0.00 5.00 10.00 15.00 20.00 0.00 0.00 0.00 0.00 0.00 0.00 5.00 0.00 0.00 0.00 0.00 0.00 10.00 0.00 0.00 0.00 0.00 0.00 15.00 0.00 0.00 0.00 0.00 0.00 20.00 0.00 0.00 0.00 0.00 0.00 25.00 0.00 0.00 0.00 0.00 0.00 Using IDSFFT for interpolation on a regular grid. ZI2(XI,YI) XI YI = 0.00 5.00 10.00 15.00 20.00 0.00 58.20 61.58 59.18 52.82 34.60 5.00 39.55 39.39 27.39 40.27 14.05 10.00 26.90 22.04 16.78 22.76 4.12 15.00 21.71 21.29 13.25 16.61 3.17 20.00 17.68 14.36 8.59 7.40 6.31 25.00 12.00 8.04 5.36 2.88 0.60 Difference DZI2(XI,YI) XI YI = 0.00 5.00 10.00 15.00 20.00 0.00 0.00 0.00 0.00 0.00 0.00 5.00 0.00 0.00 0.00 0.00 0.00 10.00 0.00 0.00 0.00 0.00 0.00 15.00 0.00 0.00 0.00 0.00 0.00 20.00 0.00 0.00 0.00 0.00 0.00 25.00 0.00 0.00 0.00 0.00 0.00 bivar_test(): Normal end of execution. 03 September 2021 9:54:26.614 AM