1 SUBROUTINE PRNSEC(ICONF) 2C 3C WRITE CONFIGURATION SECOND LEVEL PARTIAL OUTPUTS 4C 5 COMMON /SBETA/ STB(135), TRA(108), TRAH(108) 6 COMMON /LEVEL2/ SECOND(23) 7 DIMENSION SMACH(4) 8 IF(ICONF .EQ. 3) GO TO 1000 9 IF(ICONF .EQ. 6) GO TO 1000 10C 11C WRITE WING PARTIAL OUTPUTS 12C 13 WRITE(6,1010) 14 WRITE(6,1020)SECOND(17),SECOND(18),TRA(5),TRA(6) 15 AMACH=TRA(6) + 0.07 16 BMACH=TRA(6) + 0.14 17 WRITE(6,1030)AMACH,TRA(13),BMACH,TRA(15),SECOND(1),SECOND(2) 18 WRITE(6,1040) 19 WRITE(6,1050)(TRA(I+15),TRA(I+20),I=1,5) 20 IF(ICONF .EQ. 2) GO TO 1140 21C 22C WRITE WING-BODY PARTIAL OUTPUTS 23C 24 WRITE(6,1060) 25 WRITE(6,1070)SECOND(21),SECOND(5),SECOND(6),SECOND(9) 26 1000 IF(ICONF .NE. 3 .AND. ICONF .NE. 6 .AND. ICONF .NE. 8 .AND. 27 1 ICONF .NE. 10) GO TO 1140 28C 29C WRITE HORIZONTAL TAIL PARTIAL OUTPUTS 30C 31 WRITE(6,1080) 32 WRITE(6,1020)SECOND(19),SECOND(20),TRAH(5),TRAH(6) 33 AMACH=TRAH(6) + 0.07 34 BMACH=TRAH(6) + 0.14 35 WRITE(6,1030)AMACH,TRAH(13),BMACH,TRAH(15),SECOND(3),SECOND(4) 36 WRITE(6,1040) 37 WRITE(6,1050)(TRAH(I+15),TRAH(I+20),I=1,5) 38 IF(ICONF .EQ. 3) GO TO 1140 39C 40C WRITE HORIZONTAL TAIL-BODY PARTIAL OUTPUTS 41C 42 WRITE(6,1090) 43 WRITE(6,1070)SECOND(22),SECOND(7),SECOND(8),SECOND(10) 44 IF(ICONF .NE. 8 .AND. ICONF .NE. 10) GO TO 1140 45C 46C WRITE B-W-H OR B-W-H-V PARTIAL OUTPUTS 47C 48 WRITE(6,1100) 49 WRITE(6,1110)SECOND(23) 50 WRITE(6,1120) 51 SMACH(1)=0.6 52 SMACH(2)=0.7 53 SMACH(3)=1.1 54 SMACH(4)=1.4 55 WRITE(6,1130)(SMACH(I),SECOND(I+10),I=1,4) 56 1010 FORMAT(//53X,26H *** WING DATA FAIRING ***) 57 1020 FORMAT(39X,11HCDL/CL**2 =,E11.4,5X,8HCLB/CL =,E11.4/12X, 58 1 38HFORCE BREAK MACH NUMBER (ZERO SWEEP) =,E11.4,5X, 59 2 38HFORCE BREAK MACH NUMBER (WITH SWEEP) =,E11.4) 60 1030 FORMAT(22X,9HMACH(A) =,F6.3,5X,8HCLA(A) =,E11.4, 61 1 5X,9HMACH(B) =,F6.3,5X,8HCLA(B) =,E11.4/ 62 2 48X,15H(CLB/CL)M=0.6 =,E11.4,5X,15H(CLB/CL)M=1.4 =,E11.4/) 63 1040 FORMAT(50X,36HLIFT-CURVE-SLOPE INTERPOLATION TABLE/ 64 1 54X,4HMACH,15X,8HCL-ALPHA) 65 1050 FORMAT(52X,F6.3,14X,E11.4) 66 1060 FORMAT(//50X,31H *** WING-BODY DATA FAIRING ***) 67 1070 FORMAT(12X,8HCLB/CL =,E11.4,5X,13H(CLB/CL)MFB =,E11.4,5X, 68 1 15H(CLB/CL)M=1.4 =,E11.4,5X,12H(CNA)M=1.4 =,E11.4) 69 1080 FORMAT(////50X,37H *** HORIZONTAL TAIL DATA FAIRING ***) 70 1090 FORMAT(//45X,42H *** HORIZONTAL TAIL-BODY DATA FAIRING ***) 71 1100 FORMAT(////42X,47H *** BODY-WING-HORIZONTAL TAIL DATA FAIRING ***) 72 1110 FORMAT(48X,29HDRAG DIVERGENCE MACH NUMBER =,F6.3) 73 1120 FORMAT(54X,4HMACH,17X,3HCDO) 74 1130 FORMAT(52X,F6.3,14X,E11.4) 75 1140 CONTINUE 76 RETURN 77 END 78