1 SUBROUTINE SECLEV 2 COMMON /IBODY/ PBO, BODY(400) 3 COMMON /IWING/ PWG, WING(400) 4 COMMON /IHT/ PHT, HT(380) 5 COMMON /IVT/ PVT, VT(380) 6 COMMON /IBW/ PBW, BW(380) 7 COMMON /IBH/ PBH, BH(380) 8 COMMON /IBWHV/ PBT, BWHV(380) 9 COMMON /FLGTCD/ FLC(95) 10 COMMON /SYNTSS/ XCG,XW,ZW,ALIW,ZCG,XH,ZH,ALIH,XV,VERTUP,HINAX, 11 1 XVF,SCALE,ZV,ZVF,YV,YF,PHIV,PHIF 12 COMMON /BODYI/ BODYIN(127) 13 COMMON /WINGI/ WINGIN(100) 14 COMMON /HTI/ HTIN(154) 15 COMMON /WINGD/ A(195),B(49) 16 COMMON /SBETA/ STB(135),TRA(108),TRAH(108) 17 COMMON /BDATA/ BD(762) 18 COMMON /WHWB/ FACT(182) 19 COMMON /HTDATA/ AHT(195),BHT(49) 20 COMMON /SUPWBB/ SWB(61),SHB(61) 21 COMMON /LEVEL2/ SEC(23) 22 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 23 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA 24 COMMON /EXPER/ KLIST,NLIST(100),NNAMES,IMACH,MDATA,KBODY, 25 1 KWING,KHT,KVT,KWB,KDWASH(3),ALPOW,ALPLW, 26 2 ALPOH,ALPLH 27 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 28 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 29 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 30 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART 31C 32 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 33 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 34 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 35 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART 36 LOGICAL DOL2, FLAG 37 EQUIVALENCE (SEC(16),DOL2) 38C 39 IF(.NOT. DOL2) GO TO 1000 40 CALL EXSUBT 41 IF(WGPL) CALL WINGCL(NALPHA,B(23),ALPOW,ALPLW,TRA(37), 42 1 WING(101),TRA(38),WING(21),FLC(I+2),WINGIN(16), 43 2 A(35),A(27),A(7),SEC(1),SEC(2),TRA(70),TRA(1), 44 3 SEC(17),WING(1),SEC(18),WING(181)) 45 IF(HTPL) CALL WINGCL(NALPHA,BHT(23),ALPOH,ALPLH,TRAH(37), 46 1 HT(101),TRAH(38),HT(21),FLC(I+2),HTIN(16),AHT(35), 47 2 AHT(27),AHT(7),SEC(3),SEC(4),TRAH(70),TRAH(1), 48 3 SEC(19),HT(1),SEC(20),HT(181)) 49C 50 FLAG = BO .AND. WGPL 51 XC = A(161)+XW 52 IF(FLAG) CALL WBCLB(NALPHA,WING(21),WING(101),BODY(21),BODY(101), 53 1 WING,BODY,BW(101),FLC(23),BD(255),WINGIN,XC, 54 2 A(27),ALIW,SWB(35),SWB(11),SEC(6),SEC(9),SEC(5), 55 3 TRA(12),FLC(I+2),TRA(6),SWB(2),SWB(37),FACT, 56 4 BW(21),BW,BW(181),SEC(21)) 57 FLAG = BO .AND. HTPL 58 XC = AHT(161)+XH 59 IF(FLAG) CALL WBCLB(NALPHA,HT(21),HT(101),BODY(21),BODY(101), 60 1 HT,BODY,BH(101),FLC(23),BD(255),HTIN,XC, 61 2 AHT(27),ALIH,SHB(35),SHB(11),SEC(8),SEC(10),SEC(7), 62 3 TRAH(12),FLC(I+2),TRAH(6),SHB(2),SHB(37),FACT(142), 63 4 BH(21),BH,BH(181),SEC(22)) 64C 65 FLAG = BO .AND. WGPL .AND. HTPL 66 IF(FLAG) CALL WBTCDO 67 IF(.NOT. FLAG) BWHV(1) = UNUSED 68 IF(.NOT. VTPL) VT(1) = 0.0 69 FLAG = BO .AND. (WGPL .OR. HTPL .OR. VTPL) 70 IF(FLAG) CALL CDWBT 71 IF(FLAG) CALL CLWBT 72 1000 CALL CNCA 73 RETURN 74 END 75