SUBROUTINE CURCAL ( RL0, RLLOW, RLC, RLUP, AA1, AA2, AA3, AA4, AA5, BB1, BB2, BB3, BB4, BB5, CC1, CC2, CC3, CC4, CC5 )

Argument Definitions (+ indicates altered content)
REAL              +AA1,       +AA2,       +AA3,       +AA4
REAL              +AA5,       +BB1,       +BB2,       +BB3
REAL              +BB4,       +BB5,       +CC1,       +CC2
REAL              +CC3,       +CC4,       +CC5,        RL0
REAL               RLC,        RLLOW,      RLUP
Description
EMPIRICAL ACTIVE ELEMENT CURVE CALCULATION SUBR. 
 
 
INTERVAL  LLOW <= L <+(L0-LLOW)/2
Source file:curcal.f
External Functions and Subroutines Called
SUBROUTINE         PARABOL
Local Variables (+ indicates altered content)
REAL              +AA,        +BB,        +CC,        +X1
REAL              +X2,        +X3,        +Y1,        +Y2
REAL              +Y3