To: “Numerical integration of related Hankel transforms of orders 0 and 1 by adaptive digital filtering” (Walter L. Anderson, GEOPHYSICS, July 1979, p. 1287–1305)
The author of the recent computer program, “Numerical integration of related Hankel transforms of orders 0 and 1 by adaptive digital filtering” (Walter L. Anderson, Geophysics, July 1979 p. 1287–1305) wishes to correct the following errors. On p. 1290, under FUN =, the use of brackets is incorrect as appearing in: FUN = CMPLX[F1(G), 0.0] and FUN = CMPLX[F1(G),F2(G)].The correct Fortran notation should use parentheses as: FUN = CMPLX(F1(G),0.0) and FUN = CMPLX(F1(G),F2(G)). On p. 1291, the DO statement appears incorrectly as: Do 1 I-1, NSAVE Insert code to modify FSAVE in COMMON for a related kernel; for example, if ZF2(G) = G*ZF1(G), use the code; if 1 FSAVE (I) = GSAVE(I)*FSAVE(I) The correct DO statement should be: DO 1 I = 1,NSAVE Insert code to modify FSAVE in COMMON for a related kernel; for example, if ZF2(G( = G*ZF1(G), then use the following code, 1 FSAVE(I) = GSAVE(I)*FSAVE(I)