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