1      SUBROUTINE SYNDIM
2C
3C***  CALCULATES SYNTHESIS DIMENSIONS FOR BODY ANALYSIS
4C
5      COMMON /BDATA/  BD(762)
6      COMMON /WINGI/  CHRDTP,SSPNOP,SSPNE,SSPN,CHRDBP,CHRDR,SAVSI,SAVSO,
7     1                CHSTAT,ALPHAO,TWISTA,SSPNDD,DHDADI,DHDADO,TYPE,
8     3                TOVC,DELTAY,XOVC,CLI,ALPHAI,CLALPA(20),
9     4                CLMAX(20),CMO,LERI,LERO,CAMBER,TOVCO,XOVCO,CMOT,
10     5                CLMAXL,CLAMO,TCEFF,KSHARP,SLOPE(6)
11      COMMON /WINGD/  A(195)
12      COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV,
13     1                VERTUP, HINAX, XVF, SCALE, ZV, ZVF, YV,YF,
14     2                PHIV, PHIF
15      COMMON /HTI/    HTIN(154)
16      COMMON /HTDATA/ AHT(195), BHT(49)
17      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
18C
19      BD(87)=2.*(SSPN-SSPNE)
20      BD(78)= SIN(BD(77)/RAD)
21      BD(79)= COS(BD(77)/RAD)
22      BD(80)= BD(78)/BD(79)
23      BD(66)= 0.5*BD(87)*A(62)*BD(79)
24      BD(67)= BD(33)-(BD(65)+BD(66))
25      A(173)=BD(67)
26      BD(68)=BD(74)-BD(65)*BD(80)
27      AHT(173) = XCG-(XH+(HTIN(4)-HTIN(3))*AHT(62)*COS(ALIH/RAD))
28      RETURN
29      END
30