Views
5 years ago

COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation

COMPUTER PROGRAM USER'S MANUAL FOR ... - CAFE Foundation

FOHTRAN IV G LEVEL 20.1

FOHTRAN IV G LEVEL 20.1 MAIN 0 135 NT S= 10 0136 TI PSDC4 1) =700. 0137 0138 TI PSPO=700. GO TO 320 . 0139 0140 310 TlPSPD=TS(fC)-DTS(IC) NTS=NDTS I IC 1 0141 320 DO 600 ITS=l*NTS 0 142 TIPSPD=TlPSPD+DTSlIC) OATE = 72034 10/08/04 C MACH NUMBER CALCULATION AND AUVANCE RATIO J 0143 0 144 LHS~l~=.001512*VKTASlIC~*FC~IC~ ZMS(ZI=TIPSPD*fC( IC)/1120. 0 145 ZMl=ZMSI 1) 0146 0147 0148 ZJI=5.309*VKTASllC)/TlPSPD 340 IFlZJI.EQ.0.) ZHL=ZMS(Z) IF ISTALITIIC).LE..SO.AND.ZJI.LE.5.0) GO TO 342 0149 IF(STALITLIC).GT..50.AND.ZJI.L€.3.0) GO TO 342 0150 WRITE(6p341) ZJI 0151 341 FOEMAT(' ADVANCE RATIO TOO HIGH = ' 9 F8.4) 0152 GO TO 600 0 153 342 CONTlNUE C ITERAIION ON CT OR CP TO GET 50 PFRCENT STALL TIPSPEED 0154 0155 IF IN=O IF (STALIT(ICJ.LE..501 GO TO 399 01 56 IUSV=IW 0157 0158 I u=3 CALL PERFY ~3~CP~ZJI~AFT~BLAOT~CLl~Cl~Z~S~77lO~ 0159 I d=I HSV 0160 IF(Ik.EQ.2) GO TU 712 0161 711 BHPClITSI=2.0*TIPSDG~ITS)**3*DIA*~2~69hb.~CP/~l~.El~~R~R~~IC~l 0 162 IF(ABSIBHPlIC)-BHPG(lTS)).GE..OO5*BHP(IC~) GO TO 705 0163 THHUSTIIC~=CT*TIPSPD**2*~IA~~2/~1.515E06*RORO~IC~~~~64.76 0164 T4 1C=l. 0165 0 166 0 167 GO TO 720 705 IF(ITS.EQ.11 GO TO 7000 TIPSDG~ITS+1~~~ALOG~BHPlIC~~-ALOGlBHPGllTS-l~ ))*(TIPSDG(lTS)- 1TIPSDGllTS-1l~/~ALOG~BHPG(ITS~~-ALOG~~HPG~lTS-l~~~+TlPSDG~ITS-l~ 0 168 GO TO 709 0 169 7000 TIPSDG121=400. 0170 TIPSPO=TIPSDGIITS+l) 0171 GO TO 600 0172 712 THRSTG(ITS)=TIPSDG(ITS)**2*DlA**2*364.76*CT/l 1.515E06*RDRO(lC)~ 0173 IFlABS(THRUST(ICI-THRSTG(iTS~~.~E..O~5*THRUST~IC)~ GO TO722 0174 TIPSPD=TIPSCG(ITS) 0175 BHPlICI=CP*2.0*TIPSP0**7*DIA**2/(10.E10*ROR~~IC~I*6966. 01 76 TRIG=l. 0177 GO TO 720 0178 722 lFlITS.EQ.1) GO TO 7000 0179 TIPSDG~ITS+L)=(ALOGITHRUST(IC))-ALOG(THRSTG(ITS-~~I~*(TIPS~G(ITS~oleo lTIPSDG~ITS-1~I/~ALOG~THRSTG~ITSI~-ALOG~THRSTGll~S-lJ~~+TIPSDG 2( I is-I 1 709 TIPSPD=TIPSOG(ITS+l) 0101 1FlNTS.NE.ITS) GO TO 600 0182 0183 WRITE I 615981 598 FORMAT {//' FAILED STALL ITERATION '// I 0184 GO TO 700 C END OF T IPSPD ITERATION 50 PERCENT STALL C CALCULATION OF REQUIRED CP OR CT 0185 399 IFllU-1)400~400~430 FIGURE 3A. FORTRAN IV L-ISTING (CONTINUED) 51

FORTRAN I V G LEVEL 20.1 MA IN OATE = 72034 10/08/04 0186 400 CP=BHPIIC~*lO.E10*RURO(IC~/~2.O*TIPSPD*~3*DIA**2*6966.~ 0187 CALL PERFM (lrCP~ZJI,AFT~BLAOT~CLi~CT~Zf4S~LIMIT~ 0188, 0189 420 THRUST~IC~~CT*TIPSPD**2*DlA**2/~l~5l5EO6*RORO~IC~~*364~76*XFT IF ICT.EQ.ASTERKJ THRUSTIICJ=9999999999. 0 190 GO Ti) 460 0 191 430 CT~THRUST~IC~*1~5lSEO6~RORD~IC~/~TIPSPD**2*D~A**2*364~76~ 0 192 CALL PERFM (~~CPIZJI~AFT~BLADT~CLI~CT,ZMS~LIMIT) 0193 450 BHP~IC~=CP*2.0~TIPSP~~*3*~IA*~2/~~O.ElO*RORO~IC~~*6966. 0194 IF ICP.EQ.ASTERK) BHP( IC)=959999999. 0195 460 IF (CP.NE.ASTERKI GO TO 720 0 196 PNL=99999999. 0197 WT70=99999. 0198 kT80-99999. 0 199 COST70( 1 )=99999. 0200 COST80(1)=99999. 0201 GO TO 730 0202 720 PNL=O.@ 0203 I S TALL=O 0204 0205 IFIDISTIIC).LE.O.) GO TO 461 CALL ZNOISE (BLADT~DIA,TIPSPD~VKTAS~ICl~~HP~lC)~OISTl[C~~PNL lFCLIC),XNOEI 0 206 CPA=CP 0207 CTA=CT 0208 SBLLL'BLCLL 0 209 SXFT=XFT 02 10 IWSV=IkJ 0211 I13=3 0212 CALL PEFFY(3~CP,ZJI~AFT~BLADT~CLI~CT~ZMS~7710~ 0213 CPS=CP 0214 CP=C P A 0215 C T=C TA 0216 BLLLL=SE!LLL 0217 0218 0219 XFT=SXFT Ik=I wsv IF (CP.GT.CPS) PNL=93999999. 0220 CONTINUE 461 0221 kl70-99999. 0222 WTE0=99999. 0 223 COST7011)=99999. 0224 COSTRO( 1) =99999. 0225 IF NCClST-1) 730,7251730 0 226 725 IF(NCOST.EO.1)CALL WAIT(kTCON,ZYWT,BHPI lkf7C~WT801 [C),OIA,AFTrHLAOT,TIPSPDI 0227 IEhT-2 0228 CALL COST IWTCO~rBLAOT,CLFL~CLF1CK701CK7O~CK~O~CA~T~~A~ l ~ r ~ l 7 0 r W T 8 O ~ C O S T 7 0 ~ C O S T 8 O ~ C C L F I C C ~ 7 ~ ~ C C K ~ O ~ l E N T ~ 0229 GO TO 1570r5801,IW 0230 576 WRITE (6~5751DIA~TIPSPD~THRUSTtIC~~PNL~C~UAN~l~l~~WT7O~ 0231 1 C Q U A N ~ 2 ~ 1 I ~ W T 8 0 ~ C O S T ~ O ~ l ~ ~ B L L L L ~ X f ~ ~ Z ~ l ~ ~ J ~ ~ C P ~ 575 F O P M A T ( 2 F 7 ~ O ~ F 9 ~ 0 ~ F 6 ~ O ~ Z F $ ~ O ~ f 9 ~ O ~ Z ~ ~ ~ O ~ F 9 ~ 12~e.4) 0232 GO TU 585 02 33 580 WRITE l69575) DIAvTIPSPD,BHP( [C)rPNLvCQUANl 11l)rWT7Q1C3ST70( 11, 1CQCAN~2rl~~hT8OrCOSTBOorBCLLL~~XFT~ZMl~ZJI~CP~CT 0 234 585 IFINAMT-1) 409401586 0235 586 DO 588 I=29r\lAMT 0236 kRITE(h,587) C Q U A N ~ L ~ ~ ~ ~ W T 7 0 ~ C @ S T 7 O ~ I ~ ~ C Q U A N ~ 2 ~ I ~ ~ W 0237 FORMAT 587 (29X,2F8.0,F9.0,2F8.0~F9.0) FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 52

Fundamental Aeronautics Program Subsonic ... - CAFE Foundation
NASA Technical Paper 2256 - CAFE Foundation
NASA's Challenges and Opportunities - CAFE Foundation
ADVANCED TURBOPROP NOISE PREDICTION ... - CAFE Foundation
Environmental Noise Measurement - CAFE Foundation
BRS-6 General Installation Guide - CAFE Foundation
Electric Motors and Controllers for Use in ... - CAFE Foundation
Aerodynamic design of low-speed aircraft with a ... - CAFE Foundation
NASA Personal Air Transportation Technologies - CAFE Foundation
My presentation reflects my life-long interest in ... - CAFE Foundation
8. High-Lift Aerodynamics - CAFE Foundation
Fuselage self-propulsion by static-pressure thrust - CAFE Foundation
Alaa '87 AIAA-87-0529 Validation of an Interior ... - CAFE Foundation
Integrated Hull Design, Boundary-Layer Control ... - CAFE Foundation
Local Flow Control II - CAFE Foundation
/Users/la3007af/Documents/Feri's Work ... - CAFE Foundation
Users Manual for CAFE-3D: A Computational Fluid Dynamics Fire ...
Intercafe 2004 User Manual - Internet Cafe Software / Cyber Cafe ...
User Manual - powerBridge Computer
ADIOS 1.3.1 User's Manual - National Center for Computational ...
ADIOS 1.2 User's Manual - National Center for Computational ...
User Manual TPMC600 - powerBridge Computer
Fresh Time Cafe KAM100automatic - the Electrolux User Manuals site
User's Manual for the CRASH Computer Program - McHenry Software
Program Logic Manual - All about the IBM 1130 Computing System