SUBROUTINE LPERT ( IIN, JIN, M )
Argument Definitions (+ indicates altered content)
INTEGER            IIN,        JIN,        M
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The rpert subroutine determines the effect of a perturbation (in 
the form of a rotation of two given orbitals) both on the energy 
an on the stationaty condition, due to the presence of a given lk 
integral
Source file:lpert.f
External Functions and Subroutines Called
REAL*8             HL,         QUADR
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +I,         +I1,        +I2,        +I3
INTEGER           +I4,        +I5,        +I6,        +IND(6)
INTEGER           +IPW,       +J,         +K2,        +KP
REAL*8            +OVLAP
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              INTEGER           +I1         Local Var
                   INTEGER           +IND()      Local Var
                   INTEGER           +I6         Local Var
                   INTEGER           +I5         Local Var
                   INTEGER           +I4         Local Var
                   INTEGER           +I3         Local Var
                   INTEGER           +I2         Local Var
Referenced Common Block Variables (+ indicates altered content)
PARAM0             INTEGER            IZERO
PARAM1             REAL*8             D0
ROTORB             INTEGER           +K
ROTORB             REAL*8            +DI,       +DII
ROTORB             REAL*8            +DIJ,      +DJ
ROTORB             REAL*8            +DJI,      +DJJ
STATE              INTEGER            ILI(MAXORB)
STATE              INTEGER            ILJ(MAXORB)
STATE              INTEGER            ILO(MAXORB)
STATE              INTEGER            JLO(MAXORB)
STATE              INTEGER            LQ(MAXORB)
TEST               LOGICAL*1          ALL,      +EZERO