Views
5 years ago

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

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

3.

3. FORTRAN I V G LEVEL 20.1 PERFM DATE = 72034 10/08/04 0149 0150 0151 0 152 0153 0154 0 155 0156 0 157 0158 0159 0 160 0161 0 162 0 163 0 164 0165 0166 0 167 0 16fl 0 169 0170 0 171 0 172 0173 0174 0175 0176 0 177 0178 0 179 0 180 0 181 0 182 0 183 Olfl4 0 185 0186 0187 0 188 0189 0 190 0 191 0192 0 193 0 194 0 195 0 196 0197 0198 0 199 0200 0 201 0202 0203 0 204 IFlKJ.LE.1) GO TO 2600 IFIABSlCTA1lKJ~1~~CTAl~KJ~~/CT~LE~~OOl~ GO TO 2700 CTA(KJ~+l~=-CTAlIKJ-L~*~CTA~KJ~-CTAIKJ-L)~/~CTAl~KJ~-CTAl~KJ-l~~+ LCTA(KJ-1) . 2600 CONTINUE WRITE (6,391) 2700 CT~[K~)=CTA(NFTX)/XFFTlKL) 260 NNCLT=NNCLT+l IF lNCL.EQ.1) GO TO 270 CALL UNINT (4rCCLIINCLT)rTXCLI(NCLT~~CLI~TCLl~LI~IT~ CALL UNINT (4,CCLI(NCLT)~XFFT(NCLT)~CLI~XFTllK)~LlMIT~ CALL UNINT ~4~CCLIlNCLT~~CTNlNCLT~~CLI~CTT~K~~LIMlT~ GO TO 271 270 TCLI=TXCLI 1NCLT)- XF TL (K 1 =XFFT( NCLT) CTT(K)=CTN(NCLT) 271 CTE=CTTlK)*AFCT(K1*TCLI CALL U N I N T ~ I N N l K ~ ~ C T A N G l 1 ~ K ~ L ~ ~ B L D A ~ G ~ l ~ K ~ ~ ~ T E ~ B L L l K ~ CALL UNINT ~~NNIK~~BLDA~JGllrK~~CPANGI1~K~L~~BLLIK~rtPP~Io IF(LIMIT.EO.OI GO ro 2501 GO TO 591 2501 CONT I NU€ 300 CONTINUE CALL UNINT 14~ZJJ(NEEG)~RLL(NBECI,ZJI,BLLLL(CBB~~LI~IT) BLLLL=BLLL( lBRl GO TO (310~350r310)vIW 310 CALL UNINT (4,ZJJlN~EG)vCTT(NHEG)1ZJlrCTTTI IBR),LIMlT) CTG( 11=.100 CTGl2)=.200 CALL UNINT I7~ZJJI1)~TFCLI~l)~ZJI,TFCLll~LIYIT) DO 390 IL=1,5 CT=CTGIIL) CTE=CTGl IL )*AFCTE CALL UNINT (14~CTEC(l)~BTDCR(l,L)~CTE~T~L~IMIT) CTEl=CTE*TBL*TFCL I I NNCLT=NCLT 00 396 KLlNCLTtNCLTT CALL UNINT (NCLX(NNCLT),CTCLI(L~~NCLT)~XTCLl(l~NNCLT~~CTEl~TXCLII 1KL)pLIMIT) If ILZM1T.EQ.L) GO TO 591 IF(ZJI.EQ.0.) GO TO 3000 CALL UNINTILl~ZJCL~1~~ZMCRLll~NNCLT~~ZJI~ZMCRT~Ll~IT~ OMh=ZMS( 1)-ZMCRT GO TO 3050 3000 ZMCRT=ZMCRO(NNCLTI DMR=ZMS(Z)-ZMCRT 3050 XFFTIKL)=1.0 IFIDMN) 396,396,399 399 CTEZ=CTE*TXCLI(KL)*TBL CALL BIQUAD IZHHMC~l~DMNtCTE2rXFFTIKL).LIMIT) 396 NNCLT=NNCLT+l IF lNCL.EO.1) GO TO 395 CALL UNINT (4rCCLI~NCLT)~TXCLI(NCLT~~CLl~TCLII~LIMITJ CALL UNINT I4rCCLI~NCLT~~XfFTINCLT)rCLI1XFTIL[nIT) IF~XFT.GT,l.IXFT=l.O GO TO 394 395 TCLIIrTXCLItNCLT) XFl=XF.FT (NCLT) FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 61

