SUBROUTINE INITSUPPL ( BORB, BPOT, D, E, F0, F1, F2, F3, F4, G, WJAC1, WJAC2, WGT1, WGT2 )

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)