Home
last modified time | relevance | path

Searched refs:HTIN (Results 1 – 25 of 85) sorted by relevance

1234

/dports/games/freedoko/FreeDoko_0.7.19/src/ui/gtkmm/
H A Dhtin.cpp48 HTIN::HTIN(Table& table, Position const position) : in HTIN() function in UI_GTKMM_NS::HTIN
55 HTIN::~HTIN()
61 HTIN::position() const in position()
69 HTIN::rotation() const in rotation()
89 HTIN::player() const in player()
97 HTIN::hand() in hand()
105 HTIN::hand() const in hand()
137 HTIN::trickpile() in trickpile()
177 HTIN::icongroup() in icongroup()
217 HTIN::name() in name()
[all …]
H A Dhtin.h53 class HTIN : public Table::Part {
55 HTIN(Table& table, Position position);
56 ~HTIN() override;
90 HTIN() = delete;
91 HTIN(HTIN const&) = delete;
92 HTIN& operator=(HTIN const&) = delete;
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dm29o35.f26 COMMON /HTI/ HTIN(154) local
108 STBH(2)= (HTIN(4)-HTIN(12))/HTIN(4)
112 STBH(1)=-SYNA(7)+(.25*A(10)+BD(66))*SINSYN-(HTIN(4)-HTIN(3))
113 1 *TAN(HTIN(13)/RAD)
115 STBH(72)=(HTIN(4)-HTIN(3))*2.0
116 STBH(63)=SYNA(6)+BD(66)+HTIN(2)*AHT(86)+AHT(23)*AHT(62)+HTIN(1)/2.
169 IF(HTIN(13).EQ.UNUSED)HTIN(13)=0.0
170 IF(HTIN(12).EQ.UNUSED)HTIN(12)=0.0
171 IF(HTIN(14).EQ.UNUSED)HTIN(14)=HTIN(13)
172 STBH(122)=(HTIN(13)*(HTIN(3)-HTIN(12))+HTIN(14)*HTIN(12))
[all …]
H A Dcordsp.f10 COMMON /HTI/ HTIN(154) local
94 IF(HTIN(16).EQ.UNUSED)HTIN(16)=TOC
95 IF(HTIN(18).EQ.UNUSED)HTIN(18)=XT
96 IF(HTIN(70).EQ.UNUSED)HTIN(70)=TOC
97 IF(HTIN(71).EQ.UNUSED)HTIN(71)=KSHARP
98 IF(HTIN(62).EQ.UNUSED)HTIN(62)=0.
99 IF(HTIN(15).NE.A4HSTR.AND.HTIN(63).EQ.UNUSED)HTIN(63)=0.0
H A Dsupcm0.f13 COMMON /HTI/ HTIN(154) local
54 DB = 2.0*(HTIN(4)-HTIN(3))
56 XLA = (XH+HTIN(6)+0.5*DB*AHT(80))/DB
63 DOB = 0.5*DBM/HTIN(4)
64 CALL WBCM0(AHT(120), AHT(38), HTIN(16), XLN, XLA, AHT(118),
65 1 HTIN(62),HTIN(11), HTIN(93), HTIN(94), RN, FLC(96), WL,
H A Dtracm0.f13 COMMON /HTI/ HTIN(154) local
55 DB = 2.0*(HTIN(4)-HTIN(3))
57 XLA = (XH+HTIN(6)+0.5*DB*AHT(80))/DB
64 DOB = 0.5*DBM/HTIN(4)
65 CALL WBCM0(AHT(120), AHT(38), HTIN(16), XLN, XLA, AHT(118),
66 1 HTIN(62),HTIN(11), HTIN(93), HTIN(94), RN, FLC(96), WL,
H A Dsetup2.f11 COMMON /HTI/ HTIN(154) local
50 HTIN(I+20) = HTIN(69)/B(2)
51 HTIN(I+40) = HTIN(68)
64 HTIN(I+20) = HTIN(69)/B(2)
76 HTIN(I+20) = HTIN(69)/B(2)
88 HTIN(I+20) = HTIN(69)/B(2)
H A Dtrancd.f11 COMMON /HTI/ HTIN(154) local
56 IF(HTIN(15) .NE. STRA .OR. .NOT. HTPL) GO TO 1040
59 DB = 2.0*(HTIN(4)-HTIN(3))
61 LA = (XH + HTIN(6) + 0.5*DB*AHT(56))/DB
65 CALL WBCDL(AHT(120), AHT(38), HTIN(16), LN, LA, AHT(118),
66 1 HTIN(62), HTIN(11), HTIN(93), HTIN(94), RN,
H A Dwbcd.f12 COMMON /HTI/ HTIN(131) local
64 IF(HTIN(15) .NE. STRA .OR. .NOT. HTPL) GO TO 1040
67 DB = 2.0*(HTIN(4)-HTIN(3))
69 LA = (XH + HTIN(6) + 0.5*DB*AHT(56))/DB
73 CALL WBCDL(AHT(120), AHT(38), HTIN(16), LN, LA, AHT(118),
74 1 HTIN(62), HTIN(11), HTIN(93), HTIN(94), RN,
H A Dtrawbt.f13 COMMON /HTI/ HTIN(131) local
51 EQUIVALENCE (TOC,HTIN(16)),(ARSTAR,AHT(7)),(SWEPE2,AHT(71))
52 1,(TANC2,AHT(74)),(SR,SREF),(SRSTAR,AHT(3)),(CLAMO,HTIN(69))
53 EQUIVALENCE (SPAN,HTIN(4)),(SPANS,HTIN(3))
94 IF(HTIN(15).NE.WTYPE(1))RETURN
95 IF(WINGIN(4).LT.1.5*HTIN(4))RETURN
132 BHOBV=2.*HTIN(4)/BEFF
153 IF(WINGIN(4)/HTIN(4) .LT. 1.5) GO TO 1000
H A Dm16o20.f10 COMMON /HTI/ HTIN(131) local
13 CALL CALCA0(AHT,BHT,HTIN)
14 CALL WTLIFT(AHT,BHT,HTIN,HT)
15 CALL LIFTCF(AHT,BHT,HTIN,HT)
H A Dgrdeff.f15 COMMON /HTI/ HTIN(131) local
235 TANGIT=TAN(HTIN(13)/RAD)
236 TANGOT=TAN(HTIN(14)/RAD)
237 IF(HTIN(13).EQ.UNUSED.AND.HTIN(14).EQ.UNUSED) GO TO 1160
238 IF(HTIN(13).NE.UNUSED.AND.HTIN(14).EQ.UNUSED) GO TO 1150
239 IF(HTIN(13).EQ.UNUSED.AND.HTIN(14).NE.UNUSED) GO TO 1170
240 IF(AHT(136).LE.HTIN(4)-HTIN(12)) GO TO 1150
241 HTMAC4=HTMACX+(HTIN(4)-HTIN(12))*TANGIT+(AHT(136)+HTIN(12)
242 1 -HTIN(4))*TANGOT
248 1170 IF(AHT(136).LE.HTIN(4)-HTIN(12)) GO TO 1160
[all …]
H A Dconv.f15 COMMON /HTI/ HTIN(154) local
126 IF(HTIN(I) .NE. UNUSED) HTIN(I) = HTIN(I)*SCALE/XL
131 IF(HTIN(12) .NE. UNUSED) HTIN(12) = HTIN(12)*SCALE/XL
137 IF((I .GE. 115) .AND. (HTIN(I) .NE. UNUSED))
138 1 HTIN(I) = HTIN(I)*ASCALE/XA
139 IF((I .LE. 114) .AND. (HTIN(I) .NE. UNUSED))
140 1 HTIN(I) = HTIN(I)*SCALE/XL
H A Dbdarea.f11 COMMON /HTI/ HTIN(154) local
28 1010 A(1)=SYNA(6)+(HTIN(4)-HTIN(3))*AHT(62)*COS(SYNA(8)/RAD)
204 HTIN(114+I)=AREAUB+AREALB
205 HTIN(134+I)=AREAU+AREAL
208 XCB=AXTB/HTIN(114+I)
209 YCB=AYTB/HTIN(114+I)
211 1 +(HTIN(4)-HTIN(3))*AHT(62)*COS(SYNA(8)/RAD)
212 HTIN(94+I)=XBARB-SYNA(1)
H A Dwbaero.f18 COMMON /HTI/ HTIN(154) local
86 YEXP=HTIN(4)-HTIN(3)
88 FACT(142)=(HTIN(4)-HTIN(3))/HTIN(4)
96 CALL BODOWG(BD(255),XC4,YEXP,HTIN(4),AHT(27),FACT(143),
102 CALL WBLIFT(AHT,BHT,DB,AIW,HB,BH,FACT(142),BODY,HT,HTIN)
103 CALL WBCM(AHT,BHT,CHT,DB,XCG,XH,COSAIW,CMOB,HB,BH,BODY,HTIN,ZAC,
H A Dwgeotl.f11 COMMON /HTI/ HTIN(154) local
50 RCREO2=HTIN(4)-HTIN(3)
53 FACT(J+41)=ALI(Z0,Y0,HTIN(4),RCREO2,AHT(27))
H A Dsupltg.f38 COMMON /HTI/ HTIN(154) local
52 1(CR,HTIN(6))
64 EQUIVALENCE (SPAN,HTIN(4)),(SPANO,HTIN(2)),(CRBW,STG(118))
65 1,(TANTEO,A(104)),(CB,HTIN(5)),(CT,HTIN(1)),(TAPBW,STG(121))
83 EQUIVALENCE (LERO,HTIN(63)),(LERI,HTIN(62)),(KSHARP,HTIN(71))
84 1,(TCEFF,HTIN(70))
528 DXH=(HTIN(4)-HTIN(3))*A(62)*COS(SYNA(8)/RAD)
536 IF(HTIN(15).NE.WTYPE(1))GO TO 1310
915 IF(HTIN(15).NE.WTYPE(1))GO TO 1510
997 IF(HTIN(15).NE.WTYPE(1))GO TO 1580
[all …]
H A Dcheck.f37 COMMON /HTI/ HTIN(154) local
92 IF(HTIN(92) .EQ. UNUSED) HTIN(92) = 3.5
93 IF(HTIN(92) .LT. 3.0) HTIN(92) = 3.0
94 IF(HTIN(92) .GT. 4.0) HTIN(92) = 4.0
103 SPANR = WGIN(4)/HTIN(4)
152 SSPN = HTIN(4)
153 SSPNE = HTIN(3)
H A Dm56o70.f8 COMMON /HTI/ HTIN(154) local
36 IF(HTIN(94+I).NE.UNUSED.AND.HTIN(114+I).NE.UNUSED.AND.
37 1 HTIN(134+I).NE.UNUSED) GO TO 1070
H A Dsuplat.f20 COMMON /HTI/ HTIN(154) local
71 1 (SHB(1),HTIN(115)),(SEXT(1),HTIN(135))
72 EQUIVALENCE (RLPH(1),HTIN(95))
211 ZH = ZHH-((HTIN(4)-HTIN(3))*AHT(62)+AHT(30))*SIN(ALIH/RAD)
349 RH= HTIN(4)-HTIN(3)
354 ARG=RH/HTIN(4)
H A Dsyndim.f15 COMMON /HTI/ HTIN(154) local
27 AHT(173) = XCG-(XH+(HTIN(4)-HTIN(3))*AHT(62)*COS(ALIH/RAD))
H A Dsuplaf.f17 COMMON /HTI/ HTIN(154) local
46 EQUIVALENCE (RLPH(1),HTIN(95)), (SVWB(1),VTIN(95))
55 ZH = ZHH-((HTIN(4)-HTIN(3))*AHT(62)+AHT(30))*SIN(ALIH/RAD)
85 R2OBO2=R1/HTIN(4)
H A Dsuplav.f17 COMMON /HTI/ HTIN(154) local
46 EQUIVALENCE (RLPH(1),HTIN(95)), (SVWB(1),VTIN(95))
55 ZH = ZHH-((HTIN(4)-HTIN(3))*AHT(62)+AHT(30))*SIN(ALIH/RAD)
85 R2OBO2=R1/HTIN(4)
H A Dsuplng.f36 COMMON /WINGI/ HTIN(100) local
59 2(DELTAY,HTIN(17)),(BCNA,SLG(4)),(DELTYT,SLG(8)),(DELTDT,SLG(9)),
66 EQUIVALENCE (SPAN,HTIN(4)),(SPANO,HTIN(2)),(CRBW,SLG(118))
67 1,(TANTEO,A(104)),(CB,HTIN(5)),(CT,HTIN(1)),(TAPBW,SLG(121))
84 EQUIVALENCE (LERO,HTIN(63)),(LERI,HTIN(62)),(KSHARP,HTIN(71))
85 EQUIVALENCE (SPANS,HTIN(3)),(XW,SYNA(2)),(XCG,SYNA(1))
541 IF(HTIN(15).NE.WTYPE(1))GO TO 1310
915 IF(HTIN(15).NE.WTYPE(1))GO TO 1500
941 IF(SWEPLE .LT. 1.E-10 .AND. HTIN(MIDX+71) .NE. UNUSED)
942 1 XACCR=HTIN(MIDX+71)*A(16)/CRSTAR
H A Dm50o62.f19 COMMON /HTI/ HTIN(154) M50O62 local
53 IF(HTIN(15) .EQ. UNUSED) GO TO 1010 M50O62
54 CALL SECI(BH(1),CAMBER,ATYPE,HTIN,L) M50O62
55 RHO = HTIN(62) M50O62
111 CALL SECO(HTIN(1),CAMBER,ATYPE) M50O62

1234