SUBROUTINE ARRAY ( )
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The array subroutine generates the arrays of coefficients 
function
Source file:array.f
Intrinsic Functions Called
GENERIC*8          ABS
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +I,         +II,        +IJ,        +J
INTEGER           +K,         +KL,        +LI,        +LJ
INTEGER           +NFG,       +NFP,       +NI,        +NJ
REAL*8            +C,         +CC,        +CON
Referenced Common Block Variables (+ indicates altered content)
COEFF              REAL*8            +A(MAXORB,MAXORB,5)
COEFF              REAL*8            +B(MAXORB,MAXORB,5)
COEFF              REAL*8             CA(4,4),   CB(5,5,5)
MCOMMBLOCK         INTEGER            L(MAXORB)
PARAM              INTEGER            NCFG,      NWF
PARAM1             REAL*8             D0,        D1
STATE              INTEGER            IFG(200),  JFG(200)
STATE              INTEGER            KFG(200),  NCI(200)
STATE              INTEGER            NCJ(200),  NF
STATE              INTEGER            NG
STATE              REAL*8             CFG(200),  QC(MAXORB,40)
STATE              REAL*8             WT(40)
WAVE               REAL*8            +SUM(MAXORB)

SUBROUTINE ARRAYDFT ( )
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The array subroutine generates the arrays of coefficients 
function
Source file:array.f
Intrinsic Functions Called
GENERIC*8          ABS
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +I,         +II,        +IJ,        +J
INTEGER           +K,         +KL,        +LI,        +LJ
INTEGER           +NFG,       +NFP,       +NI,        +NJ
REAL*8            +C,         +CC,        +CON
Referenced Common Block Variables (+ indicates altered content)
COEFF              REAL*8            +A(MAXORB,MAXORB,5)
COEFF              REAL*8            +B(MAXORB,MAXORB,5)
COEFF              REAL*8             CA(4,4),   CB(5,5,5)
MCOMMBLOCK         INTEGER            L(MAXORB)
PARAM              INTEGER            NCFG,      NWF
PARAM1             REAL*8             D0
STATE              INTEGER            IFG(200),  JFG(200)
STATE              INTEGER            KFG(200),  NCI(200)
STATE              INTEGER            NCJ(200),  NF
STATE              INTEGER            NG
STATE              REAL*8             CFG(200),  QC(MAXORB,40)
STATE              REAL*8             WT(40)
WAVE               REAL*8            +SUM(MAXORB)