Views
5 years ago

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

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

HAMILTON STANDARD DECK

HAMILTON STANDARD DECK H432 Computer Program for Advanced General Aviation Propeller Studies MAIN INPUT PERFM ZNOISE WAIT C OST REVTHT UNINT BIQUA D Figure 2A LIST OF SUBROUTINES 47

. FORTRAN .CY G LEVEL 2011 HA1 N DATE = 72034 10/08/04 ~ 0001 0002 0003 0004 0005. 0006 0007 0008 0009 00 10 0011 0012 00 13 0014 0015 0016 0017 00 18 0019 0020 0021 0022 0023 0 024 0025 0026 ~. 0027 0028 0029 00 30 0031 0032 0033 0034 0035 0036 00 37 0038 0 039 0040 0041 0042 0043 0044 0045 REAL*8 BLANK COnHOH/AFCOR/AFCPE,AFCTE,XFT COMHON/ASTRK/CPASTrCTASTERK COMHON/CPECTE/CPEsCTEIBLLLLL DiMENSION FC~lO~rALTPR~ll~~PRESSR~ll~~RORO~lO~~ZMS~Z~ DIMENSION CJIST~lO)rCOUAN~2rll)rCOST70(101rCOST8OtlO~ DIHENSiON BHPG(lO)rTHRSTG110)rTIPSDG(ll) COMMON /ZINPUT/ BHP~10~~THRUST~10~rALT~lO~rVKTAS~lO~~T~lO l*IWIC(lO) TNOFIDIDD,NDIAF*DAFINAFIBLADN.D~LADN,D~L~D, NBL*DTS(lO)rNDTSI. 10) 2~DIST~XNOE~kTCON~ZMWT~STALIT~lO~~CLFl~CLF~CK7O~C~8O~CAMT~DAM 3 ~ D C O S T ~ l O ~ ~ C L X ~ ~ D ~ L ~ ~ Z N C L I ~ R T C ~ R O T ~ P C P ~ ~ l O ~ ~ N P C ~ 4DPCPW (LO) rRPMCl10) rANDVK( 10) DATA ALTPR /0~r10000~~20000~~30000~~40000~~50000~ X60000~~70000~r80000~~90000~~100000~/ DATA PRESSR /1~0~~6877~~4595~~2970~~1851s~1145r.07 X~04419~~02741~~01699~~01054/ DATA BLANK/6H / CBRT(X)= X**(1./3.) 701 CONTINUE WRITE (6.1 I 1 FORMAT ('1',19X'HAMILTON STANDARD COMPUTER DECK NO. H432'/17X*COMP lUTES PERFORMANCEINOISEVWEIGHT*AND COST FOR'/26X'GENERAL AVIATION ZROPELUERS' 1 CALL INPUT DO 700 IC=l,NOF NCOST=DCOST~ICI+.Ol P IF (STALLTt IC).LE..SO) NDTSI. IC)=lO DTS( IC )=O.O 710 CONTINUE GO TO 710 IW= IWIC(1C) C IW=1 HP INPUT C IW=2 THRUST INPUT C IW=3 REVERSE THRUST IF (IW.LE.3) GO TO 3 WQITE (6~2) IWtIC 2 FORMAT * INPUT ERROR9 IW= ',IZ*' GO TO 700 3 CONTINUE IC= '*I2 ) C COMPUTATION OF DENSITY RATIO IFIT(IC))100~100~160 100 IF(ALTIIC)-36000~)120sl20~140 120 T( 16)~518.688-.00356+ALT( IC) GO Tn 180 140 T( IC)=389.988 GO TO 180 160 T(I)=T(IC)+459.69 180 TO=5 18.69 TOT=TO/T( IC) FC I It )=SORTI TOT) CALL UNINT (ll*ALTPRvPRESSR,ALT( RORO(IC)=l.O/IPOP*TOT) IC) *POPILIMIT) C AF LOOP .AFT=AF-DAF IF (IW.EQ.3) GO TO 7000 WRITE (6,706) 706 FORMAT ~*Os~l8X*0PERATING CONDITION'/I IF INCOST-1 )290r2009290 FIGURE 3A. FORTRAN IV LISTING 48

New Releases Program-Related Investments: A Technical Manual for Foundations (Wiley Nonprofit Law, Finance and Management Series) Complete
Fundamental Aeronautics Program Subsonic ... - CAFE Foundation
NASA Technical Paper 2256 - CAFE Foundation
ADVANCED TURBOPROP NOISE PREDICTION ... - CAFE Foundation
NASA's Challenges and Opportunities - CAFE Foundation
Environmental Noise Measurement - CAFE Foundation
BRS-6 General Installation Guide - CAFE Foundation
Electric Motors and Controllers for Use in ... - CAFE Foundation
My presentation reflects my life-long interest in ... - CAFE Foundation
NASA Personal Air Transportation Technologies - CAFE Foundation
8. High-Lift Aerodynamics - CAFE Foundation
Aerodynamic design of low-speed aircraft with a ... - 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 ...
User Manual - powerBridge Computer
Intercafe 2004 User Manual - Internet Cafe Software / Cyber Cafe ...
ADIOS 1.3.1 User's Manual - National Center for Computational ...
User Manual TPMC600 - powerBridge Computer
ADIOS 1.2 User's Manual - National Center for Computational ...
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