Views
5 years ago

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

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

p FoRTRAN IV G LEVEL

p FoRTRAN IV G LEVEL 20.1 . . . . . 7N01SE.. ........... .DAT€..=..7-2_03-1-. - 08/48/14 0099 0010 on1 1 on12 091 3 00 14 0015 0016 0017 On18 001 9 0029 002 1 on22 0073 0024 0025 0326 0027 OP79 007 9 00 3n on31 0037 0033 X x3.414.215.41 X 2 KK=IR .... Gfl TO 7 5 NBB=4 KK= 1 GO TO 7 . 6 KK=4 NBR=4 7 CONTINUE DO 8 K=KK*NSR Dr) 9 1=1,7 .. ................ - - . . - - - .... " . ........ - .. - - - . . . . . - - .- . -. . " ....... - .. 9 CALL UNIb!T (13,TMTH(1)1PNLC(lrIIK)rTMT, PNLA(1) ,LIMIT_)- -. __ . .- ...... - . 9 CALL UNINT [ 7rDIAYI 1 )rPNLA( 1) rl3IAp PNLB(K) pLiMIT- 1 PNLD = PNLRIKK) IF (19.EQ.S) C4LL UNINTI41BRL(l) pPNLB(1) rBLADT,PNLD.LIMIT-) RMT = TIPSP?/l12@. SPL = 107.7+ 6.6Y*ALOG(BtiP )-4.34*ALOG(BLADT~*2*DIA**~*DIST*f2j- " XXNflF) + 38.1* RYT + PNLD ...... - - .. - . .... - . . .. .- . . - . - .. IF( LlMlT.NF.0) SPL=999999. RFTlJRN F ND FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 65 ...

FORTRAN I V G LEVEL.. 20.1 . . " . . . . . WAIT DATF = 72031 08/49/14 0301 0002 0003 0004 0005 0006 0037 0008 0009 00 10 on1 1 e01 2 on1 3 00 14 on15 001 6 0017 001 e 0019 nn23 0321 O02Z 007 3 O ~ 24 J 0025 OP?6 on77 no2 P 0021 0030 0031 SUR~OUTIYE WllIT (WTCO~,ZY~T,BHP,DTA~AFT,~LADT,TIPSPD~WT7O,WT80) IF-[HTCON.LE.O.I RFTURN ZND=TIPSPD*60./3.14159 ZN=ZND/DIA ZK2=(DIA/10.1**2 ZK3=(OLfiOT/4.1**.7 ZK4=AFT/100. 7K5=7N0/20000. ZKh=(BHP/lO./DIA**3 1**.12 ZK7=IZMWT+1.0)**.5 WTFhC=ZK2*7K3+ZKh*ZK7 C WTCnN DEF INES AI RPLANF CATEGnRY IWTCnN=WTCOY Zt=3.5*Z&Z*BLADT*ZK4**2*( l./ZK5)**.3 GlJ TC! (10,20,10,40r50),IWTCON 10 HT70=170.*WTFAC+ZK4**.9*ZK5**. 35 kTYO=WT70 GO x 60 20 WT70=20@.~WTFAC~ZY4**.9~ZK5~.+.~5 WTSi?=WT70 GO TO 60 30 ~T70=22C.*WTFAC*ZK4+~.7*2K5*~.4+ZC~(~.0/3.5) WT;3n= WT70 GO Tn 60 40 VTFhC=WTFAC*ZK4**.7+ZK5**.4 ~T7n=2?@.+WTFAC+ZC*( 5.0/3.5) WTSO=19@.*WTFAC+ZC GO TO 60 59 WT70=220.*WTFAC+ZK4**.?+ZU5**.4+ZC*[ 5.@/3.5) WTS0=190.*WTFAC*ZK4**.7*ZK5**.3 6C R FTlJRh! F Nr) FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 66

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
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
Alaa '87 AIAA-87-0529 Validation of an Interior ... - CAFE Foundation
Fuselage self-propulsion by static-pressure thrust - 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 ...
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
User Manual - powerBridge Computer
Program Logic Manual - All about the IBM 1130 Computing System