. " . -. . . . IDRTRAN .IV..G LEVEL 0205 0206 .. . 0207 0208 -. 3209 0210 0 211 0212 0213 . . 0214 .0215 0216 0217 0218 0219 0220 0221 0222 .0223 0224 0225 0226 0227 0228 0229 0 230. 0231 0232 0233 0234 0235 0236 0237 0238 0239 0 240 0241 0242 0243 0 244 0245- 0244. 0247 0248 0249 0250 0251 9252 0253 0254 0255 0256 0257 .. .. . 20.1. . . . . .. PERFH ..DATE = 72034 .10/08/04 . 394 CT=CTGfIL) CTE=CTGIIL)*AFCTE*TCLII CTGlI IL)=CTE-ClTTlCBB) IFl~BS~CTGl~LL~/CTlTlI~B~~~LT~,OOL~ GO TO 392 IE(IL-LEo1) GO TO 390 CTG( IL+l)=-CTCl( IL-lI*(CTG(IL)-CTG( IL-1) )/(CTGl( IL)-C'TGl( IL-1 J )+ 1CTG( IL-1) 390 COh'TINUE .. . WRITE (6,391) 391 FORMAT t ' INTEGRATED DESIGN CL ADJUSTMENT NOT WORKING PROPERLY FO .. XR CT DEFINITION') 392 CTTT(.IBB)=CT GO TO (3609350r340Jr IW 350 CALL UNINT (4rZJJ(NBEGlrXFTl(NBEG)~ZJIrXFTrLIMIT) IF(XFJ.GT.L.)XFT=l.O 340 CALL UNINT ~4rZJJ~NBEGJrCPP~NBEG)rZJIrCPPP~IBB~~LIMCTl CPGIll=.l50 CPGI21=.200 CALL UNINT (4rZJJ(NBEGlrPFCLIINB€Gl~ZJIrPFCLII~LI~ITl DO 290 I L ~ l r 5 CP=CPG(ILI CPE=CPG( IL )*AFCPE CALL UNINT (14mCPEC( 1) rBLDCR(lrL)rCPErPBL,IMIT) CPEl=CPE+PBL*PFCL I I NNCLTTNCLT DO 280 KL=NCLTeNCLTT CALL UNINT INCLX(NNCLT)rCPCLI(lrNNCLTlrXPCLI(lrNN~LT),CPElrPXCLI~ lKL)*LI.HITI IF .(LIMIT.EQ.l! GO TO 591 280 NNCLT=NNCLT+l IF(NCL.EP.1) GO TO 282 CALL UNINT (4,CCLI(NCLT)rPXCLI INCLT) rCLIrPCLI1,LIMITI GO TO 284 282 PCLII=PXCLI(NCLT) 284 CP=CPGIIL) CPE=CPE*PCL I I CPG1I I L)=CPE-CPPP[ IBB) IF1AB4~CPGlIILl/CPPPo).LE~~OOl~ GO TO 287 IFCIL.EQ-1) GO TO 290 CPGIILt1~~-CPGl~IL-1~*(CPC(IL~-CPG~IL-lJl/IC~Gl~IL~-CPGl~IL-i~~ 1CPGt 1Lf-l) 290 COFtTINUE WRITE (692851 285 FORMAT I' INTEGRATED DESIGN CL ADJUSTMENT NOT WORKING PROPERLY FOR 1CP DEF!INITION' 1 287 CPPPI IBBI=CP 360 L=L+1 500 CONTINUE IFINBB'I) 510r590r510 510 CALL UNINT I4rXLBIl),BLLL(l)rBLADTrBLLLLrLIMIT) GO TOI'520r530r520lrIW 520 CALL UNINT (4rXLBll)rCTTT(l)rBLADTrCT,LIMIT) GO TO 590 530 CALL UNINT I4rXLBll) rCPPPI1) r8LADTrCPrLfMIT) 590 CONTINUE GO TO 600 591 CT=ASTERK CP-ASTERK FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 62

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
8. High-Lift Aerodynamics - CAFE Foundation
NASA Personal Air Transportation Technologies - 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