1 SUBROUTINE M26O32 2C 3C*** EXEC FOR OVERLAY 26, HYPERSONIC BODY AERO 4C 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY 6 COMMON /IBODY/ PB, BODY(400) 7 COMMON /FLGTCD/ FLC(93) 8 COMMON /OPTION/ SREF,CBARR,ROUGFC,BLREF 9 DIMENSION C1(6),C2(6),ROUTID(2) 10 DATA ROUTID/ 4HM26O, 4H32 / 11 NOVLY=26 12 CALL HYPBOD(I) 13 BFACT = CBARR/BLREF 14 IN = 0 15 IM = 0 16 DO 1000 J=1,NALPHA 17 CALL TBFUNX(FLC(J+22),X,BODY(J+100),NALPHA,FLC(23),BODY(21), 18 1 C1,IN,MI,NG,0,0,4HCLAB,1,ROUTID) 19 CALL TBFUNX(FLC(J+22),X,BODY(J+120),NALPHA,FLC(23),BODY(41), 20 1 C2,IM,MI,NG,0,0,4HCMAB,1,ROUTID) 21 BODY(J+140) = -BODY(J+100) 22 BODY(J+160) = -BFACT*BODY(J+120) 23 BODY(J+180) = 0.0 24 1000 CONTINUE 25 RETURN 26 END 27