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