1 SUBROUTINE M18O22 2C 3C*** EXEC FOR OVERLAY 18, SUPERSONIC WING DRAG 4C 5 COMMON /OVERLY/ IJKDUM(8),NOVLY 6 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 7 COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV, 8 1 VERTUP, HINAX, XVF, SCALE, ZVT, ZVF, YV, YF, 9 2 PHIV, PHIF 10 COMMON /WINGI/ WINGIN(101) 11 COMMON /VTI/ VTIN(154), TVTIN(8), VFIN(154) 12 COMMON /HTI/ HTIN(154) 13 COMMON /WINGD/ A(195), B(49) 14 COMMON /HTDATA/ AHT(195), BHT(49) 15 COMMON /VTDATA/ AVT(195), AVF(195) 16 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 17 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 18 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 19 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 20 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 21 4 VFPL,VFSC,CTAB 22C 23 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 24 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 25 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 26 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 27 4 VFPL,VFSC,CTAB 28 DIMENSION INDX(12) 29 DATA INDX/1,2,3,4,5,6,7,119,120,163,167,168/ 30C 31 NOVLY=18 32 CALL SETUP1 33C 34C ----SET SURFACE GEOMETRY IF PRESENR 35C 36 IF(WGPL) CALL WTGEOM(A,WINGIN) 37 IF(HTPL) CALL WTGEOM(AHT,HTIN) 38 IF(VTPL) CALL WTGEOM(AVT,VTIN) 39 DO 1000 I=1,12 40 II=INDX(I) 41 IF(AVT(II).NE.UNUSED)AVT(II)=AVT(II)/2. 42 1000 CONTINUE 43 IF(VFPL) CALL WTGEOM(AVF,VFIN) 44 DO 1010 I=1,12 45 II=INDX(I) 46 IF(AVF(II).NE.UNUSED)AVF(II)=AVF(II)/2. 47 1010 CONTINUE 48 AVT(130) = AVT(130)+ZVT 49 AVT(133) = AVT(133)+ZVT 50 AVT(136) = AVT(136)+ZVT 51 AVF(130) = AVF(130)+ZVF 52 AVF(133) = AVF(133)+ZVF 53 AVF(136) = AVF(136)+ZVF 54C 55C ----SET /OPTION/ PARAMETERS IF NOT INPUT 56C 57 IF(SREF.EQ.UNUSED) SREF=A(4) 58 IF(CBARR.EQ.UNUSED) CBARR=A(122) 59 IF(ROUGFC.LT.1.0E-10)ROUGFC=1.6E-4 60C 61 IF(TRANSN)RETURN 62 IF(WGPL) CALL SUPDRG 63 RETURN 64 END 65