Views
5 years ago

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

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

FORTRAN

FORTRAN I V G LEVEL 20.1 MA IN OATS = 72034 10/08/04 0046 0047 0048 0049 0050 0051 0052 0053 00 54 0055 00 56 0057 0058 0059 0060 0061 0062 0063 OC64 0065 0066 0067 0068 0 069 0070 0071 0072 c073 00 74 0075 0076 0077 0078 0079 OC80 0081 OC82 0083 0084 0085 OC 86 0087 0088 OC89 200 IENT=l CALL COST (WTCON~BLADT~GLFl~CLFICK70rCK7O~CK8O~CAMT~DAMT~NAMT~C~UAN~l~ l~~W770~WT80~COST70~COST8O~CCLFl~CCLF~CCK7O~CCK8O~IENT~ GO 70 1210*230)rIW 210 WRITE (6~220) BHP(ICImXNOEeCCLF1 220 FORMAT(' SHP ='rF7.0,9X'NO. OF ENGINES =' 1F5.019X'UNIT FACTOR 1L-C. ='rF5.2) GO TO 250 240 FORMAT(' THRUST =*rF70099X'NO. OF ENGINES ='.F~.OI~X'UNIT FACTOR 1L.C. =* rF5.2) 230 WRITE (6.240)THRUST(IClrXNOEtCGLFL 250 IF(CK70.GT.O..OR.CK8O.GT.O.) GO r0 255 WRITE (6,2521 ALT(IC~~ZMWTICCLF~VKTAS(IC~~WTCONIT(IC)~DIST~ICJ 252 FORMAT(' ALT-FT ='rF7.0.9X.'DESIGN FLIGHT M.='*F5.3r9X, '1000 FACTO 1R L.C. =*rF5.2/' V-KTAS ='~F~.~~~XI'CLASSIFICATION =',F5-0/' TE 2MP R ='WF~.O,~XI'FI€LD POINT FT. ='.F5.0) GO TO 255 WRITE 270 (6~2601 ALT( IC) vZMWT ~CCLFIVKTAS(IC)~WTCONI CK70,T[IC), 1DIST( IC) e CK8O 260 FORMAT( ' ALT-FT ='PF~.Q,~XI'DESIGN FLIGHT M.='.F5.3r9X*'l000 FACT 10R L.C. ='sF5.2/' V-KTAS ='~F7.lr9X~'CLASSIFICATION ='rF5.0.9X, 2'UhrIT COST 1970 ='rF5.1/* TEMP R ='.FT.OI~X,'FIELD POINT FT. = 3'*F5.0,9Xs1UNIT GO TO 270 COST 1980 =' tF5.1) 290 GO TO (10112).IW LO WRITE (6.111 BHP(1C)rXNOE 11 FORMAT( SHP =I rF7.0123X'NO. OF ENGINES ='1F5.0) GO TO 14 12 WRITE (be131 THRUSTIIC),XNOE 13 FORHAT( ' THRUST ='.F7.0122X'NO. OF ENGINES ='.F5.0) 14 WRITE (6~15) ALTf ICI~ZMWTIVKTAS(IC)~WTCON~T~~DIST( IC) 15 FORMAT(' ALT-FT ='rF7.0v23X*DESIGN FLIGHT H.='rF5.3/' V-KTAS ='t 1F7.1r23X8CLASSIFICATION 2 FT =* rF5-0) ='pF5.0/' TEMP R ='rF7.0,23X'FIELD POINT GO TO 270 2000 WRITE (6.2100) 2100 FORMAT ('~'~~~XI'REVERSE THRUST COMPUTATION'//) IF (ROT.EO.1.1 GO TO 2300 WRITE (612200) 2200 FORYAT(Z~XI'RECIPROCATING ENGINE*//) GO TO 2400 2300 HRITE(6~23501 2350 FORMAT (27X.'TURBINE ENGINE'//) 2400 WRITE (6r2500)BHP(IC)rRPMG( IC).ANDVK( IC)rALT( IC).T( IC) 2500 FORMAT (22X. 'FULL THROTTLE SHP =' 9 F6.0/22Xr 'FULL THROTTLE RPM = I'~F~.O/ZZXI'TOUCH DOWN V-KNOTS =',F6.0/22X.'ALTITUDE FEFT ;I, 270 ~F~.O/Z~XI'TEMPERATURE RANKINE='rF6.0//1 DO 1200 IAF=lrNAF AFT=AFT+DAF IF(AFT.LE.200..AND.AFT.GE.E0.) GO TO 182 URITE(6.1Rl) AFT 181 FORMAT( ' ILLEGAL ACTIVITY FACTOR = 'rF8.1) GO TO 1200 182 CONT I NU€ C INTEGRATED DESIGN CL LOOP NCLI=ZNCLI+.l CL I=CL 11-DCLI DO 1001 ICL=lrNCLI FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 49

FORTRAN .I.V G LEVEL 2011 . . MA I N DATE = 72034 10/08/04 0090 0091 0092 0093 . 0094 0095 0096 00 97 0098 0099 0 100 0 101 0102 0 103 0104 0105 0106 0107 01 08 0 109 0110 0111 0112 . 0113 0114 0115 0116 0117 0118 0119 0120 0121 0 122 0123 0124 012s 0 126 0 127 0128 0129 01 30 0 131 0132 0 133 0134 CL I=CCI+DCLI IF(CLI.LE~.80001.AND,CLI.GE..29999) GO TO 875 WRITE (6,870) CLI 870 FORMAT( ILLEGAL INTEGRATEC DESIGN CL ='tF5.31 GO TO 1001 875 CONTINUE C NO. OF BLADES LOOP BLADT=BLADN-DBLAO DO 1000 IB=l,NBL BLADT=BLADT+DRLAD IF(BLAOT.LE.B..AND.BLADT.GE.2.) WRITE(6.887) BLADT GO TO 888 887 FORMAT(' ILLEGAL GO TO 1000 888 CONTINUE NO. OF BLADES = 'tFR. 1) C PRINT APPROPIATE HEADING IF (IU .LT.3) GO TO 2700 WRITE 16,2650) BLADTtAFTtCLI 2650 FORMAT ('O't'NUMBER OF BLAOES=*,F3.0,* ACTIVITY FACTOR=*tF4.0,' 1INTEGR.ATED DESIGN CL='tF4.3/) WRITE (6,2660) 2660 FORYAT (13Xv'THROTTLE REVERSE'pRX.'REVERSE'/5XI'DIA.FT SETTING A lNGLE V-KNOTS THRUST SHP RPM*/) GO TO 30 2700 WRITE (6.20) BLADTtAFTvCLI 20 FORMATI'O'.' NUMBER OF BLADES='VF~.O~~~X'ACTIVITY F4CTOR='tF4.0t X18X' INTEGRATED DESIGN CL ='rF4.3) IF(NCOST.EQ.1) GO TO 500 GO TO (21r241~IU 21 WRITE (6.22) 22 FORMAT('0'r' DIA-FT. T.S.FPS THRUST PNL ANGLE FT M 1 J CP CT' / 1 GO TO 30 24 WRITE(6t25) 25 FORMAT('0't' DIA.FT. T.S.FPS SHP PNL ANGLE FT u L J CP CT' / 1 GO TO 30 500 GO TO l510t550)rIW 510 WRITE 16,520) 520 FORMAT(.'0',30X**** 1970 TECHNOLOGY *** *** 1980 TECHNOLOGY ***I/ 1' DIAeFT. T.S.FPS 2 WT-LBS $COST GO TO 30 THRUST PNL QUANTITY UT-LBS &COST ANGLE FT N J CP QUANTITY cr* 1 1 550 WRITE (6,560) 560 FORMAT('0''30X'*** 1970 TECHNOLOGY *++ *++ 1980 TECHNOLOGY XXX'/ 1' DIA.FT. 2 WT-LBS 30 CONTINUE T.S.FPS $COST SHP ANGLE PhL FT QUANTITY WT-LRS SCOST QUANTITY M J CP CT' /) It [NE= IL I NE+6 C 01 ANETEK D I A=D- DD LOOP DO ROO ID=lrND 01 A=DI A+OD IF IIW.EQ.3) GO TO 3000 C TIPSPEED LOOP IF(STALIT1 IC) .LE..50)GO DTS( IC 110. TRIG=O. TO 310 FIGURE. 3A. FORTRAN IV LISTING (CONTINUED) 50

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
My presentation reflects my life-long interest in ... - CAFE Foundation
NASA Personal Air Transportation Technologies - 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
User Manual TPMC600 - powerBridge Computer
ADIOS 1.3.1 User's Manual - National Center for Computational ...
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