1      SUBROUTINE FLTCL(FOT,IFOT,NTRIM,CLUT,CDUT,CMUT,DELT,
2     1                 DCLT,DCLMT,DCDIT,DCDMT,CDHT,CLT,CDT,
3     2                 ICASE)
4C
5      COMMON /OPTION/   SREF,CBARR,ROUGFC,BLREF
6      COMMON /CONSNT/   PI,DEG,UNUSED,RAD
7      COMMON /FLGTCD/   FLC(156),WT,GAM,NALT,LOOP
8      COMMON /OVERLY/   NLOG,NMACH,IM,NALPHA,IG,NF,LF,IALT
9      COMMON /CASEID/   JCASE(175),IDIM
10C
11      DIMENSION FOT(46),IFOT(11),CLUT(20),CDUT(20),CMUT(20)
12      DIMENSION DELT(20),DCLT(20),DCLMT(20),DCDIT(20),DCDMT(20)
13      DIMENSION CDHT(20),CLT(20),CDT(20)
14      DIMENSION CWT(20),MACH(20),PINF(20)
15      DIMENSION ALP(1),CL(1),CD(1),CLUE(1),CDUE(1),CMUE(1)
16      DIMENSION DELE(1),DCLE(1),CLME(1),CLIE(1),CDME(1),CHDE(1)
17      DIMENSION CHAE(1),WDIM(4),ROUTID(2),CC(6)
18C
19      LOGICAL FLAG
20	CHARACTER*4 FOT
21      REAL MACH
22      EQUIVALENCE (MACH(1),FLC(3)),(PINF(1),FLC(74))
23C
24      DATA WDIM / 4H LB., 4H LB., 4H N. , 4H N. /
25      DATA ROUTID / 4HFLTC, 4HL   /
26C
27C***  ICASE = 1 - TRIM WITH FLAPS
28C***  ICASE = 2 - ALL MOVEABLE HORIZONTAL TAIL TRIM
29C
30      IF(ICASE .NE. 1) GO TO 1010
31        DO 1000 I=1,NTRIM
32          CLT(I) = CLUT(I)+DCLT(I)
33          CDT(I) = CDUT(I)+DCDMT(I)+DCDIT(I)
34 1000   CONTINUE
35 1010 CONTINUE
36C
37C*** CALCULATE CW AND TEST FOR CWT RANGE
38C
39      QS = SREF*(0.7*PINF(IALT)*MACH(IM)**2)
40      CW = WT/QS
41      DO 1020 I=1,NTRIM
42        CWT(I) = CLT(I)*COS(GAM/RAD)-CDT(I)*SIN(GAM/RAD)
43 1020 CONTINUE
44      FLAG = (CW .GT. CWT(NTRIM)) .OR. (CW .LT. CWT(1))
45      IF(FLAG) WRITE(6,1060)WT,WDIM(IDIM),CW
46C
47C***  FIND EQUILIBRIUM ANGLE OF ATTACK AND TRIM DATA
48C
49      IF(FLAG) GO TO 1050
50        IN=0
51        CALL TBFUNX(CW,ALP(1),DYDX,NTRIM,CWT,FLC(23),CC,IN,
52     1              MI,NG,0,0,4HALPE,1,ROUTID)
53        IN=0
54        CALL TBFUNX(ALP(1),CL(1),DYDX,NTRIM,FLC(23),CLT,CC,IN,
55     1              MI,NG,0,0,4HCLTE,1,ROUTID)
56        IN=0
57        CALL TBFUNX(ALP(1),CD(1),DYDX,NTRIM,FLC(23),CDT,CC,IN,
58     1              MI,NG,0,0,4HCDTE,1,ROUTID)
59        IF(ICASE .NE. 1)GO TO 1030
60          IN = 0
61          CALL TBFUNX(ALP(1),CLUE(1),DYDX,NTRIM,FLC(23),CLUT,CC,IN,
62     1                MI,NG,0,0,4HCLUE,1,ROUTID)
63          IN = 0
64          CALL TBFUNX(ALP(1),CDUE(1),DYDX,NTRIM,FLC(23),CDUT,CC,IN,
65     1                MI,NG,0,0,4HCDUE,1,ROUTID)
66          IN = 0
67          CALL TBFUNX(ALP(1),CMUE(1),DYDX,NTRIM,FLC(23),CMUT,CC,IN,
68     1                MI,NG,0,0,4HCMUE,1,ROUTID)
69          IN = 0
70          CALL TBFUNX(ALP(1),DELE(1),DYDX,NTRIM,FLC(23),DELT,CC,IN,
71     1                MI,NG,0,0,4HDELE,1,ROUTID)
72          IN = 0
73          CALL TBFUNX(ALP(1),DCLE(1),DYDX,NTRIM,FLC(23),DCLT,CC,IN,
74     1                MI,NG,0,0,4HDCLE,1,ROUTID)
75          IN = 0
76          CALL TBFUNX(ALP(1),CLME(1),DYDX,NTRIM,FLC(23),DCLMT,CC,IN,
77     1                MI,NG,0,0,4HCLME,1,ROUTID)
78          IN = 0
79          CALL TBFUNX(ALP(1),CLIE(1),DYDX,NTRIM,FLC(23),DCLIT,CC,IN,
80     1                MI,NG,0,0,4HCLIE,1,ROUTID)
81          IN = 0
82          CALL TBFUNX(ALP(1),CDME(1),DYDX,NTRIM,FLC(23),DCDMT,CC,IN,
83     1                MI,NG,0,0,4HCDME,1,ROUTID)
84          IN = 0
85          CALL TBFUNX(ALP(1),CHDE(1),DYDX,NTRIM,FLC(23),CHDT,CC,IN,
86     1                MI,NG,0,0,4HCHDE,1,ROUTID)
87          CHAE(1) = 0.0
88          WRITE(6,1070)
89          CALL SWRITE(11,FOT,46,IFOT,1,ALP,CLUE,CDUE,CMUE,
90     1                DELE,DCLE,CLME,CDIE,CDME,CHAE,CHDE,
91     2                X,X,X,NDM,NAF)
92 1030   CONTINUE
93        IF(ICASE .NE. 2) GO TO 1040
94          WRITE(6,1070)
95          WRITE(6,1080) ALP(1),CL,CD
96 1040   CONTINUE
97 1050 CONTINUE
98      RETURN
99 1060 FORMAT(39H0*** REQUIRED LIFT COEFFICIENT EXCEEDS ,
100     1       18HRANGE OF TRIM DATA  /
101     2       22H0*** VEHICLE WEIGHT = ,F9.2,A4/
102     3       36H0*** LEVEL FLIGHT LIFT COEFFICIENT = ,F8.5)
103 1070 FORMAT(1H )
104 1080 FORMAT(1H0,52X,F5.1,3X,F6.3,3X,F6.3)
105      END
106