Freint, an integration routine calculating Fresnel diffraction

Title of program: FREINT Catalogue Id: ACUB_v1_0 Nature of problem FREINT evaluates the integral A(x) exp(i q (x'-x)^2) dx [i= (-1)^1/2, x = xi,xf] occurring in optical transfer theory. By application of this integral the wave amplitude A(t+d;x') at a plane z = t+d can be calculated on some premises from the amplitude field A(t;x), e.g. in electron microscopy if an object is imaged in a defocussed mode (catchword : Fresnel diffraction). A(x) is given by a complex vector. CORRECTION SUMMARY: Vol:Year:Page 0:unpublished:unpublished "000ACORRECTION 27/11/78" "Unpublished correction to FREINT: an integration routine calculating Fresnel diffraction." W.J. Gruschel Note: correction instructions are contained in source code Versions of this program held in the CPC repository in Mendeley Data ACUB_v1_0; FREINT; 10.1016/0010-4655(79)90086-9 This program has been imported from the CPC Program Library held at Queen's University Belfast (1969-2019)程序名称：FREINT 目录编号：ACUB_v1_0 问题本质 FREINT用于计算光学传递理论中出现的定积分∫(x=xi至xf) A(x)exp[iq(x'-x)²]dx，其中i为虚数单位 (imaginary unit)（即√(-1)）。通过应用该积分，可在若干预设前提下，从振幅场A(t;x)计算得到平面z = t+d处的波振幅A(t+d;x')；例如在电子显微镜学 (electron microscopy) 领域，当以散焦模式 (defocussed mode) 成像时（关键词：菲涅耳衍射 (Fresnel diffraction)）。其中A(x)为复矢量 (complex vector)。 修正摘要 卷:年份:页码 0:未出版:未出版 "000ACORRECTION 1978年11月27日" "针对FREINT的未公开修正：一款用于计算菲涅耳衍射 (Fresnel diffraction) 的积分例程 (integration routine)" 作者：W.J. Gruschel 注：修正说明已内嵌于源代码 (source code) 中。 本程序的各版本收录于门德里数据 (Mendeley Data) 的CPC知识库中：ACUB_v1_0; FREINT; 10.1016/0010-4655(79)90086-9 本程序源自贝尔法斯特女王大学 (Queen's University Belfast) 托管的CPC程序库（1969-2019）