1      SUBROUTINE SUPCM0
2C
3C***  CALCULATES SUPERSONIC CONFIGURATION  CM0
4C
5      COMMON /IBW/    PBW,    BW(380)
6      COMMON /IBH/    PBH,    BH(380)
7      COMMON /FLGTCD/ FLC(160)
8      COMMON /SUPBOD/ SBD(229)
9      COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV,
10     1                VERTUP, HINAX, XVF, SCALE, ZV, ZVF, YV, YF,
11     2                PHIV, PHIF
12      COMMON /WINGI/  WGIN(101)
13      COMMON /HTI/    HTIN(154)
14      COMMON /BDATA/  BD(762)
15      COMMON /WINGD/  A(195), B(49)
16      COMMON /SBETA/  STB(135), TRA(108), TRAH(108), STBH(135)
17      COMMON /HTDATA/ AHT(195), BHT(49)
18      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K
19      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
20     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
21     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
22     3                HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
23     4                VFPL,VFSC,CTAB
24C
25      EQUIVALENCE (BW(41),CMOWB), (BH(41),CMOHB)
26      LOGICAL  FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
27     1         HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
28     2         TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
29     3         HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
30     4         VFPL,VFSC,CTAB
31C
32C***  WING-BODY CMO
33C
34      IF(.NOT. WGPL) GO TO 1010
35      DB  = 2.0*(WGIN(4)-WGIN(3))
36      XLN = (XW+0.5*DB*A(38))/DB
37      XLA = (XW+WGIN(6)+0.5*DB*A(80))/DB
38      XLA = BD(1)/DB-XLA
39      RN  = FLC(I+2)*A(122)
40      DBM = SBD(120)
41      WL  = 0.5*ZW/DBM
42      VT  = 0.0
43      HD  = 0.0
44      DOB = 0.5*DBM/WGIN(4)
45      CALL WBCM0(A(120), A(38), WGIN(16), XLN, XLA, A(118), WGIN(62),
46     1      WGIN(11), WGIN(93), WGIN(94), RN, FLC(96), WL,
47     2      VT, HD, DOB, FLC(I+2), CMOWB)
48      TRA(73) = CMOWB
49 1010 CONTINUE
50C
51C***  HORIZONTAL-BODY CMO
52C
53      IF(.NOT. HTPL) GO TO 1020
54      DB  = 2.0*(HTIN(4)-HTIN(3))
55      XLN = (XH+0.5*DB*AHT(38))/DB
56      XLA = (XH+HTIN(6)+0.5*DB*AHT(80))/DB
57      XLA = BD(1)/DB-XLA
58      RN  = FLC(I+2)*AHT(122)
59      DBM = SBD(120)
60      WL  = 0.5*ZW/DBM
61      VT  = 0.0
62      HD  = 0.0
63      DOB = 0.5*DBM/HTIN(4)
64      CALL WBCM0(AHT(120), AHT(38), HTIN(16), XLN, XLA, AHT(118),
65     1      HTIN(62),HTIN(11), HTIN(93), HTIN(94), RN, FLC(96), WL,
66     2      VT, HD, DOB, FLC(I+2), CMOHB)
67      TRAH(73) = CMOHB
68 1020 CONTINUE
69      RETURN
70      END
71