Views
5 years ago

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

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

FOXTRAV I V G LFVEL 20.1

FOXTRAV I V G LFVEL 20.1 P-ERFH- DATE = 72035 . - . . .13/ 32i.24. 0342 0043 03 44 00 45 00 46 004 7 004R 00 49 0350 005 1 03 52 OD53 00 54 0355 00 56 0057 0358 0059 00 60 '336 1 OOh? 00 h3 00h4 0065 0366 0367 COh8 03 69 03 70 C071 03 72 0373 ao 74 0375 05 76 0077 03 78 c079 00 80 0381 OG82 008 3 0384 0385 00 86 9087 009 8 0089 0090 0091 009% 0093 30979r09811~9841~987109~0~0~~31~9~6~~000~10~~110C0~10 .. 4~944~~945~~950r~958~~9661~975~~984109901~996~0~99~1~ 5.9011. 905+.912~.927~. 9421. ~5410964109741~~~4T0990~090~1 .9031 . 6.862~.866,.875~.R921.909r.9261.9421.926~.942~o~57~.970~o9~~~.984~.984~ 7.806108131.82510851 r.877~~904+~924?0939?o9~2~o96lr~97-1~~9~~/ - KK= 1 ' AST ERK=999999 C AN ADJUSTMENT FOR CP AkC CT FCR AF 03 120 K=lr2 CALL UNIrVT '(~~AFVAL~~)~AFCPC.(~~K~~AFTIAFCPIK~~LIMTTJ CALL UNINT I6*AFVAl(ll rAFCTC(1 rK) rbFT+AfCT(K)qLIMIT 1 , . . . . . . . . . 120 CONT INUF DO 100 K=397 AFCP(K)=AFCP(Z) 100 AFCT (K)=AFCT (2 1 IF1ZJI0GT..51 GO TO 105 AFCPE=2.*ZJI*IAFCPl 2)-AFCP(l) )+AFCPI 1) AFCTE=2.*ZJI*(AFCT(2I-AFCT(II)+AFCT( 1) GO TO 110 105 AFCPF=AFCP( 2) AFCTE=AFCT[Z I 110 IF(ZJI.CT.1.9) GO TC 140 NRFG= 1 NE ND=4 GO TO 14R 140 IF(ZJI.GT.1.5) NRFG=2 NE ND=5 Gn TO 14R 60 TO 142 142 IFltJI.GT.2.0.AND.IW.LT.3) N3FG=3 NENr)=h GO TO 14FI 147 N3FG-4 NFNO=7 148 CUNT I NU€ N6L=O Dq 130 II=lrh IZ=T I GO TO 147 IF(ABT(CLI-CCLI( II)).LF..OCO91 130 CONTINUE GO Tfl 135 IF(CLI aGTm.61 FICL T=l NCLTT=4 GO TO 131 GO TO 119 131 IF(CLI.GT..7)GO KC LT =Z NZLTT=5 GO TO 119 132 FICLT=3 N3L JT=6 GO TO 119 135 NCLT=IZ N".=1 hCLTT= I2 11 9 CqNTI NtJE TO I32 NB= BLADT+. 1 LMcJD=MOC(NB, 2)+1 FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 59

FORTRAN IV G LEVEL 20.1 PERFM DATE = 72034 10/08/04 0 094 0095 o a96 0097 0098 0 099 0 LOO 0 101 0 102 0 103 0 104 0105 0 106 0 107 o 108 0 109 01 LO 0111 01 12 0113 0114 0115 0116 01 17 0118 0119 0120 0121 0 122 0123 0 124 0125 0126 0127 0 128 0129 0 130 0131 0 132 0 133 0134 0 135 0136 0137 0138 0139 0 140 0 141 0142 0.143 0 144 0145 0 146 0147 0 148 Gfl TO f160r180l rLMOD 160 NBB=l L=BLADT/2.+.1 GO TO 200 180 NBB=4 L= 1 200 DO 500 IBB=lrNBB C J INTERPOLATION DO 300 K=NBEGrNENO 208 GO TO IZlOr250r21'2)rIW 212 CALL UNINT (9rZJSTAL,CTSTAL( ItL IrLJJlK) *CTT(K) ,LIMIT) CALL UNINT (9rZJSTAL~CPSTALll~L)1ZJJ(KI1CPP(KI~LIMIl) CALL UNINT (INN(KlrCPANGIl,K~L)1BLDANG(11K)~CPP(K)~~LL(K)~LIMITl 210 CPE=CP*AFCP(K) CALL UNINT ~14rCPECIl~~RLOCR~1~LI~CPE~P~L~IMIT~ CPEl=CPE*PBL*PFCLI (K1 NNCLT=NCLT 00 215 KLzNCLTrNCLTT CALL UNINT ~NCLXlNNCLTl~CPCCI~11NNCLTI,XPCLT~~XPCLl~l~NNC~~T~~CPEl 1lKLIvLIMITI IF LLIMIT.EQ.11 GO TO 591 215 NNCLT=NNCLT+l IF lNCL.EQ.1) GO TO 220 CALL UNINT (4,CCLI(~CLT),PXCLI(NCLT),CLI1PCLI,PCLI,LIMIT) GO TO 221 220 PCLI=PXCLI (NCLTI 221 COKTINUE CPE=CPE*PCLI CALL UNINT fINNIK~rCPANG~lrK,L~~8LDAN~~l~K)~CPE~~LLlK~~L CALL UNINT (INN~KI~BLDANG(l~K),CTANG(l~K~L),6LL~K)~ClT~K~~LI IF(LIMIT.EQ.01 GO TO 211 GO TO 591 211 CONTINUE GO TO 2501 250 NNCLT=NCLT 2200 Dn 260 KLzNCLTvNCLTT CTA( 1 )=CT CTA(2)=1*5*CT DO 2600 KJ=lt 5 NF TX=K J CTEl=CTA(KJ)*AFCTlK) CALL UNTNT114,CTEC(l~~BlDCR(l~L~~CTE~T~L,IY[T~ CTEl=CTEl*TBL*TFCLI(K) CALL UNINT (NCLX(NNCLT)rCTCLI(l~NNCLT)~~TCLI(l~NNCLl)~CTEl~TXCLI 1IKLIpLIMITI IF (LIMIT.EQ.1)GO TO 591 9998 IF(ZJJIK).EC.O.) GO TO 40CO CALL IJNINT (ll~ZJCLI1)~ZMCRLllrNNCLTlrZJJ(K),~~CRT~LIMIT~ 9999 DMF\=ZMS( l)-LMCRT Gn TO 4050 4000 ZMCRT=ZMCRO(NNCLT) DMkZMSI 2)-LHCRT 4050 XFFT(KL)=l.O IFLDMN) 2300~2300,252 252 CTE2=CTEl*TXCLI(KL)/TFCLI(K1 CALL BIOUAD (ZMMMC,L,OMN,CTF2rXFFT(KL) ,LIMIT) 2300 CTAl(KJI=CT-CTAlKJI*XFFT(KL) IFICTA1lKJ).EQ.O~.A~D.KJ.EQ.1) GO TO 2700 FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 60

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
Aerodynamic design of low-speed aircraft with a ... - 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
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