/dports/games/freedoko/FreeDoko_0.7.19/src/ui/gtkmm/ |
H A D | htin.cpp | 48 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 D | htin.h | 53 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 D | m29o35.f | 26 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 D | cordsp.f | 10 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 D | supcm0.f | 13 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 D | tracm0.f | 13 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 D | setup2.f | 11 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 D | trancd.f | 11 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 D | wbcd.f | 12 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 D | trawbt.f | 13 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 D | m16o20.f | 10 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 D | grdeff.f | 15 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 D | conv.f | 15 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 D | bdarea.f | 11 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 D | wbaero.f | 18 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 D | wgeotl.f | 11 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 D | supltg.f | 38 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 D | check.f | 37 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 D | m56o70.f | 8 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 D | suplat.f | 20 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 D | syndim.f | 15 COMMON /HTI/ HTIN(154) local 27 AHT(173) = XCG-(XH+(HTIN(4)-HTIN(3))*AHT(62)*COS(ALIH/RAD))
|
H A D | suplaf.f | 17 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 D | suplav.f | 17 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 D | suplng.f | 36 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 D | m50o62.f | 19 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
|