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