Argument Definitions (+ indicates altered content) REAL*8 +BORB(NNI,MXNMU), +BPOT(NNI,MXNMU) REAL*8 +D(NNI,MXNMU), +E(NNI,MXNMU) REAL*8 +F0(NNI,MXNMU), +F1(NNI,MXNMU) REAL*8 +F2(NNI,MXNMU), +F3(NNI,MXNMU) REAL*8 +F4(NNI,MXNMU), +G(NNI,MXNMU) REAL*8 +WGT1(MXSIZE), +WGT2(MXSIZE) REAL*8 +WJAC1(NNI,MXNMU), +WJAC2(NNI,MXNMU)
Description * Copyright (C) 1996 Leif Laaksonen, Dage Sundholm * 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. * * ### initSuppl ### Initialises various supplementary arrays of case-dependent lengths supported by cw_suppl (one-electron potentials, Jacobians, integration and differentiation weights, etc)
Source file: initSuppl.f
Intrinsic Functions Called DOUBLE PRECISION DBLE INTEGER NINT GENERIC*8 ABS, EXP, SQRT
External Functions and Subroutines Called REAL*8 PLEGENDG, POTH3, POTKH, ZGSZ1 REAL*8 ZGSZ1G, ZGSZ2, ZGSZ2G, ZZ1 REAL*8 ZZ1G, ZZ2, ZZ2G SUBROUTINE LAGRPOLQ
Local Variables (+ indicates altered content) INTEGER +I, +IB, +IE, +IG INTEGER +II, +IMU, +IN, +IZZ1 INTEGER +IZZ2, +J, +K REAL*8 +A1(9), +A2(9), +AA1(9), +AA2(9) REAL*8 +ATW1, +ATW2, +COSTH, DC1(9,7,9) REAL*8 DC2(9,7,9), +PRECIS1, +R1 REAL*8 +RR, +W1, +W10, +W2 REAL*8 +W4, +W5, +W6, +W7 REAL*8 +W8, +W9, +WJ1, +WJ2 REAL*8 +WKTMP, +WMUP, +XRR, +XXPLUSYY REAL*8 +XXPLUSYY2, +XY2, +Z, +Z1T REAL*8 +Z2T, +ZCM
Referenced Common Block Variables (+ indicates altered content) CONSFP REAL*8 HALF, ONE CONSFP REAL*8 PII, PRECIS CONSFP REAL*8 TWO CONSINT INTEGER ITWO, IZERO DERIV1 REAL*8 +D1MU(9,2500) DERIV1 REAL*8 +D1NI(9,1500) DERIV2 REAL*8 +DMU(9,2500) DERIV2 REAL*8 +DNI(9,1500) DERIV3 REAL*8 +DIAG(10), +DMU1(4,10) DERIV3 REAL*8 +DMU2(4,10) DERIV3 REAL*8 +DNI1(4), +DNI2(4) EXTPOT INTEGER IFEFIELD, IHARM2XY EXTPOT REAL*8 FFIELD, FGRAD EXTPOT REAL*8 HARM2XY, ZCUTOFF GRIDI INTEGER IBMU(10), IEMU(10) GRIDI INTEGER MXNMU, MXSIZE GRIDI INTEGER NGRIDS, NNI GRIDR REAL*8 HMU(10), HNI GRIDR REAL*8 VETA(1500) GRIDR REAL*8 VETA1(1500) GRIDR REAL*8 VETA2(1500) GRIDR REAL*8 VETASQ(1500) GRIDR REAL*8 VXI(2500) GRIDR REAL*8 VXI1(2500) GRIDR REAL*8 VXI2(2500) GRIDR REAL*8 VXISQ(2500) INPUTD1 INTEGER IPOT INPUTD2 REAL*8 R, Z1 INPUTD2 REAL*8 Z2 INTEG REAL*8 +WMU(2500) INTEG REAL*8 +WNI(1500) OEPOT INTEGER MPOT, NSIMP OEPOT REAL*8 APOT, EPSPOT OEPOT REAL*8 HOOK, OMPOT OEPOT REAL*8 V0POT PERTAB REAL*8 ATWEIGHT(0:100)