1 SUBROUTINE CTABS 2C 3C*** CONTROL TAB METHODS 4C 5 REAL KS,KQ,MACH 6 COMMON /IBW/ PBW, BW(380) 7 COMMON /IBH/ PBH, BH(380) 8 COMMON /IBV/ PBV, BV(380) 9 COMMON /IBWH/ PBWH, BWH(380) 10 COMMON /IBWHV/ PBWHV, BWHV(380) 11 COMMON /FLGTCD/ NNNNN,MMMMMM,MACH(20),ALPHA(20),RNNUB(20),NGH 12 1 ,GRDHT(10),PINF(20),STMACH,TSMACH,TR,ALT(20) 13 2 ,TINF(20),VINF(20),WT,GAMMA,NALT,LOOP 14 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 15 COMMON /FLAPIN/ F(116),TTYPE,CFITC,CFOTC,BITC,BOTC,CFITT,CFOTT, 16 1 BITT,BOTT,B1,B2,B3,B4,D1,D2,D3,GCMAX, 17 2 KS,RL,BGR,DELR 18 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 19 COMMON /OVERLY/ NLOG,NMACH,II,NALPHA,IG,NF,LF,K 20 DIMENSION CHCTF(20,9),CHCTL(20,9),DELT(9),DCHCG(20,9) 21 DIMENSION DTT(20,9),CFC(20,9),FC(20,9) 22 EQUIVALENCE (FC(1,1),CFC(1,1),BW(201)),(CHCTF(1,1),BH(201)), 23 1 (CHCTL(1,1),BV(201)),(DCHCG(1,1),BWH(201)), 24 2 (DELT(1),F(1)),(DTT(1,1),BWHV(201)) 25C 26C*** CALCULATE R1 AND R2 27C 28 STC=(CFITC+CFOTC)*(BOTC-BITC) 29 CTC=2.0*(CFITC+CFOTC-CFITC*CFOTC/(CFITC+CFOTC))/3.0 30 AC=STC*CTC/(SREF*CBARR) 31 Q=0.0 32 KQ=0.0 33 IF(PINF(II) .EQ. UNUSED) GO TO 1000 34 Q=0.7*PINF(II)*MACH(II)**2 35 KQ=KS/Q 36 1000 CONTINUE 37 IF(RL .GE. 0.0) GO TO 1010 38 R1 = 0.0 39 R2 = 1.0 40 1010 CONTINUE 41 IF(RL .NE. 0.0) GO TO 1020 42 D = B2/(AC*D2)+KQ*BGR/D2 43 R1 = DELR/D 44 R2 = -R1*(KQ/D2) 45 1020 CONTINUE 46 IF(RL .LE. 0.0) GO TO 1030 47 D = RL+B2/(AC*D2)-KQ*(RL-BGR)/D2 48 R1 = (RL+DELR)/D 49 R2 = -R1*(KQ/D2) 50 1030 CONTINUE 51C 52C*** CALCULATE CONTROL FORCE 53C 54 ITYPE = TTYPE+0.5 55 DO 1050 I=1,NALPHA 56 NDELTA = F(16)+0.5 57 DO 1040 J=1,NDELTA 58 CHCTF(I,J) = (B1+D1*B2/D2)*DELT(J)+(B3-D3*B2/D2)*ALPHA(I) 59 CHCTL(I,J) = B1*DELT(J)+B3*ALPHA(I) 60 DCHCG(I,J) = (BGR*B2+BGR*AC*D1+BGR*BGR*AC*D2)*DELT(J) 61 1 + BGR*AC*D3*ALPHA(I) 62 CFC(I,J) = GCMAX*(R1*CHCTF(I,J)+R2*CHCTL(I,J)+R2*DCHCG(I,J)) 63 IF(ITYPE .EQ. 2) DTT(I,J) = -(B1*DELT(J)+B3*ALPHA(I))/B4 64 IF(ITYPE .EQ. 3) DTT(I,J) = CFC(I,J)/(B4*(R1+R2)*GCMAX) 65 IF(Q .GT. 0.0) FC(I,J) = CFC(I,J)/(Q*SREF*CBARR) 66 1040 CONTINUE 67 1050 CONTINUE 68 RETURN 69 END 70