SUBROUTINE SCALE ( ZZ )
Argument Definitions (+ indicates altered content)
REAL*8             ZZ
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The results of the previous calculations still in memory are 
scaled to form initail estimates for another case
Source file:scale.f
Intrinsic Functions Called
GENERIC*4          LOG
GENERIC*8          SQRT
External Functions and Subroutines Called
REAL*8             QUADR
SUBROUTINE         YKF
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +I,         +J,         +K
REAL*8            +F0,        +F1,        +F2,        +F3
REAL*8            +PNORM,     +RATIO,     +SC,        +SR
REAL*8            +SS,        +THETA
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              REAL*8            +PS()       Local Var
                   REAL*8            +X()        COMMON /MCOMMBLOCK/
EQUIV              REAL*8            +RS()       Local Var
                   REAL*8            +YR()       COMMON /MCOMMBLOCK/
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         INTEGER            L(MAXORB)
MCOMMBLOCK         INTEGER           +MAXV(MAXORB)
MCOMMBLOCK         REAL*8            +P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8            +R(MAXNO), +R2(MAXNO)
MCOMMBLOCK         REAL*8            +RR(MAXNO)
MCOMMBLOCK         REAL*8            +X(MAXNO), +Y(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             YK(MAXNO)
MCOMMBLOCK         REAL*8            +YR(MAXNO)
PARAM              INTEGER            ND,        NO
PARAM              INTEGER            NWF
PARAM              REAL*8             H,        +Z
PARAM0             INTEGER            IZERO
PARAM1             REAL*8             D0,        D1
PARAM1             REAL*8             D4,        D5
WAVE               REAL*8            +AZ(MAXORB)
WAVE               REAL*8            +E(MAXORB,MAXORB)
WAVE               REAL*8             S(MAXORB)