1      SUBROUTINE SECO(A,CAMBER,ATYPE)
2C
3C  FOR EACH PLANFORM SET UP OUTPUT DATA
4C
5      COMMON / IBH /  PBH, THN(60),CAM(60),A0,XC,MCC,CLCC,XAC(20)
6      COMMON /IBWH/   PBWH,AI,ALO,CLI,ASEP,CMCO4,CLA0,CLA(20),CLMAX0,
7     1                CLMAX(20)
8      COMMON /IBWHV/  PBWHV, RHO,TMAX,DELTAY,XOVC,TOVC,COVC
9      COMMON /CONSNT/ PI,DEG,UNUSED,RAD
10      COMMON /FLGTCD/ FLC(93)
11      DIMENSION A(162)
12      IF(A(16).EQ.UNUSED) A(16)=2.*TOVC
13      IF(A(17).EQ.UNUSED) A(17)=DELTAY
14      IF(A(18).EQ.UNUSED) A(18)=XOVC
15      IF(A(19).EQ.UNUSED) A(19)=CLI
16      IF(A(20).EQ.UNUSED) A(20)=AI
17      NMACH=FLC(1)+0.5
18      DO 1000 M=1,NMACH
19         IF(A(M+20).EQ.UNUSED) A(M+20)=CLA(M)
20         IF(A(M+40).EQ.UNUSED) A(M+40)=CLMAX(M)
21         IF(A(M+71).EQ.UNUSED) A(M+71)=XAC(M)
22 1000 CONTINUE
23      IF(A(61).EQ.UNUSED) A(61)=CMCO4
24      IF(A(62).EQ.UNUSED) A(62)=RHO
25      A(64)=CAMBER
26      IF(A(68).EQ.UNUSED) A(68)=CLMAX0
27      IF(A(69).EQ.UNUSED) A(69)=CLA0
28      IF(A(10).EQ.UNUSED)A(10)=ALO
29      IF(A(93).EQ.UNUSED) A(93)=COVC
30      IF(ATYPE.GE.0.) GO TO 1010
31      IF(A(63).EQ.UNUSED) A(63)=RHO
32      IF(A(65).EQ.UNUSED) A(65)=2.*TOVC
33      IF(A(66).EQ.UNUSED) A(66)=XOVC
34      IF(A(67).EQ.UNUSED) A(67)=CMCO4
35 1010 CONTINUE
36      RETURN
37      END
38