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