c_XBL.INC

C
c	use complexify 
c	implicit complex(a-h, o-z) 
      PARAMETER (NCOM=73)
      complex COM1(NCOM), COM2(NCOM)
      complex M1, M1_U1, M1_MS, M2, M2_U2, M2_MS
      LOGICAL SIMI,TRAN,TURB,WAKE
      LOGICAL TRFORC,TRFREE
C
C-    SCCON  =  shear coefficient lag constant
C-    GACON  =  G-beta locus constants...
C-    GBCON  =   G = GACON * sqrt(1.0 + GBCON*beta) 
C-    GCCON  =         + GCCON / [H*Rtheta*sqrt(Cf/2)]   <-- wall term
C-    DLCON  =  wall/wake dissipation length ratio  Lo/L
C-    CTCON  =  Ctau weighting coefficient (implied by G-beta constants)
C
      PARAMETER (SCCON = 5.6  ,
     &           GACON = 6.70 ,
     &           GBCON = 0.75 ,
     &           GBC0  = 0.60,
     &           GBC1  = 0.40,
     &           GCCON = 18.0 ,
     &           DLCON =  0.9   )
      PARAMETER (CTCON = 0.5/(GACON**2 * GBCON))
C
      COMMON/VAR1/ X1,  U1,  T1,  D1,  S1, AMPL1, U1_UEI, U1_MS, DW1
     &        , H1, H1_T1, H1_D1
     &        , M1, M1_U1,                            M1_MS
     &        , R1, R1_U1,                            R1_MS
     &        , V1, V1_U1,                            V1_MS,  V1_RE
     &        , HK1, HK1_U1, HK1_T1, HK1_D1,         HK1_MS
     &        , HS1, HS1_U1, HS1_T1, HS1_D1,         HS1_MS, HS1_RE
     &        , HC1, HC1_U1, HC1_T1, HC1_D1,         HC1_MS
     &        , RT1, RT1_U1, RT1_T1,                 RT1_MS, RT1_RE
     &        , CF1, CF1_U1, CF1_T1, CF1_D1,         CF1_MS, CF1_RE
     &        , DI1, DI1_U1, DI1_T1, DI1_D1, DI1_S1, DI1_MS, DI1_RE
     &        , US1, US1_U1, US1_T1, US1_D1,         US1_MS, US1_RE
     &        , CQ1, CQ1_U1, CQ1_T1, CQ1_D1,         CQ1_MS, CQ1_RE
     &        , DE1, DE1_U1, DE1_T1, DE1_D1,         DE1_MS
      COMMON/VAR2/ X2,  U2,  T2,  D2,  S2, AMPL2, U2_UEI, U2_MS, DW2
     &        , H2, H2_T2, H2_D2
     &        , M2, M2_U2,                            M2_MS
     &        , R2, R2_U2,                            R2_MS
     &        , V2, V2_U2,                            V2_MS,  V2_RE
     &        , HK2, HK2_U2, HK2_T2, HK2_D2,         HK2_MS
     &        , HS2, HS2_U2, HS2_T2, HS2_D2,         HS2_MS, HS2_RE
     &        , HC2, HC2_U2, HC2_T2, HC2_D2,         HC2_MS
     &        , RT2, RT2_U2, RT2_T2,                 RT2_MS, RT2_RE
     &        , CF2, CF2_U2, CF2_T2, CF2_D2,         CF2_MS, CF2_RE
     &        , DI2, DI2_U2, DI2_T2, DI2_D2, DI2_S2, DI2_MS, DI2_RE
     &        , US2, US2_U2, US2_T2, US2_D2,         US2_MS, US2_RE
     &        , CQ2, CQ2_U2, CQ2_T2, CQ2_D2,         CQ2_MS, CQ2_RE
     &        , DE2, DE2_U2, DE2_T2, DE2_D2,         DE2_MS
      EQUIVALENCE (X1,COM1(1)), (X2,COM2(1))
C
      COMMON/VARA/ CFM, CFM_MS, CFM_RE
     &        , CFM_U1, CFM_T1, CFM_D1
     &        , CFM_U2, CFM_T2, CFM_D2
     &        , XT,    XT_A1, XT_MS, XT_RE, XT_XF
     &        , XT_X1, XT_T1, XT_D1, XT_U1
     &        , XT_X2, XT_T2, XT_D2, XT_U2
C
C
      COMMON/SAV/ C1SAV(NCOM), C2SAV(NCOM)
C
      COMMON/VAR/ DWTE
     &          , QINFBL
     &          , TKBL  , TKBL_MS
     &          , RSTBL , RSTBL_MS
     &          , HSTINV, HSTINV_MS
     &          , REYBL , REYBL_MS, REYBL_RE
     &          , GAMBL, GM1BL, HVRAT
     &          , BULE, XIFORC, AMCRIT
     &          , SIMI,TRAN,TURB,WAKE
     &          , TRFORC,TRFREE
C
      COMMON/SYS/  VS1(4,5), VS2(4,5), VSREZ(4), VSR(4), VSM(4), VSX(4)
C