Argument Definitions (+ indicates altered content) INTEGER I, IPC, J, MT REAL*8 +PE(MAXMPOLE)
Description * Copyright (C) 1996-2010 Jacek Kobus* * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2 as * published by the Free Software Foundation. * * ### multitail ### Calculates the value of exchange potential from the multipole expansion at grid points needed by immersed functions (see fill).
Source file: multitail.f
Intrinsic Functions Called DOUBLE PRECISION DBLE GENERIC*8 ABS, COSH, SQRT
Statement functions Defined REAL*8 +VXIL
Local Variables (+ indicates altered content) INTEGER +N REAL*8 +COSTH, +COSTH2, +COSTH4, +COSTH6 REAL*8 +COSTH8, +DOME(MAXMPOLE), +RR REAL*8 +SINI, +SINI2, +SINI3, +XRN
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 PRECIS DIMES INTEGER MAXMPOLE EXMO REAL*8 EXC5(3660) EXMO REAL*8 EXC6(3660) EXMO REAL*8 EXC7(3660) EXMO REAL*8 EXC8(3660) EXMO REAL*8 EXCDI(3660) EXMO REAL*8 EXCHE(3660) EXMO REAL*8 EXCOC(3660) EXMO REAL*8 EXCQU(3660) GRIDR REAL*8 HMU(10), VETA(1500) GRIDR REAL*8 VETASQ(1500) INPUTD2 REAL*8 R2 SORI INTEGER MPOLE