Views
5 years ago

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

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

. EOR TRA_N ...I

. EOR TRA_N ...I V.G..L.EVEI ... zo.~ ... . ..._ .. . UNLNT . . . -. . ... DATE .= 72031 . -, 08/48/14 c RFWRITTEN SFPTEMRER 18, 1967 C UNIVARIATE TARLE ROUTINE WITH SFPERATE ARRAYS FOR X AND Y - S 66 " . 09 01 SUBRCIUTINE UNINT ( NI XAv YA, X I YI L) 00 02 0 0.9 3 0004 0005 0006 0007 9008 0009 00 10 001 1 0012 001 3 00 14 0015 0016 0017 001 8 00 19 0020 0021 0072 0023 0074 0025 0026 0027 0078 00Z9 0030 '00 31 0032 0033 0034 0035 C036 c .c . C c . THI'S ROUTINE INTFRPOLATES OVER A 4 POINT INTESVAL USING A VARIATIOV OF 2ND DEGRFE INTERPOLATION TO PRODUCE A CONTINUITY C OF SLOPE RETWFEN ADJACENT INTERVALS. FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 71

FI?RTP.AY IV G LEVEL 20.1 R IOUAD DATE = 72031 09/48/14 C C C C C c C C c C C. C C 100 C 195 11? C c 7 "!I 7 10 27P c C 390 C qnr) C c 520 SUBRnUTINF RIQUAD (Tc It X I t YIt Zt K) FNTTY 91QllD (Tt It XI 9 YIP Z t K) TYTS ROIJTINE IYTFRPOLATFS OVER A 4 Pr3INT INTFP.VAL USIYG A VARIATIflQ (IF 2Nl) OFGKEF IUTERPOLATIOM TO PRlDUCF A CONTINUITY OF SLOPE RFTki€EN ADJACFNT INTEPVALS. l)Ib'FNSIfl% T(l.)tXCI4)9 D(41, P(511 Y(4),C14) FOIJIVAL€NCE (XCl1)t D(111 TABLE SFT IJD T'TI < Y TARLF \IJYBtR TYI&1< # NUMqFR (IF ?X< VALUES T%1&2< # VIJYRER OF XY< VALUFS ZO. FOP UNIV1KIATF TABLF< TrI&3< rl VAI-UFS OF %X< IN ASC.EUDING ORDER NX = T(I+l) NY = T(I+7) J1 = 1+3 J7 = J1 + x = XI YX - 1 SEAKCH IN X SFYSF L = O GO TP lOQ0 QtTlJQN HEQE F2.DY SFARCH r)F X Y = KX JX = JX1 THE ~OLLOWIh!? CODE PUTS X AND/OR Y VALiIES IN XC BLOCK DE 11" J=lp't XCtJ) = TlJX1) JX1 = JXl+l GFT CPFFF. IN Y 5FNSF 50 TI? Zr)9r? qETlI/lV HERF d1Tt.l CirFFF. TEST FOR IJUIVARE 139 HIVARTATF IF (RIY) 7=?. JY = JX+NX -3OOp210,3I70 QC! 221? J=1t4 I= Z + rlJ )*T(.JY) JY = JY+1 GO T3 Y Q W ?IVjQIATE TA?LF L=l x = YI J1 = J2+1 J7 = J1 +NY-l SFADCH IN Y SENSF JXl !I SCISSCRIPT C)F 1ST Y G3 Tn 1033 K = K+3%KY 1NTFPD"LATF 1% X SENSF SUSSCRIPT - HASF YC. ?F CCL. Yn. OF YS JY = JZ+1 + lJY-I-?)*QY + JXl-J1 DO 550 V=1,4 JX = JY Y(U) = 0. Qfi 520 J=1 7 4 YIVI = YIYI + ClJ)*T(JX) JX = J)I+YV FIGURE 3A. FORTRAN IV LISTING (CONTINUED) 72

Fundamental Aeronautics Program Subsonic ... - CAFE Foundation
ADVANCED TURBOPROP NOISE PREDICTION ... - CAFE Foundation
NASA Technical Paper 2256 - CAFE Foundation
NASA's Challenges and Opportunities - CAFE Foundation
Environmental Noise Measurement - CAFE Foundation
BRS-6 General Installation Guide - CAFE Foundation
My presentation reflects my life-long interest in ... - CAFE Foundation
NASA Personal Air Transportation Technologies - CAFE Foundation
Aerodynamic design of low-speed aircraft with a ... - CAFE Foundation
8. High-Lift Aerodynamics - CAFE Foundation
Electric Motors and Controllers for Use in ... - 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 Manual for CAFE-3D: A Computational Fluid Dynamics Fire ...
/Users/la3007af/Documents/Feri's Work ... - CAFE Foundation
Intercafe 2004 User Manual - Internet Cafe Software / Cyber Cafe ...
User Manual - powerBridge Computer
ADIOS 1.2 User's Manual - National Center for Computational ...
ADIOS 1.3.1 User's Manual - National Center for Computational ...
User Manual TPMC600 - powerBridge Computer
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