SUBROUTINE LECDEN ( K )
Argument Definitions (+ indicates altered content)
INTEGER            K
Description
THIS ROUTINE GENERATES ELECTRON DENSITY PROFILE 
 
ADD TOP BY EXTENDING HTR(50,3) AND FNSQ(50,3)
Source file:lecden.f
Intrinsic Functions Called
REAL               AMAX1,      AMIN1
GENERIC            EXP,        SQRT
Local Variables (+ indicates altered content)
INTEGER           +I,         +IH,        +LIN
REAL              +ALP,       +ASP,       +DENOM,     +FC1
REAL              +FC2,       +FCE,       +FLOW,      +FN1
REAL              +FN2,       +FND,       +FNE,       +FNVAL
REAL              +FNX,       +FSQ,       +FUP,       +H
REAL              +HB1,       +HB2,       +HD,        +HDIF
REAL              +HEX,       +HIOLD,     +HLOW,      +HT1
REAL              +HTE,       +HTW,       +HUP,       +HZ
REAL              +S1,        +XLOW,      +XTAIL,     +XUP
REAL              +YB,        +YS,        +Z
Referenced Common Block Variables (+ indicates altered content)
CONTRL             INTEGER            IELECT(3)
MFAC               REAL              +FSECV(3)
RON                REAL               FI(3,5),  +FNSQ(50,3)
RON                REAL              +HI(3,5),  +HTR(50,3)
RON                REAL              +YI(3,5)