Lecture Notes

in Economics and
Mathematical Systems
Managing Editors: M. Beckmann and H. P. Kunzi

Control Theorv
(NASA-CR-142229) SUPERCRITICAL WING N75-1816'/
SECTIONS 2, VOLUME 108 (New York Univ.)
301 p HC $9.25 CSCL 01A
Unclas
00/01 12410

108

Frances Bauer • Paul Garabedian

David Korn • Antony Jameson

Supercritical Wing Sections II

Springer-Verlag
Berlin • Heidelberg • New York
Lecture Notes in Economics and Mathematical Systems
(Vol. 1-15: Lecture Notes in Operations Research and Mathematical Economics, Vol. 16-59: Lecture
Notes in Operations Research and Mathematical Sy stems)
Vol. 1: H. Buhlmann, H. Loeffel, E. Nievergelt, Einfuhrung in die Vol. 30: H. Noltemeier, Sensitmtatsanalyse bei diskreten Imearen
Theorie und Praxis der Entscheidung bei Unsicherheit 2 Auflage, Optimierungsproblemen VI, 102 Seiten 1970 DM 16,-
IV. 125 Seiten 1969. DM 16,- Vol. 31: M. Kuhlmeyer, Die nichtzentrale t-Verteilung. II, 106 Sei-
Vol. 2: U. N. Bhat, A Study of the Queuemg Systems M/G/1 and ten. 1970 DM 16.-
GI/M1 VIII, 78 pages 1968. DM 16.- Vol. 32: F. Bartholomes und G. Hotz, Homomorphismen und Re-
Vol. 3: A. Strauss. An Introduction to Optimal Control Theory. VI. duktionen Imearer Sprachen. XII, 143 Seiten. 1970 DM 16,-
153 pages. 1968. DM 16,- Vol. 33: K. Hinderer, Foundations of Non-stationary Dynamic Pro-
Vol. 4: Branch and Bound: Eine Einfuhrung. 2 . geanderte Auflage. gramming with Discrete Time Parameter. VI, 160 pages. 1970.
Herausgegeben von F. Wemberg. VII. 174 Seiten. 1972 DM 18,- DM 16,-
Vol. 5: Hyvarinen, Information Theory for Systems Engineers VIII, Vol 34: H. Stbrmer. Semi-Markoff-Prozesse mil endlich vielen
205 pages 1968 DM 16.- Zustanden. Theorie und Anwendungen. VII, 128 Seiten. 1970.
DM 16,-
Vol. 6: H. P. Kiinzi, O. Miiller, E Nievergelt, Einfuhrungskursus in
die dynamische Programmierung. IV, 103 Serten. 1968. DM 16,- Vol 35: F Ferschl, Markovketten VI, 168 Seiten 1970 DM 16.-
Vol. 7: W. Popp, Einfuhrung in die Theone der Lagerhaltung. VI, Vol 36: M. P. J Magill. On a General Economic Theory of Motion.
173 Seiten 1968 DM 16,- VI, 95 pages 1970 DM 16,-
Vol. 8: J Teghem, J. Loris-Teghem. J. P. Lambotte. Modeles Vol. 37: H Muller-Merbach, On Round-Off Errors in Linear Pro-
d'Attente M/G/1 et GI/M/1 a Arnvees et Services en Groupes IV. gramming. VI. 48 pages. 1970. DM 16,-
53 pages 1969 DM 16.- Vol. 38: Statistische Methoden I. Herausgegeben von E. Walter.
Vol. 9: E. Schultze, Einfuhrung indie mathematischen Grundlagen VIII, 338 Seiten 1970 DM 22,-
der Informationstheorie VI, 116 Seiten 1969. DM 16,- Vol. 39: Statistische Methoden II. Herausgegeben von E. Walter.
Vol. 10: D. Hochstadter, Stochastische Lagerhaltungsmodelle. VI. IV. 155 Seiten. 1970 DM 16.-
269 Seiten. 1969 DM 18,- Vol. 40: H. Drygas, The Coordinate-Free Approach to Gauss-
Vol. 11/12: Mathematical Systems Theory and Economics Edited Markov Estimation VIM, 113 pages. 1970. DM 16,-
by H. W. Kuhn and G P. Szego VIII, IV, 486 pages. 1969 DM 34,- Vol. 41: U- Ueing, Zwei Losungsmethoden fur nichtkonvexe Pro-
Vol. 13: Heunstische Planungsmethoden Herausgegeben von grammierungsprobleme. VI, 92 Seiten 1971 DM 16,-
F Wemberg und C. A. Zehnder. II. 93 Seiten. 1969 DM 16,- Vol. 42: A. V. Balakrishnan, Introduction to Optimization Theory in
Vol. 14: Computing Methods in Optimization Problems Edited a Hilbert Space IV. 153 pages 1971 DM 16,-
by A. V. Balakrishnan. V, 191 pages 1969 DM 16,- Vol. 43: J. A. Morales, Bayesian Full Information Structural Analy-
Vol. 15: Economic Models, Estimation and Risk Programming: ses VI, 154 pages. 1971. DM 16.-
^Essays in Honor of Gerhard Ttntner. Edited by K. A. Fox, G. V. L. Vol. 44: G. Feichtinger, Stochastische Modelle demographischer
Narasimham and J. K. Sengupta VIM, 461 pages. 1969 DM 24,- Prozesse. XIII, 404 Seiten 1971 DM 28,-
Vol 16: H. P Kunzi und W Oetlli. Nichtlmeare Optimierung: Vol. 45: K. Wendler, Hauptaustauschschritte (Principal Pivoting).
Neuere Verfahren. Bibliographic IV. 180 Seiten 1969 DM 16.- II. 64 Seiten 1971 DM 16,-
Vol. 17: H. Bauer und K. Neumann, Berechnung optimaler Steue- Vol. 46: C- Boucher, Lecons sur la theorie des automates ma-
rungen, Maximumprinzip und dynamische Optimierung. VIM, 188 thematiques VIM, 193 pages. 1971. DM 18,-
Seiten 1969 DM 16,-
Vol. 47: H. A. Nour Eldin, Optimierung linearer Regelsysteme
Vol. 18: M. Wolff, Optimale Instandhaltungspolitiken in einfachen mit quadratischer Zielfunktion. VIII, 163 Seiten. 1971. DM 16,-
Systemen. V. 143 Seiten 1970 DM 16,-
Vol. 48: M. Constam. FORTRAN fur Anfanger. 2. Auflage VI,
Vol. 19: L. Hyvarinen Mathematical Modeling for Industrial Pro- 148 Seiten. 1973. DM 16,-
cesses VI, 122 pages 1970. DM 16,-
Vol. 49: Ch. SchneeweiB, Regelungstechmsche Stochastische
Vol. 20: G. Uebe. Optimale Fahrplane IX, 161 Seiten. 1970. Optimierungsverfahren. XI. 254 Seiten. 1971. DM 22,-
DM 16,-
Vol 50: Unternehmensforschung Heute - Ubersichtsvortrage der
Vol. 21: Th. Liebling, Graphentheorie in Planungs- und Touren- Zuricher Tagung von SVOR und DGU, September 1970. Heraus-
problemen am Beispiel des stadtischen StraBendienstes. IX, gegeben von M. Beckmann. VI. 133 Seiten. 1971. DM 16,-
118 Seiten. 1970 DM 16,-
Vol. 51: Digitale Simulation Herausgegeben von K. Bauknecht
Vol. 22: W. Eichhorn, Theorie der homogenen Produktionsfunk- und W Nef. IV, 207 Seiten 1971. DM 18,-
tion. VIM, 119 Seiten. 1970 DM 16,-
Vol 52: Invariant Imbedding. Proceedings of the Summer Work-
Vol. 23: A. Ghosal, Some Aspects of Queuemg and Storage shop on Invariant Imbedding Held at the University of Southern
Systems. IV, 93 pages. 1970 DM 16.- California. June-August 1970. Edited by R. E. Bellman and E. D.
Vol. 24: Feichtinger Lernprozesse in stochastischen Automaten. Denman IV, 148 pages 1971. DM 16,-
V. 66 Seiten 1970. DM 16.- Vol. 53: J. Rosenmiiller, Kooperative Spiele und Markte. IV, 152
Seiten. 1971. DM 16,-
Vol. 25: R. Henn und O. Opitz, Konsum- und Produktionstheorie.
I. II. 124 Seiten. 1970 DM 16,- Vol. 54: C C von Weizsacker, Steady State Capital Theory. Ill,
102 pages 1971 DM 16,-
Vol. 26: D Hochstadter und G Uebe, Okonometrische Methoden.
XII, 250 Seiten. 1970. DM 18,- Vol. 55: P. A. V. B. Swamy, Statistical Inference in Random Coef-
ficient Regression Models. VIM, 209 pages. 1971. DM 20,-
Vol. 27: I. H. Mufti, Computational Methods in Optimal Control Vol. 56: Mohamed A. EI-Hodiri, Constrained Extrema. Introduction
Problems. IV, 45 pages 1970. DM 16,- to the Differentiate Case with Economic Applications. Ill, 130
Vol. 28: Theoretical Approaches to Non-Numerical Problem Sol- pages 1971. DM 16,-
ving. Edited by R. B. Banerji and M. D. Mesarovic. VI, 466 pages. Vol 57: E. Freund, Zeitvariable MehrgroBensysteme. VII, 160 Sei-
1970. DM 24,- ten. 1971. DM 18,-
Vol. 29: S. E Elmaghraby, Some Network Models in Management Vol. 58: P. B. Hagelschuer, Theorie der linearen Dekomposition
Science. Ill, 177 pages. 1970. DM 16,- VII, 191 Seiten. 1971 DM 18.-

continuation on page 298

Lecture Notes
in Economics and
Mathematical Systems
Managing Editors: M. Beckmann and H. P. Kiinzi

Control Theory

108

Frances Bauer • Paul Garabedian

David Korn • Antony Jameson

Supercritical Wing Sections II

A Handbook

Springer-Verlag
Berlin • Heidelberg • NewYork1975
 Editorial Board
H. Albach • A. V. Balakrishnan • M. Beckmann (Managing Editor) • P. Dhrymes
J. Green • W. Hildenbrand • W. Krelle • H. P. Kiinzi (Managing Editor) • K. Ritter
R. Sato • H. Schelbert • P. Schonfeld

Managing Editors
Prof. Dr. M. Beckmann Prof. Dr. H. P. Kunzi
Brown University Universitat Zurich
Providence, Rl 02912/USA 8090 Ziirich/Schweiz

Authors
Dr. Frances Bauer • Prof. Paul Garabedian
Dr. David Korn • Prof. Antony Jameson
New York University
Courant Institute of Mathematical Sciences
251 Mercer Street
New York, N.Y. 10012/USA

•t
Library of Congress Cataloging in Publication Data

Main entry under title:

Supercritical wing theory.

(Lecture notes in economics and mathematical

systems ; 108 : Control theory)
Bibliography: p.
Includes index.
1. Aerodynamics, Supersonic—Computer programs.
2. Airplanes—Wings. 3. Boundary layer. I. Bauer,
Frances. II. Series: Lecture notes in economics
and mathematical systems ; 108. III. Series: Control
theory (Berlin)
TL571.S82 629.13V32 71t-31*333

AMS Subject Classifications (1970): Primary: 76H05

Secondary: 65P05, 35M05

ISBN 3-540-07029-X Springer-Verlag Berlin • Heidelberg • New York

ISBN 0-387-07029-X Springer-Verlag New York • Heidelberg • Berlin

This work is subject to copyright. All rights are reserved, whether the whole
or part of the material is concerned, specifically those of translation,
reprinting, re-use of illustrations, broadcasting, reproduction by photo-
copying machine or similar means, and storage in data banks.
Under § 54 of the German Copyright Law where copies are made for other
than private use, a fee is payable to the publisher, the amount of the fee to
be determined by agreement with the publisher.
© by Springer-Verlag Berlin • Heidelberg 1975. Printed in Germany

Offsetdruck: Julius Beltz, Hemsbach/Bergstr.

 Preface

This handbook is a sequel to an earlier volume entitled

"A Theory of Supercritical Wing Sections, with Computer Programs
and Examples." Since the completion of the first volume, which we
shall refer to as Volume I (cf. [1]), some effort has been made to
improve our airfoil design program. A number of more desirable air-
foils have been designed. In addition several of our wing sections
have been tested in wind tunnels. We should like to make this
material available here, since it is more convenient to use the
design program in conjunction with data for a fairly broad range of
examples. Moreover, we have developed new analysis programs that
supersede our previous work.
Chapter I is devoted to a brief discussion of the mathematics
involved in our additions and modifications. There is only a mini-
mum emphasis on theory, since the representation of important
physical phenomena such as boundary layer shock wave interaction
and separation is partly empirical. It is our contention, however,
that the computer programs provide a better simulation than might
have been expected. Chapter II presents numerical results found by
our new methods, as well as comparisons with experimental data.
Chapter III contains a discussion of the use of the program
together with Fortran listings.

We should like to acknowledge the support of this work by NASA

under Grants NGR-33-016-167 and NGR-33-016-201 and by the AEC under
* » . » « ^ " * ~ » • •
Contract AT(11-1)-3077 with New York University. Many of the
experimental results presented in Section 3 of Chapter II were made
available to us by J. Kacprzynski of the National Aeronautical
Establishment in Ottawa. Some of the test data shown are British
Crown Copyright, and are reproduced by permission of the Controller,
R & D Establishments and Research, Ministry of Defence (PE). The
final example was prepared by John Dahlin from data obtained by the
 IV

McDonnell Douglas Corporation at the National Aeronautical Estab-

lishment in Ottawa. Figure 6 in Section 6 of Chapter II was
given to us by Bill Evans of the Grumman Aerospace Corporation and
is based on an airfoil designed by Don MacKenzie using our method.
We are indebted to Ray Hicks, R. T. Jones, Jerry South and Richard
Whitcomb of NASA for much encouragement and helpful advice. Dan
Goodman and Steve Korn have assisted us in the preparation of
technical data, and Connie Engle and Farntella Graham have typed
the manuscript.

New York, N. Y.
November 1974

Work supported by NASA under Grants

NGR-33-016-167 and NGR-33-016-201.
Computations performed at the
AEC Computing and Applied Mathematics
Center, New York University, under
Contract AT(ll-l)-3077. Reproduction
in whole or in part is permitted for
any purpose of the United States
Government.
 Contents

Chapter I. Theory 1
1. Introduction 1
2. Models of Shock Structure 2
3. Iterative Schemes for Three Dimensional Analysis. 11
4. Choice of Coordinates and Conformal Mapping 17
5. Two Dimensional Analysis with a Turbulent Boun-
dary Layer Correction 22
6. Design in the Hodograph Plane: A New Model of
the Trailing Edge 25
7. Design in the Hodograph Plane: Choice of Para-
meters 28
8. Bibliography 33 .

Chapter II. Data 35

1. Catalog of Transonic Airfoils 35
2. Evaluation of Analysis Methods 113
3. Comparison of Experimental Data with the Boun-
dary Layer Correction 128
4. Comparison of Experimental Data with the Boundary
Layer Correction Using the Quasiconservation Option 151
5. Drag Polars 158
6. Schlieren Photographs 169

Chapter III,Fortran Programs 173

1. Operation of the Turbulent Boundary Layer
Correction Program H 173
2. Glossaries and Tables for Program H. . . 183
3. Operation of the Three Dimensional Analysis
Program J 192
4. Glossary and Table for Program J 197
5. Listing of the Boundary Layer Analysis Program H. 202
6. Listing of the Three Dimensional Analysis
Program J 24l
7. Listing of Quasiconservation Option for Program H 285
8. Listing of Update for Design Programs B and D 289
 I. THEORY

1. Introduction

In Volume I (cf. [1]} we have presented a mathematical theory

for the design and analysis of supercritical wing sections, and we

have included examples and computer programs showing how our

methods work. By now several of the first shockless airfoils we

designed have been tested with some success, and satisfactory agree-

ment of the results of our analysis with experimental data has been

established. General acceptance of supercritical wing technology

by the aircraft industry encourages us to make available in this

second volume an improved series of transonic airfoils as well as

extensions of our analysis program that include three dimensional

and boundary layer effects. We hope that the data we have compiled

will be helpful in such projects as the development of a transonic

transport with an oblique supercritical wing, which could operate

economically at nearly sonic speeds.

The purpose of this book is to put our work on transonics in a

more definitive form. For design we introduce a better model of the

trailing edge which should eliminate a loss of fifteen or twenty

percent in lift experienced with previous heavily aft loaded models,

which we attribute to boundary layer separation. We also indicate

how drag creep can be reduced at off-design conditions. A rotated

finite difference scheme is presented that enables us to apply

Murman's method of analysis (cf. [13]) in more or less arbitrary

curvilinear coordinate systems (cf. [5]). This allows us to handle

supersonic as well as subsonic free stream Mach numbers and to

capture shock waves as far back on an airfoil as we please. More-

over, it leads to an effective three dimensional program for the

computation of transonic flow past an oblique wing. In the case of

two dimensional flow we extend the method to take into account the

\
displacement thickness computed by a semi-empirical turbulent

boundary layer correction. Extensive comparisons, are made with

experimental data that have become available to us in our design

work. Excellent agreement is obtained even in situations where the

theory is not on an entirely firm footing, for example when the

shock waves are not defined sharply. Our contention is that the

programs furnish a physically adequate computer simulation of the

compressible flows that arise in practical problems of transonic

aerodynamics.

In Chapter I we describe new theoretical contributions under

the assumption that the reader has some familiarity with Volume I.

In Chapter II we present a series of our latest supercritical wing

sections together with a collection of comparisons between theoreti-

cal and experimental analysis data. Chapter III is devoted to

listings of new computer programs as well as a brief manual for

their operation and an update of the design program listed in

Volume I. The emphasis of this handbook is more on the numerical

data we have compiled than on the explanation of the relevant

mathematics.

2. Models of Shock Structure

For the mathematical analysis of transonic flow past bodies in

space of two or three dimensions it is interesting to consider

models of shock structure based on .an ordinary differential equation

for a potential function $ depending on just one variable x .

In this connection we ask for a solution of the equation

<*x>x= °'

suggested by the transonic small disturbance equation (cf. [13]),

that satisfies three boundary conditions of the form
 <j>(a) = A , <J>'(a) = c > 0 , <|>(b) = B

at the ends of some interval [a,b] . If we allow for a shock wave

2
across which <C and4> are conserved, but <J> decreases, there
x x
exists a unique solution of this problem for values of the prescrib-
ed constants A, B and C in the range

|B - A | <_ C(b - a) .

The answer consists of two straight lines with the slopes C and -C

which meet at the uniquely determined shock point

_ a+b B-A
X
0 ~ 2 2C~~ '

(See Figure la.) The problem has an analogy with transonic aero-

dynamics if we think of the interval of positive <|> as represent-

ing supersonic flow and the interval of negative <t> as represent-

ing subsonic flow.

Our problem in ordinary differential equations can be used to

test the validity of finite difference schemes for the numerical

analysis of transonic flow. We shall exploit such a procedure to

discuss the method of Murman and Cole [13] . Let equally spaced

mesh points be laid down on the interval [a,b] and denote by <j> .

the values of the potential <|> at these points. We call the jth
< an< >
point subsonic when 4>- + i ^--i 3 supersonic when $•+•> ^-.-i-
According to one version of the scheme of Murman and Cole our

differential equation, which can be expressed in the quasilinear

form

is approximated by the second order accurate centered relation

at subsonic points, but by the first order accurate retarded rela-

tion
 (a) Exact solution.

(b) Forward shock solution.

(c) Smeared shock solution.

Figure 1. Solutions for one dimensional model.

at supersonic points. The two relations are equivalent at the so-
=
called shock points where <t>-+1 4"-_i •
One can attempt to find a solution of our boundary value prob-
lem for the Murman-Cole difference equations iteratively by march-
ing repeatedly from left to right solving successively at each mesh
point for the unknown <)>. . Such an iterative scheme can be seen
to converge monotonically from above when an initial guess of <j> . is
made that is big enough and is concave. However, the answer is not
unique because the shock condition has been lost through failure to
use the conservation form of the equations. Any two straight lines
satisfying our three boundary conditions and meeting at a mesh
point define an admissible solution if the shock inequalities

> >
*j - *j-2 *j ~ *j+2 °
hold at that mesh point. (See Figure Ib.) Moreover, there are
valid solutions containing a segment of shock points on which c)> .
remains constant. These smeared shock waves terminate with one
higher value and then a downturn leading to a supersonic point
and a shock point followed by subsonic points. (See Figure Ic.)
They need not fulfill any shock relations whatever, and they seem
to occur in the applications.
One way to. remedy the situation we have just described would
be to replace the scheme of Murman and Cole by a finite difference
analogue of the ordinary differential equation

(
*x}x = h
*xxx '
which is in conservation form and has been provided with an arti-
ficial viscosity term on the right. The small positive factor h
should be of the same order of magnitude as the mesh size. The
general solution of this equation is
X-X-
<j> = - h log cosh(—— ) +

where x. , yQ and <f>g are constants of integration that can be

chosen to satisfy our -three boundary conditions. As h -»- 0 the

solution approaches the two straight lines determined by the

original shock structure problem. However, the truncation error

of the artificial viscosity method tends to be larger than that of

the Murman-Cole scheme, which is comparable in the present context

to a finite difference approximation of the equation

=
d>
v $ h £ d>
x *xx ^x

where e = 0 if <j>x < 0 but e = 1 if <$>x > 0. This is not a

conservation law because the variable factor e is not differen-

tiated.

An advantageous compromise would seem to be to develop an

intermediate scheme suggested by the conservation law

h
<*x>x= tx" ( E fe4>x> '
in which e is now differentiated. The appearance of e in the last

equation means that the solutions should include a shock point x. to

the left of which e = 1 and to the right of which e = 0. The deri-

vative <f> should approach zero from the left at XQ , but may be

negative to the right. On the other hand, the conservation form of

2 2
the equation implies that $X - he(<j> X)X as well as <j> should

remain continuous. Applying our boundary conditions, we conclude

that
2 1 - e exp(x-xQ)/h
= C
^x 1 - exp(a-xQ)/h

and that the location of the shock point XQ is defined by the

nonlinear relation
1/2
B-A t fl-£ exp(x-x0)/hj dx
C j [l-exp(a-x0)/h J 2e-l '
In the limit as h -*• 0 this reduces to our earlier formula for x..

To implement the above idea as a difference scheme we use

central difference formulas to represent the differential equation

on the. left-hand side, but retarded differences to represent the

artificial viscosity on the right. Taking h as the mesh width, we

obtain

(*j+r*j)2 -(Wi)2 =P
J "pj-i"
where

p.. = max {0, (<t> j + 1 -<t>j_ 1 >} <<f>j+i~ 2 < f > j + l *'j-i> •

Here p. reduces to the left-hand side at supersonic points for

>
which <t>- + i 4 > - _ i ' so the scheme is effectively retarded in the
supersonic zone. At the shock point, however, p. = 0 and P-T ? 0

so that the sum of the central and backward difference operators is

obtained, corresponding to the shock point operator introduced by

Murman (cf. [12]). It can be verified that this difference scheme

admits a unique solution which satisfies the correct shock jump

condition.
Now consider the problem of calculating the transonic flow

past a body in space of two or three dimensions. The solution

satisfies a variational principle which asserts that the integral

of the pressure p over the flow region is stationary with respect

to perturbations of the velocity potential <(>. A discrete version

of this principle leads to second order accurate finite difference

equations in conservation form, and it is especially helpful in

treating the natural boundary condition on <(> and the free surface

condition at a vortex sheet (cf. [3]). For transonic flow the

principal part of the Euler equation coming from the variational

principle should be left as it stands. Instead of directly retard-

ing the difference scheme for the differential equation in the

 8

manner of Murman and Cole, a suitable artificial viscosity should

be- added in conservation form. By using retarded difference

expressions to represent the viscosity we then arrive at an effec-

tively retarded scheme in conservation form.

To handle shock waves according to the theory outlined above

it is suggestive to look for appropriate weak solutions of a

partial differential equation for <(> of the invariant divergence

form

V(p V$) = h V[| V(pq)] ,

where q = |V(|>| is the speed, p is the density defined by

Bernoulli's law, h is an artificial viscosity coefficient, and e

vanishes when the flow is subsonic but is positive when the flow is

supersonic. The introduction of the one sided term e is motivated

by the decision process of Murman and Cole, while the highest order
derivatives appearing in the artificial viscosity are equivalent to

a derivative of the Laplacian V <j> in the direction of the flow.

In the next section we shall construct a convergent iterative

scheme to solve the resulting difference equations by introducing

additional terms that involve an artificial time parameter.

Experience shows that the term on the left can be replaced by

a quasilinear differential operator not in conservation form

without entirely losing the shock condition, provided that the

operator is represented by a suitably centered finite difference

expression and a conservation form is retained for the artificial

viscosity. The mean value theorem can be applied to expressions

of the form f •+-,/2 ~ ^--1/2 appearing in the difference

equations for the conservation form, where f is a function

of the velocity components. It can then be- deduced that in substi-

tuting the quasilinear form for the differential operator the

shock jump condition would be retained to second order in the shock
strength if R/c were constant, where c is the local speed of

sound. This is the case for a ratio of specific heats y = 2,

as in the shallow water equations. We shall subsequently refer

to schemes of this type in which the differential equation is

represented in quasilinear form, with artificial viscosity added

in conservation form, as quasiconservative, while we shall refer

to schemes retaining conservation form for both the differential

equation and the artificial viscosity as fully conservative.

The shock condition that is lost in the original Murman-Cole

scheme turns out to be the conservation of mass. Since pq is

stationary at Mach number M = 1, the scheme remains valid anyway

up to errors of the second order in the shock strength M - 1.

Moreover, in considering the differential equation for two dimen-

sional flow past an airfoil with a single valued stream function i|),

global considerations show that the total mass flux diji is actual-
ly conserved across the shocks even when they do not satisfy the

exact shock condition. Thus the method of Murman and Cole provides
a good approximation to the flow at nearly sonic speeds.

Denoting by c^ the critical speed and using the subscript °°

to indicate free stream quantities, we introduce the integral

[(<f>x-cjd4; + p dy] .

This integral for the wave drag coefficient is independent of path.

The jump of the integrand across a shock wave is of the third order

in the shock strength M - 1, and the formula makes sense even

though we have neglected changes in the entropy. It reduces to an

obvious pressure integral over the profile that we use in practice.

In our computer programs we have used a version of the scheme

of Murman and Cole that tends to yield shock waves behind which the
speed drops barely below the speed of sound through a jump roughly
 10

one half that to be expected from exact theory. This is consistent

with the existence of the forward and smeared shock solutions we

made reference to at the beginning of the section for a one dimen-

sional model. Such behavior is, however, also typical of the

interaction of weak shock waves with a turbulent boundary layer.

We have had excellent success with the method when we

includeda boundary layer correction, and it leads to remarkably

stable results. More recently we have modified the programs to try

out both quasiconservation and full conservation forms of the equa-

tions of motion like those that have been described above. For the

most part the modified programs give pressure profiles quite

similar to the ones obtained the old way. Some examples appear

where the exact shock condition has resulted in better agreement

with experimental data. Comparisons with exact hodograph solutions

show tha't the additional terms introduced by representing the arti-

ficial viscosity in conservation form lead to larger truncation

errors in supersonic regions where smooth recompression of the flow

occurs (cf. Chapter II, Section 2). Where the flow is expanding in

the supersonic region, comparisons of solutions on coarse and fine

grids suggest that the truncation error remains quite small, on the

other hand. Our conclusion is that the original procedure is

generally satisfactory in practice, but we do include in the hand-

book a listing of an option for a quasiconservative scheme for

purposes of comparison. Finally, we mention that our programs seem

to give a reliable estimation of drag creep, but predict drag rise

for Mach numbers that are about 0.02 smaller than those observed

in wind tunnels. The discrepancy may be due to wall effect.

 11

3. Iterative Schemes for Three Dimensional Analysis

Since the appearance of Volume I substantial progress has

been made in developing methods for the computation of transonic

flows. In this section we shall develop a rotated finite differ-

ence scheme to treat flows at both subsonic and supersonic free

stream speeds, and we shall develop an iterative procedure to solve

the resulting difference equations. The rotated scheme is invari-

ant under a transformation of coordinates, so that any curvilinear

system can be introduced that is appropriate for the geometry of a

specific problem. The method has been applied both in two dimen-

sional calculations of the flow over an airfoil with a correction

for the boundary layer, and in three dimensional calculations of

the flow past an isolated yawed wing of finite aspect ratio. In

selecting the latter problem to demonstrate the feasibility of

three dimensional calculations we are motivated by R. T. Jones'

concept of an asymmetric airplane with an oblique wing and by our

access to his experimental data for comparison with the theory [6].

To be specific we consider the three dimensional case.

Ignoring changes in the entropy and using rectangular coordinates

x, y, z, we have the partial differential equation

(c2-u2)<(>xx + (c2-v2)<|>yy + (c2-w2)<j>zz - 2uv<j>xy - 2vw<j>yz- 2uw<f>xz = 0

for the velocity potential <f>, where c is the speed of sound

defined by Bernoulli's law

2 2
q c 2 2 2 2
-|— + -^Y = const. , q = u + v + w ,

and u, v, w are the velocity components. We look for weak solu-

tions ij> that satisfy an entropy inequality asserting that the

speed [Link] across any shock wave, and we use the standard

approximations of linearized theory to specify what happens on the

vortex sheet behind an obstacle.

 12

The numerical method employed incorporates two basic features.

First, in common with previous successful schemes for treating •

transonic flows, it uses retarded differencing in the supersonic
zone to introduce artificial viscosity and to reproduce the proper
upstream region of dependence. Second, it uses an iterative proce-
dure which can be viewed as an embedding of the steady state equa-
tion in a suitably constructed artificially time dependent equation.
The difference scheme described in Volume I is based on the
assumption that the flow is more or less aligned with one coordi-
nate direction. To allow more flexibility this assumption has
been removed from the new scheme. Instead the equation of motion
is rearranged as if it were expressed locally in a coordinate
system aligned with the flow. Let s denote the stream direction.
Then the equation can be written in the canonical form

(c2-q2)(j>ss + c2(A<|>-<j>ss) = 0 ,

where A<)> denotes the Laplacian of <J>. Since the direction cosines
of the stream direction are u/q, v/q, and w/q, the streamwise
second derivative can be expressed in the form

1 2 2 2
6
ss = -^=-*r
T
2 (u *xx
d> + v T<j>
yy + w yzz
4 + .
2uv<j>
y
xy + 2vw<t>
y
yz + 2uwd>
y
xz ) .

At supersonic points retarded difference formulas are used to

represent all contributions to <j> , while central difference
formulas are used to represent all contributions to A<|>-<J> S S. At
subsonic points all terms are represented by central difference
formulas in the conventional manner. The result is a coordinate
invariant difference scheme which is correctly oriented with the
flow. The artificial viscosity induced in the supersonic zone
ensures the proper entropy inequality, so that compression shocks
are admitted while expansion shocks are excluded. By using the
 13

rotational invariance of the Laplacian the need to calculate

explicit directional derivatives normal to the streamlines is

avoided.

The difference equations are highly implicit, containing down-

stream points even in the supersonic zone. In order to devise a

convergent iterative scheme to solve them, it is convenient to

regard the iterations as steps in an artificial time coordinate.

Let At be the time step, arid let the superscript denote updated

values. Then a typical central difference formula at the mesh

point (iAx, jAy, kAz) is

(Ax)2

which may be regarded as a finite difference approximation of

_ At, + .
XX AX Xt t.

where r is a parameter determined by the overrelaxation factor.

Thus we must consider a time dependent equation which contains

mixed space and time derivatives.

If we divide the equation of motion through by c and

neglect lower order terms, its principal part will have the form

where M is the local Mach number q/c , m and n denote direc-

tions normal to s, and the coefficients a., o^ and a, depend

on the split between new and old values in the difference scheme.

Introducing a new time coordinate

a, s
T = t + —=— ~ a0m - a,n ,
M -1 ^ ^
we obtain the time dependent equation
 14

/U2 ,. . . . , ±_
(M -1; <p_^ ~ <l)™_, ~ 0 ~ i—o— ~ ap ~

In order for this equation to remain hyperbolic with s as the time-

like direction, it is necessary to satisfy the compatibility
condition

(A) o^ > /(M2-l)(a^+a^) , M > 1 .

This indicates the need to augment the term in $ fc to compensate

for the terms in <|> t and $ produced by the central difference
formulas. For that purpose $ is evaluated using retarded
difference formulas of the form

2<f> , , , — 4>. , , ~ 2$ . 1 . , + 4». _ . ,

1 , ~] fK- J-1 ~\ i & 1~ J., ] , K 2. — Z , ] , K
2
(Ax)

which can be interpreted as approximating

+ 2 At
XX ZiX X"C

The compatibility condition (A) may still be violated near the

sonic boundary, where the coefficient of $S S vanishes. Therefore
the term

max Uu|,|v|,|w|J *t zt

should be added, where 3 is a damping parameter chosen by the

user. In this term <j> is represented as

+ lK
$ 1
i ,- H
i_v
,K"_^ ! 1
-i,
V-
_]~ ,"f"
_ JC_ -i-l
_ 1n ~k±r J3fT-'\
_ -\J-k -J-, 3 >K
Ax At

with similar formulas for <)> . and <()zt- In

some calculations it
proves possible to set 3 = 0 .
The three dimensional analysis program, called Program J, has
 15

been implemented in this form, using mixtures of new and old

values to represent the spatial derivatives. Alternatively we can-

regard the iterative scheme as being derived directly by the addi-
tion of time dependent terms

£ a. <j> . + r<j>

to the steady state equation. Then all spatial derivatives would

be evaluated using old values, and the time dependent terms would
be explicitly added to produce an artificially time dependent
equation whose solution converges to the steady state solution.
This approach proves more fruitful when one wishes to devise an
iterative scheme for the equation in conservation or quasiconserva-
tion form, since it can be carried over unaltered. A conventional
relaxation scheme, on the other hand, would require the densities
at the midpoints of each mesh interval to be calculated twice,
first with old and then with new values.
To derive a quasiconservation form of the rotated scheme we
start from our invariant partial differential equation

V(p V<|>) = h V[- V (pq) ]

for the velocity potential <J>, in which central differences will

be used on the left and retarded differences will be used in the
evaluation of the artificial viscosity on the right. Working with
rectangular coordinates to simplify matters, we substitute a quasi-
linear form on the left to obtain

2 2 3 c2-q2 3
c V * - I <DXi$x.*XiX. = I h. ^- e g 3Xi -

This differs from the original equation by a factor c /p , where

c is the local speed of sound, and by the use of anisotropic

viscosity coefficients h. which are different in the different

coordinate directions. For these we take
 16

h Ax
i = l*x.l i '

where the Ax^ represent prospective mesh sizes. Neglecting

partial derivatives of lower order on the right, we arrive at the
result

c2 v2* - I *Xi»x.V.x. = I AX. JL e £^a! Uxjqx_ .

To derive the rotated scheme from this, all that is necessary

is to write down a similar equation in a more general orthogonal
coordinate system and to replace the partial derivatives by suit-
able finite difference approximations, with the divergence terms
on the right retarded or advanced according as the corresponding
coefficients <(> are positive or negative. We do not go into
x
i
further details here because the rotated scheme has already been
established on other grounds. The main advantage of the present
approach is that it applies just as easily to the true conserva-
tion form of the equation for $ as it does to the simpler quasi -
conservation form.
We summarize our ideas in the following

PROPOSITION. Transonic flow past a body in two or

three dimensions can be calculated by means of a finite difference
approximation of a partial differential equation for the velocity
potential <)> that consists of a central finite difference represen-
tation of the usual differential operator on 4> plus artificial
viscosity and artificial time terms that are defined by a formula

such as

where the h^ stand for anisotropic artificial viscosity coeffici

ents, the ct^ comprise a vector governing the characteristics of
 17

an iterative scheme that involves the artificial time t, and r is a

relaxation factor.
The proposition has the advantage that it breaks up into

separate blocks of terms the contributions from the fundamental

equation of motion, from the addition of artificial viscosity, and

from the insertion of mixed partial derivatives with respect to

artificial time that specify the iterative scheme we use. The more

general point of view should [Link] in applying the method to

other flow problems. It has been implemented in the quasiconserva-

tion option for the two dimensional program with boundary layer

correction, Program H (cf. Chapter III, Sections 5 and 7).

4. Choice of Coordinates and Conformal Mapping

The rotated finite difference scheme which we have presented

in Section 3 makes it possible to treat transonic flow problems in

a variety of coordinate systems. The choice of coordinates can be

quite important in a specific application. It is desirable that

the'coordinates follow the surface in regions of high curvature

such as the leading edge. This can be achieved by conformal map-

ping. In three dimensional calculations, however, we wish to avoid

the extra terms in the equations that would result from the use of

different mappings at different spanwise stations. For calculation

of the flow over a yawed wing we have therefore used a square root

transformation independent of the spanwise direction z to unfold

the wing about a singular line just inside the leading edge, which

is assumed to be straight. In the plane of each wing section we

thus obtain parabolic coordinates X and Y which are related to the

physical coordinates x and y by the conformal transformation

x + iy = (X + iY)2 .
 18

The wing profile emerges as a shallow bump above the line Y = 0, so

we use a second shearing transformation to obtain slightly nonortho-

gonal coordinates which coincide with the wing surface.

For the calculation of two dimensional flow past an airfoil a

better distribution of mesh [Link] obtained by mapping the

exterior of the airfoil conformally onto the interior of the unit

circle. In particular, for the inclusion of a boundary layer

correction based on iterating the map function, it is desirable to

have a fast and accurate method of doing the conformal mapping. The

purpose of this section is to describe such a method, based on the

fast Fourier transform, which has been found to stand up well in

practice.

The calculations are performed in the interior of the unit

circle using polar coordinates r and to. The modulus h of the map-

ping derivative becomes asymptotic to 1/r as r tends to zero.

To avoid introducing large truncation errors that come from finite

difference expressions for 3h/3(o and 3h/8r it is convenient to

introduce the mapping to the exterior of the circle and to use an

explicit inversion.

Because we have in mind the extension of the boundary layer as

a wake behind the airfoil, we wish to map the exterior of a profile

with an open trailing edge in the z-plane onto the exterior of a

circle in the a-plane so that the wake is reduced to a slit. The

well known method of Theodorsen and Garrick [16], in which the

mapping of a star shaped contour in the z-plane onto a circle in

the a-plane is expressed in terms of log(z/a), does not allow for

an open trailing edge. For this reason it is preferable to express

the mapping in terms of its derivative

s
 19

Since the point at infinity is to be preserved, the Laurent series

for f(o) must contain only inverse powers of o. If the coefficient

of I/a is c, then according to the Cauchy integral theorem, integra-

tion of the map function around any circle exterior to the unit

circle in the o-plane results in a gap

z_ — z. = mf -=— , = 2iric
dz da _ . ~.
2 1 j da

Thus the mapping represents the wake as a gap with a constant thick-

ness determined by the residue c.

In order to devise a simple iterative process for calculating

the mapping function it is convenient to write

N c

n=0 a11

If a and s are the tangent angle and arc length of the contour in

the z-plane, then

N
ds -inio
log -r— + i(a-oo) = J c e
n=0 n

Separating the real and imaginary parts, we obtain

N
ds
log T— = y (a cos noo + b sin noo) ,
doo rt n n
n=0

N
a - u) = £ (bn cos nu - an sin noo) ,
n=0
where

c
n = an + ib
n

Now the tangent angle a is known as a function of the arc length s

from the definition of the contour. Therefore if we have an

estimate s = s(u) of the arc length as a function of the angle oj

in the circle plane, we can calculate the Fourier coefficients of

the series for a - u. Then by reversing the sine and cosine
 20

coefficients we can construct the conjugate Fourier series for

log (ds/doi) . The expression for ds/dw can be integrated in turn to
provide an improved estimate of s (to) , and the process can be
iterated until the corrections to s(u) become negligible.
The Fourier series is not suitable for representing a jump.
In order to apply this method to the mapping of an airfoil it is
therefore desirable to modify the representation of ^ by including
a Schwarz-Christoffel term to allow for a corner or cusp at the
trailing edge. Thus we set
iJ/ N cn
dz /n 1. * " V
^= (1
-»> eXP
[nI 0 ^J '

where E is the included angle at the trailing edge. The gap

becomes
2iric =

The same iterative procedure is then used. Provided that c.^ is

fixed by the gap condition, it converges rather rapidly for
reasonably smooth airfoils. It is generally sufficient to use the
flat plate relationship of s to u for the starting guess, and the
_g
maximum correction to s(u) usually reduces to the order of 10 in
about 10 iterations.
To obtain good accuracy it is important to use a sufficiently
large number of terms in the Fourier series. If the mapping func-
tion is to be calculated at 2K equally spaced mesh points o)k= kir/K
around the circle it is best to take N = K terms and to replace the
Fourier series by trigonometric interpolation formulas for the
corresponding values a, of the angle a. This is equivalent to
evaluating the Fourier coefficients by the trapezoid. rule. It has
been shown by Snider [15] that for a function with i continuous
derivatives the maximum error in the trigonometric interpolation
 21

-
formulas is of the order (1/K)

The trigonometric interpolation formulas have the advantage

that they can be evaluated with the aid of the fast Fourier trans-

form. Thus we can reduce the number of computer operations at each

2
iteration from O(K ) to O(K log K). In fact we can avoid the

explicit evaluation of the coefficients a and b altogether

and obtain the conjugate function log (ds/dto) directly from a - w

with the aid of back-to-back fast Fourier transforms as follows:

First let the angle function a - CD at the mesh points 2k and

2k+lbe regarded as the real and imaginary parts of a complex

function

U
k = a2k - W2k + i
(a2k+l - U2k+l)

defined for 0 ~~
< k ~"
< K-l. Let U,
JC
be the complex Fourier trans-

form of u, , and let

VQ = 0 ,

-ito
Vk = Uk e , k > 0 .

Then the real and imaginary parts of the Fourier transform v, of

Vk yield log (ds/du) at the shifted mesh points 2k+l and 2k+2,

ds
v
It 2k+l k '

Unfortunately the contour is usually not defined by an

explicit formula, but only by a table of coordinates. Thus we are

obliged to use an interpolation procedure to estimate the tangent

angle a(s) at the values s, corresponding to equally spaced

points in the circle plane. Most airfoils have continuous slope

and curvature, but it is unwise to assume continuity of derivatives

of order higher than the second. Accordingly, it is appropriate
 22

to use cubic splines for interpolation. Since neither x nor y is

monotone around the contour it is not possible to use splines to

represent one coordinate as a function of the other. Instead x and

y are represented separately by splines as functions x(p) and y(y)

of a monotone parameter y. We can use the estimated arc length s

itself as the parameter. With this choice the derivatives of the

functions we encounter may become infinite at the trailing

edge. It is better to remove this singularity by using as a

parameter the stretched arc length

2s s
U = cos -
S
0

where s. is the total arc length. This reduces the sensitivity to

errors in the coordinates near the trailing edge.

The combination of the derivative representation of the

mapping with trigonometric interpolation by fast Fourier transforms

and with splines to represent the contour has been found in prac-

tice to provide a rapid and robust numerical algorithm which is not

critically dependent on a high degree of smoothness in the data.

Thus it is well suited to the treatment of a boundary layer correc-

tion, which can lead to rather irregular shapes, particularly in

the earlier iterations.

5. Two Dimensional Analysis with a Turbulent Boundary Layer

Correction

We turn our attention to the problem of adding a turbulent

boundary layer correction to the two dimensional program for

analysis of transonic flow past a supercritical wing section.

Our approach is to calculate the displacement thickness 6 = H9

by means of von Karman's equation

 23

« + (H + 2 - M2) i ^ = T
ds q ds

for the momentum thickness 6, where M is the local Mach number

and the shape factor H and the skin friction T are determined
from semi -empirical formulas of Nash and Macdonald [14] . We

ignore the laminar boundary layer because it is so thin, and we

initialize 6 at a transition point that can be set arbitrarily.

First we run a certain number of cycles of the flow computation

using a two dimensional version of the new rotated finite differ-

ence scheme described in Section 3. Then we alter the shape of the

airfoil by adding on a current estimate of the displacement thick-

ness 6 . After that we update the map function in the unit circle

by the fast Fourier transform procedure outlined in Section 4, and

finally we return to the flow calculation and repeat the whole

process. Various smoothings of 6 are introduced to overcome

instabilities caused by the dependence of the boundary condition on

the tangential pressure gradient dq/ds . However, the most serious

difficulty encountered, which we shall discuss in more detail,

stems from the inaccuracy and rapid variation of the Nash-Macdonald

formulas for the shape factor H near the point where the boundary

layer separates.
According to the turbulent boundary layer method of Nash and

Macdonald [14], separation is predicted when the adverse pressure

gradient becomes so big that

SEP
= -q-dl> -004 '

Beyond this threshold their semi -empirical formulas are less

accurate and we have felt free to modify them. Thus over most of

the airfoil, and in particular through any shock wave, we replace

the parameter SEP by .004 if the calculation shows it to exceed

 24

that value. A reasonable simulation of the effects of turbulent

boundary layer shock wave interaction seems to result for weak

"9.

shocks. Because the flow outside the boundary layer cannot

withstand arbitrarily large adverse pressure gradients, and because

experimental data indicate that the pressure coefficient C tends

to become linear or even flatten out after separation, we allow for

an option that alters the computed values of C for insertion in

the von Karman equation after the final point of separation by

extrapolating them linearly to a base value. Since the adverse

pressure gradient at the trailing edge ought to remain finite, we

iterate to determine the base value of the pressure coefficient

until the computed distribution of C just ceases to be monotonic

over some prescribed interval near the trailing edge. Our idea is

to thicken the displacement 6 beyond final separation of the

boundary layer until the pressure coefficient C begins to turn

around and flatten out at the trailing edge as we know it does

in wind tunnel tests. It is our experience that this procedure

yields a quite reliable estimate of the distribution of lift at the

rear of a heavily aft loaded airfoil.

Extensive comparisons with test data have been used to adjust

the parameters at our disposal in arriving at a scheme of this type

so as to achieve a good computer simulation of the physical flow.

The details are best studied by examination of the full listing of

our computer program in Section 5 of Chapter IIJC. We mention that

certain monotonicity properties which the final displacement thick-

ness 6 ought to have are imposed as part of the smoothing process.

Both 6 and the base pressure coefficient are underrelaxed to

obtain convergence; the change in the latter at each iteration is

made proportional to the smallest increment of C across any pair

of adjacent mesh points in a prescribed interval at the rear of
 25

the profile.

It has been found best to integrate the von Karman equation

over a mesh of 81 points equally spaced on the circumference of the

unit circle, even when the flow is computed at a mesh twice as fine,

because this leads to the right thickening of the boundary layer

through a shock. Satisfactory agreement with the experimental data

that is available to us seems to have been achieved (cf. Section 3

of Chapter II). Better resolution would require either an improve-

ment in the semi-empirical description of the turbulent boundary

layer we have drawn from the paper of Nash and Macdonald [14] or a

more penetrating [Link] the near wake in transonic flow past a

heavily aft loaded airfoil. We note that Bavitz [2] has also

developed an iterative procedure to include a boundary layer correc-

tion, for which he reports good agreement with experimental data.

6. Design in the Hodograph Plane: A New Model of the Trailing Edge

We turn our attention to the problem of design of shockless

airfoils by the method of complex characteristics described in

Volume I (cf. [1]). This transforms an analytic function depending

on many arbitrary parameters into a solution of the partial differ-

ential equations of gas dynamics. The main difficulty lies in the

choice of parameters to obtain desired properties of the flow in

the physical plane. New insight has been gained by experience and

as a result of wind tunnel tests. In particular, it has been found

essential to improve on our old model of the trailing edge.

Several of our airfoils have been tested in wind tunnels

achieving high enough Reynolds numbers so the boundary layer

becomes turbulent throughout the transonic zone (cf. [7,8,9]). The

agreement between theoretical and experimental pressure distribu-

tions turned out to be better when there was little aft loading
 26

and no boundary layer correction than it was in heavily aft loaded

cases with a boundary layer correction, for which the observed lift

was fifteen or twenty percent less than its predicted value. The

loss of lift for the corrected cases seems to be due to boundary

layer separation over the last three to five percent of chord on

the upper surface of the profile (cf. Chapter II, Section 6,

Figure 6) . Since, as we indicated in the previous section, large

adverse pressure gradients in the exterior flow cannot be sus-

tained by the boundary layer, the design pressure gradient

obtained near the trailing edge by the hodograph method ought to

remain bounded on the upper surface. Heavy aft loading can still

be achieved by allowing the favorable pressure gradient on the

lower surface to become infinite (cf. Section 1 of Chapter II). The

purpose of the present section is to describe a refinement of the

Kutta-Joukowski model of the tail in the hodograph plane that

enables us to generate such pressure distributions, which are like

those observed experimentally (cf. [8]) and should, therefore, give

rise to much less loss of lift in practice.

The method of complex characteristics constructs a flow from

initial data defined by an analytic function g of the complex

variable n specified in a plane that is analogous to the hodo-

graph plane, but is simpler because a substitution has been made

so the mapping to the physical plane becomes one-to-one. Since we

deal primarily with cusped tails, the Kutta-Joukowski condition

implies that the image of the tail in the n-plane lies at a

critical point of the stream function i)j identified with some

finite speed q (cf. the figures in Section 1 of Chapter II).

Corresponding to the airfoil there is a profile if/ = 0 in the

n-plane which must enclose no singularities of the input function

g(n) other than one at n = 0 associated with the point at

 27

infinity in the physical plane. In Volume I we allowed the stream

function iji to have a period about the origin in order to obtain a

thickness at the trailing edge from which a boundary layer correc-

tion could be subtracted. However, we now ask that fy remain single

valued and introduce a period in the physical coordinate y instead.

This has the advantage of making the values of the pressure coeffici-

ent C match up across the two edges of the trailing streamlines

ip = 0 that proceed from the tail out to infinity and in effect delin-

eate the boundary layer wake. The new model of the trailing edge

thus obtained agrees with the one we have been using all along in

our analysis programs.

The requirement that the adverse pressure gradient remain

finite on the upper surface of the airfoil near the tail means that

in the n-plane the corresponding arc of the profile must become

tangent to the level curve of the speed q through the tail. There

are two different ways this can happen. First, we can impose a

simple critical point of ty at the tail, with q stationary on the

profile ijj = 0 and with the angle of the flow monotonically increas-

ing as we pass from the upper surface to the lower surface. Both

surfaces are concave at such a tail, which has an appreciable base

pressure coefficient and does not generate excessive aft loading

(cf. Airfoil 79-03-12 in Section 1 of Chapter II). Second, there can

be a multiple critical point of ij; at the tail, with q stationary

only on the upper surface but exhibiting an unbounded favorable

gradient on the lower surface, and with the flow angles above and

below turning downward to form a hook at the tail (cf. Airfoil

72-06-16 in Section 1 of Chapter II). This is the case of a heavily

aft loaded airfoil, and its success depends on the pressure coeffi-

cient C being nearly zero at the tail. Thus the speed at the

tail is almost the same as that at infinity and the flow angles
 28

are sizeable, resulting in significant aft camber. When our design

program is used to implement the two configuratios we have describ-

ed, the new input parameter NCR specifying the number of

constraints, which controls the order of the critical point of iji at

the tail, must be set equal to five and seven, respectively.

7. Design in the Hodograph Plane: Choice of Parameters

The purpose of this section is to describe improvements in our

design method that have been introduced since Volume I appeared.

Some minor additions and corrections to the basic computer programs

have been made, and they are listed in Section 8 of Chapter III.

We believe that the better model of the trailing edge which has

been presented in Section 6 should be used in designing any future

shockless airfoils. We have also worked out a number of new

examples (cf. Section 1 of Chapter II), both before and after the

discovery of the more desirable treatment of the trailing edge

problem, and they furnish perhaps the best guide available to those
interested in the design method, which has turned out to be harder

for the uninitiated user to implement than we had hoped. Here we

supplement the examples with a brief account of the improved tech-

niques that enabled us to arrive at them.

In order to design a transonic airfoil by the method of

complex characteristics, we pick a desirable location, i.e. desir-

able speed and slope, for the tail and lay down automation paths

through which the profile .ought to pass in the subsonic part of the

complex n-plane, which plays the role of a hodograph plane. Then

we place logarithmic singularities of the input function g(n)r

whose coefficients are to be found automatically, at appropriate

points surrounding the profile. We distribute more of them near

the tail if a multiple critical point of the stream function fy
 29

is imposed there and if separation is to be avoided by fitting the

profile to a level curve of the speed q. To achieve shockless flow

few constraints should be set on the supersonic arc of the air-

foil. However/ the problem is overdetermined not only because of

its transonic character, but also because we tend to impose too

many interpolation conditions in the subsonic domain. Thus the

most important consideration is to choose the branch point B of

the transformation from the ri-plane to the true hodograph plane,

the location of the tail, and the more significant parameters defin-
ing the analytic function g(n) so as to arrive at a compatible

configuration. A good general principle to follow is that as few

constraints as possible should be introduced and as few logarithms

as possible should be used. Moreover, the coefficients of those

terms that are required should be made as small as possible. The

objective then becomes to obtain a smooth, closed profile \p = 0

with as many desirable physical properties as the various trade-offs

of the configuration at hand allow.

As we have indicated, the first shockless airfoils we developed

that had heavy aft loading failed to come up to their design speci-

fications in wind tunnel tests because we did not shape the profile

in the n-plane closely enough to the level curve of q at the tail

to eliminate significant boundary layer separation. Our present

belief is that this fit should be carried far enough to ensure that

the inequality

SEP
6 dq
= - |dJi -004 '

which we use as a criterion on the momentum thickness 6 for no

separation to take place, holds in the flow calculated by the hodo-

graph method, which occurs outside the boundary layer. Airfoils

conforming to the new criterion have more camber near the tail than
 30

corresponding examples designed before (cf. Airfoils 70-10-13 and

70-11-12), which helps explain why the earlier models experienced

a loss of lift. Runs of the analysis program we described in Sec-

tion 5, which seems to simulate test data well, do suggest that

five new airfoils we designed theoretically to have no separation

ought to meet our specifications in practice (cf. Airfoils 79-03-12,

72-06-16, 71-08-14, 70-10-13 and 65-14-08). For a more satisfac-

tory verification of the theory we look forward to seeing the

experimental results from a test of one of these airfoils now being

planned at the National Aeronautical Establishment in Ottawa.

Usually a new airfoil takes between 25 and 100 trial runs of

the computer program to design, with most of the runs using about

five minutes of CDC 6600 machine time at mesh parameter MRP = 2.

However, John Dahlin of the McDonnell Douglas Corporation was able

to design Airfoil 71-08-14 in only twelve runs starting from a

combination of the input data for Airfoils 72-06-16 and 70-10-13.

Full automation to prescribe the location of the arc of the profile

inside the sonic locus of the n-plane is recommended. For a case

with specifications close to those of one that has already been

finished, 25 runs should suffice. On the other hand, when we tried

out the concept of eliminating separation by fitting the profile

<p = 0 to the level curve of q through the tail in the n-plane,

both our first example, the heavily aft loaded Airfoil 70-10-13

based on a multiple critical point with NCR = 7, and our second

example, the low lift Airfoil 79-03-12 based on a simple critical

point with NCR = 5, required about 100 runs to perfect. The diffi-

culties encountered were to meet a large collection of interpola-

tion conditions near- the tail. The problem of achieving smooth nose

curvatures, which caused a lot of trouble in preparing the

examples for Volume I, is now made significantly easier by locating
 31

only one or two logarithms in the left half-plane, by cutting off

the automation paths well short of the nose, and by choosing the

parameters XU and XV that control the slope and curvature at the

stagnation point so that they are more compatible with the auto-

mation paths.

One of the most subtle aspects of the inverse method of

designing transonic airfoils is the control of limiting lines that

result from overlap in the transformation from the hodograph plane.

It is as important to control the limiting line that tends to

appear at the front of the superonic zone, where there is a

pressure peak, as it is to eliminate sharp gradients at the rear,

where shock waves will appear at off-design conditions. In our

method, problems of interpolation and analytic continuation play a

significant role in the location of logarithmic singularities of

the initial function g(n)• Experience shows that the limiting

lines are very sensitive to logarithms situated in the transonic

region of the n-plane just below the supersonic paths of integra-

tion (cf. the figures in Section 1 of Chapter II). We have found

that a logarithm with a pure imaginary automated coefficient should

be placed near the negative imaginary axis in this region. The

position of a second fully automated logarithm near the point

n = - .1 - .41 then exercises strong control over the pressure

peak at the front of the supersonic zone, which is also favorably

influenced by a heavily weighted automation path making the pro-

A
file cross the sonic locus early, say for Re (n) < -.6 . secon-
dary peak appears in front of the primary one when this logarithm

is moved toward the sonic locus. However, by careful adjustment

the secondary peak can be merged into the primary one so as to

form an unusually well rounded pressure distribution with super-

sonic speeds attained within five percent of chord from the lead-
 32

ing edge (cf. Airfoil 78-06-10). Such a distribution can be

expected to reduce the drag creep that tends to occur just below

the shockless design condition. Experience has shown that design-

ing airfoils near the limit of feasible specifications leads to

poor performance at off-design conditions. It is preferable to

reduce the size of the supersonic zone by subtracting, say, .01

from the maximum possible design Mach number. This also tends to
suppress drag creep.
 33

8. Bibliography

1. F. Bauer, P. Garabedian, and D. Korn, Supercritical Wing

Sections, Lecture Notes in Economics and Mathematical Systems,
vol. 66, Springer-Verlag, New York, 1972.
2. P. Bavitz, "Analysis Method for Two Dimensional Transonic
Viscous Flow," NASA TND 7718, 1974.
3. 0. Betancourt, "Three Dimensional Computation of Magneto-
hydrodynamic Equilibrium of Toroidal Plasma without Axial
Symmetry," AEC Research and Development Report MF-67 and
COO-3077-49, Courant Institute of Mathematical Sciences,
New York University, 1974.
4. L. A. Graham, R. T. Jones, and F. W. Boltz, "An Experimental
Investigation of Three Oblique-Wing and Body Combinations at
Mach Numbers between 0.60 and 1.40," NASA TM X-62,256,
Ames Research Center, 1973.
5. A. Jameson, "Iterative Solution of Transonic Flows over Air-
foils and Wings," Comm. Pure Appl. 'Math., vol. 27 (1974).
6. R. T. Jones, "New Design Goals and a New Shape for the SST,"
Astronautics and Aeronautics, vol. 10 (1972), pp. 66-70.
7. J. J. Kacprzynski, "A Second Series of Wind Tunnel Tests of
the Shockless Lifting Airfoil No. 1," Project Report 5x5/0062,
National Research Council of Canada, Ottawa, 1972.
8. J. J. Kacprzynski,' "Wind Tunnel Test of a Shockless Lifting
Airfoil No. 2," Laboratory Technical Report LTR-HA-5x5/0067,
National Research Council of Canada, Ottawa, 1973.
9. J. J. Kacprzynski, L. H. Ohman, P. R. Garabedian, and D. G.
Korn, "Analysis of the Flow Past a Shockless Lifting Airfoil
in Design and Off-Design Conditions," Aeronautics Report
LR-554, National Research Council of Canada, Ottawa, 1971.
 34

10. D.G. Korn/ "Numerical Design of Transonic Cascades", to appear.

11. E. Mclntyre, "Design of Transonic Cascades by Conformal Trans-
formation of the Complex Characteristics," Thesis, New York
University, to appear.
12. E. M. Murman, "Analysis of Embedded Shock Waves Calculated by
Relaxation Methods," A.I.A.A. Computational Fluid Dynamics
Conference, Palm Springs, California, 1973.
13. E. M. Murman and J. D. Cole, "Calculation of Plane Steady
Transonic Flows," A.I.A.A.J., vol. 9 (1971), pp. 114-121.
14. J. F. Nash and A. G. J. Macdonald, "The Calculation of
Momentum Thickness in a Turbulent Boundary Layer at Mach
Numbers up to Unity," Aeronautical Research Council C. P. No.
963, London, 1967.
15. A. D. Snider, "An Improved Estimate of the Accuracy of Trigo-
nometric Interpolation," S.I.A.M.J. Numerical Analysis, vol. 9
(1972), pp. 505-508.
16. T. Theodorsen and I. E. Garrick, "General Potential Theory of
Arbitrary Wing Sections," NACA Technical Report 452, 1933.
17. R. T. Whitcomb, "Review of NASA Supercritical Airfoils," Ninth
International Congress on Aeronautical Sciences, Haifa, Israel,
1974.
 II. DATA

1. Catalog of Transonic Airfoils

In this section we present some of the more promising air-

foils which we have been able to design. These are labelled with

six digit numbers composed of successive pairs indicating the free

stream Mach number M, the lift coefficient CT , and the thickness

LI
chord ratio T/C. For every example there is a plot of the airfoil
geometry and the Mach lines together with the design pressure

distribution. There is also a plot of the n-plane, related to the

hodograph plane, which shows the location of the logarithms and

automation paths (cf. Volume I) plus the remainder of the

integration paths from Tape 6. Listings of Tape 7 and

the automation paths from Tape 6 have been included. This should

enable the reader to run the examples through Programs B and D and

to use them as starting points for new designs. For our newer and

better airfoils we have listed x, y coordinates also, so that it is

not necessary to run the programs to obtain a definition of their

geometry.

The newer airfoils are given first. The best are 79-03-12,

72-06-16, 71-08-14, 70-10-13 and 65-14-08, which incorporate the new

model of the tail designed to eliminate boundary layer separation.

Airfoil 79-03-12 uses NCR = 5 (see pages 27-28) and has a low lift

coefficient in the range suitable for executive jets. Airfoil

78-06-10 is notable for its very smooth pressure distribution,

obtained by controlling the limiting line at the front of the super-

sonic zone (see pages 31-32). Airfoil 72-06-16 is the closest we

have come to simulating the supercritical wing of the T2-C. Airfoil

70-10-13 was designed especially for R. T. Jones to be used in his

plans for a transonic transport with an oblique wing. It was

2
designed to maximize the product M CT while having a thickness ratio
LI
 36

of twelve percent and meeting constraints imposed by the need to

avoid drag creep and separation. It is expected to give an optimal

three dimensional lift drag ratio at moderate supersonic speeds

(cf. Section 5). Airfoil 65-14-08 resulted from applying the same
criterion. Airfoils 70-11-12 and 65-15-10 are included largely for

purposes of comparison; they have cusped trailing edges for

which separation cannot be avoided. Airfoil 60-13-10 is

an example of a subcritical design.

Airfoils 75-06-12, 75-07-15 and 82-06-09 are from an older

series, and are included, not because they represent the best that

can currently be achieved, but because they have been tested (cf. [7,

8,9]}. The Grumman Aerospace Corporation used Airfoil 70-07-20 as

a starting point to develop an airfoil by our design method

for a series of tests in their transonic wind tunnel (cf. Section 6,

Figure 6). A .version of Airfoil 78-06-10 has been tested by Whitcomb

at the NASA Langley Research Center. There are also plans for a two

dimensional test of Airfoil 79-03-12 in the high Reynolds number

wind tunnel of the National Aeronautical Establishment in Ottawa,

for a three dimensional test of an oblique wing based on Airfoil

70-10-13 at the NASA Ames Research Center, and for a two dimensional

test of a modified version of Airfoil 65-14-08 at the Grumman Aero-

space Corporation.
Our final example is a compressor blade which was designed in

collaboration with E. Mclntyre (cf. [11]). This was obtained using

a new program which permits the design of two dimensional cascades

of airfoils and will be published elsewhere [10]. Additional

transformations of the n-plane allowing for additional branch points

enable one to design highly cambered blades suitable for turbines.

 37

c,

+ •* + V * VV+

t
+• •t +
+ + -t
^• + -t
o-o
•V

+ + *•,

.M •+
4-

.8

1.2
 38

-J
CD
T
O

rv>
03
PO

a
-<
H
CD
CO

C~.I

PO
a)
 39

07X23/7*

= -109
CIRCULATORY FLOW ABOUT A TRANjSONlC AIRFOIL

M= .790 CL= .292 OY= .018 T/C= .123

TAPE 6< PATH 0

2 o
-.800 0.000 2
-1.000 0.000 2

2 0
.300 .050 2
,3ito -.062 2

TAPE 7

-6-109 4 -.12 .15 .08 1.40 .790 -.009 -.052 .120 1.50
22 1 2 5 6 10 13 It 17 18 33 34 37 38 42 49
50 53 54 57 58 &1 &2

-.056 -.051 .520 .150 -.069 -.020 .500 .300

0.000 -.226 -.070 ,f70 -.169 -.094 .400 .010
-.102 -.022 -1.050 -.950 0.000 0.000 -2.000 0.000
0.000 0 . 0 0 0 -2.000 0.000 0.000 0.000 -2.000 0.000
-.169 .139 -.030 -.310 .039 .185 .500 ..300
.100 .070 0.000 -.300 0.000 [Link] 0.000 -.900
.209 -.065 .460 .100 -.044 .Q74 .500 .050
.119 -.027 .095 .032 .038 -.033 4.000 1.000
 40

AUTOMATION PftTHS

5 0
-.070 -.130 1
.190 -.335 -1
,2&0 -.350 3
.335 -.160 2
.350 -.090 2
3 0
-.910 -.300 -1
-.630 -.400 2
-.700 -.500 2
3 0
-.700 -.500 -1
-.600 -.500 1
-.510 -."t70 t
3 0
-.HID .390 -1
-.580 .410 2
-.840 .250 2
4 0
.120 .295 -1
.240 .320 2
.310 .260 1
.390 .160 1
3 0
.390 .160 -1
.390 .060 1
.355 -,0<t5 2
 41

LISTING OF COORDINATES FOR AIRFOIL 79-Q3-12 KN=20.0 MILLION

YS ANS KAPPA CP THETA SEP

1.00000 0.00000 .00348 -2.66 -19.62 .3010 .002B5 -.00457
.99953 .00002 .00351 -2.36 -7,18 .3022 .00265 -.00434
.93812 .00007 .00360 -2.07 -2.62 .3052 .00285 -.00372
.99578 .00015 .00371 -1.77 -1.92 .3090 .00287 -.00287
.99249 .00024 .00384 -1.46 -1.41 .3127 .00286 -.00203
.96827 .00034 .00397 -1.16 -1.15 .3159 .00290 -.00147
.98312 .00043 .00411 -.84 -.99 ,3192 .00291 -.00125
.97705 .00050 .00422 -.52 -.89 .3229 .00292 -.00117
.97005 .00054 .00430 -.17 -.84 .3271 .00293 -.00113
.96214 .P0053 .00434 .20 -.81 .3317 .00295 -.00109
.95332 .00047 .00433 .61 -.81 .3364 .00297 -.00102
.94361 ,00033 .00426 1.06 -.83 .3413 .00296 -.00093
.93302 .00008 .00410 1.58 -.67 .3460 .00300 -.00077
.92156 -.00030 .00384 2.17 -.93 .3501 .00301 -.00052
.90925 ..00084 .00345 2.85 -.99 .3526 .00301 -.00014
.69615 -.C0156 .00288 3.62 -1.04 .3524 .00300 .00036
.88229 -.00256 .00208 4.46 -1.06 .3481 .00296 .00094
.8677* -.00381 .00099 5.54 -1.03 .3386 .00289 .00154
.B5257 -.00535 -.00044 6.20 -.95 .3231 .00278 .00209
.83688 -.00717 -.00224 7.01 -.82 .3013 .00264 .00250
.82074 -.00925 -.00441 7.70 -.67 .2734 .00247 .00276
.601*23 -.01157 -.00691 '6.27 -.51 .2402 .00229 .00265
.78741 -.01408 -.00970 8.69 -.35 .2024 .00210 .00281
.77033 -.C1673 -.01270 6.96 -.20 .1608 .00192 .00269
.75304 -.01947 -.01561 9.09 -.07 .1160 .00176 .00251
.73556 -.02227 -.01398 9.10 .06 .0685 .00160 .00231
.71793 -.02506 -.02213 8.97 .18 .0187 .00146 .00210
.70017 -.02784 -.02520 8.74 .28 -.0327 .00133 .00183
.68228 -.03054 -.02817 8.39 .38 -.0849 .00122 .00167
.66429 -.03312 -.03099 7.95 .46 -.1371 .00112 .00146
.64620 -.03557 -.03363 7,44 .52 -.1863 .00103 .00126
.62800 -.03785 -.03609 6,86 .57 -.2374 .000*5 .00107
.60971 -.03995 -.03934 6.25 .59 -.2830 .00088 .00089
.59132 -.04186 -.04038 5.62 .60 -.3240 .00082 .00072
.572e4 -.04357 -.04220 4.99 .58 -.3595 .00077 .00057
.55426 -.04510 -.04361 4.38 .55 -.3892 .00073 .00044
.53561 -.04643 -.04523 3.81 .52 -.4138 .00069 .00034
.51688 -.04759 -.04645 3.27 .48 -.4342 .00065 .00026
.49811 -.04B5e -.04750 2.77 .45 -.4510 .0006? .00020
.47931 -.04941 -.04339 2.30 .42 -.4647 .00059 .00016
.<*6051 -.05010 -.04912 1.86 .40 -.4758 .00056 .00012
.44174 -.U5Q64 -.04971 1,43 .39 -.4846 .00054 .00009
.42302 -.05104 -.05016 1.03 .38 -.4917 .00051 .00007
.40439 -.05131 -.05047 .63 .37 -.4972 ,00049 .00005
.38587 -.05145 -.05065 .24 .37 -.5016 .00046 .00004
.36749 -.05146 -.05070 -.15 .37 -.5052 .00044 .00003
.34929 -.C5136 -.05064 -.53 .37 -.5082 .00042 .00003
.33128 -.05113 -.05045 -.91 .38 -.5109 .000^9 .00002
.31351 -.05079 -.05015 -1.30 .39 -.5133 .00037 .00001
.29599 -.05032 -.04973 -1.69 .40 -.5146 .00035 .00001
.27876 -.04976 -.04919 -2.10 .42 -.5149 .00033 -.00000
 42

YS ANG KAPPA CP THETA SEP

.26185 -.04908 -.0*855 -2.52 .** -.5143 .00031 ..00000
.2*527 -.01*829 -.01*779 -2.95 .47 -.5129 .00028 ..ooooo
.22906 -.01*739 -.0*693 -3.40 .*7 -.5120 .00026 .00001
.21324 ..Oi»639 -.0*597 -3.82 .48 -.5143 .00024 .00001
.19734 -.01*530 -,0**92 -*.27 .54 -.5176 .00022 .00001
.18290 -.Oi*i*12 -.0*377 -*.77 .63 -.5201 .00020 .00000
.16845 ..01*285 ..0*253 .5.31* .76 -.5200 .00018 ..00001
.15it52 -.01*1*6 -.0*118 .6.02 .92 -.5160 .00016 -.00003
.mis -.03996 -.03971 -6.80 1.10 -.5073 .00014 -.00005
.12829 ..03833 -.03911 -7.69 1.31 -.4931 .00012 -.00006
.11603 -.03657 -.03638 -8.70 1.53 -.4730 .00010 -.00007
.101*33 ..031*66 -.03*51 -9.62 1.77 -.4469 .00009 -.00008
.09323 -.03262 -.03250 • 11.01* 2.03 -.*1*6 .00007 -.00009
.08271 -.030*4 -.03036 -12.39 2.37 -.3746 .00005 -.00008
.07279 -.02813 ..02807 -13,88 2.75 ..3263 .00002 -.0000*
.06347 -.02569 -.02566 -15.52 3.19 -.2698
.051*76 -.02513 -.02312 -17.31 3.71 -.2057 TKANSITION .
.04667 .020*6 ..020*5 -19.27 *.3S -.1345
.03919 .01769 -.01769 -21.** 5.18 -.0562
.03233 .011*84 ..01*81* -23.87 6.29 .0297
.02611 .01191 -.01191 -26.63 7.82 .1240
.0205* .00893 -.00893 -29.83 10.06 .2279
.01562 .00590 ..00590 -33.67 13.35 .3437
.01136 -.00232 -.00282 -38.39 18.61 .4738
.00763 .00029 .00029 -**.i*3 26.69 .6239
.001*99 .003*6 .003*6 -52,13 36. *9 .7957
.00262 .00671 .00671 -61.00 *0.7* .9712
.00129 .0100* .01004 -69.81 **.*6 1.1053
.00035 .013*1 .013*1 -79.21 *7.57 1.1647 STAGNATION
[Link] .01671* .01671* -88.91 56.93 1.1273
.00027 .01997 .01997 -100.65 6*. 30 .9756
.00120 .02312 .02312 -112.11* 56. *3 .7330
.00279 .02&17 .02617 -122,51* 50.52 .4330
.0050* .02907 .02907 .132.80 *5.10 .1132
.00803 .03180 .03180 -1*1.81 31.21 -.1013
.01180 .03443 .03**3 -1*6.08 IB. 48 -.2264
.01632 .03698 .03698 -152.66 12.60 ..3235
.02156 .039*8 .0391*8 -156,27 9.29 -.4087
.02749 .01*189 .0*189 -159.26 7.21 -.4892
.03mO .01*1*22 ,0**22 -161.86 5.69 ..5648
.0<*138 .0*6*3 .0*5*3 -16*. 22 4.99 -.6390
.04932 .01*851 .0*850 -166.40 4.31 -.7124
.05795 .050*3 .050*1 -168. to 3.49 -.7793 TRANSITION
.06729 .05221 .05217 -170.01 2.4* -.6219
.07736 .05387 .05360 .171.18 1.66 -.8366 .00002 .00000
.08812 .055*5 .05535 -172.07 1.25 -.8360 .00006 .00000
.09951* .05697 .05662 -172.81 1.01 -.6287 .00008 .30002
.11160 .056*2 .05323 -173. *5 .84 -.8185 .00010 .00003
.121*27 .05901 .05958 -17*. 02 .73 -.8071 .00012 .0000*
.13752 .06113 .06067 -17*. 51* .64 ..7955 .00014 .0000*
.15133 .06239 .06209 -175.02 .57 -.7842 .00016 .0000*
.16566 .06359 .06325 -175,1*7 .52 -.7736 .00018 .0000*
.16050 .06471 .06433 -175.89 .*8 -.7640 .00020 .00004
.19561 .06575 .06533 -176.29 .** -.7555 .00022 .00004
.21158 .06672 .06626 -176.68 .*! -.7479 .00025 .00004
 43

X Y YS ANG KAPPA CP THETA SEP

.22778 .06761 .06711 -177.04 .37 -.7410 .00027 .00004
.24438 .06842 .06768 -177.38 .34 -.7344 .00029 .00004
.26137 .06915 .06957 -177.70 .32 -.7282 .00032 .00004
.27870 .06979 .06918 -178.01 .30 -.7224 .00034 .00004
.29636 .07036 .06970 -178.30 .28 -.7171 .00036 .00004
.31431 .07085 .07015 -178.58 .27 -.7125 .00038 .00003
.33252 .07126 .07052 -178.85 .25 -.7066 .00041 .00003
.35098 .07158 .07081 -179.12 .25 -.7054 .00043 .00002
.36963 .07183 .07101 -179.38 .24 -.7029 .00045 .00002
.38846 .07V99 ,07113 -179.63 .23 -.7010 .00048 .00002
.40743 .07207 ,07118 -179.88 .23 -.6994 .00050 .00001
.42651 .07207 .07113 -160.14 .23 -.6980 .00052 .00002
.44566 .07198 .07101 -180.39 .24 ..6966 .00054 .00002
.46487 .07180 .07079 -160.66 .24 -.691*9 .00057 .00002
.48408 .07154 .07048 -180.93 .25 -.6927 .00059 .00003
.50323 .07116 .07009 -181.21 .26 -.6901 .00061 .00003
.52242 .07072 .06959 -181.51 .27 -.6872 .00064 .00004
.54149 .07017 .06899 -181.82 .29 -.6838 .00066 .00005
.56044 .06952 .06329 -182.14 .31 -.6797 .00068 .00007
.57925 .06676 .06748 -182.49 .34 -.6741 .00071 .00011
.59788 .06768 .06655 -182. Bfl .39 -.6658 .00073 .00018
.61629 ,06689 .06548 -183.32 .*6 -.6529 .00076 .00029
.63447 ,06575 .06424 -163.65 .56 -.6324 .00079 .00047
.65237 .06445 .06282 -164.49 .68 -.6003 .00083 .00072
.67000 .06295 .06118 -185.23 .77 -.5544 .00069 .00100
.60736 .06124 .05929 -186.02 .80 -.4970 .00096 .00128
.70449 .05932 .05717 -186.79 .75 -.4333 ,00105 .00154
.72136 .05720 .05482 -187.48 .67 -.3694 .00115 .00175
.73804 .05493 .05229 -188.08 .57 -.3062 .00125 .00194
.75448 .05252 .04960 -186.56 .47 • -.2454 .00137 .00212
.77068 ,05002 .04679 -168.96 .36 -.1879 .00150 .00228
.78661 .04747 .04390 -189.25 .25 -.1341 .00163 .00243
.60226 .04489 .04097 -189.43 .15 -.0643 .00178 .00256
.61760 .04233 .03903 -189.52 .06 -.0383 .00192 .00269
.63258 .03982 .03512 -189.53 -.03 .0039 .00208 .00280
.64719 ,03736 .03227 -189.47 -.12 .0424 .00223 .00291
.86135 .03503 ,02951 .189.33 -.21 .0776 .00239 .00300
.67506 . .03280 .02689 -189.13 -.29 .1095 .00256 .00308
.is682& .03071 .02444 -188.87 -.36 .1383 .00272 .00313
.90091 .C?877 .02219 -168.56 -.46 .1642 .00287 .00315
.91296 .02699 .02018 -188.21 -.55 .1871 .00302 .00313
.92438 .02536 .01841 -167.82 -.63 .2071 .00316 .00307
.93512 .02395 .01688 -187.40 -.72 .2244 .00329 .00296
.94514 .02266 .01558 -186.96 -.80 .2391 .00340 .00263
.95441 .02158 .01450 -186.52 -.88 .2514 .00350 .30267
.96289 .02065 .01360 -166.07 -.96 .2616 .00358 .00250
.97055 .01966 .01278 -165.63 -1.04 .2699 .00364 .00234
.97737 .01921 .01198 -185.20 -1.14 .2767 .00370 .00223
.98332 .01869 .01118 -184.79 .1.26 .2821 .00375 .00223
.96835 .01826 .01030 -184.40 -1.45 .2867 .00379 .00240
.99255 .01796 .00913 -184.02 -1.72 .2908 .00382 .00279
.99580 .01776 .00782 -183.66 -2. £3 .2947 .00366 .00333
.99613 .01761 .00681 -183.32 -2.93 .2979 .00389 .00384
.99953 .01753 .00624 -182.99 -7.46 .3002 .00392 .00420
1.00000 .01751 .00606 -182.68 -19.86 .3010 .00393 .00433
 44

-1.21

-.81

-•Ml

"

[Link]

-41

•81

1.21

r.780 CL= .591 DY=.016 T/C=.102

45

C\J
O

CO
.—i
O
II
>-
a

en
LO

ii
_i
LJ

O
00
 46

08/21/73

= -67
CIRCULATORY FLDW A30UT A TRANSONIC ftlRFOlL

H= .780 CL= .59! OY= .016 T/C= .102

TAPc &• PATH 0

2 0
..800 0.000 2
.1.000 0.000 2

2 0
.300 .050 2
.*75 -.270 2

TAPE 7

-8 -87 <4 -.12 .15 .06 l.<*0 .780 0.000 -.116 .0=>5 1.50
25 1 2 5 6 9 10 13 It 17 18 22 33 3<* 37 38
tl H? 49 5(5 53 5i* 57 56 &1 &2

-.956 -.131 .630 .050 .002 -.130 .600 .270

-.1*8 -.207 .360 -.300 ..023 -.167 .530 ..270
.nil -.oto .1.300 .600 -.030 - . 5'0 3 -.010 .530
[Link] [Link] .2.000 0,000 0.000 0 . 0 0 0 .2.000 0.000
-.090 .325 .200 -.<*oo .200 -.013 -.180 -.f 70
.507 .057 ..056 -.290 -.320 .200 -.070 ..280

,?U .03? ."t60 .100 ..063 .070 .500 .050

.115 .o"*t .071* .029 .oto -.012 1.000 1.000
 47

A U T O M A T I O N PATHS

4 0
..950 -.290 -2
..B80 -.400 1
..600 -.450 1
-.700 -.495 1
2 0
-.700 -.495 -1
-.560 -.495 5
4 0
..100 -.200 1
.245 -.220 1
.500 -.300 .1
.245 -.318 15
4 0
..100 -.200 1
.245 -.2,20 1
.245 -.316 -1
.170 -.310 15
5 .0
..075 .240 -1
..ISO .270 1
-.270 .320 1
..390 .390 1
-.530 .390 1
4 0
-.530 .390 -I
..S85 .340 2
-.790 .290 1
..930 .220 1
4 0
..075 .240 .1
..080 ,2itO 1
.200 .280 1
.270 .260 1
4 0
.270 .260 .1
.410 ,190 1
.490 .040 1
.470 -.100 1
 48

-1.21

-.Ml

[Link]

.8.4.
4
4

1.21

• CL= -609 DY=.Q18 T/Cr.160

49

O
CD

CD
O
II
>-
a

en
o
CD

CJ

O
CM
r-
 50

07/23/71*

RUN= -20
CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL

*l= .720 CL= .609 OY= .018 T/C= ,160

TAPC 6« PATH o

2 0
-.600 0.000 2
-1.000 0.000 2

2 0
.300 0.000 2
.t30 -.350 2

TAPE 7

-8-020 4 -.12 .15 ,08 [Link] .720 .001 -.109 .060 1.50
23 1 2 5 (, 9 10 13 14 33 34 38 tl 42 45 46
49 5o 53 5i» 57 58 6l 62

-.252 -.170 .660 .070 .118 -.247 .600 .400

.(141 .179 .650 -.270 -.129 -,i32 -.030 .650
[Link] 0.000 -2.000 0.000 0.000 0 . 0 0 0 -2.000 0.000
0.000 0.000 -2,000 0.000 0.000 0 . 0 0 0 -2.000 0.000

-.122 .361 .268 -.241 -.200 .138 .100 -.420

.149 -.141 -.150 -.650 -.191 . ?18 .400 -
-.061 .071 .200 .010 -.174 .217 -.100 .050
.157 -.008 .167 .077 .075 -.012 1.000 1.000
 51

A U T O M A T I O N PftTHS

5 0
-1 .000 -.290 -1
- .910 -.450 1
> .73n -.540 2
- .710 -.550 5
- .650 -.550 5

I 0
- .940 .240 -1
- .730 .390 1

5 0
- .126 .394 -1
- .210 .416 2
- .410 .460 1
- .620 .450 1
- .740 .420 1

5 0
- .096 .390 -1
0 .000 .3B2 2
.103 .392 2
.200 .410 1
.280 .400 1

3 0
.230 .400 -1
."mo .160 3
.480 -.030 1

3 0
.480 -.030 -1
.500 -.170 4
.450 -.310 4

4 0
- .100 -.170 1
.170 -.370 -1
.220 -.310 2
.280 -.270 2

4 0
- .100 -.170 1
.280 -.270 -1
.340 -.280 2
.400 -.320 2
 52

LISTING OF COORDINATES FOR AIRFOIL 72-06-16 RN=20.0 MILLION

YS ANS KAPPA CP TriETA SEP

1.00000 0.00000 .00421 -17.75 -287.69 .0431 .00330 -.34135

.99952 .00012 .00428 -13.93 -57.72 .3347 .00333 -.30462
.99809 .00047 .00471 -13.61 6.40 .3855 .00339 -.20995
.99566 .00105 .00541 -13.57 -4.05 .3562 .00345 -.09612
.9921.3 .00165 .00632 -12.45 -5.64 .4031 .00351 -.01238
.98756 .00280 .00742 -11.06 -4.33 .4559 .00376 .01056
.98187 .00385 .00866 -9.87 -3.13 .4764 .00414 -.01532
.97504 .00496 .00996 -8.69 -2.90 .4917 .00436 -.02270
.96708 .00606 .01126 -7.40 -2.67 .5077 .00442 -.00563
.95799 .00715 .01252 -6.09 -2.35 .5197 .00450 .00146
.94780 .00911 .01370 -4.78 -2.12 .5273 .00461 -.00275
.93653 .00892 .01477 -3.47 -1.94 .5324 .00467 -.00353
.92423 .0095? .01566 -2.16 -1.78 .5350 .00468 -.00053
.91093 .00967 .01636 -.66 -1.64 .5349 .00466 .00097
.89669 .00991 .01&75 ,43 -1.52 .5322 .0046? .00099
.B8158 .00963 .01&79 1.69 -1.41 .5270 .00454 .00137
.86566 .0089B .01640 2.93 -1.30 .5192 .00443 .00208
.84902 .00795 .01554 4.13 -1.20 .5066 .00428 .00255
.83172 .CO&53 .01418 5.27 -1.10 .4952 .00410 .0027S
.61386 .00471 .01229 6.34 .1.00 .4791 .00390 .00297
.79552 .00251 .00990 7.34 -.90 .4602 .00368 .00311
.77676 -.00006 .00702 6.26 -.60 .4385 ,00344 .00315
.75767 -.00298 .00370 9.10 -.71 .4142 .00320 .00312
.73631 -.C0621 .00000 9.B4 -.62 .3873 .00297 .00305
.71876 -.00972 -.00400 10.51 -.55 .3577 .00274 .00296
.69906 -.01346 -.00826 11.09 -.47 .3253 , .00252 .00286
.67928 -.01745 -.01271 11.59 -.39 .2897 .00230 .00275
.65947 -.02156 -.01731 11.99 -.31 ,2507 .00210 .00264
.63968 -.02564 ..02200 12.31 -.23 .2079 .00191 .00253
.61997 -.03016 -.02674 12.52 -.14 .1607 .00172 .00241
.60037 ..03455 -.03148 12.61 -.03 .1088 .00155 .00230
.56093 -.03889 -.03617 12.58 .09 .0516 .00138 .00217
.56167 -.04316 -.04075 12.40 .23 ..0109 .00123 .00203
.54262 -.04729 -.04516 12.06 .36 -.0766 .00109 .00167
.52379 .,05123 -.04936 11.56 .55 -.1511 .00097 .00169
.50519 -.CS492 -.05328 10.87 .72 -.2269 .00066 .00149
.48680 -.05931 -.05666 10.02 .66 -.3037 .00076 .00127
.46861 -.06136 -.06008 9.02 1.01 -.3776 .00066 .00103
.45059 ..06404 -.06291 7.92 1.06 -.4433 .00061 .00079
.43270 -.06636 -.06534 6.60 1.06 -.4968 .00056 .00057
.41492 -.06831 -.06736 5,73 1.02 -.5363 .00052 .00039
.39723 -.06993 -.06908 4,72 .95 -.5634 .00049 .00025
.37965 -.07124 -.07045 3.60 .66 -.5813 .00046 .00016
.36217 -.07227 -.07153 2,94 .62 -.5929 .00043 .00010
.34463 -.07304 -.07235 2.15 .78 ..6003 .00041 .00006
.32765 -.07357 -.07292 1.40 .75 -.6050 .00036 .00004
.31065 -.07386 -.07327 .68 .73 -.6081 .00036 .00002
.29367 -.07396 -.07340 -.02 .72 -.6099 .00034 .00001
.27733 -.07367 -.07533 -.71 .73 -.6110 .00032 .00001
.26106 -.07357 -.07307 .1.40 .74 -.6116 .00030 .00000
.24509 -.07309 -.07262 -2.09 .77 -.6119 .00026 .00000
 53

YS ANG KAPPA CP THETA SEP

.22946 ..07242 -.07199 -2.60 .61 -.6116 .000*6 -.00000
.21418 -.07158 -.07118 -3.53 .67 -.6113 .00024 -.00001
.19929 -.C7056 -.07019 -4.30 .94 -.6101 .00022 -.00001
.18481 -.06937 -.06903 -5.12 1.03 -.6061 .00020 -.00002
.17077 -.osaoo -.06770 -6.00 1.15 -.6047 .00018 -.00002
.15719 -.06*46 -.06619 -6.95 1.28 -.5964 .00016 -.00004
.14410 -.06475 -.06451 -7.96 1.45 -.5881 .00014 -.00005
.13151 ..0^2f)fc ..06265 -9.11 1.65 -.5731 .00012 -.00006
.11945 -.06079 -.06061 -10.35 1.90 -.5524 .00010 -.00007
.10792 -.C5955 -.05340 -11.72 2.16 -.5249 .00009 ..00009
.09694 -.05*12 -.05601 -13.23 2.51 -.4895 ,00007 -.00010
.06653 -.05352 -.05343 -14.89 2.90 -.4456 ,00005 -.00008
.07669 -.05074 -.05068 -16.72 3.36 -.3943 .00002 -.00004
.06743 -.04776 -.04775 -18.75 3.91 -.3340
.05876 -.04466 -.04464 -20.97 4.54 -.2630 TRANSITION
.05068 -.04137 -.04136 -23.43 5.35 -.1819
.04321 -.03792 -.03792 -26.16 6.35 -.0903
.03634 -.03432 -.03432 -29.27 7.60 .0131
.03009 -.03057 -.03057 -32.75 9.15 .1295
.02446 -.02667 -.02667 -36.69 10.93 .2596
.01943 ...02263 -.02263 -41.07 12.83 .4031
.01502 -.01845 -.01345 -45.86 14.75 .5559
.01119 -.01414 -.01414 -51.03 16.37 .7102
.00794 -.00973 -.00973 -56.40 17.71 .6550
.00524 -.00522 -.00522 -61.93 19.03 .9793
.00310 -.00067 -.00067 -67.66 20.93 1.0732
.noise .00389 .00389 -73.83 23.69 1.1273
.00046 .00842 .00842 -80.54 26.57 1.1313 STAGNATION
0.00000 .01290 .01290 -87.75 29.16 1.0746
.00012 .01731 .01731 -95.36 30.66 .9509
.00062 .02162 .02162 -103.11 30.89 .7604
.00210 .02581 .02581 .110.89 31.06 .5066
.00397 .0?983 .02983 .118.95 32.61 .1929
.00647 .03362 .03362 .127.62 33.20 -.1595
.00966 .03716 .03716 .136.18 28.14 -.4671
.01361 .04049 .04049 -143.27 20.01 -.6753
.01833 .04366 .04366 .148.75 14.31 -.6177
.02379 .04667 .04667 -153.20 10.71 -.9160
.02999 .04955 .04955 .156.63 6.03 -.9949
.03692 .05230 .05230 .159.64 6.18 -1.0537
.04457 ."5491 .05491 -162.36 4.60 -1,0981
.05293 .05739 .05736 -164.49 3.77 -1,1309 TRANSITION
.06199 .05975 .05973 -166.28 2.97 -1.1535
.07174 .06199 .06195 .167.80 2.34 -1.1666 [Link] 0.00000
.08217 .06412 .06405 -169.07 1.66 -1.1715 .00002 .00000
.09327 .06615 .06604 -170.15 1.51 -1.1702 .00006 .00001
.10499 .06309 .06794 -171.09 1.25 -1.1648 .00008 .00001
.11733 .06993 .06974 -171.91 1.06 -1.1566 .00010 .00002
.13025 .07166 .07145 -172.65 .92 -1.1474 .00012 .00003
.14374 .07334 .07307 .173.32 .61 -1.1371 .00014 .00003
.15775 .07490 .07459 -173,93 .72 -1.1265 ,00016 .00004
.17228 .07637 ,07603 .174.50 .65 -1.1158 .00018 .00004
.18729 .07775 .07736 -175.03 .59 -1.1051 .00020 .00004
.20276 .07902 .07860 -175.54 .54 -1.0944 .00022 .00005
.21866 .06019 .07973 .176.02 .51 -1.0839 .00025 .00005
 54

YS AN6 KAPPA CP THETA SEP

.23*95 •08126 .08076 -176.48 • *6 -1.0735 .00027 .00005
.25163 .06222 .08166 -176.92 .*5 -1.0632 .00029 .00006
.26665 •06306 .082*9 -177.35 ,*3 -1.0528 .00032 .00006
.28598 .06361 .08319 .177.77 .*! -1.0*2* .0003* .00006
.30361 .08*** .08377 .178.18 • *0 -1.0318 .00036 .00007
.32150 .06*9* .08423 -178.59 .39 «1.0209 .00039 .00008
.33961 .08532 .08*57 -179.00 .39 -1.0095 .000*1 .00009
.35793 .08558 .08*76 -179. *1 .39 -.9974 .000** .00010
.376*2 .08570 .08466 -179.82 .39 -.98*2 .000*6 .00011
.39505 .06569 .08460 -160.2* .*0 -.9697 .000*9 .00013
.*1380 .0655* .08*60 .180.68 ,*2 -.9532 .00052 .00016
.*3262 .0652* .08*2* -181.1* .** ..93*3 .00055 .00020
.*5150 .06478 .08373 .181.63 .*6 -.9119 .00058 .00025
.*70*2 .06416 .0830* .162.15 ,*9 -.6853 .000&1 .00032
.*893* .06336 .08217 -182.70 .52 -.6537 .00065 ,00039
.50825 .06837 .08111 -183.27 .5* ..8170 .00069 .000*8
.5271<» .06119 .07985 .183.66 .55 -.7755 .00073 .00058
.34599 .07982 .07838 -18*. *6 .55 -.7296 .00078 .00068
.56*81 .07626 .07672 .165,0* .52 ..6802 .0008* .00078
.58359 .07651 .07*87 -185.58 • *7 -.6286 .00090 .00087
.60232 .07461 .07285 .166.05 .*0 -.5769 .00097 .00093
.62096 .07856 .07070 -166.*5 .3* -.5273 .00103 .00097
.63956 .070*1 .063*4 .186.77 .28 -,*812 .00110 .00098
.65602 .O^aia .06610 .187.0* .22 -,*389 .00117 .00097
.6763* .06588 .06371 .187.25 .18 -.4009 .0012* .00095
.69**7 .06355 .06128 -187. *1 .1* -.3667 .00131 .00093
.71239 .06120 .0566* -187.5* .11 ..3361 .00137 .00090
.73005 .05685 .056*0 .187.6* .09 -.3085 .001*3 .00087
.7*742 .05S50 .05397 .187.73 .06 -.2837 .001*9 .00065
.76*46 .05*18 .05157 -187.80 .07 ..2613 .00155 .00083
.78113 .05188 .0*920 -187.87 .07 ..2*08 .00160 .00081
.797*0 .0*963 .0*686 .187.93 .07 -.2220 .00165 .00080
.61323 .0*7*1 ,0**58 -187.99 .07 ..20*6 .00171 .00079
.62660 .0*525 .0*233 .186.05 .07 -.188* .00176 .00079
.6*3*6 .0*313 .0*015 .168.12 .08 ..173* .00180 .00080
.95780 .0*106 .03602 .188.19 .09 -.1592 .00185 .00081
.67158 .03909 .03595 .188,26 .10 -.1*56 .00190 .00083
.66*78 .03716 .0339* -168.35 .12 -.1329 .0019* .00087
.09736 .03530 .03200 .168.** .1* ..1205 .00196 .00091
.90932 .03352 .03013 .188.5* .16 -.106* .00203 .00097
.92061 •03161 .02632 .168.66 .19 ..0966 .00207 .0010*
.93123 .03018 .02657 .168,79 .22 -.08*9 .00211 .0011*
.9*116 .0286* .02*88 -188.93 .27 -.0732 .00216 .0012*
.95036 .02718 .02323 -189.09 .35 ..0616 .00220 .00138
.95882 •02581 .02156 -169,29 .*6 -.0503 .00225 .00156
.9665* .02*53 .0198* -189.52 .55 ..0388 .00229 .00169
.973*9 .02335 .01908 -189,75 .56 -.0267 .0023* .00233
.97967 .0?226 .01633 .189,95 .6* -.0133 .00239 .00265
.9850* .02133 .01*67 .190.21 1.08 ,0007 .002*6 .00331
.96960 .020*9 .01320 .190.62 2.26 .0139 .0025* .00360
.9933* .01977 .01216 .191.33 *.*3 .0250 .00261 .00369
.9962* .01916 .01150 .192.38 6.72 .0332 .00266 .00361
.99832 .01666 .01100 .193.79 1*.56 .0368 .00270 .003*9
.9995S .Olg36 .01062 .195.58 52. *1 .0*21 ,00272 .00336
1.00000 .0162* .010*1 .197.75 155.89 .0*31 .00272 .00335
 55

-1.21

-.81

-.41

[Link]

•41

1.21

M=.710 CL= .799 DY=.020 T/C=.llm

 56

-J
CD
.CO

-<
II
o
rv>
o
 57

07/23/71*

SUN= -12
CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIU

M= .710 CL= .799 UY= .020 T/C=

TAPE 6* PATH

2 0
-.800 0,000 2
-1.000 0.000 2

2 0
.300 -.050 2
.455 -.360 2

TAPC 7

-5-012 4 -.12 .15 .08 1.40 .710 .004 -.152 .050 1

22 1 2 5 6 9 10 14 33 34 38 4;L t2 45 46
5o 53 54 57 58 61 62

" • 185 -.045 .690 •

015 .034 -.220 .600 .300
• 024 .094 .635 " • 240 0.000 -.184 -.030 .650

0. 000 0.000 -2.000 0.000 0.000 0.000 -2.000 0.000

o. noo 0.000 -2.000 0.000 0.000 [Link] -2.000 0.000
—
• ne .347 .261 w
•233 0 .000 .109 .065 .380
• nsi .104 0.000 »* 350 .103 .067 .430 - .425

• 085 .020 .330 •055 . - .033 .239 .200 .050

• 117 -.050 .116 •066 .045 -.020 2.000 1 .000
 58

A U T O M A T I O N PfiTHS

5 0
-1.005 -.335 -1
-.920 -,405 2
-.815 -.492 2
-.715 -,555 3
-.644 -.563 4

r a
-.138 ,339 -1
-.210 .355 2
-.410 .385 1
-.620 .373 1
-.740 ,341 1
-.620 .293 1
-.680 .230 1

5 0
-.098 .335 -1
0.000 ,324 2
.102 ,322 2
.200 ,325 1
.230 ,320 1

5 0
.230 ,320 -1
.400 .224 3
.490 -.035 1
.515 -.185 3
.480 -.350 3

!> 0
-.100 -,225 1
.190 -.390 -1
.212. -.335 2
.295 -.300 2
.360 -.315 2
.420 -.360 2
 59

LISTING OF COORDINATES FOR AIRFCUL 71-08-14 KM=20.0 MILLION

YS ANG KAPPA CP THtTA SEP

1.00000 0.00000 ,00233 -20.19 -96.66 .0025 .00177 -.10007
.9995* .00015 .00260 -16.71 -33.66 .0614 .00179 -.09611
.59816 .C0059 .00336 -17.34 -10.69 .1971 .00192 -.06420
.99561 .00130 .00443 -16.10 -7.06 .3*04 .00231 -.06473
.9924? .00224 .00557 -14.97 -4.62 .4167 .00293 -.04097
.98796 .00336 .00693 -13.69 -3.75 .4422 .00324 -.02065
.5621*0 .00469 .00851 -12,73 -3.39 .4567 .00316 -.00938
.97571 .00611 .01015 -11.46 -3.09 .4856 .00329 -.00610
.96789 .00760 .01176 -10.13 -2.77 .5101 .00356 -.00748
.95891 ,0090ft .01342 -8.75 -2.52 .5259 .00376 -.00660
,948fll .01051 .01503 -7.34 -2.33 .5377 .00361 -.00353
.93759 .01180 .01654 -5.89 -2.16 .5470 .00367 -.00176
.9253P .D1290 .01788 -4.41 -2.00 .5526 .00393 -.00123
.91198 .01375 .01900 -2.94 -1.65 .5547 .00394 -.00044
.69770 .01430 .01981 -1,48 -1.71 .5334 .00391 .00058
.6625? .01450 .02024 -.06 -1.56 .5489 .OQ365 .00130
.66653 .01432 .02023 1.30 -1.42 .5413 .00375 .00175
.64981 .01374 .01975 2.60 -1,29 .5309 .00362 .00211
.P3245 .01277 .01677 3.63 -1.17 .5178 .00347 .00236
.61451 .01136 .01730 4.98 -1.06 .5021 .00330 .00256
.79610 .00960 ,01534 6.06 -.97 ,463ft .00312 .00266
,7772ft .00744 .01294 7.06 -.68 ,4&29 .00292 .00272
.7581? .00491 .01012 7.98 -.79 .4369 .00272 .00276
.73675 .00204 .00692 6.82 -.70 .4H6 .00252 .00277
.71919 -.00112 .00338 9.57 -.60 .3805 .00231 .00275
.69954 -.00455 -.00043 10.20 -.49 .3452 .00210 .00269
.67987 -.00617 -.00445 10.69 -.36 .3056 ,00190 .00259
.66022 -.01194 -.00860 11.02 -.22 .2&16 .00171 .00245
.64066 -.01573 -.01261 11.18 -.07 .2139 .00153 .00227
.62120 -.01962 -.01700 11.17 .09 .1631 ,00137 .00206
.60186 -.02341 -.02110 10,99 .23 .1103 .00123 .00163
.56265 -.02706 -.02504 10.66 .36 .0567 .00111 .00160
.56358 -.03059 -.02878 10.19 .48 .0035 .00100 .00138
.54463 -.03390 -.03229 9.61 .57 -.0"*81 ,00091 .00116
.525PO -.03696 -.03554 8.95 .64 -.0969 .00083 .00097
.50707 -.03981 -.03850 8.23 .69 -.1419 ,00076 .00079
.48845 -.04236 -.04119 7.46 .72 -.1823 ,00070 .00064
.46992 -.04467 -.04359 6.68 .73 -.2176 .00065 .00051
.45146 -.04671 -.04570 5.90 .73 -.2*76 .00061 .00040
.43314 -.04846 -.04755 5.14 .72 -.2^26 .00057 .00030
.41491 -.05000 -.04913 4.39 .70 -.2927 .00053 .00023
.39679 -.05126 -.05046 3.67 .68 -.3068 .00050 .00017
.37880 -.05233 -.05156 2.99 .66 -.3215 .00047 .00013
.36096 -.05315 -.05243 2.32 .64 -.3313 .00045 .00009
.34329 -.05377 -.05309 1.66 .63 -.3386 .00042 .00007
.32581 -.05419 -.05355 1.06 .62 -.3441 .00040 .00005
.30855 -.05442 -.05362 .45 .61 -.3462 ,00037 .00003
.29153 -.05447 -.05390 -.14 .61 -.3510 .00035 .00002
.2747* -.05434 -.05361 -.73 .62 -.3530 .00033 .00001
.25833 -.05404 -.05355 -1.33 .64 -.3543 .00031 .00001
.24221 -.05359 -.05313 -1.93 .67 -.3551 .00029 .00000
 60

YS ANG KAPPA cp 1HETA SEP

.22613 -.05297 -.05251 -2.55 .71 -.3555 .00026 .00000

.21101 -.1)5220 -.05130 -3.20 .76 -.3553 .U0021 -.00000
.19605 -.05127 -.05091 -3.86 .82 -.3517 .UQ022 -.00001
.18150 -.U5020 -.01987 -1.59 .90 -.3529 .UQ020 -.00001
.1671*0 -.01897 -.01867 -5.37 1.01 -.3506 .00016 -.00002
.15376 -.01759 -.01732 -6.21 1.11 -.3t70 .00016 -.00002
.11066 -.01606
-,OUit37
-.01562 -7.11 1.31 -.sm .00011 -.00003
.12807 -.01116 -8.17 1.52 -.3329 .00012 -.00001
.11603 -.01252 -.01231 -9.31 1.77 -.3202 .00010 -.00005
.10151 -.01051 -.01036 -10.59 2.07 -.3018 .00009 -.00007
.09361 -.03833 -.03621 -12.01 2.11 -.2763 .00007 -.00008
.08327 -.03596 -.03569 -13.60 2.81 ..2*22 .00005 -.00006
.07351 -.03316 -.03311 -15,35 3.26 -.1966 .00002 -.00001
.061*31 -.03079 -.03075 -17.27 3.77 -.1*16
.05576 -.02795 -.02793 -19.38 1,13 -.0806 TRANSITION
.04773 -.02196 -.02196 -21.72 5.13 -.0072
.01039 -.02183 -.02163 -21.26 5.99 .0779
.03360 -.01658 -.01858 -27.08 7.11 .1728
.02713 -.01521 -.01521 -30.23 8.57 .2760
.02187 -.01175 -.01175 -33.79 10.19 .3932
.01692 -.00619 -.00819 -37.86 12.98 .5162
.01261 -.00155 -.00155 -12.55 16.21 .6517
.00893 -.00085 -.00065 -18.00 20.37 .7897
.00589 .00291 .00291 -51.29 21.99 .9239
.00317 .00673 ,00673 -61.37 29.66 1.0392
.00169 .0105C .01058 -69.25 31.63 1.1117
.00051 .01116 .01116 -77.75 38.21 1.1293 STAGNATION
0.00000 ,01835 .01835 -86.60 39.85 1.0&70
.00007 .02223 .02223 -95.50 39.90 .9230
.P0071 .02606 .02606 -101.37 39.11 .7023
.00202 ,02980 .02980 -113.29 39.21 .1162
.00391 .03311 .03311 -122.37 37.33 .1028
.00653 .03686 .03668 -130.93 30.70 ..1788
.00985 .01023 .01023 -138.01 22.26 -.3868
.C1387 ,01319 .01319 -113.65 16.11 -.5159
.01858 .01667 .01667 -116.20 12.09 -.6718
.02396 .01975 ,01976 -151.98 9.12 -.7887
.03000 ,05271 .05271 -155.28 7.80 -.8923
.03666 ,05559 .05559 .156,27 6.70 -.9911
.01396 .05826 .05626 -161.13 6.31 -1.1033
.05190 .06076 .06071 -161.10 5.97 -1.2318
.06056 .06301 ,06297 -166.73 3.95 -1.3356 TRANSITION
.07000 ,06509 .06503 .168,27 2.06 -1.3591
.08016 ,06710 .06700 -169,36 1.62 -1.3566 .00005 .00001
.09101 .06905 ,06891 -170.27 1.29 -1.3*55 ,00007 .00002
.10255 .07091 ,07076 .171,07 1.10 -1.3307 .00009 .00003
.11166 .07277 .07251 -171,76 .96 -1.3111 .00011 .00001
.12736 .07152 .07126 -172,11 .85 -1.2975 .00013 .00005
.11061 .07621 ,07591 .173.06 .76 -1.2805 .00015 .00006
.151*fl .07761 ,07718 -173.63 .69 -1.2637 ,00017 .00006
.16866 .07931 .07896 -171.17 .63 -1.2*72 ,00019 .00006
,18312 .08076 .08036 .171,66 .58 -1.2310 .00021 .00007
.19862 .06213 ,08167 -175,18 .51 -1.2152 .OQ021 .00007
.21126 .06336 .08288 .175.65 .51 -1.1998 .00026 .00008
.23026 .06151 .08100 .176.10 ."*8 -1.1817 .U0026 .00008
 61

YS AN6 KAPPA CP [Link] SEP

.24669 .08559 .08501 -176. b5 .46 -1,,1698 .00051 .00008
.26343 .08653 .08591 -176.98 .44 -1,.1550 .00033 .00009
.28049 .06737 .08671 -177.41 .43 -1,,1403 .0003* .00009
.29785 .06809 .08739 -177.83 .42 -1,,1255 .00038 .00010
.31546 .06665 .08794 -178,25 .42 -1,,1103 .00040 .00011
.33331 .06917 .08838 -178.68 .42 -1,,0946 .00043 .00012
.35136 ,08952 .08668 -179.11 .42 -1,.0781 .UQ045 .00013
.36959 .08973 .08685 -179.55 .43 -1,,0604 .U0046 .00015
.38797 .08980 .08887 -160.00 .43 -1,,0412 .00051 .00017
.4C647 .08973 .08874 -180.47 .44 -1,.0206 .00054 .00019
,«2507 .06950 .06846 .180.94 .45 .,,9985 .00057 .00022
.44376 .06911 .08802 -181.43 .45 .,
_ ,,9753 .00060 .00024
.46249 ,08856 .08742 -181.92 .46 _ ,,9510 .00063 .00028
.48125 .08735 .06664 -182.42 .47 .9246 .00066 .00033
.50002 .08698 ,08570 -182.94 .50 .,.8950 .UQ070 .00040
.51377 .06592 ,08457 .163.49 .52 • .8611
, .00074 .00046
.53749 ,08469 .08325 -184.05 .53 .,8220
i .00078 .00058
.55616 .08326 .08174 -184.62 .53 ,7779 .00083 .00069
.57477 ,08166 .08005 .185,18 .51 — i,7302 .00089 .00078
.59333 .07991 .07818 .185.71 .47 —.,i.6807 .00095 .00087
.61181 .07799 .07615 .166.18 .41 .,.6312 .00101 .00093
.63020 .07593 .07398 -186.58 .35 ..5835
, .00106 .00097
.64849 .07377 .07171 -186.93 .30 .,.5386 .00115 .00099
.66665 .07151 .06935 -187.22 .25 .,,4969 .00121 .00099
.68464 .06920 .06693 -187.46 .21 •(.4568 .00128 .00098
.70243 .06684 .06446 -187.66 .18 .,4242
_, i .00135 .00096
.72000 .06445 .06200 -187.82 .15 .3928 .00141 .00094
.73731 .06205 .059bl -187.96 .13 -,.3644 .OQ148 .00092
.75431 .05966 ,05703 -188.07 .11 • ( .3386 .00154 .00090
.7709S .05728 ..05457 -188.18 .10 -,
.3151 .00159 .00089
.78729 .05492 .05213 -188.27 .10 * (.2937 .00165 .00086
.80319 .05260 .04973 -186.36 .09 —
1 ,2740 .00170 .00085
_(
.81865 .05031 .04736 .188.44 .10 »i .2558 .00176 .00085
.83366 .04808 .04505 .188.53 .10 .2*88 .00181 .00085
.64816 .04589 .04279 .186.62 .11 —
1.2228 .00186 .00086
.86215 .04376 ,04056 -188.71 .12 * 1.2079 .00190 .00067
.67558 ,04169 .03843 .186.61 .13 • I,1938 .00195 .00089
,*8843 ,0396fc .03634 .188.91 .15 ». .1804 .OQ200 .00092
.90069 ,03775 .03432 -189.03 .17 *, .1676 .OQ204 .00096
.9123? .03569 .03237 .189.15 .20 » 1,1551 .00208 .00102
.92330 .03411 .03048 -109.26 .23 * 1,1430 .OQ213 .00109
.93363 .03241 .02866 .189.43 .27 • ,1311
< .00217 .00118
.94325 .03079 .02691 -189.60 .33 * 1,1192 .00222 .00130
.95216 ,02927 ,02519 -189,79 .39 • ,1074
1 .00226 .00146
.96039 .02784 ,02347 -189,99 .46 *) ,0956 .00230 .00164
.967C6 .02651 ,02172 .190.21 .58 • (,0836 ,00235 .00166
,97458 .02526 .01992 .190.48 .79 w
<,0720 .00240 .00224
.98053 .02417 .01809 .190.79 .99 * 1,0600 .00244 .00280
.98571 .023'! 7 .01630 -191.11 1.09 • t ,0471 .00250 .00342
,99010 .02229 .01466 -191,47 2.14 *1 ,0335 .00258 .00402
,9936ft .02154 .01326 .192,19 5.0.9 — ,0211
1 .00266 .00450
.99645 .02092 .01214 -193.41 11.00 " 4 .0111 .00272 .00488
.9984!? .02042 .01126 .195.14 18,95 "1 ,0037 .00277 .00516
.99961 .02009 .01062 -197.40 70,69 1,0009 .00280 .00534
1.00000 .01996 .01027 .200.19 212.44 t,0025 .UQ261 .00540
 62

-.81

-.41

4. •(• + 4- +
+• 4-1

[Link] 4
+

+ "I-

.4

1.21

M=-700 CL= -998 DY=-020 T/C=.12'7

63

CM

CJ

O
C\J
O

CO
CD
CD

CJ

CD
CD
 64

07/23/71*

3UN= -138

CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL

1= .700 CL= .993 JY= .020 T/C= .127

TAPE 6* PATH

2 0
..600 0.000 2
-1.000 0.000 2

2 0
.300 -.100 2
.180 -."HO 2

TAPE 7

-7-138 <* -.12 .20 ,08 1.40 .TOO .012 -.202 .040 1.50
25 1 2 5 6 1Q 13 14 18 2l 22 33 3<t 37 38 42
45 46 49 50 53 54 57 58 61 63

-.115 .040 .700 -.040 -.157 -.211 .600 .200

[Link] -.132 ..030 .580 .028 .025 .620 -.210

[Link] .024 -1.100 -.450 .096 .n*7 -.750 .950

[Link] 0.000 -2.000 0.000 0.000 0.000 -2.000 0.000

-.nl4 -.005 .440 -.410 -.059 .316 .255 -.225

[Link] .168 .030 ..340 .019 .157 ..120 -.420

.l&B .069 .460 .100 .033 .220 .500 .050

.037 -.035 .065 .055 .027 .013 4.000 1.000
 65

A U T O M A T I O N PftTHS

6 0
- .100 -.200 1
.210 -.410 -1
.265 -.360 1
.310 -.330 2
.330 -.350 2
.440 -.400 2

3 0
..850 -.500 -1
- .720 -.560 1
- .570 -.550 4

4 0
..850 -.500 -1
..930 -.410 3
..990 -.310 3
.1.010 -.260 1

3 0
..430 .310 -1
..650 .290 1
- .620 .220 1

Z 0
.200 .240 -1
'.400 .310 1

5 0
.200 .240 -1
.300 .240 1
.400 .190 1
.500 -.040 1
.530 -.200 1

3 0
.300 -.100 1
.530 -.200 -1
.510 -.350 2
 66

LISTING Of COORDINATES FOR AiRFOlL 70-10-13 RN=20.0 MILLION

YS AAIG KAPPA CP TrtETA SEP

1.00000 0.00000 .00221 -22.73 -119.58 ..0*86 .00166 -.16865
.99957 .00017 .002*1 -20.96 -39.71 .0806 .00168 -.153*1
.9982* .00065 .0030* -19.5* -10.16 .2962 .00175 -.11253
.99595 .001*3 .00399 -18.39 .6.76 .3776 .00191 -.06117
.99265 .002*9 .00516 -17.25 -5.18 ,*03* .00216 -.02021
.98829 .00376 .00659 .16.00 .*.*6 ,**31 .00237 ..00*03
.98285 .00527 .00325 -1*.68 -3.80 ,*729 .00251 ..00993
.97630 .00689 .01003 -13.30 -3.3* ,*968 .0026* -.011*7
.96863 .00860 .01186 -11.89 .2.96 .5155 .00276 ..00502
.95981 .01033 .01372 -10. *6 .2.63 .5296 .00285 -.00177
.9*995 .01202 .0155* .9.03 .2.3* .5397 .00291 -.00229
.93898 .01362 .01727 -7.63 .2.09 .5*63 .0029* -.00198
.92693 .01508 .01886 -6.26 .1.87 .5501 .00296 -.00067
.91398 .0163* .02025 -*.93 .1.68 .5515 .00296 .00006
.90003 .01738 .02139 -3.65 .1.53 .5506 .0029* .00026
.88519 .01816 .0222* -2.*0 -1,*0 .5*79 ,00290 .00051
.86952 .01865 .02277 .1.19 -1.30 .5*35 ,00285 .0008*
.85308 .01882 .02295 -.00 .1.22 .5372 .00279 .00108
.83593 .0186* .02275 1.16 -1.1* .5289 ,00271 .00126
.61815 .01810 .02216 2.28 -1,07 .5185 ,00261 .001**
.79981 .01719 .02117 3.37 .1.00 .5056 ,00250 .00162
.78101 .01591 .01977 *.*2 -.93 ,*898 .00238 .00177
.76181 .01*26 .01797 S.*0 -.6* .*711 .00225 .00189
.7*232 .01227 .01560 6.29 -.75 .**90 .00210 .00196
.72261 .00996 .01328 7.08 -.6* ,*235 ,00195 .00199
.70276 .00737 .010*7 7.75 -.52 .39*7 .00180 .00197
.68283 .00*56 .007*3 6.29 -.*0 .3628 .00166 .00191
.66269 .00159 .00*21 8.68 -.28 .3281 .00151 .00181
.6*297 -.001*9 .00069 8.93 -.16 .2911 .00136 .00169
.62311 ..00*6* -.002*7 9.05 -.0* .252* ,00126 .0015*
.6033* -.00778 -.00583 9.02 .08 .2123 .0011* .00139
.58367 -.01088 -.00911 8.87 .18 .1717 .0010* .0012*
.56*12 -.01388 -.01228 8.61 .28 .1313 .00095 .00109
.5**69 -.01676 -.01531 8.2* .36 .0917 .00087 .0009*
.52539 -.019*6 -.01816 7.80 .** .0535 .00080 .00081
.50622 -.02202 -.02081 7.28 .50 .017* .0007* .00068
.*8716 -.02*35 -.02325 6.70 .55 -.0159 .00068 .00057
.*6827 -.026*7 -.025*5 6.08 .59 -.0*59 .00063 .000*6
.**9*9 -.02836 -.027*2 5.*3 .61 -.0722 .00059 .00037
.*3086 -.03003 -.02916 *.77 .63 -.09** .00055 .00028
.*1236 ..031*6 -, 03065 *.10 .63 -.112* .00051 .00021
.39*01 -.03267 -.03191 3.** .62 -.1262 .000*8 .00015
.37582 -.03366 .,03295 2.60 .60 -.1362 .000*5 .00010
.35779 ..03**5 -.03378 2.18 .58 -.1*27 .000*3 .00006
.33995 ,.0350* -,03**1 1.60 .56 ..1*65 .00010 .00003
.52231 -.035*5 -.03*86 1.05 .53 -.1*83 .00038 .00002
.30*90 ..03569 >,0351* .53 .51 -.1*90 .00035 .00001
.28775 -.03577 -.03526 .03 .51 -.1*91 .00033 .00000
.27086 -.03571 -.03523 -.*6 .51 -.1*91 .00031 .00000
.25*32 -.03551 -.03506 -.95 .53 -.1*91 .00029 .00000
.23811 -.03517 -.03*76 -l.*5 .56 -.1*92 .00026 '-.00000
 67

YS ANS KAPPA CP THETA SEP

.22228 -.03470 -.03432 -1.98 .60 -.1491 .00024 -.00000
.20664 -.03409 -.03375 -2.54 .67 -.1468 .00022 -.00001
.19184 -.03336 -.03304 -3.14 .74 -.1478 .00020 -.00001
.17729 -.03247 -.03219 -3.80 .64 -.1456 .00018 -.00002
.16321 -.03144 -.03119 -4.53 .95 .1414 .00016 -.00003
.1<*962 -.03026 -.03006 -5.32 1.06 .1347 .00014 -.00004
.13655 -.02896 -.02877 -6.18 1.22 .1247 .00012 -.00005
.12399 -.02750 -.02735 -7.12 1.36 .1109 .00010 -.00006
.11198 -,0?589 -.02577 .8.14 1.57 .0925 .00008 -.00007
.10051 -.02414 -.02405 -9.25 1.77 .0692 .00006 -.00006
.08961 -.02226 -.02219 -10.45 2.01 .0403 .00003 -.00003
.07927 -.02023 -.02019 -11.74 2.28 .0055 0.00000 0.00000
.06951 -.01808 -.01806 -13.13 2.60 .0352
.06033 -.01561 -.01581 -14.64 2.99 .0821 TRANSITION
.05175 -.01344 -.01344 -16.28 3.47 .1353
.04376 ..01098 -.01098 -18.08 4.10 .1950
.03643 ..00845 -.00645 -20.10 4.99 .2613
.02971 -.00584 -.00584 -22.40 6.25 .3348
.02365 ..00316 -.00318 -25.10 8.22 .4165
.01826 -.00047 -.00047 -26.43 11.30 .5068
.01357 .00229 .00229 -32.67 16.38 .6148
.00958 .00510 .00510 -38.19 23.45 .7391
.00631 .00800 .00900 -45.06 31.51 .8786
.00371 .01097 .01097 -53.14 39.95 1.0127
.00179 .01400 .01400 -62.58 53.58 1.1074
.00056 .01707 .01707 -74,01 63.84 1.1215 STAGNATION
.00000 .02019 .02019 -85.75 63.80 1.0200
.00008 .02334 .02334 -97.22 63.50 .7969
.00081 ,02647 .02647 -106.75 58.59 .4872
.00220 .02957 .02957 -119.15 49.10 .1513
.00425 .03259 .03259 -126.77 42.62 -.1997
.00701 .03552 .03552 -137.49 31.13 -.4403
.01053 .03839 .03839 -143,72 18.69 -.5644
.01479 .04124 .04124 -148.29 12.94 -.6512
.01974 .04406 .04408 -151.90 9.48 -.7245
.02538 .04690 .04690 -154.89 7.17 -.7931
.03166 .04960 .04968 -157.37 5.61 -.6561
.03862 .05241 .05241 -159.57 4.70 -.9133
.04620 .05508 .05508 -161.54 3.91 -.9664
.05442 .05768 .05767 -163.32 3.31 -1.0154 TRANSITION
.06325 .06019 .06017 -164.92 2.82 -1.0603
.07270 .06260 .06256 -166.36 2.42 -1.1005 0.00000 0.00000
.06275 .06491 .06485 -167.71 2.08 -1.1359 .00002 -.00002
.09342 .06712 .06702 -168.91 1.78 -1.1661 .00005 -.00003
.10467 .06921 .06907 -169.98 1.50 -1.1902 .00008 -.00004
.11652 .07120 .07102 -170.93 1.26 -1.2077 .00009 -.00003
.12894 .07309 .07288 -171.76 1.05 -1.2167 .00011 -.00002
.14192 .07488 .07463 -172.49 .90 -1.2243 .00013 -.00001
.15543 .07658 .07630 -173.14 .76 -1.2261 .00015 -.00000
.16946 .07820 .07768 -173.73 .68 -1.2252 .00017 .00001
.18397 .07972 .07936 -174,27 .61 -1.2225 .00019 .00001
.19894 .08116 .08076 -174.77 .56 -1.2166 .00021 .00002
.21435 .08251 .08207 -175.24 .51 -1.2136 .00023 .00002
.23017 .08376 .08329 -175.69 .46 -1.2084 .00025 .00003
.24637 .08492 .08441 -176.12 .45 -1.2025 .00027 .00003
 68

YS ANG KAPPA CP THETA SEP

.26292 * 08598 .08543 -176. 53 .42 -1. 1964 .00029 •
00003
.27981 •08695 .08636 -176.93 .40 -1.1900 .00032 •
0000*
.29699 t 08761 .08718 -177. 32 .39 -1.1833 .00034 t 0000*
.3i**s •08857 .08790 -177. 70 .38 -1.1764 .00036 •
0000*
.33215 •08922 .08851 -178. 08 .37 -1.1693 .00038 •
00005
.35007 •08976 .06901 -178.45 .36 -1.1619 .00041 •
00005
.36618 •09019 .08940 -178.83 .36 -1.1542 .00043 •
00006
..366** •09051 .08967 -179. 21 .36 -1.1461 .00045 •
00006
.*0*63 t 09070 .06982 -179. 59 .37 -1.1374 .00048 •
00007
.*2332 t 09077 .08985 -179. 98 .37 -1.1261 .00050 •
00008
.**ie* •09071 .08975 -160. 36 .38 -1. 1179 .00053 •
00009
.*60*9 •09052 .08951 -160. 79 .39 -1. 1067 .00055 •00011.
.*7911 t 09019 .06914 -181. 22 .41 •1.0941 ,00056 •
00013
.*9772 •08972 .06862 -181. 67 .43 -1.0800 .00060 •
00015
.51629 •06910 .08795 -182. 14 .45 -1.0641 .00063 •
00018
.53480 •OS833 .06713 .162. 63 .47 -1. 0463 .00066 •
00021
.55322 •08741 .08614 .183. 14 .50 -1. 0264 .00069 •
00026
.57153 •08632 ,08498 .183, 67 .53 -1.0033 .00072 . 0003*
.56970 t 09506 .08363 .184. 25 ,58 —
9752
• .00076 *
000*6
.60771 •06362 .08208 -184. 90 .66 "• *9379 .00080 •
00066
.62555 * 08198 .08032 -185. 62 .73 "• 8864 .00085 •00093
.6*322 •08012 .07832 -186. 36 .74 ™ .8193 .00092 . 00117
.66071 •07805 .07610 .167. 09 .65 m
•74H6 .00100 •
00135
.67813 t 07580 .07370 -187. 66 .51 m
•6726 .00109 •
001**
.69536 * 07340 .07117 -188. 13 .39 —
• 6078 .00118 •001**
.7121*7 ,• 07091 .06855 -186. 46 .29 m f 5519 .00127 •
00139
.72938 t 06636 .06586 -186. 71 .22 ~ •5036 .00135 . 00132
.7*606 •06577 .06319 .188. 90 .17 " t4623 .00143 •
0012*
.76248 •06318 .06050 .189. 05 .14 ™ • 4266 .00150 •
00117
.77659 •06060 .05763 -189. 17 .12 ™ • 3957 .00157 •00111
.79*55 •05804 .05516 -189.28 .11 * f3686 .00163 •
00106
.8097* •05551 .05258 -169. 38 .11 •• 3446 .00169 •
00102
.82*72 t 05302 .05001 -189.47 .11 m
•3226 .00175 •
00100
.83925 •05059 .04750 -189. 56 .11 m 4025
§ .00100 •
00096
.85330 •04821 .04504 -189. 66 .13 —
• 2844 .00186 *
00097
.86685 •04589 .04264 -189. 76 .14 " • 2675 .00191 •00097
.87986 t 04364 .04031 .189. 87 .15 »• 2517 .00196 •
00098
.89231 •04146 .03305 -189.99 .17 m
•2370 .00200 •
00101
.90*18 •03936 .03586 -190. 12 .20 • 2229
. .00205 •0010*

.915** •03733 .03375 -190. 26 .23 * t 2094 .00209 •

00108
.92607 t 03539 .03171 -190. 42 .27 "• •1965 .00214 •
00113
.93605 t 03354 .02975 -190. 59 .32 T •1842 .00218 •
00116
.9*536 t 03179 .02766 -190. 78 .36 «•• 1726 .00222 •
00129
.95399 •03013 .02602 -191. 00 .49 "• •1613 .00226 •
001**
.96192 t 02857 .02419 .191. 25 .62 *• 1496 .00231 •
0016*
.96913 t 02712 .02233 -191. 54 .70 ™ • 1374 .00236 •
00186
.97561 •02576 .02042 -191. 60 .69 •• *1253 .00240 . 00216
.98135 t 02457 .01850 .192. 05 .89 m
t 1136 .00244 •
00256
.98633 •02349 .01664 -192. 42 1.79 * t 1020 .00230 •00312
.9905* •02254 .01491 -193. 07 3.79 ~ * 0903 .00256 •00367
.99396 t 02172 .01342 -194.13 7.03 *• 0783 .00263 » 00*69
.99660 t 02102 .01219 -195.62 13.03 m
•0671 .00270 •
00605
.998*9 t 02047 .01121 .197, 53 21.21 •• •0576 .00276 •00711
.99962 •02009 .01049 -199. 90 74.32 M » 0511 .00280 •
0078*
1.00000 •01995 .01009 -202. 73 220.07 m 0486
9 .00281 •
00811
 70

a
a

o
o

o
o
a

o
ii
 71

07/23/74

RUN= -85

CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL

MS .700 CL=1.100 Jr= .000 T/C= ,

TAPE 6t PATH o

Z 0
..600 0.000 2
-1.000 0.000 2

a o
.300 .050 2
.520 -.320 2

TAPE 7

-6-065 H -.12 .20 .06 1.40 .700 ,0i7 -.210 0.000 1.50 7
23 1 2 5 6 lo 18 21 22 33 34 37 36 42 45 46
49 50 53 54 57 58 61 &2

-.115 .148 .650 .0&0 .064 -.273 .550 .450

0.000 -.087 -.040 .580 0.000 0.000 .900 0.000

[Link] .002 -1.100 -.450 .059 .050 -.700 .750

0.000 0.000 -2.000 0.000 0.000 [Link] -2.000 0.000

-.020 .249 .620 -.240 -.612 .258 .390 -.330

0.000 .114 0.000 -.320 .106 -.956 -.250 -.600
.237 -.106 .460 .100 .137 .1149 .500 .050
.098 -.016 .056 .062 .002 .016 2.000 1.000
 72

AUTOMATION PATHS

3 0 '
- .840 -.510 -1
..700 -.550 1
- .550 -.545 4

4_ 0
.640 -.510 -1
..910 -.400 3
..990 -.320 3
-1 .010 -.260 1

5 0
.100 .520 -1
..100 .520 1
- .350 ,550 1

5 0
..430 .310 -1
..650 .290 1
- .830 .220 1

& 0
.200 .260 -1
.300 .230 1
.390 .160 1
."*50 .060 1
.430 -.040 1
.480 -.200 1

5 0
..100 -.300 1
.300 -.300 1
.220 -.420 -1
.320 -.390 1
.too -.360 1
 73

-1.2 1

-.81 4
4-
4
4

[Link]

^ 4 t .

.8

1.2

M=.650 CL=l-409 DYz.016 ' T/C=-083

 74

CD
cn
o

n
r~
I!

-C
CD
CD

^c
11
o
cn

o
CD
co.
 75

07/24/74

RUN= -41

CIRCUUATCHY FLOW ABOUT A TRANSONIC AIRFOIU

H= .650 Cl_=1.409 UY= .015 T/C= .083

TAPE 6t PATH 5

2 0
-.600 0.000 a
-1.000 0.000 a
2 0
.400 -.200 2
.515 -.450 2

TAPE 7

-8-041 4 -.12 .25 .08 1.40 .650 ,0i8 -.371 .023 1.50
25 1 2 5 6 9 10 13 It 17 18 33 3t 37 48 12
45 ft i*9 5o 63 Si* 57 58 61 &2

-.095 .254 .650 .110 -.246 -.lOH .620 .500

.547 -.844 .050 .550 .025 .Q(U .600 -.115
.011 .008 -.900 1.800 0.000 0.000 -2.000 0.000
[Link] o . o o o .2.000 [Link] [Link] o . o o o .2.000 [Link]
-.0 9 < f «<*59 .242 -.18o -.07o .oiS .380
0.000 .137 0,000 _.3"+0 ,102 .124 -.150 -.400

.348 -.164 .460 .100 .116 .021 .500 .050

.133 -.063 .037 .046 .048 -.004 2.000 1.000
 76

AUTOMATION PATHS
2 0
-.790 -.610 -1
-.640 -.600 4

2 0
-.790 -.610 -1
-.940 -.460 4

2 0
-.940 -.460 -1
-1.100 -.260 3

•4 0
-.350 .560 -1
-.460 .630 3
-.570 .610 2
-.700 .570 2

•3 0
.200 .290 -1
0.000 .335 2
-.280 .490 1

-3 0
.200 .290 -1
.350 .220 1
.440 .060 1

-3 0
.440 .060 -1
.460 -.030 5
.440 . -.120 5

-5 0
-.100 -.120 1
.150 -.220 -1
.250 . -.120 1
,300 -.120 2
.350 -.140 2
 77

LISTING OF COORDINATES FOR AIRFOIL 65-11-08 RN=20.0 MILLION

YS AM6 KAPPA CP THETA SEP

1.00000 0.00000 .00118 -26.25 -*95.22 -.1263 .0008? -.08100
.99958 .00016 .00136 -20.91 -61.96 .3*60 ,00087 ».075*5
.99833 400066 .00202 .22. *3 13.81 .2028 .00092 -.06030
.99616 .00151 .00300 -20.71 -17.55 .2982 .00109 -.03893
.99301 .00263 .00*19 -18.65 -6.52 ,*07* .00137 -.01816
.98889 .00397 .00561 -17.53 -3,*1 ,*257 .001*8 -.00561
.96378 .00553 .00727 -16.5* -3.32 .*26* ,001*1 -.00261
.97767 .00727 ,00909 -15.30 -3.29 ,**67 .001*2 -.002*2
.97053 .00913 .01101 -1*.0* -2.67 ,*656 .00152 -.00237
.96239 .01107 .01301 -12.88 -2.23 ,*751 .00157 .00175
.95327 .01306 ,01506 -11.76 -1.98 ,*811 .00155 .00083
.9*319 .01506 .01710 -10.66 -1.76 ,*663 .00155 .00036
.93217 .01702 .01910 -9.60 -1.55 .4891 .00156 .0002*
.92026 .01892 .02102 .8.59 -1.36 .*896 .00155 .00007
.907*9 .C2C7* .02285 -7.65 -1.21 ,*86* .00153 .00017
.89391 .022*5 .02*55 -6.76 -1.07 .*856 .00150 .00031
.87957 .02*0* .02611 -5.93 -.9* .4816 .001*7 .00037
.661*51 .C2550 .0275* -5.16 -.83 .*763 .001** .00042
.8*877 .02683 .02882- -*.*6 -.73 .*702 .001*0 .000*6
.832*2 .02901 .02995 -3.83 -.64 ,*63* .00136 .00047
.615*9 .05906 .03093 -3.25 -.56 .*559 .00131 .000*7
.79803 .02997 .03178 -2.72 -.49 .4*82 .00127 .000*5
.76007 .03075 .03250 -2.26 -.42 .4*00 .00122 .000*3
.76167 .031*0 .03309 -1.8* -.37 .4318 .00118 .000*1
.71*287 .03195 .03357 -l.*7 -.32 .4235 .0011* .00038
.72369 .OJ236 .03395 -1.1* -.28 .*152 .00109 .00035
.701*19 .03272 .03*23 -.85 -.2"* ,*071 .00105 .00032
.68*1*0 .03297 ,03**2 -.60 -.21 .3992 .00101 .00030
.66*35 .0331* .03453 -.38 -.18 .3916 .00097 .00,027
.6*1*07 .0332* .03*57 -.18 -.16 .38*2 .00093 .00024
.52361 .03328 .03*55 -.01 -.13 .3773 .00089 .00022
.60299 .03325 ,03**8 .13 -.12 .3707 .00066 .00019
.58226 .03318 ,03*35 .26 -.10 .36** .00082 .00017
.56143 .03307 .03*19 .37 -.09 .3586 .00076 .00015
.5*055 .03291 .03398 .47 -.08 .3531 .00075 .00013
.51964 .03273 ,03375 .55 -.06 .3*81 .00072 .00012
.49675 .03251 .033*9 .63 -.06 .3*3* .00068 .00010
.*7789 .03227 .03320 .69 -.05 .3391 .00065 .00009
.45711 .03201 ,03290 .7* -.0* .3352 .00062 .00008
.*36** .0317* .03258 .78 -.03 .3317 .00059 .00007
.*1591 .031*5 .03225 .82 -.03 .3286 .00056 .00006
.3955* .03116 .03192 .85 -.02 .3258 .00053 .00005
.37538 .03085 .03157 .87 -.02 .3233 .00050 .00004
.355*5 .03055 .03123 .88 -.01 .3212 .000*7 .00003
.33571 .0302* ,03088 .89 -.00 .3195 .00045 .00002
.316*1 .0299* .0305* .89 .00 .3181 .000*2 .00002
.29737 .0296* .03021 .89 .01 .3170 .00039 .00001
.27668 .02936 .02989 .87 .02 .3163 .00037 .00001
.26038 .02908 .02957 .85 .03 .3160 .0003* .00000
.24250 .02832 .02928 .62 .0* .3160 .000^1 -.00000
.22506 .02856 ,02900 .78 .05 .316* .00029 -.00001
 78

YS ANG KAPPA CP THETA SEP

.20809 .02835 .02874 .72 .06 .3172 .00027 -.00001
.19163 .02816 .02851 .66 .08 .3185 .00024 -.00002
.17568 .02799 .02830 .57 .10 .3202 .00022 -.00002
.16029 .02785 .02613 .47 .13 .3225 .00019 -.00002
.14549 .02774 .02799 .34 .17 .3253 .00017 -.00003
.13128 .02767 .02790 ,19 .21 .3288 .00015 -.00003
.11770 .02765 .02784 .01 .27 .3330 .00013 -.00003
.101*77 .02767 .02783 -.22 .34 .3381 .00011 -.00003
.09251 .02775 .02767 -.49 .44 .3441 .00009 -.00003
.0809"* .02788 .02797 -.81 .57 .3513 .00006 -.00003
.07008 .02807 .02813 .1.22 .'74 .3600 .00003 ..00001
.05995 .02833 ,02336 -1.72 1.00 .3704
.05057 .02866 .02867 -2.34 1.35 .3630 TRANSITION
.0*195 .02907 .02907 -3.14 1.90 .3963
.03412 .02956 .02956 -4.16 2.71 .4174
.02707 ,03015 .03015 -5. bo 4.06 .4411
.02084 .03065 .03085 -7.32 6.27 .4717
.01544 .03166 .03166 -9.90 11.02 .5114
.01088 .03260 .03260 -13.81 18.89 .5658
.00721 .03371 .03371 -20.41 47.98 .6465
.00442 .03507 .03507 -33.10 96.61 .7963
.00243 .03680 .03680 -49.62 107.12 1.0132
.00106 ,03887 .03387 -63.85 96.73 1.1099 STASNATION
.00026 ,04117 .04117 -77.48 95.20 1.0261
[Link] .04361 .04361 -90.37 86.85 .7646
.00030 .04611 .04611 -102.93 90.43 .3432
.00121 ,04859 .04359 -116.89 84.63 -.1657
.00283 ,05107 .05107 -128.56 52.07 -.4556
.00516 .05362 .05362 -136.03 28.11 -.6125
.00817 .05624 .05624 -141.37 19.21 ..7359
.01182 ,05893 .05893 .145.55 13.66 -.8457
.01608 .06166 .06166 -149.03 10.52 -.9475
.02095 .06441 .06441 -152.01 8.26 -1.0413
.02643 .06715 .06715 -154.63 6.81 -1.1282
.03249 .06987 .06987 -157.02 5.78 -1.2113
.03915 .07253 .07253 .159.21 4,91 -1.2890
.04640 .07514 •.07514 .161.21 4.16 -1.3594
.0542"* ,07767 .07766 •163.02 3.52 -1.4200 TRANSITION
.06269 .06011 .08009 -164.65 2.95 -1.4693
.07173 .08247 .06243 -166.09 2.45 -1.5074 0.00000 0.00000
.08136 ,08474 .08467 .167.36 2.05 -1,5353 .00002 -.00001
.09158 .08692 .08682 .168.48 1.71 -1.5544 .00005 -.00002
.10237 .08902 .08889 -169.47 1.44 -1.5661 .00007 -.00002
.11372 .09104 .09087 -170.35 1.24 -1.5722 .00009 -.00001
.12561 .09298 .09277 -171.14 1.06 -1.5742 .00011 -.00000
.13802 .09483 .09458 -171.87 .95 -1.5733 .00012 .00000
.15092 .09659 .09631 .172.55 .86 -1,5704 .00014 .00001
.16431 ,09827 .09795 .173.18 .78 -1.5662 .00016 .00001
.17815 .09985 .09950 -173.77 .71 -1.5611 .00018 .00002
.19243 .10134 .10095 -174.33 .66 -1.5553 .00020 .00002
.20712 .10272 .10230 -174.68 .62 -1.5491 .00022 .00002
.22220 .10401 ,10354 -175.40 .59 -1.5426 .00024 .00003
.23764 .10516 .10468 -175.90 .56 -1.5359 .00026 .00003
.25343 .10624 .10570 -176.40 .53 -1.5269 .00026 ,00003
.26953 .10719 .10661 .176.88 .51 -1.5217 .00030 .00004
 79

YS ANG KAPPA CP THETA SEP

.28592 .10601 .10740 -177,36 .50 -1.5142 ,00043 .00004
.30259 .10871 .10806 -177.83 .49 -1.5065 .00035 .00004
.519119 .10928 .10859 -178.30 .46 -1.4984 .00037 .00005
.33661 .10972 ,10399 -176.77 .47 -1.4899 .00039 .00005
.35392 .11002 .10925 -179.24 .47 -1.4807 .00041 .00006
.37139 .11016 .10937 -179.71 .47 -1.4709 .00044 .00007
.38899 .11019 .10934 .180.19 .48 -1.4601 .00046 .00008
.40671 .11006 .10917 -160.66 .4B -1.4481 .00048 .00010
.42451 .10977 .10883 .181.18 .50 -1.4346 .00051 .00012
.44237 .10933 .10334 .181.69 .51 -1.4191 .00053 .00014
.46025 .10871 .10767 -162,23 .54 -1.4009 .00056 .00016
.47814 .10793 .10583 -182.61 .58 -1.3769 .00058 .00023
. 49599 .10695 .10579 -183.42 .63 -1.3513 .00061 .00033
.513RO .10578 .10453 -184.10 .70 -1.3154 .00065 .00043
.53152 .10439 .10304 -184.87 .62 -1.2660 .00069 .00069
.54917 .10275 .10128 -185.77 .92 -1.1956 .00074 ,00094
.5667"* .10083 ,09922 .186.69 .69 -1.1091 .00081 .00117
.58427 .09864 .09689 -187.54 .79 -1.0163 .00069 .00132
.60179 .09621 .09432 -188.27 .63 -.9267 .00098 .00139
.61930 .09356 .09155 .168.83 .49 -.8490 .00107 .00138
.63678 .09079 .08863 -189,27 .39 -.7806 .00115 .00134
.65420 .08790 .08561 -189.63 .31 -.7216 .00124 .00129
.67153 .08491 ,08251 .169,90 .25 ..67Q4 .00131 .00124
.68874 .08187 .07937 -190.13 .21 -.6247 .00139 .00119
.70578 .07880 .07619 -190.33 .18 -.5643 .00147 .00114
.72262 .07570 ,07300 -190,49 .15 -.5466 .00154 .00110
.73924 .07261 .06961 -190.63 .14 -.5165 .00160 .00106
.75559 .G6952 .06663 -190.76 .13 -.4874 .00167 .00103
.77161 .06646 .06340 -190.68 .13 -.4612 .00173 .00101
.78731 .06343 ,06036 -190,99 .13 • -.4374 .00179 .00099
.80264 .06043 ,05726 -191.11 .13 -.4154 .00165 .00097
.81757 .05749 ,05425 -191,23 .14 -.3950 .00191 .00097
.63206 .05459 ,05127 .191,35 .15 -.3760 .00196 .00097
.61*611 .05176 .04835 -191.47 .16 -.3561 .00201 .00096
.85967 .04899 .04550 -191.60 .17 -.3413 .00207 .00099
.97272 .04630 .04271 -191.74 .19 -.3254 .00212 .00102
.68524 .04368 ,04000 .191,69 .21 -.3103 .00217 .00105
.69720 .04114 ,03737 -192,05 .24 -.2958 .00221 .00109
.90859 .C3»69 .03462 -192.22 .28 -.2618 .00226 .00114
.91938 .03634 .03236 -192,41 .32 -.2662 .00231 .00120
.92956 .03406 .02998 -192.62 .37 -.2551 .00236 .00126
.93911 .03192 .02768 .192.64 .42 -.2424 .00240 .00137
.94801 .02986 .02546 .193.08 .49 -.2299 .00245 .00146
.95624 .02794 ,02328 -193.33 .58 -.2178 .00250 .00163
.96360 .02613 .02111 -193.62 .73 -.2057 .00254 .00163
.97067 .02445 .01894 -193.96 .95 -.1938 .00259 .00213
.97683 .02290 .01687 -194,35 1.22 -.1817 .00264 .00261
.98228 .02146 .01500 -194,76 1.38 -.1688 .00269 .00316
.98702 .02022 .01344 -195.20 1.75 -.1547 .00277 .00352
.99102 .01911 .01230 .195.77 3.50 -.1412 .00265 .00339
.99428 .01816 ,01177 .196.77 7.24 -.1319 .00290 .00256
.99679 .01737 .01167 -196.31 14.43 -.1272 .00293 .00131
.99357 .01675 .01160 -200.39 24,29 -.1257 .00293 .00006
.99965 .01634 .01145 -203.05 67,64 -.1259 .00293 -.00079
1 .00000 .01619 .01129 -206.25 260.57 -.1263 .00293 ..00110
 80

-1-21

-.81

[Link]

-41

-81

1-21

M=-650 CL=l-472 DY=-000 T/Cr.104

81

3-
O

II
LJ

O
O
O

>-
D

CM
r^
zr

ii
_j
LJ

O
LD
CO
 82

08/2i*/73

C I R C U L A T O R Y FLOW A 3 0 U T A TRANSONIC

H= .650 ct = l.i*72 OY= .000 T / C = .105

TftPt 6< PATH 0

2 0
..800 0.000 2
-1.000 0,000 2

2 o
.300 .050 2
.563 -.320 2

TAPE 7

-7-111* f -.12 .25 .08 [Link] .650 .006 -.320 0.000 1.50
23 i 2 5 6 9 10 17 18 33 51 37 36 <*2 t5 46
i*9 5o 53 5<» 57 58 61 c,z

-.102 ,0&1 .650 .050 -.198 -.018 .620 .450

.43<! -.315 -.200 .650 0.000 0.000 .900 U . O O O

-.008 - . Q l O .1.300 .300 0.000 0.000 .2*000 [Link]

[Link] [Link] -a. ooo [Link] [Link] [Link] .2.000 [Link]
.038 -.O8i» . .605 -.175 -.3f8 .358 .i»05 -.285
0.000 .120 0.000 -.3^0 .211 -.116 -.170 -.600

.353 -.351 .460 .100 .33H -.032 .500 .050

.081 -.095 .031* .06& .001 -.010 2.000 1.000
 83

ftUT0«HAfIQN PATHS

2 0
.,790 ».&00 -1
..&10 -.590 H

3 0
..790 -,&oO «1
.,880 »,5feO 3
.,950 -,»70 3

3 0
.,950 -,i»7Q -1
• I, 020 -.390 3
.1.080 -,2&0 I

3 0
,200 ,%30 -1
0,000 ,<H»0 1
,,280

3 0
.,350 ,5QP .1
,.5?0 ,5&0 2
.,710 ,550 2
(4 0
,200 »»go .1
,370 ,320 1
,*SO ,120 1
.460 .020 2

i* 0
..100 -.100 1
.350 -.160 -1
.290 -,820 1
,150 -.260 1
 84

LISTING OF COORDINATES FOR AIRFOIL 65-15-10

ANG KAPPA MACH CP

1 [Link] 0.00000 -21*. 61 -114.55 .5354 .3139
z .99954 .00019 -22.76 -39.91 .5183 .3584
3 .99812 .00075 -21.08 -12.30 .4851 .4423
H .99569 .00165 -19.56 -8.34 .4640 .4941
5 .99919 .00283 -18.10 -6.07 .4555 .5145
6 .9*759 .001*26 -16.56 -5.19 .4464 .5360
7 .98185 .00587 -11*. 91 -4.49 .4371 .5576
8 ,97t*9B .00759 -13.20 -3.96 .4307 .5724
9 .9«.ft91 .00931* -11.41* -3.53 .4268 .5813
10 .95775 .01103 -9.66 -3.12 .4248 .5860
11 .9475C .01261 -7.93 -2.72 .4248 .5861
12 .93625 .OltOl -6.29 -2.33 .4267 .5816
13 .991*07 .01518 -4.79 -1.97 .4304 .5733
1* .911 03 .01512 -3.4l* -1.65 .4352 .5620
15 .89721 .01680 -?.25 -1.37 .4411 .5485
16 .68968 .0172<* -1.21 -1.13 .4476 .5331
17 .8*751 .01741* -.33 -.93 .4547 .5164
18 .85176 .01742 .44 -.76 .4621 .4987
19 .83548 .01720 1.07 -.61 .4696 .4803
90 .81873 .01.681 1.60 -.49 .4773 .461?
91 .80154 .01627 2.03 -.38 .4850 .4425
?2 .78396 .01559 2.37 -.29 .4927 .4235
93 .76602 .011*81 2.63 -.22 .5009 .4045
94 .71*777 .01391* 2.82 -.14 .5076 .3859
95 .7999.3 .01301 2.94 -.08 .5147 .3677
96 .71043 .01203 3.00 -.03 .5216 .3500
97 .691 UO .01103 3.01 .01 .5281 .3331
?8 .67917 .01003 2.98 .05 .5343 .3169
99 .65977 .00903 2.91 .08 .5401 .3016
30 .^3321 .00805 2.80 .11 .5455 .2873
M .61353 .00711 2.67 .13 .5505 .2741
32 .59375 .00622 2.51 .15 .5551 .2619
33 . =17389 .00538 2.33 .17 .5599 .2509
Si* .55397 .001*60 2.14 .18 .5629 .2411
35 .531*02 .00389 1.93 .19 .5661 .2324
36 .511*06 .00326 1.71 .20 .5689 .2249
37 .U9l*12 .00271 1.48 .20 .5712 .2186
3B .i*7U9?. .00?23 l.?4 .21 .5731 .2135
39 .i*fiit38 .00181* 1.01 .21 .5746 .2095
1*0 .I*3U63 .00151* .77 .21 .5757 .2065
1*1 .41 1*99 .00131 .53 .21 .5764 .2047
4? .3951*9 .00117 .99 .21 .5767 .2038
1*3 .37616. .00111 .06 .21 .5766 .2040
Ui* .35702 .00111* -.IB .21 .5763 .2050
45 .33A10 .00123 -.41 .21 .5755 .2069
t*6 .319<*9 .00140 -.64 .29 .5745 .2097
i*7 .30101 .00165 -.87 .22 .5732 .2133
4B ,9fl991 .00196 -1.09 .22 .5716 .2176
<»9 .26513 .00233 -1.32 .22 .5697 .2227
50 .21*770 .00277 -1.55 .23 .5676 .2284
•51 ,?3n66 .00326 -1.77 .24 .5652 .2349
52 .211*03 .00381 -2.01 .25 .5625 .2421
•53 .19783 .OOt* «*1 -2.24 .26 .5596 .?500
 85

ANS KAPPA MACH CP

54 18210 .00506 -2.49 •

28 • 5563 .2586
55 •
16687 .00575 -2.74 •
31 •
5529 .2679
56 ft15915 .00649 -3.02 •
34 * 5490 .2780
57 •
13797 .00727 -3.31 •
38 •5449 .2890
58 •
19437 .00810 -3.62 •
43 •5404 .3008
59 •
11136 .00896 -3.97 •
50 •5356 .3135
60 •
09A98 .00986 -«». 36 •
62 •
5303 .3274
61 •
OA724 .01060 -4.62 • 74 * 5244 .3426
62 •07ftl8 .01178 -5.33 .3588
•65 •5182
63 ft06581 .01280 • 5. 90 1.14 ft5113 .3763
64 •
05617 .01366 -6.69 1.74 •5035 .3962
65 •
04798 .01499 -7.76 2.45 •4944 .4l9i
66 •
03115 .01616 -9.01 2.70 •
4847 .4435
67 •
03181 .01743 -10. 37 4.24 •4747 .468o
68 •
09532 .01875 -12. 83 9.51 •4613 .5004
69 • •
01972 .02025 -17. 35 18.46 •4407 .5493
70 •
01494 .09202 -23. 72 23.51 •
3970 .6479
71 •01087 .02407 -30. OA 25.82 •3279 .7891
72 •
00742 .02632 -36. 49 27.65 •2459 .9252
73 •00461 .02368 -44. 01 52.01 m 1489 1 .0411
74 •
00251 .03115 -55. 65 64.25 •0268 1.1075
75 •
00105 .03378 -66. 44 64. 11 •1159 1 .0682
76 •
00019 .03646 -78. 55 87.21 ft2845 .8646
77 . •00000 .03915 -93. 29 95.08 ft4674 .4857
7fl •
00050 .04187 -107. 31 60.64 •6377 .0347
79 •
00170 .04460 -119. 50 59.41 •7713 .3509
80 •
00361 .04738 -128. 69 38.10 •8626
- .6174
fll •Ontlft .05020 -135. 60 26.23 •932? - .8179
A2 00940 .05305 -141. 10 19.02 •9921
-
. .9867
•
A3 ft01*24 .05590 -145. 65 14.69 1 .0491 .1 .1427
84 •01771 .05871 -149. 68 12.07 1.1015 -1 .2815
A5 •
09979 .06146 -153. 31 10.03 1.1530 -1 .4135
86 •
09050 .06412 -156. 66 8.61 1.2044 -1 .5397
A7 . G34R6 .06665 -159. 76 7.06 1.2538 -1 .6560
AR ft 04191 .06907 .162.35 s.09. 1.2901 .1 .7382
fl9 •04968 .07139 -164. 94 3.34 1.3056 -1 .7726
90 •05*13 .07366 .165.67 2.47 1.3085 -1
.7789
91 •
06725 .07589 .166. 85 1.96 1.3057 -1
.7727
9? m07701 .07B07 -167. 66 1.63 1.3002 .1 .7607
93 •
08738 .08021 -168. 79 1.39 1.2935 -1 .7459
94 ft09R33 .08230 -169. 62 1.22 1.2864 .1 .7299
95 •10986 .08432 -170. 39 1.06 1.2790 .1 .7135
96 ft19193 .08629 -171. 10 •
96 1.2717 .1 .6971
97 •
13452 .08919 -171. 77 •87 1.2646 -1 .6609
96 •
14762 .09000 -172. 40 * 80 1. 2577 -1 .6651
99 ft16120 .09174 -173. 00 ft74 1.2511 .1 .6498
100 •17524 .09339 -173. 5« *
69 1.2447 -1 .6350
101 1B972 .09495 -174. 13 64 1.2385 .6206
* • -1
102 20462 .09641 -174. 67 61 1.2326 .6068
103
•
21991 .09777 .175.19
•
58 -1
-1 .5934
• •
1.2269
104 •2S557 .09901 -175. 70 •
55 1.2915 -1 .5805
105 •
25157 .10015 -176. 19 •
53 1.2162 -1
,5679
106 •26790 .10116 .176.6A ft51 1.2110 -1 .5556
107 •
28452 .10206 -177. 16 •
50 1.2060 -1
.5436
108 *
30141 .10282 .177.64 •
49 1.2011. -1 .5318
 AN6 KAPPA MACH CP

109 .31*55 .10346 -178.11 .48 1.1963 -1.5200

110 . 33^91 .10396 -178.59 .47 1.1914 -1.5082
111 .35347 .10432 -179.06 .47 1.1865 -1.4963
na .37119 .10454 -179.53 .47 1.1815 -1.4841
113 .38906 .10461 .180.01 .46 1.1764 -1.4715
ii.<* .40705 .10453 -180.49 .47 1.1711 -1.4585
115 .49S13 .10430 -180.97 .47 1.1656 -1.4449
116 .4432ft .10391 -181.46 .47 1.1599 -1.4306
117 .4*146 .10337 -181.96 .46 1.1538 -1.4154
119 .47966 .10267 -182.46 .49 1.1473 -1.3989
119 .4978B .10161 -182.96 .51 1.1401 -1.3807
190 .51599 .10078 -183.52 .53 1.1318 -1.3597
191 .53H06 .09957 .184.10 .57 1.1219 -1.3344
192 .55903 .09319 -184.72 .63 1.1097 -1.3029
193 .5*989 .09661 -165.39 .69 1.0943 -1.2629
194 .58761 .09482 -166.12 .74 1.0753 -1.2128
195 «6osl9 .09282 -186.69 .75 1.0533 -1.1539
196 .69364 .09060 -187.63 .72 1.0301 -1.0912
197 .63995 .08817 -188.33 .67 1.0076 -1.0296
198 .65712 .08556 -188.97 .62 .9862 -.9702
199 .67413 .09278 -169.57 .58 .9661 -.9139
130 .69096 .07986 -190.1? .54 .9474 -.8612
131 .70759 .07682 -190.69 .51 .9301 -.8118
132 .72401 .07367 -191.09 ,ta .9137 -.7651
133 .74f)lB .07044 -191.54 .46 .8983 -.7208
134 .75^07 .06713 -191.96 .45 .6837 -.6786
135 .7716A .06377 -192.37 .43 .6698 -.6383
136 .78*96 .06036 -192.75 .42 .6565 -.5996
137 ,nni90 .05693 -193.19 .42 .8437 -.5624
138 .61*47 .05349 -193.47 .41 .8314 -.5266
139 .83064 .05005 -193.69 .41 .8196 -.4920
mo .64440 .04662 -194.15 .42 .8081 -.4584
141 .85771 .04323 -194.48 ,f2 .7969 -.4257
11*2 .87056 .03967 .194.81 .43 .7660 -.3939
1U3 .88993 .03656 -195.13 .45 .7754 -.3628
11*4 .89478 .03332 -195.45 .46 .7650 ..3323
145 .90(110 .03016 -195.77 .49 .7547 -.3023
146 .91*86 .02709 -196.09 .52 .7445 -.2727
1D7 .9970* .02412 -196.42 .56 .7345 -.2433
11*6 . 93666 .02126 -196.76 .61 .7244 -.2141
11*9 .94565 .01352 -197.10 .67 .7143 -.1848
150 .95402 .01592 -197.46 .75 .7041 -.1551
151 .9*174 .01347 -197.83 .86 .6937 -.1252
152 .9*879 .01117 -198.29 1.01 .683? -.0948
153 .97517 .00905 -198.64 1.17 .6724 -.0640
154 .98086 .00711 -199.08 1.39 .6614 -.0324
155 .98S33 .00536 -199.55 1.74 .6495 .0015
1S6 .99009 .00383 -200.06 ?.32 .6361 .0394
157 .99560 .00253 -200.64 3.12 .6228 .0767
158 .99*37 .00147 -201.29 5.05 .6111 .1092
159 .99837 .00068 -202.11 8.34 .5922 .1615
IftO .99959 .00018 .203.20 32.83 .5571 .2565
Iftl [Link] .00000 -204.61 100.23 .5354 .3139
 87

-1 -6_

-.81

-.41

[Link]

•81
-*•
4

1-21

CL=1.291 DY=.016 T/Cz.100

 88

CD
CD
O

O
r~
ii

no
CD

CD
-<
II
O
CD
 89

07/16/74

RUN= -274
CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL

H= .600 CL=1.29l OY= .016 T/C= .100

TAPE 6< PftTH n

2 0
-.800 0.000 2
.1.000 0.000 2

2 0
.330 .050 2
.570 -.325 2

TAPE 7

-8-274 2 -.12 .30 .08 1.40 .600 ,0n7 -.330 .025 .50
21 1 2 5 6 17 18 33 34 37 36 4i 42 f5 49 50
5s Sit 57 56 61 62

.498 -.39H -.200 .600 -.256 -.220 .600 .450

[Link] 0.000 .900 [Link] 0.000 0.000 .900 0.000

.011 -.009 -1.000 .900 0.000 0.000 -2.000 0.000

0.000 0.000 .2.000 0.000 0.000 0.000 -2.000 [Link]

.040 -.220 .590 -.170 .009 .119 .410 -.240

.229 .588 ..080 -.440 .010 -.060 -.650 -.550

.585 -.350 .460 .100 .580 -,i30 .500 .050

.120 -.114 .015 .040 .004 -,n29 1.000 1.000
 90

AUTONATION PATHS

4 0
-.800 0.000 1
•1.100 -.250 -1
-1.080 -.370 2
-1.000 -.500 2

5 0
-.600 0.000 1
-1.000 -.500 -1
-.930 -.575 2
-.614 -.620 2
-.691 -.625 «•

6 0
-.691 -.625 -1
-.580 -.630 2
-.490 -.620 2
-.380 -.600 2
-.280 -.575 1
-.200 -.560 1

5 0
-.200 -.560 -1
-.100 -.545 1
-.054 -.540 1
.046 -.540 1
.110 -.545 1

3 0
-.250 .400 -1
-.650 • .500 2
-.600 .450 2

2 0
-.250 .400 -1
.100 .»15 2

5 0
.340 .038 -1
.480 .005 1
.530 -.125 1
.530 -.230 1
.475 -.255 1

6 0
-.100 -.365 1
.300 -.365 1
.495 -.350 -1
.385 -.440 1
.210 -.540 1
.110 -.545 1
 91

++
^4
+ 4 4 4 +4 4 4 4 *

4
4-

o.o 1

-81

I-.21

Mr .820 CL= -590 DY=.OL6 T/Cr.092

 92

GO
ro
o

n
f—
ii
en
CO
o

a
-<
ii
a
en

o
ii
o
U3
ro
 93

07/18/71*

*UN= -255

FLOW ABOUT A TRANSONIC AIRFOIL

= .820 CL= .590 Or= .016 T/C= .092

TAPE 6» PATH 0

2 0
-.600 0.000 2
-1.000 0.000 2
2 0
.300 .050 2
.470 -.260 2

TAPE ?

-8-255 it -.12 .15 .08 1.40 .820 .On5 -.105 .055 ,50
23 1 2 5 6 10 13 It 17 IS 33 34 37 38 <*i 42
"*9 5Q 53 5t> 57 58 61 62

-.276 -.196 .630 .050 .024 -,i92 .600 .270

0.000 -.232 ..110 ,*90 ,H7 -.186 .580 ..270

.104 -,03"* -.380 -.500 [Link] 0.000 -2.000 0,000

0.000 0 . 0 0 0 .2.000 0.000 0.000 0 . 0 0 0 .2.000 0,000

-.IS1* .165 .200 ..*00 .102 -.079 .360 -.300

.108 ,231 -.056 -.2tO 0.000 .200 -.070 -.250

.120 ,H60 ,100 .042 .?08 .500 .050

.058 ,002 ,062 .018 .029 -,o23 1.000 1.000
 94

A U T O M A T I O N PftTHS

5 0
-.961* -.290 -1
-.930 -.350 1
".874 -.405 1
-.794 -.450 1
-.675 -.485 1

3 0
-.675 -.485 -1
-.550 -.470 2
-.460 -.450 5

5 0
-.800 0.000 2
-.875 .255 -1
-.832 .285 1
-.685 .350 1
-.560 .365 1

5 0
-.075 .250 -1
-.180 .260 1
-.270 .330 1
-.390 .360 1
-.520 .370 1

4 0
-.020 .250 -1
.060 .267 1
.200 .300 1
.270 .300 1

4 0
.270 .300 .1
,4io .190 1
.490 .040 1
.470 -.100 1

4 0
-.100 -.200 1
.245 -.220 1
.320 -.355 -1
.268 -.330 15

4 0
-.100 -.200 1
.245 -.220 1
.266 -.330 -1
.215 -.305 15
 95

LISTING OF MEASIREO COOROlNftTES FOR AIRFOIL 82-0&-09

.oonoo .01179 .24295 -.04044 .26430 .04430

.99940 .01198 .22222 -.03997 .28622 .04507
.99759 .0121*1 .20215 -.03936 .30866 .04577
.991*59 .01335 .18280 -.03861 .33155 .04438
.99039 .Om57 .16422 -.03772 .35486 .04691
.98502 .01592 .14645 -.03669 .37851 .04736
.971*1*7 .01728 .12952 -.03553 .40245 .04772
.97077 .01862 .11349 -.03427 .42663 .04902
.96194 .01935 .09840 -.05290 .45099 .04323
.95200 .02095 .08426 -.03133 .47547 .04B3B
.94096 .02186 .07114 -.02951* .50000 .04S44
.92836 .02251* .05904 -.02755 .52453 .04943
.9l57t .02292 .04B01 -.02335 .54901 .04535
.90160 .02295 .03606 -.02292 .57336 .04920
.68<i50 .02257 . 02923 -.02027 .59755 .04799
,B7n4B .02174 .02153 -.01743 .62149 .04769
.85355 .02041 .01498 -.0145? .64514 .04733
.83578 .01B5& .00961 -.01159 .66844 .I14691
.31720 .01617 .00541 -.00359 .69134 .04643
.79795 .01329 .00241 -.0(1543 .71378 .04589
.77779 .00993 .00060 -.00201 .73570 .04530
.75705 .00614 0.00000 .00156 .75705 .04464
.73570 .00199 .00060 .00514 .77779 .04394
.71375 -.00245 .00241 .00847 .79785 .04317
.691.54 -.00705 .00541 .01151 .81720 .04236
.66844 -.01167 .00961 .01427 .83578 .04150
.64514 -.01619 .01498 .01689 .85355 .04039
.6211*9 -.02045 .02153 .01942 .87048 .03940
.59755 -.02431 .02923 .02190 .88650 .03790
.57336 -.02770 .03806 .02431 .90160 .03&19
.54 901 -.03053 .04801 .02665 .91574 .03445
.521*53 -.03286 .05904 .02971 .92886 .03272
.50000 -.03479 .07114 .03041* .94096 .03101
.47547 -.03637 .06426 .03203 .95200 .02933
.1*5099 -.03766 .09840 .03357 .96194 .02769
.42663 -.03669 .11349 .03506 .97077 .02508
.40245 -.03950 .12952 .03649 .97847 .02450
.37951 -.04013 .14645 .03785 .98502 .02297
.351*86 -.04057 .16422 .03914 .99039 .02148
.33155 -.04085 .182BO .04034 .99459 .02010
.30866 -.04097 .20215 .04146 .99759 .01990
.28«,2? -.04093 .22222 .04249 .99940 .01904
.261*30 -.04076 .24295 .04343 1.00000 .01774
 96

-1-21
C,

--81

4-
4-
-.41

o-ol
4- +
j.4

.41

-8.1

1.21

M-.T50 CL= -629 [Link]

97

CD
CD

en
CM
UD
n
_i
LJ

—fr
O
LO
 98

06/20/73

= -131

C I R C U L A T O R Y FLOW A30UT A TRANSONIC AlRFOJL

M= ,7SO Cl-= .629 OT= .000 T/C=

TAPt 6« PATH 0

2 0
..300 [Link] 1
-1.000 [Link] 1

2 0
.100 .200 1
.390 -.142 1

TAPE: 7

99,131 4 -.12 .40 .06 1.1*0 .750 .010 -.120 0.000 0.00
6 1 2 5 6 17 18

-.n20 -.304 .500 .100 .141 .237 •500 -.100

[Link] .060 .
.550 .800 0.000 0 .000 0. 000 .900

-.039 .03? .1 .400 .120 .080 0 .000 .1.200 .700

-.050 .050 -1 .200 -.500 0 .000 .030 700
-. .300

[Link] .0^0 .850 -.650 0 .UOO 0 .000 0. 000 -.900

[Link] [Link] 0 .000 -.900 0 .UOO 0 .000 0. 000 -.900

1.700 [Link] .500 0.000 .300 .200 » 200 [Link]

[Link] 0.000 .060 .016 0 .000 0 .000 5. 000 1.000
 99

LISTING OF C O O R D I N A T E S F QR AIRFOIL 7 5 - 0 6 - 1 2

A\IG KftPPA

1 1.00000 0.00000 -7.21 -26.94 .6145 .319n

2 .S9953 .00006 -6.79 -9.99 .6122 .324^
3 .99810 . J0022 -b.35 -3.78 .60 = 9 .33S3
4 .99572 .00047 -5.90 -2.82 .6014 .3483
5 .99237 .00080 -5.43 -2.12 .5974 .3579
6 .98606 .00119 -4.96 -1.75 .5344 .3647
7 .9827B .00163 -4.47 -1.50 .5316 .3711
a .97654 .00206 -3.97 -1.32 .5937 .377i»
9 .96934 .00255 -3.45 -1.18 .5362 ,383n
10 .96120 .00300 -2.92 -[Link] .5841 .3S7R
11 .95212 .00342 -2.36 -1.00 .5322 .3921
12 .94212 .00378 -1.93 -.94 .5305 ,395<<
13 .93122 .00407 -1.26 -.69 .579? .398B
I1* .91943 .00427 -.&7 -.86 .5731 .4011
15 .90679 .00435 -.05 -.64 .5774 .402?
16 .69331 .00426 .59 -.63 .5770 .4037
17 .67902 .00405 1.27 -.63 .5770 .403<;
18 .86398 .003&2 1.98 -.63 .5777 .402?
19 .64621 .00296 2.74 -.84 ,5790 .3991
20 .63177 .00206 3.53 -.64 .5B14 .393,"
21 .61471 .00086 4.36 -.84 .5352 .385^
22 .79713 -.00059 5.19 -.61 .5906 .373?
23 .77909 -.00236 6.01 -.76 .5981 ,356^
24 .76068 -.00442 6.77 -.66 .6077 .3341*
?5 .74198 -.00675 7.42 -.54 .6195 .3075
26 .72309 -.00930 7.34 -.H .6332 .276n
27 .70405 -.01202 8.31 -.26 .6483 .2410
26 .&8491 -.01435 6.53 -.13 .6544 .2034
29 .66571 -.01774 8.61 -.01 .6310 .1643
30 .64646 -.02065 8.56 .08 .6373 ,1246
31 .62720 -.02352 8.42 .17 .7144 .0851
32 .60792 -.02634 6.20 .23 .7307 .046?
33 .56664 -.02907 7.91 .29 .7465 .0084
34 .56937 -.031&8 7.57 .33 .7617 -.028?
35 .55012 -.03418 7.18 .36 .7763 -.0632
36 .53091 -.03653 6.77 .39 .7903 -.0967
37 .51174 -.03673 6.33 .41 .6035 -.1285
38 .49263 -.04077 5.87 .42 .8160 -.1585
39 .47360 -.04265 5.40 .44 .8277 -.1866
40 .45467 -.04436 4,91 .45 .8337 -.212*
m .43584 -.04539 4.42 .46 .8488 -.2371
HZ .41714 -.04726 3.92 ."*7 .6531 -.259s
43 .39859 -.04644 3.41 .46 .8656 -.279?;
ft .36020 -.04946 2.90 .49 .8742 -.2978
45 .36200 -.05030 2.39 .49 .8310 -.3140
1*6 .34401 -.05097 1.86 .50 .6370 -.3282
47 .32624 -.05147 1.36 .51 .8323 -,340e,
48 .30873 -.05181 .64 .52 .8967 -.3511
49 .29149 -.05198 .32 .54 .9004 -.3599
50 .27455 -.05200 -.22 .56 .9035 -.3671
51 .25793 -.05186 -.76 .56 .9059 -.3729
52 .24165 -.05156 -1.32 .62 .9076 -.3769
53 .22574 -.05112 -1.90 .66 .9086 -.3793
 100

KAPPA MACH CP
_
54 .21022 ~ •05052 -2.50 .70 .9039 _ .3799
55 .19512 ™ • 04976 -3. 13 .76 .9032 .3783
56 .18044 ™ • 04839 -3. 30 .82 .90^5 . .3749
57 .16622 ™ • 04736 -4. 50 .90 .9036 ,367i»
56 .15247 ~ •04669 -5. 25 .99 .6994 - .357-4
59 .13920 ™ • 04536 -6. 04 1 .09 .6935 - .3439
60 .12644 ~ •04394 -6. 89 1 .20 .6852 -
. .3263
61 .11420 •• •04237 -7. 79 1.33 .8772 . .3049
62 .10250 —
• 04067 -e. 73 1 .49 .8555 _ .2797
63 _-
.09134 03636
"• -9. 75 1 .66 .8544 .2504
64 .08075 —
• 03693 -10. 34 1 .83 .8405 _ .2173
65 .07074 ~ •03491 -12. 01 2 .It .8251 _ .1804
66 .06131 ™ • 03230 -13. 29 2.49 .8032 .1397
67 .05250 —
• 03061 -14. 69 2.93 .7396 . .0950
69 .04431 02834
"• -1&. 25 3 .53 .7692 «• .046r
69 .03676 —
• 02602 -13. 03 4.37 .7468 .007e,
70 .02987 ™ • 02364 -20. 10 5.61 .7222 .0665
71 .02366 ™ • 02122 -22. 58 7.54 .6945 .1325
72 .01814 ™ • 01877 -25. 58 10 .71 .6623 .208?
73 .01336 —
t 01626 -29. 75 16 .17 .6232 .299o
74 .00932 " » 01370 -35. 37 25 .93 .5711 .4169
75 .00605 ™• 01105 -43. 14 33 .82 .4944 .581?
76 .00351 ™ • 00827 -52.45 44 .69 .3354 .789s
77 .00165 ~ •00536 -62. 46 62 .39 .2531 .9817
78 .00049 *" • 00240 -75. 49 70 .59 .1098 1 .1177
79 0.00000 •
00074 -86. 59 49 .26 .0423 1 .I44n
80 .00003 • 00399 -94. 60 43 .t3 .1373 1 .0590
91 .00056 •
00717 -104. 40 64 .t6 .3552 .8406
82 .00171 •
01015 -117. 71 74 .24 .5297 .5071
93 .00365 •01296 -130. 57 51 .62
84 .00640 01573 -139. 54 25 .91
.6490
.7141 _ .2393
•
.0859
85 .00993 t 01852 -144. 14 17 .39 .7651 .0386
Q6 .01415 *
02133 -146. 32 12 .04 .8118 . .1464
87 .01906 •
02415 -151. 72 9.11 .6532 . .2476
38 .02461 •02696 -154. 58 7.11 .8918 . .3394
89. .03060 •02973 -157. 07 5 .81 .9294 .425P
90 .03761 * 03245 -159. 30 4.87 .9635 _-
. .5075
91 .04503 *
03510 -161. 32 4.13 .9979 .5865
92 .05304 •03766 -163. 20 3 .74 1 .0331 . .6659
93 .06163 04009 -165. 07 3 .54 1 .0709 _ .749(t
•
94 .07080 U4237 -165. 98 3 .63 1 .1143 _-.842R
•
95 .08007 •
04444 -169. 05 3.37 1 .1659 .9501
96 .09101 •04629 -170. 74 2 .15 1 .2015 .1 .021*
97 .10215 •
04800 -171. 73 1 .27 1 .2122 -1 .0427
98 .11398 •
04963 -172. 56 1.01 1 .2139 -1 .046n
99 .12642 •05118 -173. 21 .62 1 .2120 -1 .0424
100 .13946 •
05256 -173. 79 .71 1 .2096 -1 .0357
101 .15306 •
05408 -174. 31 .63 1 .2044 -1 .0274
102 .16720 •
05543 -174. 79 .56 1 .1999 -1 .0185
103 .16183 •
05670 -175. 24 .51 1 .1952 -1 .0092
104 .19694 05791 -175. 67 ,t7 1 .1906 _ .9999
.
•
105 .21251 •05903 -176. 07 .43 1 .1360 .9907
106 .22850 •
06007 -176. 45 .40 1 .1315 .9817
107 .24486 •06104 -176. 82 .38 1 .1772 -
. .973(1
106 .26164 •06192 -177. 17 .36 1 .1730 .9646
-
 101

L X r ANG KAPPA MACH CP

109 .27873 .06271 -177. 51 .34 i •169Q .
_ .956«
110 .29615 .06341 -177. 94 .32 i •1651 _ .948«i
111 .31365 .06403 -176. 17 .31 i •1514 .9409
112 .33181 .06455 -178. 48 .30 i •1578 . .9335
113 .35000 .06499 -179. BO .29 i •1543 . .926?
114 .36639 .06532 -179. 10 .29 i •1509 v .9191
115 .38695 .06556 -179. 41 .29 i •1473 . .9120
116 .40565 .06571 -179. 71 .28 i •1439 _ .904?
.
117 .42446 .06575 -160. 02 .29 i •1404 .897?
118 .44335 .05569 -160. 33 .29 i •1357 M ,689f>
119 .46229 .06553 -180. 65 .30 i •1329 _ .981P
120 .48125 .05526 -180. 97 .30 i •1296 _- .8730
121 .50019 .05499 -181. 31 .32 i •124Q _ .863?
122 .51910 .06439 -181. 66 .34 i •1197 .8521
_ ,639t
123 .53793 .06379 -182. 04 .36 i •1126 _ .623?
124 .55666 .06305 -182. 44 .39 i •1053 -
125 .57526 .06219 -182. 98 .43 i t 0964 _ ,804«,
126 .59371 .06116 -183. 35 .47 i •0859 .7817
127 .61198 .05003 -183. 66 .50 i •0734 . ,754«
128 .63006 .05873 -164. 39 .52 i •0595 _ ,724i*
•
129 .64794 .05727 -184. 94 .54 i •0444 .6909
130 .66559 .05566 -185. 50 .55 i •0292 . .6549
131 .68302 .05390 -186. 05 .56 i •0115 .617?
_ .5779
132 .70019 .05200 -186. 60 .56 •9942
-
M
133 .71710 .04996 -167. 15 .55 •9755 .5371*
134 .73373 .04790 -187. 67 .54 •9596 . .4961
135 .75007 .04552 -166. 19 .53 •9406 .4541*
136 .76609 .04315 -186. 67 .52 * 9226
- .4121
.
137 .78179 .04069 -169. 14 .50 •9044
_.
138 .79714 .03616 -189. 57 .47 _ .3693
•8faS3 .3265
139 .81214 .03558 -189. 99 .45 •6692 .2631*
140 .62675 .03296 -190. 35 .41 •8501 . .2403
141 .64096 .03032 -190. 67 .37 » 6322 . ,197i»
142 .85475 .02769 -190. 95 .31 •8145 . .1550
143 .66810 .02506 -191. 17 .25 •7972
_ .1135
.
144 .88099 .02252 -191. 33 .18 _
•7903 .0727
145 .89338 .02003 -191. 43 .09 * 7S4o .0336
146 .90526 .01752 -191. 46 .00 •7435 .0037
147 .91660 .01533 .191. 43 •.10 * 7338 .036*
148 .92735 .01316 -191. 34 . .20 •7201 .0716
149 .93749 .01114 -191. 19 .30 * 7073 .101"?
150 .94699 .00928 .191. 00 _ .40
-
. •6955 .129*
151 .95580 .00759 -190. 76 _ .51 •6949 .1551*
152 .96390 .00607 -190. 50 .62 * 6749 .1789
153 .97125 .00472 -190. 21 . .75 •6557 .200?
154 .97783 .00355 -169. 89 . .91 •6573 .2199
155 .96360 .00256 -189. 56 -1 .06 » 6496 .238p
156 .98854 .00175 -189. 22 -1 .27 * 6424 .254*
157 .99262 .00109 -iee. 69 -1 .56 * 6355 .2706
158 .99582 .00060 -185. 55 -2 .34 0 6239 .2859
159 .99813 .00026 .186. 16 -3 .51 $ 6224 .3009
l&O .99953 .00006 -187. 72 -11 .36 9 6159 ,313e,
161 1.00000 .00000 .187. 21 -32 .62 * 6145 .319o
 102

-1.21

4
4

-•Ml

[Link]
4
4

•Ml

1-21

CL= .668 DY=.017 T/C=.151

103

IT-

CD
II
>-
a

OD
UD

—»

o
LO
 104

08/2H/73

RJ,N = -2"+2
CIRCULATORY FLOW A30UT A TRANSONIC AIRFOIL

Ms .750 ct= .668 OY= .017 T/C= .151

TAPE 6. PATH 0

2 0
..300 0.000 2
-1.000 0.000 1

2 0
.300 0.000 1
.550 -.31+0 1

TAPE 7
-6-212 1 -.12 .25 .08 [Link] .750 .007 -.110 .060 .50
17 1 2 5 6 9 10 m 33 3<* 37 38 49 50 53 5>*
57 58

-.150 -,l3tj .600 .050 -.0^8 -.17"* .550 .t50

.013 -.OBI .650 -.270 0.000 -.067 -.120 .580
[Link] [Link] .2.000 [Link] 0.000 0.000 .2.000 0.000
[Link] o . o o o .2.000 [Link] [Link] o . o o o .2.000 [Link]

-.112 -.017 .<t50 -.300 .146 -.228 -.700 -.900

[Link] [Link] [Link] -.900 [Link] [Link] [Link] -.900
.706 .118 .t60 .100 .305 .053 .500 .050
.072 .092 .095 .010 0.000 0.000 .500 1.000
 105

[Link] PATHS

4 0
..300 0.000 2
-.995 -.110 .1
..985 -.160 1
-.970 -.200 1

6 0
..918 -.260 .1
..8t8 -.390 1
-.763 -.445 1
..662 -.480 2
..562 -.495 2
-.1*78 -.495 2

4 0
-.093 -.210 1
.242 -.400 .1
.292 -.390 1
.353 -.365 1

15 0
-.098 .325 -1
..003 .315 1
.102 .305 1
.182 .300 1
.261 .270 1
.390 .183 1
.427 .140 1
.450 .060 1
.1*17 -.030 1
.443 -.095 1
.iff 2 -.150 1
.420 -.200 1
.382 -.230 1
.337 -.220 1
.297 -.208 1

7 0
..128 .330 -1
-.213 .355 1
..323 .365 1
..418 .380 1
-.523 .375 1
..623 .360 1
-.713 .335 1

6 0
..SOO 0.000 2
..980 .110 .1
..935 .200 1
-.900 .250 1
..640 .300 1
..760 .330 1
 106

LISTING OF MEASURED COORDINATES FOR AIRFOIL 75-07-15

23.n017 .1900 13.0017 0.0000 17.1991* .8852

22.7541* .2276 13.0483 .1479 17.3999 .3889
22.5046 .2519 13.0948 .2003 17.5949 .8913
22. 014? .2676 13.1962 .2798 17.7991 .8929
21.5407 .2461 13.2997 .3408 18.0006 .3931*
21.002P .1725 13.3997 .3919 18.2000 .8932
20.1*717 .0691 13.4987 .4358 18.4000 .6914
20.0035 -.0297 13.5987 .4763 18.5993 .8B8B
19.5167 -.1316 13.6987 .5127 18.7991* .3351
19.0034 -.2385 13.7979 .5460 18,9999 .S798
18.1*407 -.3454 13.8985 ,576i* 19.2825 .8711
18.0Q?9 -.4186 13.9992 .6042 19.4705 .8634
17.5497 -.4B27 14.1996 .6523 19.6595 .8547
17.0029 -.5410 14.3998 .6386 19.9998 .3345
16.5437 -.5738 14.5991 .7169 20.3325 .3077
16.0030 -.5944 14.7931 .7407 20.5000 .7906
15.5157 -.5982 14.9986 .7616 20.7275 .7640
15.0035 -.5855 15.1986 .7311 20.9965 .7266
14.502? -.5539 15.3981 .7981 21.2986 .6791
14.003B -.4948 15.5991 .S132 21.4991 .6437
13.753P -.4<*85 15.7987 .1271 21.6925 .6068
13.5027 -.3320 15.9991 .B392 22.0012 .51*22
13.1*023 -.3470 16.1983 .8503 22.2235 .4390
13.3039 -.3056 16.3991 .8591* 22.4965 .4074
13.?017 -.2531 16.5985 .3675 22.7482 .3141
13.0996 -.1820 16.7993 .9747 22.8835 .2559
13.0529 -.1331 IS. 9985 .3804 23.0017 .1990
 107

0-0

-Ml

-81

1.21

Mr .700 'CU .733 DYr.029 T/C=-20M

 108

-O
o
o

n
r~
n
-o
U>
CO

O
ro
UD

ro
o
-C
 109

OB/2<*/73

= -79

C I R C U L A T O R Y FLOW A B O U T A T R A N S O N I C ftlRFOlu

M= .7"0 CL= .733 Ur= .029 T / C =

6. PATH 0

2 0
..BOO 0.000 2
-1.000 0.000 1

2 0
.300 0.000 1
.580 •.160 1

UPE 7

-7 -79 1 -.12 .25 .08 1.10 . 7 0 0 -.005 -.115 .080 .50 7

18 1 2 5 6 9 10 13 1* 33 3if 19 30 53 51 57
58 61 62

-.107 .033 .650 .070 -.061 -.316 .600 .300

..109 -.0/8 .650 -.220 ..078 -.132 -.030 .660
0.000 0.000 .2.000 0.000 0.000 0 . 0 0 0 .2.000 0.000
0.000 0 . 0 0 0 .2.000 0.000 0.000 0 . 0 0 0 .2,000 0.000

.156 .190 ..030 -.100 [Link] 0.000 0.000 -.900

0.000 [Link] 0.000 -.900 0.000 0.000 0.000 -.900

.113 .0*1 .200 .010 .265 .178 -.100 .050

.153 .200 .080 .063 .051 1.000 1.000
 110

A U T O M A T I O N PATHS

3 0
-1.000 -.290 -1
-.910 -.170 1
..780 -.575 2
2 0
-.780 -.575 -1
..&20 -.560 5
1 0
..BOO 0.000 2
..980 .150 .1
..930 .260 1
..780 .120 1
5 0
-.128 .115 .1
..320 .170 2
..110 .180 1
.-.620 .180 1
.110 1
3 0
-.098 .115 -1
0.000 .105 1
.120 .115 1
3 0
.320 .350 -1
.160 .150 5
.4&0 -.030 1
5 0
..093 -.210 1
.220 -.120 .1
.330 -.380 2
.130 -.300 1
.150 -.200 1
 111

/xxx X X X X X

1.01

-61

4 4

•21.

0.0

Ml=.8QO M2=-561 D E L T H r 12-03 G/C-1-45

 112

CO
O
O

f\3
II

cn
en

o
CO

O
ii

cn
 113

2. Evaluation of Analysis Methods

In this section we present a collection of computer generated

plots comparing results from different calculations of identical

flows which demonstrate the correctness and reliability of the

computer programs which we have developed.

First we compare the design pressure distribution of Airfoil

78-06-10 with an inviscid analysis of the same flow at a very fine

mesh size using the old Murman finite difference scheme listed in
Section 5 of Chapter III, and with an analysis using the new quasi-

conservative option listed in Section 7 of Chapter III. Then we

compare the analysis of the flow past an NACA 0012 airfoil by these

two schemes, and also by a fully conservative scheme which we have

not listed. The quasiconservative and fully conservative schemes

can be seen to give essentially the same shock jump, but the fully

conservative scheme requires more computer time. The nonconserva-

tive scheme does not give the full shock jump but agrees better

with the design calculation for a shock free flow.

For Airfoil 70-10-13 we have subtracted the calculated boundary

layer displacement thickness from the design profile. Then we have

compared the design pressure distribution with the result of an

analysis using Program H to add a boundary layer correction which

should restore the original shape if there is no separation. The

good agreement provides evidence that our new model of the tail

should eliminate the loss of lift which was experienced with the air-

foils from Volume I. The calculated displacement thickness of the .

boundary layer is also shown.

Next we compare the results of calculations on crude and fine

grids for Airfoil 75-07-15 using Program H. Two shocks appear on

the fine grid, but the flow is almost shock free on the crude grid.

This illustrates that on a crude grid the artificial viscosity

 114

introduced by the retarded difference scheme can occasionally

suppress a weak shock.

There follows a series of inviscid subsonic and supersonic two

dimensional calculations for Airfoil 65-15-10 performed with an

unlisted program which uses parabolic coordinates. The shock free

flow at Mach .65 is in good agreement with the design calculation.

Thus it appears that satisfactory accuracy can be obtained with the

parabolic coordinate system, which we have used in three dimensional

calculations.

For the same airfoil we present results from another

unlisted program which calculates the flow over an infinite yawed

wing. The program uses the full three dimensional difference scheme

although the flow is effectively two dimensional. The purpose of

these calculations is to check the effectiveness of the rotated

difference scheme in preserving invariance of the flow at correspon-

ding Mach numbers and yaw angles. First we compare crude and fine

grid calculations for an unyawed wing. This is a typical case where

the airfoil is operating below its design point and two shocks

appear. The second shock is eliminated, however, on the crude grid.

Next we compare corresponding yawed and unyawed conditions on the

fine grid. In the yawed condition most of the flow is treated

by the supersonic difference scheme, and the resulting extra artifi-

cial viscosity is sufficient to eliminate the second shock, as on a

coarse grid in the unyawed condition. Away from the shock waves,

however, the two calculations remain in remarkable agreement.

Finally we show a pressure distribution on a wing of low aspect

ratio with a 79-03-12 section calculated by the three dimensional

analysis Program J listed in Section 6 of Chapter III. Although the

section was designed for Mach .79, drag rise is only just beginning

at Mach .83, illustrating the Mach relief due to three dimensional

effects.
 115

-1.21

-.8

-.4

•01

-Ml

1-21

fllRFOlL 78-06-10 M*N=320*6Q NCY= 400 NO V I S C O S I T Y

— RNRLYSIS M=.780 RLP= 0.00 CL= .591 CD=.OQ05
+ DESIGN • M=.780 flLP= 0-00 CL= .591 CD=-OQOO
 116

-1.2..

-.8..

-.4 „.

.0..

.4 ..

.8..

1.2..

R I R F O I L 78-06-10 M*N-320*60 NCY= 400 NO VISCOSITY

— QUflSI CON M=.780 fll_P= 0-00 CL= -593 . CD=.0002
+ DESIGN M=.780 flLP= 0.00 CL= .591 CD=.0000
 117

-1.21

-.81

-ol

-Ml

•81

1.21

NflCfl 0012 . M*N=160*30 NCY= 800 NO V I S C O S I T Y

— QUflSE CON M-.^SO flLP= 2.00 CLr .580 CD= .'0156
+ OLD MURMflN M=-750 flLPr 2.00 CL= - M 4 M CD=-0139
 118

-1.21

-.81

-01

•81

1.21

NflCR 0012 M*N-L60*30 NCY= 800 NO VISCOSITY

— QUflSI CON Mr.750 flLPr 2.00 CL= -580 CD=-0156
+ FULLY CON M-.750 RLP= 2.00 CL= .581 CD=.0176
 119

-1.21

-.81

-.41

.0

.41

•8

1.21

RIRFOIL 70-10-13 ,M*N=160*30 NCY- 400 R=20 MILLION

— THEORY M=.700 flLPr 0.00 CL=1.Q3M CD=.0082
+ DESIGN M=.700 flLP= 0.00 CL= -998 CD=-0000
 120

.020,.

,. DELS

.010

.005..

.000

.020^
UPPER SURFRCE DELS

015.. DELS

.010..

.005..

.000
.2 ,M .6

LOWER SURFflCE DELS

 121

-1.21

--Hi

-01

I-21

fURFOIL 75-Q-7-L5 M= .760 CL= -M99 R=20 MILLION

— FINE GRID M*N=160*30 RLP= -58 CD=-0150
+ CRUDE GRID M*N= 80*15 flLP= -47 CDr-0138
 122

•>••*•<

a
cu

a
oa

a
3-
•
I

0°
0°
i

o
CD

f
I

flIRFOIL 65-15-10
M = .650 . flLP = 0.000
CL = 1.4866 CO = -.0001 CM = -.2474
 123

o
10

a
C\J

" >*
4-
X
4-

o
CO

fllRFQIL 65-15-10
M = 1.000 flLP = 0.000
CL = -50M8 CD = .1154 CM = -.3198
 124

o
10

CO
I

a
3-
!

|.+
(_>°l
-,* x i

K4-

4
»
a
ID 4

flIRFQIL 65-15-10
M = 1.200 flLP = 0.000
CL = -M07M CD = .1048 CM = -.2738
 125

- 2 . 4 -,

-1 .8..

-1.2-

-.6..

.0-

1.2-

RIRFOIL 6 5 - L 5 - 1 0 YflW= 0 - 0 0 M=-630 INFINITE YflWED WING

— FINE GRID UM*N=2MO*32*6 CLrl .486 CD= .0041
+ CRUDE GRID L*M*N= 60* 8*6 CL-1 .481 CD—-0185
 126

-2.M _

-1.8..

-L.2..

-.6..

-0..

L.2..

FURFOIL 65-15-10 L*M*N= 2MO*32*6 I N F I N I T E YRWEQ W I N G

— STRfltGHT YRNr 0-00 M= .630 CL-1.M86 CDr.0041
+ YRWED YflN=51.86 M=l .020 CL-1.480 CD=.0035
 127

v
UPPER SURFHCE PRESSURE LOWER SURFflCE PRESSURE

^9-03-12 SECTION flRr 6.0 TWIST 2 DEG

M = .830 YflW = 15.00 flLP = 1.20
L/D = H.28 CL = .2562 CD = .01M8
 128

3. Comparison of Experimental Data with the Boundary Layer

Correction

We present experimental data from the National Aeronautical

Establishment in Ottawa on Airfoils 75-07-15 and 75-06-12 (cf. [7,8,

9]) and on an airfoil designed by John Dahlin at the McDonnell

Douglas Corporation. We also present experimental data on Airfoil

82-06-09 obtained at Aircraft Research Associates, Ltd., in England

that are British Crown Copyright, and are reproduced by permission

of the Controller, R & D Establishments and Research, Ministry of

Defence (PE). The experimental data is compared with numerical

calculations using Program H (Chapter III, Section 5), which

includes, the effect of a boundary layer correction. The results for

Airfoils 75>-07-15 and 75-06-12, as well as for the Douglas airfoil,

were found with transition set at PCS = .07, and with LSEP = 161.

Those for Airfoil 82-06-09 were found with transition set at

PCH = .07, but with LSEP = 153. The experimental data on pages 147

and 148 are from two different series of tests of Airfoil 75-06-12

with different tunnel porosities; they represent the closest to

shock free flow that could be obtained. In most cases the agreement

between theory and experiment is excellent.

 129

-1.21

-84

--Ml

•ol

-Hi

•81

flIRFOIL Ib-Ol- M*N=160*30 NCY= 400 R=20 MILLION

— THEORY M=-690 flLP=-2-28 CL=-.059 CD=.01l8
A EXPERIMENT M= -690 flLP=-2.07 CL=--059 CD=-0128
 130

-1

-1.2..

-.8-=^

-.4 ..

.0

1.2..

R I R E O L L 75-07-15 M*N=160*30 NCY= 400 R=20 MILLION

— THEORY M-.691 RLP- -.66 CL= -237 CD-.0095
A EXPERIMENT M=-691 flLP=--02 CL= .237 CD^-0102
 131

-1.2..

-.M ..

.0..

1.2..

RIRFOIL "75-07-15 M*N=160*30 NCYz 400 R=20 MILLION

— THEORY M=.692 flLP= -87 CL- -511 CD-.0104
A EXPERIMENT M-.692 flLP= 2.03 CL= -511 CD=-0102
 132

1.2..

flIRFQIL 75-07-15 M*N=160*30 NCYr 400 R-20 MILLION

— THEORY M=.687 flLP- 2-61 CL= -809 CD=.Q173
A EXPERIMENT M=-687 flLP- 4-09 CL= .809 CD-.0170
 133

-1 .2..

-.8--

-8

1.2-

flIRFOlL ^5-09-15 M*N=160*30 NCYr 400 R-20 MILLION

— THEORY Mr .688 flLP-5-01 CL=l.m8 CD- -0486
A EXPERIMENT Mr .688 flLP="7.n CL=l.m8 CD=-0502
 134

-1.21

-.81

--Ml

.01

-Ml

-81

1.21

flIRFOLL 15-01- 0 NCYz 400 R=20 MILLION

— THEORY P=-1.39 CL= -OM5 CD-.0216
A EXPERIMENT P--1-OT CL= - Q M S CD=.0262
 135

-1.2-

-.4 __

.0..

.4 __

1.2..

flIRFOIL 75-07-1 fO*30 NCYn 400 R=20 MILLION

— THEORY = -.68 CL- .228 CDr.0139
A EXPERIMENT M flLP= -.06 CL= .228 CD=-0133
 136

-1.2-

-.8..

_ (q

I.2..

RIRF0IL 75-07-15N = 400 R=20 MILLION

— THEORY M=.762 RLP= -.09 = -362 CD=-0122
A EXPERIMENT M=.762 flLP- .82 = .362 CD=-0121
 137

-1.2-.

-.8 ._

-.4 _.

1.2..

flIRFOIL 75-07-15 M*N=160*30 NCY= MOO R=20 MILLION

— THEORY M=.760 flLP= .58 CL= - M 9 9 CD=-0150
A EXPERIMENT M-.760 flLP= 1.55 CL= - M 9 9 CD=-0122
 138

-1.2..

-.8..

-.4 ..

.8..

1.2..

HIRFOIL 75-09-15 M*N=160*30 NCY= MOO R=20 MILLION

— THEORY Mr .763 flLP= 1-03 CL= -58H CD=-0190
A EXPERIMENT M= .763 flLP= 2.01 CL= -58M CD-.0128
 139

-1.2-

-.8

1.2..

RIRFOIL 75-07-15 M*N-160*30 NCY- 400 R-20 MILLION

— THEORY M=.758 HLP= 1-63 CL- .706 CD=-0247
A EXPERIMENT M=.758 flLP- 2-68 CL= -706 CD=.0163
 140

-1-2-.

-.8..

-.4..

.0..

.4 ...

1 .2..

RIRFOIL "75-07-15 >W>M60*30 NCY= MOO R = 20 MILLION

— THEORY M=-775 RLP- -85 CL= - M 9 M CD=-0190
A EXPERIMENT M= •'778 flLP= 1.44 CL= -M9M CD=.Q115
 141

-1.2-

-.8..

-0'..

.8..

1.2..

fllRFOlL 82-06-09 M*N=160«30 NCY- 400 R= 6 MILLION

— THEORY M=-702 flLP=-1.15 CL= .070 CD= .0072
A EXPERIMENT M= -102 flLP=-1.00 CL= -070 CD=
 142

-.8..

.0-

1.2-

PURfOLL 82-06 0*30 NCY= MOO R= 6 MILLION

— THEORY \M RLP=-1.41 CL=--005 CD=-0112
A EXPERIMENT flLP= -.98 CL=--005 CDr-0120
 143

-1.21

-.Hl

•Ml

.81

1.21

RLRFOIL 82-06-09 M*N=160*30 NCYr MOO R= 6 MILLION

— THEORY M=-181 flLP- .18 CL- .311 CD-.0013
A EXPERIMENT M=.*781 flLP= LOO CL- -311 CD=-0104
 144

-1.2

-.8..

-.4

.0..

.4..

.8..

1.2..

flIRFQIL 82-06-09 M*N=160*30 NCY- 400 R= 3 M I L L I O N

— THEORY M=.Q21 flLP= -92 CL= -515 CD-.0149
A EXPERIMENT M=-82^ flLP= 1-51 CL= -515 CD=.Q120
 145

-.81

--Ml

.81

1.21

RIRF01L 82-06-09 M*N=160*30 ' NCY= MOO R= 1 MILLION

— THEORY M=-833 flLPz .82 CL= -551 CQ=-0150
A EXPERIMENT M-.833 flLP- 1-51 CL= -551 CD=-0123
 146

-.8..

-.4

.8..

flIRFQIL 82-06-09 M*N=160*30 NCY= 400 R= 6 M I L L I O N

— THEORY M=.840 flLP= 1.05 CL= -530 CD=.0184
.A EXPERIMENT M=.840 flLP= 1-50 CL= .530 CD=-0136
 147

-1.2..

-.8..

-0..

1.2..

flIRFOIL 75-06-12 M*N=160*30 NCY= MOO R=20 MILLION

— THEORY M=-765 RLP= .72 CL= .S^S CD=.012"7
A EXPERIMENT M= .^SS flLP= .89 CL= -576 CD=-0110
 148

-1.21

--Ml

1.21

flIRFOIL 75-06-12 M*N-160*30 NCY= MOO R=21 MILLION

— THEORY M±.769 flLP= -81 CL= .588 CD=-01M7
A EXPERIMENT M= -769 flLP- 1-65 CL= -588 CD=-0090
 149

-1.2

C,

-.81

-.4 J

.01

-41

.81

1-2

RIRFGIL 75-06-12 M*N=160*30 NCY= 400 R=20 MILLION

— THEORY M=.727 flLPr 2-16 CL= -787 CD=-0193
A EXPERIMENT M=-727 flLPr 3-49 CL= -787 CD=-Oi85
 150

-1 .6

-1.21

-.81

•01

-41

.81

1.21

DOUGLRS R I R F O I L M*N=160*30 NCYr 4 0 0 R=14 M I L L I O N

— THEORY H=-699 flLP= 1-22 £L- .615 CD=.Q128
A E X P E R I M E N T M=.699 flLP= 1.38 CL= -615 CO=.Q115
 151 '

4. Comparison of Experimental Data with the Boundary Layer

Correction Using the Quasiconservation Option

In this section we repeat some of the runs from Section 3 with

the old Murman finite difference scheme replaced by the quasiconser-

vation option (Chapter III, Section 7). The quasiconservation form

gives better agreement with experiment when there is a strong shock

wave well forward on the wing section where the boundary layer is

relatively thin (see pages 132 and 152). It gives'worse agreement

in some cases with sizeable supersonic zones unless a Mach number

correction is applied (see pages 138, 154 and 155). A full conser-

vation form of the finite difference scheme, not listed, gives

results virtually identical to those presented here (cf. Section 2).

 152

-1-21

-.41

.81

flLRFOLL 15-01-15 M*N=160*30 NCY= 400 R=20 MILLION

— THEORY ^-.6Q1 flLP= 2.80 CL= .809 CD=.01MM
A EXPERIMENT • M= .68"? flLP= M .09 .CL= -809 CD= .01*70
 153

-1.21

-.81

-.H

.8

1-2

RIRFGIL NCY= 400 R=20 MILLION

- THEORY M=.-762 ^ -.05 CL^ -362 CD=.0111
A EXPERIMENT M= -162 ^ -82 CL= -362 CD=.Ol2l
 154

-L.2..

-.8..

-.4 ..

.0..

1 -2

flIRFOIL 75-07-15 M*N=160*30 NCY= MOO R=20 MILLION

— THEORY M=.763 flLP= -86 CL= -584 CD=--0132
A EXPERIMENT M=-763 flLP= 2-01 CL= ,58M CD=-0128
 155

-1.21

-.81

.Ml

.81

1.21

flLRFOlL l$-01-ib M*N=160*30 NCY=MOO R = 20 MILLION

— THEORY M=.^55 flLP= .92 CL= -58M CD=-0123
A EXPERIMENT Mr-^GS flLP=2.01 CL= -58M CD=-0128
 156

-1.2..

-.8..

-.4 ..

.0..

.4 ..

1.2..

fllRFCHL. 75-07-15 M*N3l60*30 NCY= MOO R=20 MILLION

— THEORY M=.768 RLP- .45 CL= - 4 9 4 CD=.0119
A EXPERIMENT M= -778 flLPr 1.44 CL= - 4 9 4 CD=-0115
 157

-1 .2..

-.8..

.8.

1.2..

R I R F O L L "75-06-12 M*N=160*30 NCY= 400 R=20 M I L L I O N

— THEORY Mr .727 flLP= 1.97 CL= .181 CD=-0124
A EXPERIMENT M= ."727 flLP=3-49 CL= -787 CD=.0185
 158

5. Drag Polars

The first two figures presented in this section were obtained

without any boundary layer correction, and they involve just the

wave drag. The remaining two dimensional drag polars include

comparisons with the experimental data described in Section 3. The

agreement is good, except that drag rise may be predicted by the

theory for Mach numbers that are as much as .02 less than those

indicated by the experimental data. Discrepancies of this order of

magnitude have been attributed to wall effect.

The final drag polars are for three dimensional flows past

oblique wings. It appears that our computation of the induced drag

plus the wave drag, which is a relatively small number, is accurate

enough to yield physically significant values of the lift drag ratio

L/D. Using a semi-empirical value of the profile drag, we have

found that our evaluation of L/D compares favorably with the test

data obtained by R. T. Jones [6] in the transonic wind tunnel at the

NASA Ames Research Center. Moreover, the theoretical and experimen-

tal predictions of the effects of angle of attack and twist on the

distribution of lift agree fairly well. Figure 9 compares experi-

mental curves of maximum L/D against Mach number at fixed yaw

angles with the envelope obtained from calculations in which the yaw

angle was optimized at each Mach number. Figure 10 compares the

predicted optimal lift drag ratios for two different supercritical

wing sections. The calculations indicate that near Mach 1 the

optimal lift drag ratio does not change much with the design Mach

number of the section if the angle of yaw is adjusted properly.

 159

.035 i— = -800

-030 \—
= -790

= -780

."760

-750

.45 .60 .75 .90

WflVE DRRG ON RIRFOIL 78-06-10 RT

M r .750. .755 800 flND R = 20 MILLION

FIGURE L
 160

• 035 i—

= -85
• 030 \—

- .-75

.65

-55

.45

.35

WflVE, DRflG ON flIRFOIL 78-06-10 flT

CL = - 3 0 . .35 90 RND R = 20 MILLION

FIGURE 2
 161

• OMO i—

-035

-005 CL

DRRG POLRR FQR RIRFOIL ^9-03-12 RT

M = -IB -81 RND R = 20 M I L L I O N
FIGURE 3
 162

-OMO i—

CL - -5

CL - .M

.005

DRflG POLflR FOR R I R F G t L "79-03-12 flT

CL - -1 5 RNO R = 20 M [ L L [ Q N

FIGURE M
 163

.030 —
THEORY

.025 A EXPERIMENT

.020

.015

.010

.005

CL
-.20 .00 .20 .40 .60 .80 1.00

DRflG POLflR FOR flIRFQIL 75-07-15 COMPflRING

OTTRWR EXPERIMENTRL DRTfl WITH THEORETICflL
RNflLYSIS flT M = 0-69 flND R = 20 MILLION
FIGURE 5
 164

.030 THEORY
A EXPERIMENT

.025

.020

.015
CJ

.010

.005

CL
-.20 0.00 .20 .MO' .60 .80

DRflG POLflR FOR RIRF0IL 75-07-15 COMPflRING

OTTflWfl EXPERIMENTS DflTfi W I T H THEORETICflL
RNflLYSIS flT M = 0.76 RND R = 20 MILLION

FIGURE 6
 165

.030

THEORY

A EXPERIMENT
-025

.020

• 015
a
CJ

.010

.005

.MO .50 .60 .70 .80 .90

DRflG POLRR FOR flIRFQIL 75-06-12 COMPRRING

OTTRWR EXPERIMENTRL DflTR WITH THEQRETICRL
RNRLYSIS FOR CL - 0.4 RND R = 20 MILLION
FIGURE "7
 166

.030 THEORY

A EXPERIMENT

• 025

• 020

-015
Q
CJ

.010

.005

.40 .50 .60 ."70 .80 .90

DRRG POLflR FOR RIRFOIL 75-06-12 COMPRRING

OTTRWfl EXPERIMENTRL DRTR WITH THEORETICRL
RNRLYSIS FOR CL = 0.6 RND R = 20 MILLION
FIGURE 8
 167

MO r-

THEORY

EXPERIMENT flT
3 YRW RNGLES

1.00 1.10 1.20

DRflG PENRLTY QN RN OBLIQUE WING W I T H flR=12.7

COMPflRISGN BETWEEN THEORY HND EXPERIMENT FOR

JONES flIRFOIL TESTED flT flMES RESEflRCH CENTER

FIGURE 9
 168

RIRFOIL 90-10-13
flLRFOlL 78-06-10

II
O

X
d
10 —

.80 .90 1.00 1.10 1.20

DRflG PENflLTY ON flN OBLIQUE W L N G W I T H flR=12.7

THEORETICflL COMPflRLSON OF TWO DIFFERENT flIRFOtLS

FIGURE 10
 169

6. Schlieren Photographs

Figures 1, 2 and 3 are from a test at the NASA Langley Research

Center of Airfoil 79-07-10 appearing in Volume I. Figure 1 shows

the flow at a fairly high Mach number below the design lift, with

two shocks on the upper surface and a shock on the lower surface.
Figure 2 shows the flow slightly below the design point with two

shocks quite far back, and Figure 3 shows the nearest approach to

the design flow for this airfoil with one fairly weak shock.

Figures 4 and 5 are from the Aircraft Research Associates test of

Airfoil 82-06-09; they are British Crown Copyright, and are repro-

duced by permission of the Controller, R & D Establishments and

Research, Ministry of Defence (PE). Figure 4 shows the flow some-

what below the design point, as in Figure 2, with two shocks.

Figure 5 shows the flow above the design point with a single shock

far back on the airfoil. Figure 6 is from a test performed at the

Grumman Aerospace Corporation of an airfoil designed by Don

MacKenzie and Bill Evans, using Airfoil 70-07-20 as a starting

point. The design pressure gradient was too severe near the tail

on the upper surface and the flow was strongly separated in the

test.
 170

Fig. I AIRFOIL 79-07-10 AT M = .83 AND a=0 (

Fig. 2 AIRFOIL 79-07-10 A T M = . 8 2 A N D a =2°

 171

Fig. 3 AIRFOIL 79-07-10 AT M = .84 AND a=2°

Fig. 4 AIRFOIL 82-06-09 AT M=.83 AND a=l.5'

 172

Fig. 5 AIRFOIL 82-06-09 AT M = .84 AND a=l.75(

Fig. 6 GRUMMAN AIRFOIL AT M=.72 AND a=3°

 173

III. FORTRAN PROGRAMS

1. Operation of the Turbulent Boundary ,Layer Correction Program H

The program which was written for the analysis of the flow

past an airfoil (Program G) and described in Volume I has been

rewritten and expanded to incorporate a turbulent boundary layer

correction. Program F, which was discussed in Volume I and removes

the turbulent boundary layer, has been superseded by our new

program. The new Program H can now be used:

1. As F, in order to compute the turbulent boundary layer

and remove it from an airfoil produced by our design programs

explained in Volume I.

2. As G, to compute the flow around an airfoil without a

boundary layer correction.

3. To add iteratively the boundary layer displacement to an

airfoil in order to evaluate its performance including the effects

of viscosity.
4. To obtain a redistribution of airfoil coordinates.

Program H has been written to operate in much the same way as

Program G of Volume I. In fact, anyone familiar with Program G

should have little difficulty in using Program H. Again Tape 3 is

used for coordinate input and the format for it is prescribed by

the FSYM value. The deck structure and data structure correspond-

ing to the FSYM values appear in Table 1 of Section 2. In order to

facilitate the comparison of theoretical results with experimental

data or any other data we have provided the user with the option of

plotting the comparison data. If Tape 4 contains test data and

XP = 1, the comparison data, if it is test data, will be designated

by triangles (A) on the Calcomp plots of the pressure distribution.

If the comparison data is design data, it is designated by plus

 174

signs (+). The format of Tape 4 is shown in Table 2. The parameter

SNX selects the plot symbol for the comparison data.

All input parameters which can be varied appear in the input

glossary and they can be redefined by data cards prepared with

standard namelist conventions. Many of the parameters are the same

as those used previously in Program G. Additional parameters which

will generally not need to be changed from case to case have been

initialized by means of data statements in the various subroutines.

They can be changed by updating the program.

The output consists of a printed copy of the numerical results,

Calcomp plots of the results and a printed Mach number chart.

If the program is to run as old F, no namelist information is

necessary; default values will be used for this entire program. The

default values set transition at the maximum value of the pressure

distribution CP and set the Reynolds number RN equal to 20.E06.

If these default values are [Link] required for the case under

consideration then it is sufficient to provide a data card with the

correct values. During execution of the so-called F mode, the coor-

dinates will be redistributed, angles for the airfoil computed, a

mapping onto the circle performed and the boundary layer removed.

The printout from this program is similar to the printout from Pro-

gram F. Upon termination Tape 3 will contain the output data in the

FSYM = 2. format and it can be used as input to the program when it

is used to perform a flow calculation with the boundary layer dis-

placement. The termination of the program produces an output listing

of the original airfoil coordinates x, y, the corrected coordinates

YS, the surface slope and curvature, the pressure distribution CP,

the momentum thickness THETA and the separation parameter SEP.

As explained in Section 5 of Chapter I, when this code is used

to add on the boundary layer correction, it is run as G for NS1

 175

(see the Glossary) cycles and then the displacement thickness is

computed by means of the Nash-Macdonald equations (von Kantian equa-

tion) and added to the original airfoil. The resulting airfoil is

then mapped onto the circle and the flow is computed for another

NS1 cycles. This process is repeated every NS1 cycles until the

total number of flow cycles is computed. The program runs until

NCY = NS, where NCY is the running tally of flow cycles, or until

the convergence tolerance ST is achieved. If NS1 >^ NS or if RN =0,

no boundary layer correction will be made and the program runs

as old G.

If FSYM = 2. or FSYM = 4., surface slopes are not provided.

The slopes are needed to perform the mapping and are obtained by

passing splines through the x and y coordinates. If the parameter

IS is non-negative the x and y coordinates are redistributed before

computing the slopes. If IS > 0 these new x,y coordinates are

smoothed IS times. The smoothing formula is weighted so that the

most smoothing is applied at the tail. IS = 2 is~ the default.

After the surface slopes are obtained the mapping to the circle is

performed as discussed in Chapter I, Section 4, at NMP = 2*NFC

intervals, where NFC is the number of terms in the Fourier series.

The mapped airfoil coordinates are obtained at M+l points; M = 160

for the coordinates after the first mapping. Of these M+l mapped

coordinates, 108 points (NT) are saved. The points are obtained by

thinning out every other point of the upper and lower surfaces near

the trailing edge. The flow calculation is generally started on a

cruder grid, M*N = 80x15. After the flow, the ordinary differen-

tial equation given by Nash and Macdonald is integrated at NPTS

points in the circle plane. NPTS = 81 is the default value. The

input to this equation is the set of local Mach numbers at the NPTS
points of the circle plane which are obtained from the flow calcula-
 176

tion. The differential equation is solved for the momentum thick-

ness THETA, from which the displacement thickness DELS is computed

at the NPTS points. In solving the differential equation the

quantity SEP is bounded by a limit SEPM in order to permit integra-

tion through a shock. For all x values greater than a prescribed

value XSEP, SEP is set equal to its computed values even if 'SEP is
greater than SEPM. XSEP = .93 and SEPM = .004 are the default

values. An interpolation is performed to obtain the displacement

thickness at the NT points of the original airfoil. The corres-

pondence used for interpolation is through arc length. The

original airfoil is modified by adding the displacement thickness

to it along a vertical projection. In order to improve the conver-

gence process the computed displacement thickness is subjected to

monotonicity conditions on the upper and lower surfaces. It is

also smoothed IS times and underrelaxed using a relaxation

parameter RDEL. For NPTS = 81, we have chosen IS = 2 and

RDEL = .125. If the number of points used to solve the differ-

ential equation is doubled it is reasonable to increase IS by a

factor of 4. The new airfoil defined by the NT coordinates x,y is

mapped onto the circle and then the flow calculations are resumed.

An additional feature of this program is the option of modify-

ing the Mach number distribution after separation for input to the

Nash-Macdonald equation. The pressure distribution on the upper

surface is altered by a linear extrapolation of the pressure from

some point along the upper surface to a base pressure BCP at the

tail. LSEP is the index of the x array at which this extrapolation

begins and should be placed after the point at which separation

occurs. LSEP is obtained empirically. LSEP+1 is the index of the

first point at which the pressure distribution is modified. The

initial BCP value is an estimate.. This value is iterated making
 177

use of the assumption that the pressure distribution is monotonic

after separation. The search for monotonicity is made from

x = XMON to the trailing edge. The straight line for the pressure
distribution after separation is determined each time by the value

at the point LSEP and the iterated BCP.

We have found that good results are generally obtained without

making use of this option and have, therefore, set the LSEP default
value to M+l. This means that the pressure distribution derived

from the flow will not be modified on the upper surface. In diffi-

cult cases it may help to alter the pressure distribution in this

manner.

There is no printout during each boundary layer calculation,

but the boundary layer computed at the NPTS points on the upper
surface and lower surface is plotted. In the plot the upper

surface starts at the center and x = 1. is at the bottom of the

graph paper. The lower surface starts at the center and x = 1. is

at the top of the page. The quantities printed out after each KP

cycles of flow are described in the output glossary. The first

eight variables change during the flow calculation. The last five

quantities are the result of computations in the boundary layer

correction subroutines and remain constant for the NS1 flow cycles.

The flow program has been modified so that the flow can be computed

with a fixed CL or a fixed ALP; the parameter which varies is

printed out after each KP cycles.

The computation proceeds for NS cycles or until both the

maximum velocity potential correction and the maximum circulation

correction are less than the tolerance ST. The ITYP parameter is

used as in Volume I to select the type of output. If ITYP >_ 3,

the coefficients of lift, wave drag, form drag, total drag and

pitching moment are printed. The Mach number diagram is also

 178

printed. For ITYP >_ 3 the printout consists of the displaced

airfoil geometry and the flow and boundary layer characteristics at

each of the M+l points. The description of each column of output

appears in the Output Glossary. If ITYP >_ 4 a Calcomp plot of

the pressure distribution from computation, comparison test data

if available, the airfoil and the sonic line are plotted. A plot

of the final displacement thickness for the upper and lower surfaces
appears on the last page. If ITYP < 4 no Calcomp plots are made.

If ITYP = 5 the sonic line is not plotted. If ITYP = 1 there are

no Calcomp plots, Mach number diagram or final printout.

An example of a set of control cards for the CDC 6600 Scope

3.2 operating system and data cards for the boundary layer program

is given below. In order to use Program H control cards are needed

which retrieve the program from the program library, store the air-

foil geometry on Tape 3 and the test data, if available, on Tape 4.

For the CIMS CDC 6600 the control cards are:

ATTACH(T,AIRFOIL) AIRFOIL contains airfoil geometry

REWIND(T,TAPE3)

COPYBF(T,TAPE3) Tape 3 is input to Program H

ATTACH(TAPE4,TESTDATA) Tape 4 is input for H and TESTDATA is a

file which contains experimental data

ATTACH(H,PROGRAM) File PROGRAM contains compiled Program H

H. Execution of Program H

See Table 1 for the format of data for Tape 3. See Table 2

for the format of data for Tape 4.

We assume that Tape 3 contains the model coordinates for one

of our airfoils designed at Mach number EM = 0.75, CL = 0.667 and

T/C = 0.151 (Airfoil 75-07-15) which was tested at the National

Aeronautical Establishment, Ottawa, Canada. Since only x and y

 179

were .measured, Tape 3 contains the coordinates in FSYM = 4. mode.

Tape 4 is assumed to contain the experimental results of a test

made at Mach number equal to 0.762, angle of attack equal to 0.82

degrees with coefficient of lift equal to 0.362, and Reynolds

number equal to 20.0 x 10 .

The first data card which may be used as input to the program

is:
[ $P NS=1, FSYM=4., EM=0.762, CL=0.362, IS=2, PCH=0.07,

XSEP=0.93, RN=20.0E06, BCP=.4, SEPM=.004, XP=1., RBCP=0.1,

RDEL=0.125,NFC=80$ ]

However, for this case the input data can be simplified consider-

ably, since most of the parameters are equal to their default

values set by the program. Thus, the first input card we use is:

[ $P FSYM=4.,'EM=0.762, CL=0.362, XP=1.$ ]

After reading this card the program begins the mapping. The air-

foil coordinates'are redistributed and smoothed 2 (IS) times. The

airfoil is mapped using 2*NFC intervals on the circle. The x,y

coordinates are obtained at 161 (M+l) points equally spaced in the

circle. From these coordinates 108 (NT) are saved: every other

point in the first third of the original 161, every point in the

second third (around the nose) and every other point in the last

third, which includes the points near the upper surface trailing

edge. This was done to maintain the resolution at the nose and

to improve the convergence, since points at the trailing edge

spaced too closely can lead to computational difficulties. The

108 points define the inner airfoil to which we add the boundary

layer correction and obtain a new outer airfoil at each boundary

layer correction cycle.

The second data card supplied to the program is:

[ $P NS = - 1, ITYP = 1$ I"
 180

The machine response to this card is a change in mesh size to a

cruder mesh. The mesh size is then M*N = 80*15 for the flow calcu-

lation. The original airfoil remains unchanged, defined at 108

points.

The third data card is:

[ $P NS=400, NS1=20, LSEP=75, XMON=.95, IS=2, ITYP=4, KP=4$ ]

This card initiates the computation of the flow around the airfoil.

400 (NS) cycles of the flow on the crude grid size will be computed

before termination. After each 20 (NS1) cycles of the flow a

boundary layer correction will be made. The pressure distribution

and Mach numbers resulting from flow cycle NS1 are computed. Since

LSEP is not equal to its default (81 for the crude mesh, 161 for

the fine mesh) the pressure distribution is modified on the upper

surface from LSEP+1 to the trailing edge. Since the pressure BCP at

the trailing edge was not read in on a data card, the default
value BCP = 0.4 is used initially. At all boundary layer cycles

after the first, BCP is iterated and. underrelaxed using the mono-

tonicity condition on the pressure distribution beyond separation.

The search for monotonic behavior starts at x = 0.95 (XMON). The

Nash-Macdonald equation is integrated at 81 points (NPTS) equally

spaced in the circle plane. After the displacement thickess 6 has

been computed from the equation it is subjected to the requirement

that on the upper surface it be monotonically increasing and that

on the lower surface for x <_ 0.6 it be monotonically increasing

and for larger x once it starts to decrease it should not increase

again. Then & is smoothed, and the number of smoothings is given

by IS. This is the same parameter name used for the smoothings of

the original airfoil, but that smoothing is not. done for each new
outer airfoil. The amount of <$ to be added to the original airfoil

is underrelaxed to achieve convergence. RDEL is the relaxation

 181

factor. After a spline fit at the NPTS points at which the equa-

tion was solved and an interpolation at the NT points of the inner

airfoil, 6 is added to the inner airfoil. The resulting airfoil

defined at 108 (NT) points is then mapped onto the circle. The

mapping is done at 161 (2 NFC + 1) points. The new mapped coordi-

nates are obtained at 81(M+l) points. The program then returns to

the flow cycles. When NS = 400 the crude mesh calculation is

complete. ITYP = 4 gives the Mach number chart, a printout of the

relevant variables, the Calcomp plot of the pressure distribution,

airfoil and sonic line, and the plot of the last upper and lower 6.

Since some default values are used, Card 3 can be shortened to':
[ $P NS=400, LSEP=75, ITYP=4, KP=4$ ]

The fourth data card is:

[ $P NS=1, ITYP= -1$ ]

The mesh is restored to the finer grid, MXN = 160x30. The inner air-

foil is still defined at 108 points. However, the mapping is

redefined on the fine grid and the new airfoil is obtained at 161

points on the circle. The value of LSEP is adjusted to the corres-

ponding index for the fine mesh. All other required variables are

interpolated.
The fifth data card is:

[ $P NS=400, ITYP=1$ ]

400 cycles of flow are done on the fine mesh with a boundary layer

correction computed every NS1 cycles. The Nash-Macdonald equation

is still integrated using 81 (NPTS) points.

The sixth data card is:

[ $P ITYP=0$ ]

The program terminates with printout of final results and Calcomp

plots. On the CDC 6600 any namelist error is treated as an exit

 182

card like the sixth data card.

The time required to compute 400 cycles of the flow and obtain

a new boundary layer correction each 20 cycles is approximately 110

seconds on the crude grid. Approximately 2.3 seconds are required

to obtain each new outer airfoil and map it onto the circle. In

total about 65 seconds are spent on the flow and 45 seconds on the

outer airfoil. 307 seconds are required for the 400 cycles calcu-

lation at a fine mesh size. 231 seconds are needed for the flow

and 76 seconds for mapping the 19 outer airfoils.

 183

2. Glossaries and Tables for Program H

Glossary of Input Parameters

ALP Real. Angle of attack in degrees relative to

angle 0° at design. Default 0°. See CL.

BCP Real. Starting value of the base pressure

which is used when the pressure distribution
is extrapolated linearly on the upper surface.
Default 0.4.
BETA Real. Damping coefficient for rotated differ-
ence scheme used to solve the flow equations.
Default 0. BETA > 0 may help the convergence
for Mach numbers near 1.0.

CL Real. Coefficient of lift. The default is

based on the ALP default since the program
permits either ALP or CL to be prescribed.
CL defaults to the design value for FSYM < 3.
EM Real. The free stream Mach number. It must
be less than 1. Default 0.75 or design Mach
number if FSYM < 3.
FSYM Real. Indicates format of original airfoil
coordinates on Tape 3. See Table 1.
Default 1.
GAMMA Real. Gas constant y- Default 1.4.
IS Integer. Number of smoothings of original
airfoil coordinates. Also the number of
smoothings of the displacement thickness.
Default 2.
ITYP Integer. Used along with NS to indicate mode
of operation. ITYP = 0 causes program to
terminate. See Table 3. Default 1.
IZ Integer. Width of output line control.
Controls the number of characters on a line
of output as well as the file to which out-
put is written. In addition, if IZ = 120 the
Fourier coefficients of the mapping are
printed. Default 125.

KP Integer. Print parameter. The output from

each KPth flow cycle is printed. Default 1.
LL Integer. Index of location on airfoil where
the sweep through the upper and lower
surfaces begins for the finite difference
scheme. Default M/2+1. Smaller values of
LL are used for high angles of attack.
LSEP Integer. Index of x which gives the location
at which the linear extrapolation for the
 184

pressure distribution is begun on the upper

surface. It should be placed at the point
of separation, if used. The pressure distri-
bution is modified from x at LSEP+1 to the
trailing edge. If LSEP > M then the
pressure distribution is not altered.
Default M+l.
M Integer. The number of mesh intervals in
the angular direction in the circle plane at
which the flow equations are solved.
Default 160.
N Integer. The number of mesh intervals in
the radial direction in the circle plane.
Default 30.
NFC Integer. The number of Fourier coefficients
used for the mapping. Default 80.
NPTS Integer. The number of points at which the
Nash-Macdonald boundary layer equation is
solved. Default 81.
NRN Integer. Run. number. Default 1. If FSYMO.,
NRN has the design value. If NRN > 1000, the
Calcomp plots are done on blank paper on the
CIMS CDC 6600.
NS Integer. If positive and ITYP > 0 it is the
total number of flow cycles to be computed
before the next input card. Otherwise it is
an indicator of the mode of operation. See
Table 3. Default 1.
NS1 Integer. Number of flow cycles computed
between boundary layer corrections.
Default 20.
PCH Real. Chord location at which the turbulent
boundary layer calculation is begun. Transi-
tion is assumed to occur at this point. The
program uses the x coordinate of the airfoil
closest to PCH for transition. Default 0.07
unless in F mode, where the default is the
peak pressure.
RBCP Real. Relaxation parameter for iterating
BCP. Default 0.1. •-
RCL Real. Relaxation parameter for the circula-
tion or the angle of attack. Default 1.
RDEL Real. Relaxation parameter for the boundary
layer displacement thickness. Default 0.125.
RFLO Real. Relaxation parameter for the velocity
potential in the flow calculation.
Default 1.4.
 185

RN Real. Reynolds number. If RN is set to zero

no boundary layer correction is made.
Default 20.0E6.
SEPM Real. Bound set on the separation parameter
SEP. Default .004.
ST Real. Convergence tolerance on the maximum
velocity potential correction and the maximum
circulation correction.
XMON Real. x location where search for monotoni-
city of the pressure distribution is begun
when modifying BCP for the pressure extrapola-
tion. Default 0.95.
XP Real. Indicator for test data. If XP > 0
then test data appear on Tape 4 and the
points will appear on the Calcomp pressure
distribution plots. If the program is used
as F and XP < 0 then a plot of the airfoil is
produced before and after the displacement
thickness is subtracted. This plot is also
obtained if the number of points defining the
airfoil is greater than 140. If XP ^ 0 and
the program is in the F mode the redistribu-
ted coordinates are written on Tape 3 in
FSYM = 1. format; if XP = 0 the displaced
coordinates are written on Tape 3 in FSYM = 2.
format.
XSEP Real. |XSEP| is the x location beyond which
SEP assumes its calculated value even if
SEP > SEPM. For all x < |XSEP| the bound
SEPM is imposed on the upper surface. If
XSEP < 0 the upper and lower surfaces of the
airfoil are both treated as upper surfaces.
Default 0.93.

Glossary of Output Parameters

Printout of Original Airfoil Data

X,Y Original airfoil coordinates smoothed IS
times and redistributed if IS >^ 0 and
FSYM = 2. or 4.

ARC LENGTH Arc length of airfoil defined by X,Y.

ANG Surface angles of airfoil.

KAPPA Curvature of airfoil.
KP Second derivative of ANG with respect to arc
length.
KPP Third derivative of ANG with respect to arc
length.
 186

Printout from Mapping of Original Airfoil

ERR Maximum correction in arc length for each

iteration of the mapping. Convergence if
ERR < 0.4xlO"7.

DA,DB Correction needed at each iteration to

ensure closure.

A(NFC), B(NFC) NFC Fourier coefficients. Printed out

if IZ = 120.

EPSIL Trailing edge angle divided by TT.

Printout after Each Cycle of Flow

NCY The running tally of flow cycles computed for

a given grid size and Mach number.

DPHI The maximum change in the velocity potential

array at two consecutive flow cycles.

DCL Change in lift necessary to satisfy the Kutta

condition.

DDEL Maximum increment in displacement thickness

during each boundary layer calculation.

DBCP Maximum residual in the base pressure BCP

iteration.

IK, JK The location of the maximum velocity

potential correction. 1 < IK <_ M+l,
1 <_ JK <_ N .

NSP The number of supersonic points in the flow

calculation.

ALP Angle of attack, which is printed if CL is

held fixed.

CL Coefficient of lift, which is printed if ALP

is held fixed.

AN GO Angle of zero lift. Computed after each

mapping.

CPI CP at LSEP . This is the first value used for

the linear extrapolation if the pressure dis-
tribution is modified on the upper surface
after separation. The pressure distribution
is modified from LSEP+1 to the trailing edge.

BCP Base pressure. The value to which the pres-

sure is extrapolated at the trailing edge.

SL Slope of the line through CPI and BCP.

 187

Final Printout

XS x coordinate of the last mapped outer airfoil

at M+l points.
YS y coordinate of the last mapped outer airfoil
at M+l points.

ANG Surface angles of the last mapped outer

airfoil.
KAPPA Local curvature of the last mapped airfoil.
MACH Local Mach number resulting from the last
flow cycle.
CP Pressure distribution corresponding to the
Mach number.
CP1 Pressure distribution used in the last
boundary layer correction.
THETA The momentum thickness obtained by solving
the Nash-Macdonald equation in the last
boundary layer correction cycle.
DELS Displacement thickness obtained from the last
boundary layer correction.
SEP Quantity used as criterion for determining
separation. If SEP > SEPM the boundary layer
separates.
H Shape factor.
DD The last displacement thickness increment
added to the inner airfoil.
CS The location computed by the program at which
SEP >_ SEPM.
LM The point at which the program starts looking
for monotonicity in the pressure distribution.
LP Gives the location of XSEP.
LS Indicates the location of LSEP.

CDW Wave drag coefficient.

CDF Form drag coefficient.

CD Total drag CD = CDW + CDF.
CM. Moment coefficient.
 188

Parameters for Table 1

EPSIL Real. Trailing edge angle divied by n.
FNU Real. Number of points on upper surface
defining airfoil.
FNL Real. Number of points on lower surface
defining airfoil.
 189

^v COLS.
1-10 11-20 2'1 - 30 31 - 40
CARDS ^^
Title in Hollerith
1
(Columns 2-17 will be printed on plot)
2 FNU FNL EPSIL

3 Blank

4 Coordinates at nose
Points on upper surface
,*
FNU + 3 Coordinates at trailing edge

FNU + 4 Blank

FNU + 5 Coordinates at nose

*
Points on lower surface

FNU+PNL+4 Coordinates at trailing edge

Deck Structure

"V. COLS.
^V. 1 - 10 11 - 20 21 - 30 31 - 40
FSYM s^
3.0 u V X y
4.0 X y
5.0 X y 9°

Data Structure

Table 1. Tape 3 Card Input for Program H.

 190

^^^COLS.
CARDS^-\^^ 1-10 11-13

1 NP

^^^COLS .
1-6 7-12 13 -18 19 - 25 26 - 34
CARD!s-\^^

2 EMX ALPX CLX CDX SNX

^^\COLS. 11 - 20
CARDS^-v^^ 1-10

3 XL CPX

• •

NP + 2 XL CPX

Table 2. Deck and Data Structure for Tape 4.

NP Integer. Number of comparison points.

EMX Real. Free stream Mach number of comparison

airfoil.

ALPX Real. Angle of attack of comparison airfoil.

CLX Real. Coefficient of lift for the comparison

data.

CDX Real. Coefficient of drag for the comparison

data.

SNX Real. Selects plotting symbol for comparison

data. If positive, triangles (A) are used as
for test data. If negative, plus signs (+)
are used as for design data.

XL Real. x coordinates of comparison data

scaled from 0. to 1.

CPX Real. Coefficient of pressure at corres-

ponding XL values.
 191

ITYP < 0 ITYP=0 ITYP > 0

RETURN TO TERMINATE CRUDER

NS < 0
CONTROL MODE PROGRAM GRID
STORE TERMINATE RETRIEVE FROM
NS = 0
ON TAPE PROGRAM TAPE
FINER TERMINATE FLOW
NS > 0
GRID PROGRAM COMPUTATION

Table 3. Control of Program H.

 192

3. Operation of the Three Dimensional Analysis Program J

The three dimensional program was written specifically to

treat the flow past a yawed wing as proposed by R. T. Jones. It

will calculate the pressure distribution and force coefficients

throughout the anticipated range of flight conditions up to Mach

numbers of about 1.3 and yaw angles around 60°. At large Mach

numbers and yaw angles, however, the artificial viscosity in the

difference scheme causes the shock waves to become smeared.

The configuration is illustrated in Figure 1. To simplify

the coordinate transformations the leading edge is assumed to be

straight. The sheared parabolic coordinates described in

Chapter I, Section 4, are then introduced in planes normal to the

leading edge. The input parameters XSING and YSING determine

the location of the singular line about which the square root

transformation is made (see the Glossary, Section 4). It is

important to choose these so that the unfolded profile does not

have any sharp bumps. The mapped coordinates are printed so that

this can be checked. The section can be varied in an arbitrary

manner, and the planform can be tapered as desired by varying

the location of the trailing edge. The trailing edge defined by

the input is actually replaced by a piecewise straight line through

the nearest mesh points in the computational lattice.

The geometry is defined by giving the cross section at succes-

sive span stations from the leading to the trailing tip of the

yawed wing. Each section is defined by scaling and rotating a

prescribed profile. The profile is given by a table of x>y coordi-

nates. If the wing sections are all similar only the profile for

the first span station is needed as input. The coordinates for the

other stations are obtained by scaling the original profile to the

 193

flow direction
at infinity

vortex sheet

Figure 1. Configuration showing coordinate system relative to the

body, with yaw angle introduced by rotating the flow at
infinity.
 194

ptoper chord, and rotating it to obtain the appropriate twist. If,

on the other hand, the sections are not similar, the program permits

Profiles to be read in at each span station. The wing section

between stations is generated by interpolation.

Another version of the program exists which allows for a

curved leading edge. The parabolic coordinates are then introduced

in planes parallel to the free stream, which leads to a skewed

coordinate system. The resulting extra terms in the equations

cause the computer time to be increased by about 30%. This version

of the program has the advantage that it could be adapted to treat

a swept back wing on a wall by the inclusion of a symmetry plane

at the center line.

The difference scheme and iterative procedure conform closely

to the description in Chapter I, Section 3. They are implemented

as a line relaxation procedure in the x,y coordinate planes. These

are updated in succession starting from the upstream side when the

wing' is yawed. In order to sweep in the general direction of the

flow each x,y plane is divided into three strips. Then horizontal

lines are relaxed in the middle strip, marching towards the body,

and vertical lines are relaxed in each outer strip, marching out-

wards. The width of the center strip is determined by the para-

meter STRIP (see the Glossary, Section 4). Fastest convergence is

usually obtained by using horizontal relaxation over the entire

plane.
Normally calculations are first performed on a coarse mesh,

and then on a fine mesh with twice as many intervals in each coordi-

nate direction. The coarse mesh result is interpolated to provide

the starting guess for the fine mesh. This procedure greatly

reduces the computer time required for a fine mesh solution. Using
 195

the CDC 6600 it takes one second to sweep through about 4500 mesh

points. The time for one iteration cycle on a mesh with 72*12x16

points is three seconds. A run usually consists of 200 cycles on

such a coarse mesh, followed by 100 cycles on a fine mesh with

144x24x32 points. The total running time is about one hour.

The main input to the program is on Tape 5 and output is on

Tape 6. Tapes 1, 2 and 3 are disc files used for internal storage

in order to reduce the requirements for high speed memory. Tape 4

is a permanent storage device such as a magnetic tape on which

intermediate results can be stored. The computation can be

restarted and continued for more iterations using the data on

Tape 4 as the new starting values. The disc instructions are

specialized to the CDC 6600 using the PTN compiler. A version of

the code which does not use disc storage is also available. This

version should be readily adaptable to other computers, but

requires a large amount of high speed memory.

The input data deck for a run is arranged to include title

cards listing, the required data items. The complete set of title

cards provides a list of all the data which must be supplied, and

can be used as a guide in setting up the data deck. Each title

card is followed [Link] or more cards supplying the numerical

values for the parameters listed. The input parameters are given

in the Glossary, Section 4, in the order of their appearance on the

data cards. All data items are read in as floating point numbers

in fields of 10 columns, and values representing integer parameters

are converted inside the program. The data deck for Airfoil

79-03-12 is shown in Table 1.

The output [Link] printout and Calcomp plots. For conven-

ience the section profile is printed at the first span station so

that the input profile can be checked. If all the sections are
 196

similar only the chord and twist angle are printed at the remaining

stations. If the sections are different the corresponding input

profiles will be printed. The program next prints the mapped

coordinates of the section at the wing center line, generated at the

mesh points of the computational lattice. Parameters such as mesh

size, Mach number, angle of yaw and angle of attack are also print-

ed so that the case can easily be identified. Then for each itera-

tion the program prints the iteration number, the maximum correction

to the velocity potential and the maximum residual in satisfying

the flow equation together with the coordinates of the points where

these occur in the computational lattice, the circulation at the

center section, the relaxation factors Rel Fct 1, Rel Fct 2 and

Rel Fct 3 (see Glossary, Section 4), and the number of supersonic

points.

After a maximum number of cycles has been completed or a

convergence criterion has been satisfied the section lift, drag and

moment coefficients are printed for each span station, starting

with the leading tip; if desired, the section pressure distributions

are also plotted. Finally: the characteristics of the complete

wing are printed. These include the coefficients of lift, form

drag, friction drag and total drag, the ratios of lift to form drag
and lift to total drag, and the pitching, rolling and yawing

moments. In addition, charts are printed showing the Mach numbers

at points in planes containing the upper and lower surfaces of the

wing. A Calcomp plot is generated to show a view of the complete

wing and the pressure distributions over the upper and lower sur-

faces separately, with the leading tip at the bottom of the picture.

If the mesh is to be refined the program then repeats the same

sequence of calculations and output on the new mesh.

 197

4. Glossary and Table for Program J

Glossary of Input Parameters
The parameters are listed in the order of their occurrence on
the data title cards (see Table 1).
TITLE CARD 1

NX The number of mesh cells in the direction of

the chord used at the start of the calcula-
tion. NX = 0 causes termination of the
program.

NY The number of mesh cells in the direction

normal to the chord and span.
NZ The number of mesh cells in the span
direction.
FPLOT Controls the generation of Calcomp plots.
FPLOT = 0. for no plots.
FPLOT = 1. for a three dimensional plot of
the surface pressure distribution.
FPLOT = 2. for a three dimensional plot and
individual plots at each span station.
FCONT Indicator which tells the manner of starting
.the program.
FCONT = 0. indicates the calculation begins
at iteration zero.
FCONT = 1. indicates the computation is to be
continued from a previous calculation. In
this case the values of the velocity poten-
tial and the circulation are read from a
magnetic tape where they were previously
stored (Tape 4). It is still necessary to
provide the complete data deck to redefine
the geometry. The count of the iteration
cycles is continued from the final count of
the previous calculation so that the number
of cycles NRELAX consists of the count of the
previous calculation plus the number of
iterations to be continued.
TITLE CARD 2

NRELAX The maximum number of iteration cycles which

will be computed.
RELAX TOL The desired accuracy. If the maximum correc-
tion is less than RELAX TOL the calculation
terminates or proceeds to a finer mesh,
otherwise the number of cycles set by NRELAX
are completed.
REL FCT 1 The subsonic relaxation factor for the veloci-
ty potential. It is between 1. and 2. and
should be increased towards 2. as the mesh
 198

is refined.
REL FCT 2 The supersonic relaxation factor for the
velocity potential. It is not greater than 1.
and is normally set to 1.
REL FCT 3 The relaxation factor for the circulation.
It is usually set to 1., but can be increased.
BETA The damping parameter controlling the amount
of added <(> (see Chapter I, Section 3) .
It is normally set between 0. and 0.25.
STRIP Determines the split between horizontal and
vertical line relaxation and is the propor-
tion of the total mesh in which horizontal
line relaxation is used. Fastest convergence
is usually obtained by setting STRIP = 1.,
where horizontal line relaxation is used for
the entire mesh. If convergence difficulties
are encountered STRIP may be reduced to some
fraction between 0. and 1.
FHALF Determines whether the mesh will be refined.
FHALF = 0.: The computation terminates after
completing the prescribed number of iteration
cycles or after convergence for the input mesh
size.
FHALF 7* 0.: The mesh spacing will be halved
after NRELAX cycles have been run on the crude
mesh size. An additional data card must be
provided for the refined mesh giving the
numerical values requested by Title Card 2.
If FHALF < 0 the interpolated potential will
be smoothed |FHALF| times.
TITLE CARD 3 (Aerodynamic Parameters)
FMACH The free stream Mach number.

YAW The yaw angle of the wing in degrees.

ALPHA The angle of attack in degrees. When the wing
is yawed, ALPHA is measured in the plane
normal to the leading edge, not in the free
stream direction.
CDO The estimated parasite drag due to skin fric-
tion and separation. It is added to the
pressure drag (sum of vortex drag plus wave
drag) calculated by the program to give the
total drag.
TITLE CARD 4
NC The number of span stations at which the wing
section is defined on subsequent data cards
from leading tip (smallest value of z) to
trailing tip. If NC < 2 it is assumed that
the wing geometry is the same as for the last
 199

case calculated and the computation for new

values of FMACH, YAW, ALPHA and CDO begins
without any further data items being read.
TITLE (The Geometry at the First Span Station)
Z Span location of the section.
CHORD The local chord value by which the profile
coordinates are scaled.
THICK Modifies, the section thickness. The Y
coordinates are multiplied by THICK.
ALPHA The angle through which the section is rotated
to introduce twist. This angle, is measured
normal to the leading edge, not in the direc-
tion of the free stream.
NEWSEC Indicates whether or not the geometry for a
new profile is supplied.
NEWSEC = 0. : The section is obtained by scal-
ing the profile used at the previous span
section according to the parameters CHORD,
THICK, ALPHA. No further cards are read for
this span station, and the next card should be
the title card for the next span station,
if any.
NEWSEC = 1.: The coordinates for a new profile
are read from the data cards which follow.
TITLE CARD 6 (Profile Geometry Supplied if NEWSEC = 1.)
ISYM Indicates the type of profile.
ISYM = 0. denotes a cambered profile.
Coordinates are supplied for upper and lower
surfaces, each ordered from nose to tail with
the leading edge included in both surfaces.
ISYM = 1. denotes a symmetric profile. A
table of coordinates is read for the upper
surface only.
NU The number of upper surface coordinates.
NL The number of lower surface coordinates.
For ISYM = 1-, NL = NU even though no lower
surface coordinates are given.
TITLE CARD 7 (Additional Profile Geometry Supplied
if NEWSEC = 1.)
TE ANGLE The included angle at the trailing edge in
degrees. The profile may be open, in which
case it is the difference in angle between
the upper and lower surfaces.
TE SLOPE The slope of the mean camber line at the
trailing edge. This is used to continue the
coordinate surface, assumed to contain the
 200

vortex sheet, smoothly off the trailing edge.

For heavily aft loaded airfoils, the lift is
sensitive to the value of this parameter,
which should be adjusted by comparing two
dimensional calculations using parabolic
coordinates with two dimensional calculations
in the circle plane.

XSING, YSING The coordinates of the singular point inside

the nose about which the square root transfor-
mation is applied to generate parabolic coordi-
nates. This point should be located as
symmetrically as possible between the upper
and lower surfaces at a distance from the nose
roughly proportional to the leading edge
radius. It can be seen whether the location
has been correctly chosen by inspecting the
coordinates of the mapped profile printed in
the output. If the mapped profile has a bump
at the center, the singular point should be
moved closer to the leading edge. If the
mapped profile is not symmetric near the
center, with a step increase in y, say, as x
increases through 0, the singular point
should be moved closer to the upper surface.
The coordinates of the singular point are
chosen relative to the profile coordinates
supplied on the cards which follow.

TITLE CARD 8 (Upper Surface Coordinates)

X,Y The coordinates of the upper surface. These

are read on the data cards which follow, one
pair of coordinates per card in the first two
fields of 10, from leading to trailing edge
inclusive.

TITLE CARD 9 (Lower Surface Coordinates, Read if ISYM = 0.)

X,Y The coordinates of the lower surface, read

from leading edge to trailing edge. The lead-
ing edge point is the same as the upper
surface leading edge point. The trailing edge
point may be different if the profile has an
open tail.

TITLE CARDS 10,11, (Geometry at the Other Span Stations)

These title cards are the same as Title Card 5

(geometry for the first span station). The
number of such cards depends on the number of
input span stations NC. If the profiles are
similar at each station except for scaling,
thickness chord ratio and rotation to intro-
duce twist, NEWSEC = 0. and no new profile
coordinates are needed.
 201

' ^^^ Cols. 11-20

1-10 21-30 31-40 41-50 51-60 61-70 71-80
Title Cara-*-^
79-03-12 Section AS. = 6.0 Twist 2 Deg
(Columns 1-48 Copied on CALCOMP Plots)
1 NX NY NZ FPLOT FCONT

72. 12. 16. 1. 0.

•RELAX REL REL REL
2 NRELAX BETA STRIP FHALF
TOL FCT 1 FCT 2 FCT 3
200. l.E-6 1.6 1. 1. .05 1. 1.

100. l.E-6 1.75 1. 1. .05 1. 0.

3 FMACH YAW ALPHA CDO

.830 15. 1.2 .010

4 NC

4.

5 Z CHORD THICK ALPHA NEWSEC

-270. 60. 1. 1.0 1.

6 ISYM NU NL

0. 82. 80.
TE TE
7 XSING YSING
ANGLE SLOPE
0. -.047 .0085 .0164

8 X Y (Upper Surface Coordinates Nose to Tail)

1.

NU
9 X Y (Lower Surface Coordinates Nose to Tail)
1.

NL
10 Z CHORD THICK ALPHA NEWSEC

-135.0 100. 1. 0.33 0.

11 Z CHORD THICK ALPHA NEWSEC

135.0 100. 1. -0.33 0.

12 Z CHORD THICK ALPHA NEWSEC

270.0 60. 1. -1.0 0.

Table 1. Data Deck for Three Dimensional Program.

 202

LISTING OF THE BOUNDARY LATER ANALYSIS PROGRAM H 06/06/7*

PROGRAM HjINPUT = 66, OUTPUT = 500.TAPE3 = 500, TAPE* = *00,TAPEZ =

IOUTPUT, TAPES *• INPUT)
C0.1MON P H I ( 1 6 2 , 3 1 ) , F P ( 1 6 2 « 3 l ) , A ( 3 1 ) , B ( 3 1 ) , C ( 3 1 ) , D < 3 1 ) , E < 3 1 )
1 ,RP(31),RPP<31),R<31),RS(3i),Rl<31),ftA<l62),BB(lb2),CO<162>
2 , S l ( l b Z ) , P H I R ( 1 6 2 ) , X C ( 1 6 2 ) , Y C ( 1 6 2 ) ,F«I(162) , A R C L U 6 2 ) , DSU«( 162)
3 , A N G O L U J 1 6 2 ) , X O L O ( 1 6 2 ) , Y O L D ( 1 6 2 ) , A R C O L O ( 1 6 2 ) , UELOLO( 162 )
COM10IY /A/ P I « T P , R A O , E « I « A L P , R N » P C H « X P , T C , C H D , D P H I , C L , I \ C L « Y R
1 ,XA,YA»TE,OT,OR,DELTH,OELR,RA»OCN,OSN,RAIHEPSIL,QCRIT,C1,C2
2 ,C*,C5»C6tC7»BET»3£rA,FSYM,XS£P,S£PI*[Link]('»)»ll,Ntfl«,NN,NSP
3 ,IK,jK,IZ,ITYP l nOOE,IS,NFC,NCY,NRN,N6,IOIH,N2,N3,N | f,NT,IXX
H , [Link],* 1 *
DIMENSION C O H C ( 6 8 ) , C L A ( 2 ) ,NAnEKR(6)
EQUIVALENCE (COhC( I ) ,PI > , <Ci_X,Ci_A< 1) ) . ( ALPX,CLA(2»
LSTER9 IS THE SU3ROUTIME TO PROCESS A NAMELIST ERROR
EXTERMAL LSTERR

/P/ ALP,BETA»3CP»CL,E«,FSY«,SANMA,IS,ITYP, IZ,KP,LL,LSEP,

1 M«M»NFC«NPTS,NRM,NS,NS1,PCH«R3CP,«CL,ROEL,RFLO,RN,SEPM,ST,
2 [Link]
DATA [Link]/1.1/ , ST/0./ , XHON/.95/ i RBCP/,10/ , RFLO/1.*/ ,
1 ROEL/,125/ , BCP/.H/ , NS1/20/ , NS/l/ , KP/1/
DATA US/5/ , NAME«*/6*0/ , 01,U2,SL/3«0,/ , CPl/.<»/ .XPF/1./
THESE TWO CARDS TRANSMIT TO THE^ SYSTEM THE RECOVERY ADDRESS
NA*CRR<9) = LOCF(LSTERR)
CALL SYSTEMC(66,NA1ERR)
«if = Nf
REWIND Nit
WRITE (N2,160)
READ (N&,P)
IF ([Link].100.) HODE = 0
IF <IZ«6E.80) N4 = N2
IF ([Link].O) GO TO 30
SET UP CONSTANTS AMD DO CONFORMAL MAPPING
CALL RESTRT
CLX = CL
ALPX= RAQ*ALP
GO TO 1*0
10 WRITE (N2.160)
ALP = 100.
CL = 100.
****NON-ANSI***»
READ (N&,P)
SELECT OUTPUT TAPE
N* = ,«lf
IF ([Link]) Nif = N2
C2 = .5*{GAMMA-1.)
C7 = GA«HA/(GA,1HA-1. )
IF (ALP. EO. 100.) GO TO 20
ALP HAS BEEN INPUTTED, KEEP, IT FIXED
NCY = 0
MODE = 1
ALPX = ALP
20 ALP = ALPX/RAO
 203

IF ([Link].100.) 60 TO Z5
CL HAS SEEN INPUTTED, KEEP IT FIXED
NCr a 0
MODE = 0
YA = ,5*CL/CHD-OPHI
00 11» L = 1,M
00 Itif J = ItNN
PHIIL.J) = PHI<L,J>+YA*PHJR<D
DPMI = .5*CL/CHD
CLX = CL
2S CU = CLX
c CHANGE PARAMETERS WHICH DEPEND ON THE MACH NUMBER
EM = AMAXl(EM,.lE-«tO)
IF ([Link]) NCY = 0
Cl = C2+1./(£M *£M )
C6 = C2»EM *£«
CU = 1.+C6
C5 = l./(C6*C7)
aCRIT = (Cl+Cl)/(6Afl«tt+l.»
BET = SQRTd.-EH *EM )-l,
C CHECK FOR TERMINATE,RETRItVE, OR STORe INSTRUCTIONS
C IK HILL 3E -1 ONLY IF THEKE IS A NAMEuIST £RROK
IF (([Link].O).OR.([Link].-D) 60 TO I/O
CALL COSI
IF ([Link].O) 60 TO «fO
REWIND N3
IF (ITYP.6T.O) GO TO 30
WRITE(NS) COMC,[Link],3B,ARCOLa,ANSOLn«[Link],D£LOLD,R,[Link]
I ,OSUM,6AMMA,XI«ION,RBCP,RFLO t ROEL,8CPiMSl,KPiST
GO TO 140
30 ftEAO (M3) COnC«PHI«AA«3dtARCOL^«ANGOLO«XOL^fYOLO,0£LOLO,R,RS,RI
1 ,DSUH»SAMMA,XflOM,rlBCP,RFLO,ROeLi8CPi,MSl,KP»ST
CALL HAP
60 TO ItO
ifO C O N T I N U E .
IF ( N S . 6 T . O ) GO TO 70
NS = 0
C 60 TO CRUDE GRID IF [Link].O
IF [Link].O) CALL RE*IESH(-1)
60 TO ItO
70 IF ([Link].O) 60 TO 100
C (JO BACK TO FINER GRID
CALL 3EMESHU)
60 TO 1*0
100 XPHII = 0.
IF < [Link].O.) XPHII = 2t«CHD/RCL
XA = 1.-3./RFLO
ANSO = -RAO*BB(1)
TXT = 3H CL
IF («OD£.E3.0) TXT = 3HALP
C NO BOUNOARY LAYER CORRECTIONS ARE MADE FOR [Link].O.
IF ([Link].O.) MSI = 1000000
IXX = «+2
80 IXX = IXX-1
IF (XC(lXX-l).[Link]) GO TO 80
 204

LC = 0
00 AT .10ST NS CYCLES
00 120 K = 1,NS
IF (HOO(LC«56) .NIE.O) 60 TO 105 •
WRITE (N2.210) TXT
LC a LC+1
105 CALL SW&EP
KEEP TRACK OF TOTAL NUMBER OF CYCLES
NCY = NCY + 1
ALPX = KAD*ALP
CLX= 2t*OPHI*CHD
YA = YA*XPHII
WRITE RESIDUALS ON N2 EVERY KP CYCLES
IF (MOOtK,KP).NE.O) 60 TO 110
LC = LC + 1
WRITE (N2,190> N C l f t Y R , Y A « 0 1 « 0 2 « I K , J K » N S P » C L A ( 2 - M O O £ ) t A N 6 0 » C P 1 t
1 3CP,SL
00 A 30UNORY LAYER CORRECTION tVERY Nsl CYCLES
ItO IF (MOO<K,NS1).NE.O) GO TO 125
IF ([Link]) GO TO 140
WRITE (N2.190)
LC = LC+1
FSYfl = b.
CALL GrUR8<Ol,[Link],fieCP)
AN60 = -RAO*BBU)
IF ([Link].o) OPHI = .5*tLX/CHO
CHECK TO SEE IF HE HAVE SATISFIED CONVERGENCE CRITERIA
185 IF (AflAXKASSl YK) «ABS( YA) [Link]) SO TO 140
120 CONTINUfc.
1<*0 ITYP = IA8SJITYP)
CL = CLX
LN a: RiM*l.E-6+.5
XPF = XPF*AMINO(l,IABS(Hi»-N'»))
XP = XP*XPF
CALL SECONOITI1E)
MTPE = HH
TXT = 3HALP
IF ([Link].O) TXT = 3H CL
150 WRITE (NTPE.200) E«ltTXT,CLA(MOOE-H) ,[Link],NS,TI«E,RFLO,RCL»ROELt
1 [Link]»ST,PCHiSEP«,XStP,NPTS,IS,LLiI2
IF ([Link]) GO TO 160
NTPE = N2
GO TO ISO
160 IF ([Link].2) CALL GTORB(01,02,CPlfBcP»SL«RDEL,RBCP)
EMX = EM
ITYP=1
tiO TO 10
170 ITYP = 4
IF ([Link].-l) WRITE (N^,220)
CALL 5TURB<Oi,02,CPl«BCPiSL,ROEL,RBCP)
TERMINATE PLOT
CALL PLOT(0.,0.t999)
CALL EXIT
180 FORMAT <7H READ P/>
190 FORMAT ( 5Xi It,<»E12.3, If, 13,16.2F10.
 205

200 FORMAT UHOeM=Ft.3,3XA3,1H=F5.213X3HR^=I2,2HE6«3X<*HI1«N=, I3t 1H*. 12,

1 3X3HNS=I<t»3X5HTIM£=F7.2/6H RFuO=Fif ,2.3X.«»HRCL=F<t.2t 3X5HROEL=Fi>.3
2 ,3X5HRBCP=F3.2,3X5HBETA=Ff.2t3X3HST=.E7.1/ 5H PCH=F»,2,
3 3X5HSEp*=F5.<»t3X5HXSEP=F<».2i3X5HNPTs=I3,3X3HlS=I2.3X3HI.L=I3.
H 3X3HIZ=I3//>
210 FORMATUHl5X3H!MCY6X<tHOPHI8X3HDCL,8X, MODEL. 8X,HHOBCPtSX,2HIK,
1 2X,2HJK,2X3HNSP,5XA4,5X<»HANGO«8X3HCPT.eX3HBCP«8X2HSL/)
220 FORMAT <21HO***NAMELIST EKROR***,10X,pOHPROGRAH TO TERMINATE )
ENO

SUBROUTINE LSTERR
COM10.M /A/
IK = -i

CMO

SUdROUriNE RESTRT
CO*1*IO^ PHI(lb2«31)tFP(162*31)tA(31)tBr3I),C(31)«0(31)te(3l)
1 ,RP(31),KPP(31),R(31),RS(31),KI(31),aA(162),Bb(162),CO(162)
2 •SI(162),PHIR(162).XC(162),YC(162)«Fv|(lb2).ARCL(162)iOSUH(1
3 ,AMGOLO(lt2).XOLO(1&2),YOLD(162).ARCnLt) <162),UELOuU(162)
COMMOM /AX [Link],RAOt£«[Link],RN«[Link]
1 ,XA,[Link],OELTH«OEL.K,RA»[Link]»RA'»[Link],C2
2 ,Ci».C5«C6»C7«3ET,3£TAtFSY»l,XSfc:H,SEP|«1. rTLE(«f)
3 ,XK.J<«[Link].I 1 10DE,IStNFCtNCT t N«N,N
<* , [Link],.1H
SET UP CONSTANTS
TP = PI+PI
RAO = 180./PI
AUP = ALP/RAO
IF ( dM + 1) .[Link]. («•*•!).[Link]) NCT = 0
MM = .1 + 1
IF (LL.E8.0) LU = V2 + 1
NM = IM + 1
OR = -l./FLOATIN)
OT = TPXFLOATlM)
OCiM = COS(OT)
OS.M = SIM(OT)
OEUR = .5/OK
OEUTH = .5/OT
RA = OT/OR
RA4 = 01*OT
00 10 « = ItN
«(K) = l.+OR*FLOAT(K-l)
RS(K) = (RA*R(K))*(RA*3(K))
RI(K) = -,25*DT/R«)
10 CONTINUE
R(MN) = 0.
SET = SQRT(1.-EM*E"!> -1.
 206

00 MAPPING
CALL AZRFOL
IF ([Link].1) CL = 8.*PI*CHO*SI(l)/(i.+BET)
OPHI = ,5*CL/CHO
SELECT NT OF THE Ml MAPPEU COOKDINATEs
MA = MM/3
MB = <W-2*((HA+l)/2)
IF(([Link]).OR. ([Link].O. ) ) JK = -1
J=l
DO 40 L = [Link]
OELOLO(L) = 0.
OSUfl(J) = 0.
ARCOLD(L)=ARCL(J)
IF< [Link]»l) GO TO 70
[Link] ) . O R . < J . G E . M 8 ) ) J=J+1
O S U M ( J ) = 0.
J=J*1
i»0 COMTINUE
70 NT = L
WRITE (Nif.100) NT
ioo FORMAT (iHO,m,i»5H POINTS WILL BL usep TO oEFiNt INNEK AIRFOIL )
CALL SPLIF(MMtflRCL,XC,PHI(1.3).PHKl.R)«PHI(1.7),3.0.«3.0.)
CALL [Link], XOLO,ftRCL,XC,PnI(1.3),PHI (1, b) , PHI ( 1, 7))
CALL SPLIF(MM,[Link],PriI(l,3)«PHI(li5)«PHI(1«7).3.0..3.U. )
CALL I^[Link], YOLU,ARCL,[Link]!(1,3).PHI(1,5)«PHI(1,7))
CALL SPLlF([Link](lf3)»PHI(l.s>«PHI(1.7).3.0.,3fO.)
CALL [Link]([Link],A.>JGOLO,ARCL,FM,PHl(l,3),PMI(l,5).PHI(l,7»
DO 60 L = l.M
DO 50 J = [Link]
50 PHKL.J) = H(j)*co(D*-oPHi»pHiK(L)
60 CONTINUE
FSfM = FSYM-12.
IS = 2
RETURN
CNO

COSI
SET THE SINES, COSINES, AND THE TERM AT INFINITY
COMMON PHI(162«31>,FP(162«31),A(31), 8(31), C(31>, 0(31), E(3t)
1 , RP(31),RPP(31) ,R(31),RS(3l),rtn31),aA(162).Bb(162),Co(168)
2 , SI (162) ,PHIR(162) .XC(162) ,YC(1&2) ,Fv|( 162 ) , ARCH 162) »OSUM(162)
3 , ANGOLO<162) ,XOLO<162) .YOLOUfa2) . ARCnLD(162) , DELOLL)( X62 )
COMMON /A/ Pl,TP,RAD,EMiALP,RNtPCH,[Link],CHD,OPHI,CL,KCL,YK

2
3 , [Link] IZ«ITYP, MOOE«ISiNFC,NCr,NRlM»NS»IOlM«N2»N3»N'»,NT,IXX
<* , NPTS,LL,I,LSEP,fl4
TPI = 1,/TP
ANS = ALP4-8B(1)
SN = SIN(ftMS)
CN = SQ«T (l.
00 10 L = liM
 207

com = CN
SKL) = SM
PHIR(L) =<ANG+ATAN((BET*SN*CN)/(l.+BET*SN*SN)))*TPI
CN = CN*OCN-SN*OSN
SN = CO(L)*OSN+SN*OCN
ANG = ANG+OT
10 CONTINUE
CO(MH) = CM
CO(MH+l) = C0(2>
SI(PlM) = SN
SHrtM + lJ = SI(2)
RETURN
ENO

SUBROUTINE SWEEP
SWEEP THROUGH THE GRID ONt TIME
C01KON PHK162»31),FP(162»31),A(31),Bj31),C(31)tD<31),E<31)
1 , KP(31) , RPPOD ,R(31) ,RS131),rtl<31),aA<162) ,BB( 162),CO(162)
2 , SI (162), PHI R( 162) , XC(162) , YC(162) «F,v<(162) . ARCL (1&2) i OSUMl 162)
62) ,XOLO(162) ,YOLD(162) ,ARCol-0(l&2) ,OELOLL)(162)
/A/ Pi;[Link]»£1«ALP,RN»[Link]«CHDiDPHl f i;UtKCL»YR
1 , XA, [Link]«DT,OK,OE:LTH,OeLH,RfltUCM,[Link].t;pSXL,QCrtir,Cl,C;2
2 ,C<ttC5«C6«C7.B£T.3tTA«FSY."l,XSt.P,StP«.TTLE('H [Link]
3 ,IK,JK,IZ,ITVP»HOOE,[Link],NRN,Ns.IOIMtN2tN3,N4 t NT,IXX
4 t [Link],."!'*
YR = Oi
NSP = 0
00 10 J = 1«NN
PHI(M*I.J) = PHKli J)+OPHI
PHKMVI+ltJ) = PHI(2,J)*OPHI
E(J) = 0.
10 RPP(J) = 0.
SWEEP THROUGH THE GRID FRO* NOSE TO TfllL ON UPPEK SURFACE
TE = -2.
00 30 I = [Link]
CALL
00 30 J
30 PHUI-ltJ) = PHKI-ltJ)-RP(J)
UPDATE PHI AT THE TAIL FROM UPPER SURFACE
00 50 J = liN
PHI<H«I»*J) = PHKHMtJ)-E(J)
E(J) = 0.
RPP(J) = 0.
50 PHIU.J) = PHI(MH.J)-OPHI
SWEEP THROUGH THE GRID FROfl NOSE TO T a IL ON LOWER SURFACE
TE = 2.
1 = LL
80 I = 1-1
CALL flURciAN
00 60 J = 1<N
60 PHI(I+liJ) = PHI(I*lfJ)-RP(J)
IF ([Link].a) 60 TO 80
 208

00 70 J = l.N
70 PHK2.J) = PHI(2,J)-E<J)
ADJUST CIRCULATION TO SATISFY THE KUTrA COMOITION
IF (RCL .Ed.O.) 50 TO 90
YA = RCL*<<HHI(«,l)-tPHl(2,l)+OPHI))*o£.LTH+Sl(l))
IF (MOJfc.E».l) GO TO 90
ALP = ALP-.b*YA
CALL COSI
60 TO 9b
90 YA = TP*YA/<1.+BET)
OPHI = UPHl+YA
9S 00 97 L = lt«
9? PHI([Link]) = OPHl*PHIR(L)
IF([Link].O) RETURN
00 100 J = l.N
00 100 L = 1,«
100 PHI(LtJ) = PHICL, J)+YA*PHIrUL)
RETURN
ENO

SUdROUTINE HURilAN
c SET UP COEFFICIENT ARRAYS FOR THE TRIQIAGONAL SYSTEM USED FOR LINE
C RELAXATION AND COMPUTE THt UPOATEO PHT ON THIS LINE
1 ,HP(31) ,RPP(31),R(31),RS(31),KI(31),aA<162) ,Bb(162>,(-0(162)
2 .SI(l62),PHIK(162) iXC(162) • YC ( 162 ) t F«| ( 162 ) . ARCH Ib2) tOSUM
i> tAMGOLU(!62) , XOLD < 162 > , YOLD(lb2 > , ARCnLO ( 1 &2 > , OELOLL) ( 162 >
CO^HOM /A/ Pl,[Link]«[Link],[Link],KCLtYR
1 ,XAtYAtTE<OT,OK,L)ELTHtOEL.-<iRA«lJCNtUS.M«RAl»«EPSlL<QCKir,CltC2
2 , C < f , c 5 t C 6 « C 7 « B E T « 3 E T A . F S Y , < 1 , x S E P , S E P n . T T L E ( < f ) .[Link] NSP
3 , I K , J r < « I Z » I T Y P . « O O E i I S » N F C . N C T t N R N , N B , IDIMt [Link] t N T « IXX
"* • [Link]
DO THE BOUNUARY
E(NN) = 0.
FAC = -,b*TE
IH = 1-1
IF ( F A C . L T . O . ) I* = 1+1
KK = 0
PHIO = P H I ( I , 2 ) - 2 . * O R * C O ( I )
PHlYP= P H I < I i 2 ) - P H K I t l )
PHIYY = PHIYP+PHIO-PHKI,!)
PHIXX = PHl(I + lil)+PHI(I-lil)-PHI(I«U-PH
PHIXM = PHKItltD-PHKI-lfl)
PHIXP = PHKI + lf 2 ) - P H I ( I - l t 2 )
CHECK FOR THE TAIL POIMT
IF (I..ME..1M) SO TO 10
= (Cl+Cl)*RS(l>
= -C(U+XA*C1-C1
0(1) = C l « ( P H I X X * R S t l ) * P H I Y Y - l - R A i » * C O ( I ) - E ( l ) )
SO TO <»0
10 U = PHIXVUDELTH-SIU)
BQ = J/FP(I«1)
 209

QS = U*BO
CS = C1-C2*QS
BQ s BQ*QS*(FP(I-1»1)-FP(I+1,1»
X = RAt*(CS+QS)*CO(I)
C(l) = »CS+CS)«RSU)
0(1) = CS*RS(1)*PHIYY+RI(1)*BO+X
CMOS = CS-QS
PHIXT = 8ETA*ABS(U)+ABS(C«QS)
IF ([Link]) GO TO 30
FLOW IS SUPERSONIC, BACKWARD DIFFERENCES
KK = 1
PHIXT = PHIXT-CMQS
PHIXX* = RPP(l)
AU) = -<C(1)+PHIXT)
0(1) = Om+CMOS*PHIXX1-PHIXT*E<l)
GO TO 40
FLOW SJBCRITICAL, CENTRAL DIFFERENCES
30 Ad) = XA*CMQS -CU>-PHIXT
0(1) = D(1)+CM9S*PHIXX-PHIXT*E(1)
00 NON-bOuNOARr POINTS
*0 RPP(l) = PHIXX
DO 60 J = 2,N
PHIXX = PHHI+liJ)+PHI(I-l,J)-PHI(I,Jt-PHI(I,J)
OU = PHIXP
PHIXP = PHI(I+1,J+1)-PHI(I-1,J-H)
PHIXY = PHIXP"PHIX1*(E(J*-1)-E<J-1»*FAC
PHIXM = OU
OU = OU*OELTH
PHIYYI"! = PHIYY
PHIYM = PHIYP
PHIYP = PHI(I«J+1)-PHI(I,J)
PHIYY = PHIYP-PHIY.I
U = R(J)*DU-SI(I)
OV = R(J»*(PHI(I,J+1)-PHI(I, J-1))*OELR
V = OV*«(J)-CO(I)
RAV = R(J)*RA*V
BQ = l./FPd.J)
BQU = aa*u
US = 88U*u
UV = ([Link])«V
VS = 33»V*V
OS = US+VS
CS = C1-C2*QS
CMV/S = CS-VS
CMJS = CS-US
PHIXT = BETA*ABS(U)
PHIYT = BETA*A3S(RAV)
COMPUTE CONTRIBUTION OF RIGHT-rtANO SIQE FROM LOW OROEK TERMS
0( J) =RA<t*<

UV = .5*8QU*RAV
IF ( Q S . L E . Q C R I T ) GO TO 50
SUPERSONIC FLOW, USE B A C K W A R D OIFFEREistClNG
KK = KK+1
CMQS = CS-QS
 210

FQ = l./OS
AUU = US*FQ
BUJ = rtS(J)*AUU
SW = VS*FQ
AW = RS(J)*BW
BUV = JV*FS
AUV = 39U*A8S(RAV)*FO*TE
PHINN = BVV*PHlXX-BUV*PHIXY4-BUU*PHIYr
B(J) = CS*BUU
PHIXT = PHIXT-CMQSKAUU+AUU-AUV) +CS*qVV
PHIYT = PHITT -CMQS*(At/V+AVV-AUtf)
C(J) = 8(J)+PHIYT
PHIXXd = «PP{J)
IF ([Link].o) GO TO US
PHIYYI"! = PHI(I.J + 2)-PHI(ItJ+l>-PHlYP
PHIXY1 = PHIYP+PHKIM.J)-PNl(If1iJ*l)
60 TO f6
i|5 PHIXYW = PHI(I«,J)-PHUI«tJ-l)-PHIYH
89 = 8(J)
B(J) = C(J)
C ( J ) = bQ
if6 PHISS = AUU*PHlXXM*AU»/*PHJXYMtAW*PHIrYM
A ( J ) = -O< J)+C{J)*PHIXT)
D ( J ) = D(J)+C«aS*PHISS4-CS*PHINN-E(J)*pHIXT
GO TO 60
SUBSONIC FLOW, USE CENTRAL DIFFERENCES
50 C(J) = RStJ)*C«VS
B(J) = C(J)*PHIYT
PHIXT = PHIXT+CMUS
A(J) = XA*C«US-8(J)-C(J)-PH!Xr
0(J) = U(J)+CMUS*PHlXX-Utf*PHIXY+C<J)*PHIYY-PHIXT*E(J)
IF ( V . L T . D . ) GO TO 60
8(J) = C(J)
C(Ji = CUJ+PHIYT
60 RPP(J) = PHIXX
MSP = IMSP-fKK
SOLVE THE TRIOIAGONAL SYSTEM
CALL T«10
RETURN

SUBROUTINE TRIO
SOLVE H OIMtNSIONAL TRIDIAGONAL SYSTEM OF EQUATIONS
COMMOM PHI(lfe2t31),FP(162«31)tA(31»,B(31),C(31),D(31)tE(31)
1 ,RP(31I,RPP(31),R(31),RS(3l),KI(31>,ftA(162),B«(162),CO(16z>
2 ,SI(162),PHIR(162)«XC(162),YC<162)«FM<162>«ARCH 162)»DSUM( 162)
i> ,AIMGOLU(l62) , XOLO (162 ) , TULD (1&2 ) ,ARCoLD(162) ,OELOLO(162)
COMMON /A/ Pl,TP,RftO,[Link],RN,PCH,XP,TC,CHO,DPHI,CL,[Link]
1 ,XA, YA«TE,OT,OR,OELTH,OELK,RAtOCN,US,M«RAt>,EPSlL,QCKIT,Cl,C2
2 ,C4,C5.C6«C7,8£.T,3tTA,[Link]»l«XStP,[Link](t) ,H,N.n,1,NN,NSP
3 ,IK,J*.IZ,ITYP«. w IOO£.IS,NFCtNCY,NRN,[Link],N2«N3»N l VtNT»IXX
1
•* , [Link],."! *
 211

XX = l./AU)
RP(1) = E(l>
Ed) = XX«0(1)
00 ELIMINATION
00 10 J = 2«N
C(J-l) = C(J-1)«XX
XX s-. [Link](J>-B(J)*C(J-1))
RPtJ) = E(J)
10 E(J) = (0(J>-B(J)*E(J-1))*XX
00 BACK SUBSTITUTION
E«X = ABS(E(NM
00 20 J = 2«N
L = NM-J
E(L> = E(L»-C(L)*E(L+1)
20 EMX = AHAXl(EMX,ABS(E(L))>
FIMO THE; LOCATION OF THE MAXIMUM RESIDUAL
IF (E*[Link].A8S(YR)) KETURN
IK = I
DO 70 J = 1«N
IF (ABS(t(J)).EQ.E*IX) SO TO 74
70 CONTINUE
7* JK = J
YR = E(JK)
RETURM
END

SUBROUTINE REMESH(LSISM)
C 60 TO CKUDER GRID IF LSIGN IS -1
C SO TO FINER BRIO IF LSIGN IS +1
C01MOM PHI(162,31),FP(162.3l),A(31),B(31),C(31),0(31)<E(31)
1 ,RP(31).RPP(31),R(31),RS(31),RI(31),AA(162),BB(162),CO(162)
2 , SI (162) ,PHIR(162) • XC < 162 ) , YC < 162 ) . F"l < 162 ) , ARCLtlbi!) .DSUM(162)
4 , ANGOLO(l&2),XOLO(162),YOLU(16a),ARCoUO(lb2),UELOLL)(16i!)
COMMON /A/ [Link],RAO,E*[Link],[Link] t [Link]»CHO,OKHliCLtRCL»YR
1 , XA,YA,[Link],OK,OELTH,DELr<,[Link],DS^,KA'*,EPSlL,QCKll,Cl,C2
2 ,Cf ,C5»C6tC7»3ET!8t;TAtFSY?1,XSt;p,SEPM,TTLE(<») ,P1,NiMntNN,NSP
i , IKtJK, IZ«lTYP»«OJEiIStN(-CtNCY«NRN,N(;,IOIMtN2«N3«N<f,[Link]
1 , NPTS,[Link]£P,,1H
X = 2.**LSieN
NG = FLOAT(NG)/X+.2
H = FLOAT(«)*X +.2
M = FLOAT(N)*X*.2
LL = FtOAT(LL-l)*X*1.2
IF (LSI6N.6T.O) MM = H+l
IF ([Link].O) NN = Ntl
LSEP = FtOAT(LSEP-l)»X'H.2
PF = l./X
OELR = X*OELR
OELTH = X*0£LTH
OR = PF*OR
OT = PF*OT
OCN = COS(OT)
 212

OSN = SlN(OT)

NCY = 0
I = LSI6N
HP = MM* i
CALL PEKMUT (R,NN,1)
CALL PEKMjT ([Link].l)
DO 5 J = itN
5 ftl(J) = -,25»OT/R(J)
CAUL PERMUT (OSUM,1P,1)
00 20 L = ItNN
20 CALL PEK«L|T ( PHI < 1 . L ) , IP, 1 )
00 30 L = liMP
30 CALL PERMUT (PHI (L, 1 ) ,MN, IOIM)
m = «n-x
IF ([Link]..5) 60 TO 80
00 HO L = 1.M.2
DSU«(L*D = . 5 * ( O S U H ( L ) * D S U M ( L * 2 ) )
00 40 J = ltNM,2
40 PHKL+lfJ) = .5*(PHI(L,U)*PHI(L-t-2.J) )
00 50 J =
DO 50 L =
50 PHKLtJ+1) = .5*(PHHL(J)+PHI(L,J-»-2))
60 CALL «AP
RETURM
END

SUBROUTINE: PERHUT (AX,<JX,JX)

REORDERS POINTS WITHIN AN ARRAT
CO^MOM PHI ( 162 » 31) «FP( 162*51) t A( 31) i8( 31) tC(31) »0(31) «E( 31)
1 tRP(31) , RPP(31) ,R(31),RS(31) ,RI(31) , AA(163) ,BB(162) « Co (162)
2 , SI(162) ,PHIR( 162) , xC ( 162) , yC ( 162 ) ,F*i( 162 ) i ARCL(lb2) «OSuM( 1
3 , ANGOLD(l62) ,XOLO(162) ,YOLO(162) ,ARCoLO(l62) , UELOLD < 162 )
COMMON /A/ Pl«TPtRAOfEMtALP«[Link]»[Link] t RCLtYR
1 , XA,YA,TE«OT,OR,0£LTH,OELR,RA,[Link],RAt,EPSIL,QCKIT,Cl,C2
2 ,CttC5»C6»C7«8ET,3ETAtFSY,«l,XSEP,SEl»l»[Link](if)tn,N«i11fl,NNtNSP
3 , IK»JK,I
,
OI.1ENSION AX(1)
L = 1
JY = JX+JX
NY = 2*( (NX-l)/2)+l
NZ = 2*<MX/2)
IF([Link].O) GO TO 30
NY = JX*(MY"1)+1
NZ = JX*(NZ-1)
00 10 J = l i N Y t U Y
A(L) = AX(J)
10 L = L+l
00 20 J = [Link]
A(L> = AX(J+1)
 213

20 L = L+l
60 TO SO
30 00 10 J = 1«NY.2
A(J) = AX(U>.
HO L = L + JX
00 50 J = [Link].2
A(J) = A X < L )
50 L = L+JX
60 L = 1
00 70 J = [Link]
AXIL) = ft(U)
70 L - L+JX
RETURN
CNO

SUBROUTINE GETCP(COF)
COMPUTE [Link] AND CM 3Y INTEGRATION AND OUTPUT MACrt DIAGRAM
COMMON PHI(162.31),FP(162»31),A<31),8(31),C(31).0(31)«E(31)
1 ,RP(51),RPP(31),R(31),RS(3l),KI(31),aA(162),B8(162),CO(16?)
2 ,SI(162),PHIR(162),XC(162).YC(162)iFM(162),ARCL(162).DSUM(162)
3 ,ANGOLD(l62),XOLD(162).yOLO(l&2),ARCr)UD(162),OELOLO(162)
COMMON /A/ PI,rP«RAO.£1«ALP,RN»PCH,[Link],[Link],Cl.,[Link]
1 ( XA,rA«TE<OT,OR t OELTHiOELR,RA«OCN|OSN«RA4«EPSIL«QCRIT,Cl,C2
2 ,C"*,C5,C6«C7.3ET,3ETA,FSTV|,XSEP,[Link]('*)««.NiM.«ltNN,NSP
3 , IK, jKiIZ,ITYP,[Link]«[Link],IMRN,(g S ,IOIM,N2»N3.N<*,NT,IXX
H , [Link].I.LSEPil1*
REAL «ACH,MtMACH
COMPLEX [Link]
DIMENSION «ACHM(l)-iCPX(l)tMN(l),IHACH»21)
EQJIVALtMcE (MACHN(l)«A(1>),(CPXI1),PnIR(l)),(f1N<1)«FP(1«31))
DATA IMACH/lHQ,lHR,lHs,lHTtlHu»[Link],lHX.lHYilHZflH0.1Hl,lH2>lH3
l,lrtit,lHS,lH6,lH7flH8,lH9,lH+/
DATA TX /i*HCDF=/
MACH(O) = SQRT(Q/'(C1-C2*Q))
inC(Q) = MINO([Link].«8)-H>
CLCO = 0.
CM = Ot
IF (([Link].O.).OR.([Link])) SO TO In
DY = YOLO(NT).YOLOd)
REMINO HI*
WRITE (flt,120) [Link] NRN,nn
10 00 20 L = ItMM
CP = CPX(L>
COMPUTE CP*DZ
TMP = CP*SQRT(FP(Ltl> )*CnPLX<COS<FM<|_» .SIN(FPKL) M
SUI UP [Link], AND CM
CLCO = CLCO+TMP
CKI = C«*(XC(L)-.25)*REAL(T«P).YC<L)*AT«AG<TMP)
WRITE PUNCH OUTPUT ON flf IF XP=0 AND [Link].80
IF «[Link]>0.).OR.([Link].80» GO TO 2n
Q = MACHN(L)*SQRT(Cl/(l.+C2*MACHN(L)niACHN(L))»
V = Q*SIN(FM(L»>
 214

U = Q*COS(FM(L))
IF ([Link].O) GO TO 15
WRITE (nit,130) U,V,XC<L)«YOLO(L),CP
GO TO 20
15 WRITE (Pl<t,130> U i V t X C < U ) t Y C U > t C P
20 CONTINUE
CORRECT CLtCO FOR ANGLE OF ATTACK
CLCO = -(0 T*CHO)*CLCD*C«PLX(SIN(ALP).COS<ALP»
CM = OT*CHO«CH
WRITE CD,CL,CM ONTO NH
COd = REftt(CLCO)
CO = COW+COF
CL3 = AI«IAG(CLCD)
IF ([Link]) GO TO 85
IF ([Link].O.) GO TO 70
WRITE (Nit,90) E!*l,CL2»C*l,CDWtTX»CDF, Co
GO TO 30
70 WRITE (Ntt,90) EM. CL2i t«l, CUW
CONSTRUCT MACH NUM3CR DIAGRAM
WRITE (Nlt,l<to)
80 I =
I =
USE PRINT WIDTH OF 1Z FOR 1ACH NUMBER DIAGRAM
HB = .lil
HC = MAXO(1,MB/IZ)
HA = 1C+!1AXO(1,M9-IZ*MC)
WRITE OUT MACH NUMBERS AT INFINITY
WRITE (Nlf, 100) (Ii L = HA,M8,HC)
00 «ACH NUMBERS ONE LIME AT A TIME OOyN TO THE BODY
J = NN-«C
l»C KSJ = «(J)*R(J)
00.50 L = MA,MB,1C
U = (PHI(L+l,J)-PHI(L-liJ))*R<J)*0£LTH-SI(L)
V = (PHI<ttJ+l)-PHI<L.J-l»*DEt-R*RSJ -CO(L)
0 = (U*U+,/*V)/FP(Lt J)
1 = I1C««flCH(Q»
MN(L) = I«ACH(I)
50 CONTINUE
WRITE (Nit,100) (MN(L)tt = ."IA,MB,MO
J =• J-flC
IF ([Link].t) GO TO tO
DO THE LINE WHICH IS THE BODY
00 60 L = MA,M3,>1C
1 = InCfKACHNIL) )
60 MN(L) = IMACH(I)
WRITE (Nij,100) (MN(L)tL = [Link])
IF ([Link]) CALL GRAFIC(CD)
RETURN
65 RNX = .l*aINT(RN»l.E-5)
WRITE (Nit,ISO) [Link]
RETURM
90 FORMAT (lHl2XSHE!*l=[Link],ifX3HCL=[Link]«i»XsHCH=F6.i»i'*X«»HCOW=F7.5.ifXA4
1 fF7.5»'*x 3HCO=F7.5///)
100 FORMAT <3X«130A1)
180 FORMAT (3H M=t Fif.3.5Xt 3HCU=tF5.3t5Xt3HOY=fFi*.3«6X.»HT/C = «
 215

1 Ft.3tl*X«2I5)
130 FORMAT U020)
1(»0 FORMAT (1HO//)
150 FORMAT (lHO//7X3HEM=»F4,3,<»X3HCL=,F&.<»,<tX*HT/C=»F»,3,»X3HCI"l=«
1 F6.
ENO

SUBROUTINE SRAFIC(CD)
COMPLEX ZP,ZG,SFAC,SIG
REAL MACHN
COMMON PHIU&2»31),FP<162«31»,A<31),B<31),C<31>,0<31),E<31)
1 ,RP(31),RPP(31),R<31>iRS(31),KI<31),4A<162),8B(162),Co(162)
2 ,SK162),PHIR(162)«XC(162),YC(162>,FM 162)»ARCLU62)»DSUM(16a)
3 , A N G O L D ( 1 6 2 ) ,X O L O U 6 2 ) , Y O U O ( l 6 2 ) , A R C O U O ( 1 6 2 ) , O E L O L O < 1 6 2 )
CO««OM /A/ PI«TP,RADt£1 1 Al.P,RN«PCH,[Link].«yR
1 , X A . y A t TE«OT,OR,OELTHtDEURtRA«[Link]»EPSIl..QC«IT,CltC2
2 tC4.C5iC6tC7»8£T«8tTA,FST!«l,XStP,SEP«.TTLE(«>).[Link],NN,NSP
6 , IK,jK,IZ,ITYP,MOOE,IS,NFCiNCr,NRNiNr,.IOIM,N2.N3,Ni+,NT,IXX
» , [Link].I*
DIMENSION CPX(1).MACHN(1).T(6)
EQUIVAUEIMCE (CPX(l) tPHIR(l) ) , (MACHNt 1 ) , A(1) )
DATA TOL/l.E-6/ , PF/-.4/ , SCF/5.0/,yOR/it.O/tSIZE/.l't/tSCO/ZOO./
MOVE THE ORIGIN TWO INCHES OVER AND TjO INCHES UP
CALL PLOT(2.0«2.5i-3)
YOR = AflAXl(3.5,.5*AINT(20.*EM-7.0»
PLOT CP CURVE AS A FUNCTIOM OF X
CPF = l t /PF
CCP = CPF*CPX(1)
CALL PLOT(SCF*XC(1),YOR+CCP,3>
00 10 L = 2,MM
CCP = A«IMl(8.5-YORtCPF*CHX(L»)
10 CALL PLOT(SCF*XC(L>iYOR+CCP,2)
OR A nl AMO LABEL THE CP-AXIS
CALL cPAXlS(-.5fYOR«l.-l./PF,7.5-YOR,pFi
COMPUTE AND PLOT CRITICAL SPEED
CALL SYMBOL ( -.5, YOR+CPF*CPX(NI"H-1) 12.*SIZE«15«0. ,-1)
PLOT BODY
CALL PLOT(SCF*XC<l).SCF*Yt(i),3)
00 20 L = [Link]
30 CALL PLOT(SCF*XC<L)»SCF*YC(L).2)
LABEL THE PLOT
ALPX = RAO*ALP
TXr=8HANftLYSIS
[Link].b.) TXT=6HTHEORY
XL=-,9
**«*NON-ANSI - SEE VOLU1E I, PAGE 209****
IFtFSY^.GE.b.) GO TO 30
ENCODEI60,19l,T) TTLE,[Link]
GO TO HO
30 LN=RN*I>E-6+.5
ENCODE(60,190. T ) T T L E t I t N t f J C Y i L N
40 CALL SYMBOL<-[Link],-1.0iSIZE,T.O.,56)
 216

****NON-ANSI - SEE VOLUME I, PA&£ 209****

ENCODE ( 6 0 » 1 7 0 , T ) T X T , E H , A L P X . C L . C O
CALL S T F I 8 0 L ( X L . - 1 . 3 5 t S I Z E « T t 0 . t & 0 >
CALL STMBOL(XL-.10.-1.35+.5*SlZE«1.5*«;IZEtl5,0.t-l)
CN=CO(1)
SN=SIU)
READ AND PLOT EXPERIMENTAL DATA IF XP IS NOT ZERO
IF ([Link].O.) 60 TO 130
REMIND flit
READ (^f,l<fO) HP
IF <EOF<M<t).NE.O) SO TO 130
READ (fl<*,i50) [Link]»CL*«COX«SNX
REAO («"*,160) (CO(L).SI(L),L = ItNP)
TXT = 10HEXPERINENT
NC=59
iF([Link].o.)Go TO so
TXT=6HO£SI6N
NC=3
****NON-ANSI - SEE VOLU1E I. PAGE 209****
50 ENCODE <&0»170«T) TXT«EMX»ALPXtCLX,COx
CALL Sr»90L(XL«-l,7iSIZE,T,0.,&0)
CALL Srn30t(XL-. 10«-1.7>.5*SIZE,[Link])
00 160 L = [Link]
CCP = rOR+CPF*SI(LJ
IF <CCP.6T.8^> GO TO ISO
CALL SYMBOL(scF*co(L).ccpi.5*siZE,Nc,n.«-i)
180 CONTINUE
130 IF ([Link].5) GO TO 122
PLOT THt SONIC LINE
EX s. 1.-EPSIL
SET SINES AND COSINES FOR USE JN FOURltR SEHIES
MX =: M/2
C0(l) = 1.
SHI) = 0.
00 60 L = [Link]
CO(L+1) = CO(L)*DCN-SI(L)*OSN
CO(«M-L) = COJL+1)
SKL+1) = CO(L>*OSN+SI(L)*aCN
60 SI(flM-L) = -SKL+-1)
00 120 L = 2,M
LOOK FOR SONIC POINTS ON THE BOOV
IF (MACriN(L).LT.l.) GO TO 110
IF (MACHN(L-l).GE.l.) SO TO 60
IPEN = 3
COMPUTE Z AT SONIC LINE ON BOOT
70 Rl = (flACHN(L)-l.>/<HACHN<D-MACHNCL-1))
ZP = C«PLxUClL)+fU»«XC(L-l)-XC(L>)ttC<l.>+Rl*ttCtL-l)-YClL>»
CALL PLOT(SCF*REAL(ZP)»SCF*AIHAG(ZH),THEN)
IF (IPEN.E9.2) 30 TO 130
FINO THE SONIC LINE, ALONG A RAT
60 3 = MACHnj(L)
SX = SI(L)*CNtSN*CO(L)
CX = CO(L)*CN-SN*SI(L)
FAC = ,&*OR
ZQ = C.1PLX<XC(L)frC(D)
 217

00 90 J = 1<N
ZP = SFAC
RJ = R(J)
OS = 3
IF ([Link].l) GO TO 82
u = (pHUL+i.J)-PHi<L-it J) »*RJ*OELTH-sx
v = <PHI<L«J+i)-PHi<LiJ-i>)*DELR*RJ*RJ-CX
Q = (U*U + V/*V)/FP(L»J)
Q = SaRT(Q/(Cl-C2*a) )
82 SIS = C<"IPLX(RJ*CO(L>,RJ*SI(L))
C COMPUTE «1-SIGMA)**U-£PSIL))SIGMA
SFAC = CEXP(EX*CLOS«[Link].)-SIGM/SIG
c SUM UP FOURIER SERIES TO OBTAIN CONJUGATE OF w
S = -36(1)
00 B<* < = liNFC
LT = MOO«L-l)*KtM)
S = S+RJ*( AA<K+1)*SHLT«-1)-BB<K*1)*CO<LT+1) )
RJ = *J*R(J)
IF ([Link]) GO TO 65
R<* CONTINUE
C COMPUTE THE ARGUHEiMT OF OZ/DR
Sb SFAC s -SFAC*CNIPLX(COS(S)iSIN(S))/CABS(SFAC)
C MULTIPLY THE ARGUMENT 3T THE MAGNITUDE TO OBTAIN OZ/OR
SFAC = SFAC*(CHD*S9RT(FP(L|J)))>(R(J)*R(J))
C PERFORM THE INTEGRATION
23 s Z9+FAC*SF4C
FAC = OK
IF ([Link].l.) GO TO 100
90 CONTINUE
100 ZQ = za-.5*OR*SFAC
ZP = za-.5*OR*(SFAC+ZP)
Rl = O-1.)/<Q-QS>
ZP = za+Ri*(ZP-za)
CALL PLOT <SCF*N£ALIZP),AHAXK-2.0iSCF*AIMAG<ZPM»2)
GO TO 120
110 IPEN s. 2 •
IF (MACHN(L-l).GE.l.) SO TO 70
120 CONTIMUt
C POSITION PEN AT BEGINNING OF NtXT PAGE
122 CALL PLOT UO.O,-2.b,-3)
IF {(FSY«[Link].7.).OR.([Link].6» RETURN
C PLOT THE BOUNDARY LAYE* DISPLACEMENT
MX = INOEXR ([Link])
CALL PLOT(2.,1.5,-3)
CALL SYM80L(1.36,-.[Link]»19HLOWER SuRFACE DELS <0.il9)
CALL CPAXIS ([Link].«[Link].,l./SCO)
c PLOT LOWER SURFACE
CALL PLOT (SCF*XC(1),SCO*USUH(1),3)
00 132 L s 2,MX
132 CALL PLOT (SCF*XC{L)iSCO*OSUM<L),2)
CALL PLOT(0.i4,5»-3)
CALL SrMBOL(1.36,-,65tSIZ£,19HUPPEH SijRFACE DELS tO.«19)
CALL CPAXIS (0.,O..[Link].,l./SCU)
C PLOI UPPER SURFACE;
CALL PLOT (SCF*XC(>IX>,SCO*DSUM(nX)«3)
 218

00 I3f L = MX,M
CALL PLOT CSCF*XC(L+l)fSCU*OSUfl(L+l)o)
CALL PLOT(10.»-6.t-3)
RETURN
FORMAT <10X,I3)
150 FORMAT <3F6.3,F7.5,E9.1)
160 FORMAT «2F10.«H
17U FORMAT <Al2,«»H M=Ft.3,3XHHALP=F5.2t3x3HCL=»F5.3,3X3HCD=iF5.»)
190 FORMAT<tA!f,3XHH«*N=I3,lH*l2,3XtHNCy=IiMtX2HR = I2,BH MILLION)
191 FORMAT<tAt,3X«fHM*N=I3,lH*I2«3XtHNCY = Iln<*X12HNO VISCOSITY)
END

SUBROUTINE CPAXISJXOK,YOR«60T«TOP,SCFi
C DRAWS ANO LABELS THE CP AXIS
C [Link] IS THE LOCATION Oh THE ORIGIN OF THE AXIS
C BOT IS THE LENGTH OF THE AXIS BELOM TH£ ORIGIN
C SCF IS « SCALE FACTOR JSEO FOR LA3LLIMG
C SCF NEGATIVE FOR CP AXIS ANO POSITIVE FOR DELS AXIS
SIZE - .12-SIGN(.02,SCF)
C DRAW THt VERTICAL AXIS
CALL PLOT (XOR,YUR*TOP,31
CALL PLOT «XOR,YOR-BOT,2)
C DRAW HATCH MARKS AMU LABELS ONE INCH fiPART
N = 1 + INT(BOT)-HNT(TOP)
S = -AINT(BOT)*SCF •fl.E-12
XH = XOR-(3.*SIZE)/t7
YH = YOR-AINT(BOT)
00 10 I = ItN
CALL SYMBOL (XOR,YH,SIZE,15,0.t-1)
C ****NON-ANSI - SEE VOLUME I, PAGE 209****
IF ([Link].O.) ENCODE (10,25,A) S
IF (SCF.|_E.O. ) ENCODE (10,20, A) S
S = S+SCF
CALL SYMBOL <XH,[Link],A,0.,t)
10 YH = YH*1.
IF ([Link].O.) GO TO 30
CALL SYMBOL(XOR+.[Link]+2.5,. 1I*,1HC,0.,1)
CALL SYM80L(XOR+.25tYOR+2.3B..[Link],0.,l)
RETURN
C ORAW TH£ X-AXIS
30 CALL PLOT (XOR,[Link].3)
CALL PLOT (XOR*5.0,YOR-BOT,2)
CALL SYMBOL (XOR+5.5,TOR-.07,.It,1HX,o.«1)
YH = YOR-BOT-SIZE-SIZE
00 40 I = 1.5
S = ,2*PLOAT(I)
ENCODE <10«20«A) S
XH = YOR+FLOAT(I)-SIZE-SIZE
CALL SYMBOL (XH,[Link],A,0.,4)
i»0 CALL SYMBOL (XOR*FLOAT(I),YOR-dOT,SIZr,15.90. .-1)
CALL SYMBOL ( XOR+. 25, YOH*.3.0, . It, tHDELS, 0 . , t)
RETURN
 219

25 FORMAT ( Ft.3)
80 FORMAT (F4.1)
END

SUBROUTINE GOPLOT (NRN)

C INITIATE PLOT
C ******* ************************ *************************** *******
C THIS SUBROUTINE SHOULD BE REPLACED BY ANY ROUTINE WHICH INSTRUCTS
C THE SYSTEM To INITIATE A PLOT
C *****************************************************************
DIMENSION 10(6) « LTAB(S), NAME (16)
DATA «S»NU/77777777000000B,16/
DATA NAME/10HGARABEOIA\J,7H 109-01 , 10HDAVID KORN.7H 109-03, 10H F. 8
1AUER , 7H 109-02, 10HQ. 300D?1AN,7H 109-0&.10HJ, OAHLIN , 7H Io9-07t10
2HOAVIO KQRN.7H l«H-01t9HF. BAUER ,7H i43-07,10HA. UA«tSON,7H 109-0
DATA

I S H I F T ( X X X . Y Y Y ) = SHIFft X X X t Y Y Y )
N = MOOdABS(NRN)flOOO)
CALL REAOCP (I0,ai3il)
10(1) = I S H I F T ( l D ( 2 ) . A M O . M S f - 1 8 )
00 10 L = [Link].2
J = L/2+1
IF (LTAB(j)-IO(l)) IQtZOtlO
10 CONTIMJE
L = NU*-i
20 ENCODE (60.30.10) MAHE(L) i MAHECL+1) «N
IF (NRN.5T.1000) SO TO 50
CALL PLOTS (600,10)
KETURM
50 CALL PLOTSBL (600,10)
30 FORI«IAT(A10t5H — ,[Link].I3)
ENO

SUBROUTINE AIRFOL
C REAOS IN DATA FOR AIRFOIL AND DETERMINES TqE MAPPING
C FUNCTION 8Y COMPUTING FOURIER COEFFICIENTS
C IF ONLT X.Y COORDINATES A«£ PRESCSISEo SLOPES ARE COMPUTED
COMMON P H I ( 1 6 2 , 3 1 ) , F P ( 1 6 2 « 3 1 ) , A ( 3 1 ) , B ( 3 1 ) , C ( 3 1 ) , 0 ( 3 1 ) . E ( 3 1 )
1 ,RP(51).RPP(31),R(31),RS(31),RI(31),aA(162),BB(162),CO(162)
2 ,SI(162),PHIR(162),XC(162),YC(162),FM(162),ARCL(lfa2),DSUM(162)
3 .AN60LO(l62),XOLD(162),YOLO(l62),ARCoLO(162),OELOLO(162)
COMMON /A/ Pl,TP,RAO,E?[Link]»PCH,[Link],CHO,OPHI,CL,RCL«rR
1 ,XA,rA,TE,OT,Oft,DELTH,OELK,[Link]'RAl*.ePSIL,QCKIT,Cl.C2
2 ,C4,C3,[Link],FST»1,XSEP,SEP|«|,TTLE('f) ,n,N,P1«,NN,NSP
3 ,IK,JK»IZ,ITYP,HOOE,IS»NFC,NCY,NRN,NR,IDIM,N2,N3,N4,NT,IXX
•* . iMPTS«LL,Ifl-SEPt«lt
 220

DIMENSION XX(l),YYU>.U(l).V(l)tH<l)tSP<l)»CIRCU)iTH<l)tTT(l)
1 , OSd).SS(l) tCX(l),SX(l),9SR(l) ,TITLt(15).2(l)
EQUlVALtNCEUXdl «FH(l,3 )),(YY(l),FP(1.5))%(U(l)iFP(l.D),

2 ( 1,13) ) i (TH( l)iFP< 1,15 )).<TTU)iFP< 1.17 ) ) • < DS( 1 > iFP( 1,19) ) .
3 (SS(1).FP(1.21) ) ,(CX(1),KP (1,23) )f(Sy(l).FP (1.25) It (USR(l),
H FPd.27) )»(Z<1),FP<1,29)>
53(82) = Q2*Q2
SMOOTH(«l,aa,Q3,Ot) = a2+Sa(SQ(SQ(Qt) i )*.25*<Ql-Q2-82+Q3)
OIS(Ql) = {81-ERR)*< <01-EKR)*(ai-ERRUCONST)
D A T A TOL, NT. ISYM, CONST, VAL/.HE-7.999«n«.2»'*HRUN /
DATA OXDsitOXOs2,OlTDsliOYDs2/it*0./ . KT/-1./
N*1P IS THE NUMBER OF POINTS IN CIRCLE PLANE FOR FOURI£R SERIES
LC = NFC
^MP = 2*LC
MC = NflP + 1
PILC = Pl/FLOAT(LC)
IF ([Link].6.) 60 TO 150
WRITE <Nij,it70)
REWINO N3
REAO (N3,i|10) TITLE
IF ([Link].3.) GO TO 100
READ in COORDINATES AS PROOUCEO BY PROGRAMS o AND F
EPSIL = 2.
XX(1) = 0.
NL = 2
REMIND N3
READ (PJ6.510) E M , C n O Y , T C » M R N
IMC = « 0 0 < I N T ( 1 0 0 . * £ l " H - . 5 ) U O O )
ICL1 = M O D ( I N T ( C L + . 0 5 ) f l O )
ICL2 = M O O ( I N T ( 1 0 . * C L + . 5 J i l O )
ITC1 = rtOOlINTUO.*TC + . 0 5 > » 1 0 >
ITC2 = M O O < I N T ( 1 0 0 . * T C * . 5 ) t l O )
ENCODE U 0 . 5 3 0 . T T L E ) I«IC, 1CL1.ICL2. I T c l » I T C 2
MODE = 0
IF ([Link].O) FSYM=2.
10 REAO (M3,500) U ( 2 ) , V ( 2 ) , XX ( 2 ) , YY ( 2 ) , FAC
IF (XX(ii).LT.l.) 60 TO 20
SAVE TAIL POINT ON LOWER SURFACE
= U(2)

XX(1) = XX(2)
YY(1) = YY(2)
GO TO 10
20 00 HO L = 3t999
READ (M3.500) U(L) i V(L) iXX(L) t YY (L) <F&C
****CHECK FOR END OF FILE****
IF (EOF(NS).NE.O) SO TO SO
IF (XX(L).EQ.l.) 63 TO 70
IF (XX(L).[Link](NL)) !XL = L
HO CONTINUE
AIRFOIL HAS BEEN EXTENDED IN PROGRAM 0
50 XT = It
70 NT = L
IF (XX(l).EQ.l.) GO TO 95
 221

IF ([Link].O.) XT = l.+.6*OY
NRN = lABS(NRN)
C INTERPOLATE TO PUT THE TAIL AT X=XT
C LOWER SURFACE INTERPOLATION
1 = 1
L = 2
80 Rl = (XT-xX(|_+l))/<XX<L)-XX<L+lM
R2 = lt-Rl
rr(I) = R1*YY(L)+«2*YY(L+1>
U(I) = Rl*U(L)+R2*U(L+l)
V(I) = R1*V<L)+R2»V(L«-1)
XX(I) = XT
IF ([Link]) GO TO 150
C UPPER SURFACE INTERPOLATION
I = NT
L = NT-2
GO TO 80
C READ IN AIRFOIL DATA FROM CARDS
100 READ <N3,<»20) FNUtFNLtEPSlL
READ <N3,<»70)
NT = FNU+FNL-1.
NL = FNL
00 110 I = NLtNT
110 READ <N3,if20) U(I)tV(I)tXX(I),YY(X)
READ (iM3,!f70)
00 120 I = [Link]
J = NL+l-I
120 READ (N3,t»20) U(J)iV(J)tXX(J),YY(J)
00 130 J = l.H
ISO TTL£(J) = TITLE(J)
IF ([Link].) GO TO 150
00 ItO L = 1,NT
TH(L) = XX(L)/RAO
XX(L) = U(L)
mO YY(L) = tf(L)
GO TO 195
C HO PERIOD IN THE STREA1 FUNCTION
95 EPSIL = 0.
C DEFINE SLOPES SO THAT ARC LENGTHS CAN BE COMPUTED TO FIRST ORDER
150 IF (([Link].S.)) SO TO 170
00 160 I = [Link]
160 TH(I) - 0.
ISYH = 1
GO TO 20Q
C COMPUTE SLOPES FROfl VELOCITIES
170 TH(1) = A T A N C V U ) / U ( 1 M
QSR(l) = U ( 1 ) * U ( 1 > + V ( 1 ) * V < 1 )
DO 190 I = 2,NT
c CHOOSE NEAREST BRANCH FOR THE ARCTANGENT
OTrt = ATAN((U(I-1)*V(I)-U(I)*V(I"1))/(U{I-1)*U(I)+V{I-1)*V(I)))
TH(I) = TH(I-1)+OTH
190 QSR(I) = U(I)*U(I)+V(I)*V(I>
195 IF ([Link].1.) EPSIL = (TH(!)-(PI*Tn(NT)))/PI
IF ([Link].5.) EPSIL = (TH(1)*TH«2)-TH(NT)-TH(NT-1))/TP-l.
C COMPUTE ARC LENGTH TO FOUKTH ORDER ACCURACY
 222

200 SP(1) =- 0.
00 210 I = 2 , N T
DUN = A M A X K . l E - 2 0 . . 5 * 4 B S C T H < I ) - T H ( I - i )))
OX = X X d ) - X X ( I - l )
or = rym-YYd-i)
210 S P ( I ) = SPCI-1)+SQRT<DX*OX+DY*OY)*OUM/SIN(DUM)
ARC = S P ( N T )
SN = 2 t / A R C
SCALE = ,25*ARC
CE = .5*(1.-EPSIL)
00 220 I. =• ItNT
220 S S ( L ) = A C O S U i - S N * S P < L > )
SS(NT) = PI
IF ([Link].O) GO TO 330
CALL SPUIF <NT,SS«THiU,V»Wi3t0.i3iO.)
IF ([Link].5.) 60 TO 232
WRITE <Ni»,<HO> TlTLEtVALtNRN
IF <[Link].N2) WRITE (N2,«0) TITLE. VAi_.NRN
PRINT OUT AIRFOIL OATA
WRITE (Ni»,430)
00 230 L = [Link]
VAL = TH(L)*RAO
SUM =-SN*u«L)/AMAXl(,1£-[Link](SS(L))>
IF (([Link].([Link])) SUM = V(L)*SI6N(SN,FLOAT<L-2))
230 WRITE (Ni».<»eo> XX( L)»YY(L) «SP(L). VALtsUMt V(L) ,W(L)
WRITE (Ntf,i»«»o)
MAKE INITIAL GUESS OF ARC LENGTH AS A FUNCTION OF CIRCLE ANGLE!
232 OX = (XX(NT)-XX(l))/TP
OY = (YY(NT).YY(l))/TP
00 240 1 = ItWC
ANGL = FLOAT(I-1)*PILC
CIRC(I) = ANGL
CX(I) = COS(ANGL)
SX(I) = SIN(ANGL)
YY(I) = 1.
IF <EEtNE.O.) YY(I) = (2.-2.*CX(I))**££.
FAC = SISN(1.+CX(I)«FLOAT(LC-I»
240 SP(I) - ACOS(,5*FAC)
SPJMC) = PI
CIRC(HCJ = TP
IF ([Link].6.) GO TO 2t<t
SCALE = ARC/ARCu(M.1)
00 2H2 L = iiMM
Z(L) = FLOAT(L-1)*OT
CALL SPLIF (MM,Z,A^CL,CO,SI,PHiR,3,0..3iO.)
CALL IiMIPL (N«P»CIf([Link] t Z»ARCL«CO f SI,PHIR)
00 2H5 L = 1,LC
BB(L) = CX(2*L-1)
AA(L) = -SX(2*L-1)
00 AT flOST 100 ITERATIONS TO FIND THE FOURIER COEFFICIENTS
00 320 K = 1,100
CALL lNTPi_(NMPtSPtTT,SS,TH,U,V«H)
00 250 I = It NIP
350 TT(I) = TT(I) + ,5*(CIRC(I)+EPSIL»(CIRC|I»-PD)
ENSURE CLOSURE
 223

DUM = o.
SUM = o.
FAC = 0.
00 260 L = ItNMP
OW = OUM - T T ( L )
SUM = S U ! " I - T T ( L ) * C X ( L )
260 FAC = F A C + T T ( U * S X ( U
OU« = OU«/FLOAT(NMP>
DA s 1 . - E P S I L - < O X * S I N ( O U M ) + O Y * C O S ( O U M ) ) / S C A L E - F A C / F L O A T < L C )
08 = < O Y * S l N < D U M ) - O X * C O S ( O U M ) ) / S C A L E - s U M / F L O A T < L C )
00 270 L = [Link]
270 TT<L) = TT<L)+OA*SX(L)-OB*CX<L)
FIND THE CONJUGATE FUNCTION OS
CALL CONj(NMP,TT,DStXX f [Link])
00 290 I = 1.N.1P
SUM = OS(I)
290 OS(I) = YY(I)*EXP(SUN)
OS(MC) = OSU)
CALL S^LIF(MC,CIRC,DS,XX,XC,Z.-3,0.,3.0.)
SCALE = ARC/Z(MC)
EftK = 0.
00 310 I = 1,N.«IP
VAL = ACOS(1.-2.*Z(I)/Z{NO)
,ERR = AMAXUERrt,A8S(SP(I)-VAL)>
310 SP(I) = VAL
IF ([Link].5.) WRITE (N"H<*90) [Link]
IF ([Link]) GO TO 330
320 CONTINUE
WRITE (Nlt,<t50>
330 CALL FOUCF(NMP,[Link],B3,AA)
AA(1) = ARC
AA(2) = l.-EPSIL-(OX*SIN(BB(l)»+OY*CO«5(BB(l)))/SCAL£
B8(2) = (-OX«COS(B^(1))+OY*SIN(BB(1)))/SCALE
IF ([Link].5.) GO TO 3"t2
WRITE (Nlf,i»60) EPSIL, NflP
IF <(FSYM.N£.1.).AND.(FSYI"[Link].3.)) GO TO 341
00 34'4 L = [Link]
3U1* Z(L) = fiLOAT(L-l)*OT
CALL SPLIF(MC«CIRC«SP,U«V«rit3iO.«3«0. )
CALL l N T P L ( M M i Z t D S « C I R C » S P « U i V « W )
CALL SPLIF (NT,SS,9SR,J,VtW,l,0.,l,0.)
CALL IUTPL<MM,OS,[Link].J,v.*o
3i*l IF ([Link].120) GO TO 3<f2
WRITE ^N^t5^»0)
00 3«fO L = [Link]
3<*0 W1ITE (Nl»,490) A A ( L ) « B 3 ( L )
342 CALL HAP
KETJRN
350 IF ([Link].5.) GO TO 355
OxOSl = (XX(2)-XX(1»/SS(2)
OXOS2 = (XX(NT)-XX(NT-1))/(SS(NT)-SS(MT-1))
OYDS1 = (YY(2)-YY(1))/SS(2)
OYOS2 - (YY(NT>-YY(NT-l))/(SS(NT)-SS(MT-l))
355 CALL SPUIF(NT,SS,XX,U,SP,W,l,DXDSlil,oXDS2)
CALL SPLIF(NT,SS,YY,V,TT,OS,1,OYDS1,1.0YDS2)
 224

IF [Link].O) 60 TO 397
OC = PI/FLOATINMP)
ERR = SS(NL)
DU.1 = OIS(0.)
FAC = PI/(OIS<PI)-OUM)
00 360 L = 1«MC
360 C I R C < L > = FAC*(DIS(FLOAT(L-l)*OC)-OUMj
CALL lNTpL([Link],SXtSS,XXtUiSP,M)
CALL INTPL<NHPtCIRC,CX,[Link],OS)
SXMC) = XX(NT)
CX(MC) = YY(NT)
SFAC = l./(XX(NT)-XX(ND)
XXNL = XX(NL)
00 370 L = [Link]
CX(L) = SFAOCX(L)
SX(L) = SFAC*(SX(L)-XXNL)
XX(L) = SX(L)
370 YY(L> = CX(L)
WRITE (Ni»,520> IS
IF ([Link]) WRITE (N2,520) IS
IF([Link].O) 60 TO 395
00 IS SMOOTHING ITERATIONS
00 390 K = 1,IS
00 380 L = £,N:1P
XX(L) = S*lOOTH(SX(L-l),SX(L),SX(L*l)«sX(L) )
380 YYCL) = SMOOTH(CX(L-l>,CX(L),CX(U*l)t«!X(L»
00 390 L r 2,NIP
SX(L) = XX(L)
390 CX(L) = YY(L)
395 NT = MC
CALL SPLIF(NT,CIRC,XX,J,SP.W,1»0.,1,0.)
CALL SPl-lF([Link],YYi [Link],DS«l«0.«l,n. )
397 ISY.1 = 0
IF ([Link].5.) GO TO 170
- Sp(l)
= TT(D
U(MT) = SP(NT)
V(NT) = TT(NT)
GO TO 170
1*10 FORMAT (lXl6At<I<t)
HZO FORMAT (5F10.7)
1130 FORMAT (35HOAIRFOIL COORDINATES AND CjRVATURES/lHO,6X.1HX,14X1HY
1 ,9X,10HARC LENGTHi7X3HAN6,6X5HKAPPA«iOXt2HKPillXi3HKPP//)
FORMAT <lHl«<*Xi3HERRil»X,2HOA.l<*X«2HDQ//)
FORMAT (32H FOURI£« SERIES 010 NOT COMtfERGC)
t»60 FORMAT (34HOMAPPINS TO THE INSIDE OF- A CIRCLE//3X11HDZ/DSIGMA =
1 50H «{l/SI6MA**2)*U-SIGrtA)**<l-EPSIL)*<EXP<W<SIGMA))//3X,
2<f2HW{SlBMA> = SUM((A(N)-I*8(N))*SISMA**(N-l>)//3X,7HEPSIL =
3 F5.3«20X«I4,25H POINTS AROUND THE CIRCLE )
H70 FORMAT (1H1)
1*60 FORMAT (Fl2.6,2Fli*.6,Fli*.3,Fl<f.'*,2Em.3)
(»90 FORMAT (3E15.6)
C ****CHANGE (1020) TO (20At) ON IBM 36n****
500 FORMAT U020)
510 FORMAT ( 5X»Fi*. 3, 8X,F5. 3t8X.F1*.3t 10X,F^.3, ItX. 15)
 225

520 FORMAT (10HOTHERE AR£,It,26H SMOOTHING ITERATIONS USEU /)

530 FOR«AT<"*HAlRF.&Xt3HOIL,7X«12»lH-»Il»6xtIltlH-«2Il)
540 FORMAT l//7Xl*HA(N)»10X<»HB(N)//I
END

SUBROUTINE HAP
SUM UP FOURIER SERIES TO OSTAIN MAPPING FUNCTION
COMPLEX TTtTMP
COnnO.M PHI(162«31),FPU62«31)iA<31),B<31),C<31)«0(31)tE<3l)
1 iRP<31),RPP(31),R(3l),RS<31),RI<31),aA<162),8B<162),Co<162)
2 ,SI(162),PHIR(162).XC<162), YC (162)»Fvi < 162 )t ARCLU62) »DSUM< 162)
3 ,ANGOLD(162),XOLO<162).YOLO<1&2)tARCoLO<162),OELOLO(162)
C0110N /A/ P l , T P . R A O , E 1 « A L P , R N i P C H , X P . T C « C H D . D P H I « C L t R C L f Y R
1 , XA,YA,TE,OT,OR,OELTHiOELR,RAtUCNtOS,MiRA«MEPSILiQCRIT,Cl»C2
2 ,C<ttC5»C6«C7t3£TiBE:TA,FSY,1,[Link]£(lf)
3 ,IK,jKtIZ,ITYPtMOOE,ISnMFC,NCr«NRN,N(; t IOi
t , [Link]
****CrtftNSE TO l.E-6 FOR SINGLE PRECISION ISM 360****
DATA [Link]/-12..10.E-12/
NOTE THAT THE SQUARE OF THE HAPPING PlnOULUS is BEING COMPUTED
MX s fl/2
SET TH£ SINES AND COSINES
com = i.
S I ( l ) = 0.
00 5 L = 1«WX
CO(L+1) = CO(L)*OCN-SI(L)*OSN
COIIH-L) = CO(L+1)
SKL+1) = C O ( L ) * O S N + S I ( L ) * O C N
5 SI(flH-L) = -SKL+1) "
SET MAPPING HOOULUS FOR CUSP AT THE TftIL
00 10 J = liN
FP (1,J) = l.+R(J)*(R(J)-2.)
00 10 L = 1,MX
10 FP(L+1»J) = l.+R(J)*(R(J)-2.*CO(L+D)
IF ([Link].O.) GO TO 30
ADJUST IF THERE IS AN ANGLE AT THE TAIL
00 20 J - liN
FP(1,J) s FP{l,J)**(l.-EPSlL)
00 20 L = 1»MX
20 FP(L+1«J) = FP(L+liJ)**(lt-EPSIL)
NOW COMPUTE CONTRIBUTION FROM FOURIER SERIES
30 00 50 J = l.N
NFCX = l"IINO<NFCtl + INT(POH/ALOG10(R<J)-TOL)))
RJ = 2.*R(J)
K = NFCX
S = AA<K+1)
35 S = R(J)*S+AA(K)
K = K-l
IF (K.6T.1) SO TO 35
FP(1,J) = FP(liJ)*£XP(S*RJ)
00 50 L s [Link]
K = NFCX
 226

LX = K*L
LT = M O U ( L X . « )
S = AA(K-fl)*CO(LT*l)
8 = B8<K*1>*SI(LT+1)
<*0 LX = L X - L
LT = . l O O ( L X i M )
S = R< J ) « S + A A < K ) * C O ( L T + 1 )
a = R(J»*a+68(rt)*SI(LTfl)
K = K-l
IF ([Link].l) GO TO 40
OUM = FP(L-H.J)
FPMM-LtJ) = E X P ( R J * ( S - 0 ) ) * D U M
50 FP<L+1»J) = E X P < R J * ( S + 3 n * O U M
00 65 L = 1,M
S = PI-83(D
00 60 K = 1»NFC
LT = 100«L-1)*K»M)
60 S = S +A A ( K + l ) * S I ( t . r + l ) - 8 B < « + l ) * C O ( L J > i )
ANG = F L Q A T ( L - 1 ) * O T
F P ( L i M M ) = 1.
65 FI*I(LJ = S-.5*(ANG+£PSIL*(ANS-PI) J
FW(.HH)- = F«(l)-(l.*[Link])*PI
00 70 J = 1»NN
FP(«M,J) = FP(1,J)
70 FP(H1H + 1.J) = F P ( 2 t J )
COMPUTt: ARC LENGTH AND BODY FROM THE CAPPING BY INTEGRATION
XMIN = 0.
YMIN = 0.
Y H A X = 0.
S = -S3*T<FP(1,1)>
TV.P = Ci»IPLX(S*COS(F«(l) ),S*SIN(FM(1) ) >
00 80 L = [Link]
Q = SO^T(FP(L«l) )
S = S+9
ARCL(L) = S
S = S+Q
TT = C'"l p LX(Q*cOS(F i «l(L) ) » Q * S I N ( F M ( L ) ) )
T«P =
XC(L) -
YC(L) =

YMIN = AHlMKYflIN* AIMAS<Tf1P) )

YNAX = AHAXl(Y«AX«AIrtAG(Tnp) )
TKP = r«p+TT
80 CONTINUE
CHO = -l./XMIN
TC = ( Y f l A X - Y M I N j t C H Q
00 90 L = liHM
ARCL<D = CHQ*ARCL(U)
XC(L) = l.+CHD*XC(L)
90 Y C ( L ) = C H O * Y C ( L )
CHO = C H O / ( . 5 « O T )
IF « A B S « F S Y n ) . S T . S . ) SO TO 100
ANGO= - R A O * S B ( 1 )
WRITE (lM!t,120> [Link]
 227

IF ([Link]) WRITE <N2»120) [Link]

IF ([Link].O) ALP = <l.+BET)*CL/«8.*pI*CHO)-BBU>
100 CALL COSJ
120 FORMAT (SZHOTHE THICKNESS TO CHORD RATIO is ,F6.*//iOH THE ANGLE
1 17H OF ZERO LIFT IS ,F6.3,8H dEGREESj
END

SUBROUTINE SPLIF < N.S,F,FK,FPP«FPPP,K>|, [Link], VN)

C SPLINE FIT
C GIVEN S AND F AT N CORRESPONDING' POlNTStCOKPUTE A CUBIC SPLINE
C THROUGrl THESE POINTS SATISFYING AN ENo CONDITION IMPOSED ON
C EITHER END. [Link] HILL tJE THE FlRSTtSECOND [Link] THIRD
C DERIVATIVE RESPECTIVELT AT EACH POINT ON THE SPLINE
C K« IS THE DERIVATIVE IMPOSED AT THt START OF THE SPLINE
C VN WILL BE THE VALUE OF THE DERIVATIVE THERE
C KN IS THE DERIVATIVE I1POSED AT THE E\iO OF THE SPLINE
C VN KILL BE THE VALUE OF THE DERIVATIVE^ THERE
C KMiKN CAN TAKE VALUES 1.2i OR *
C S ,1UST BE HONOTONIC
DIMENSION S(l), F(l>« FP(1). FPPdlt FPPP(1>
K = 1
M = 1
I = M
J = M+K
OS 2 S(J)-S(I)
0 = OS
IF ([Link].O.) CALL ABORT
DF = (F(J)-F(I))/DS
IF (!ASS(K«)-2> 10,20,30
10 U = .5
V = 3.*(DF-VM)/DS
GO TO SO
20 U = 0.
V = VH
GO TO 50
30 U = -1.
V = -OS*V«
GO T0"50
HO I = J
J = J+<
OS = S(J).S(I)
IF (0*i)[Link].O.) CALL A30RT
OF = <F(J)-F(I))/OS
8 = l./tDS+DS+U)
U = 8*OS
V = B*«6.*OF-V)
50 FP(I) = U
FPP(I) = V
U = <2.-U)*GS
V = 6.*DF+OS*V
IF ([Link].N) GO TO 40
 228

IF ( K N - 2 ) 6 0 , 7 0 , 8 0
60 V = ( 6 « * V N - V ) / U
60 TO 90
70 V = \IH
60 TO 90
80 V = (DS*VN+FPP(I))/(1.«-FP<IM
90 B = V
0 = OS
100 OS = S ( J ) - S ( I )
U = FPP<I)-FP<I)*V
FPPP(I) = ( V - U ) / O S
FPP(I) = U
FP(I) = < F U ) - F < I ) ) / O S - O S * ( V + U + U ) / 6 .
V = U
J =I
1 = I-K
IF ([Link].H) 60 TO 100
FPPP(N) = FPPP(N-l) .
FPP(N) = B
FP(N) = OF+0*(FPP(M-l)4-B+B)/6.
IF ( K N . S T . O ) R£TLI«M
IF KM IS h|£6ATIVE COMPUTE. THE JNTE6RAL IN FPPP
FPPP(J) = 0.
V = FPP(J)
105 I = J
J = J»K
OS = S ( J ) - S d )
U = FPP»J>
FPPP(J) = FPPP(n + t 5 * O S * ( F ( I ) * F ( J ) - O S « O S * ( U * V ) / 1 2 . )
V = U
IF ([Link].N) 60 TO 105
RETURN
ENO

SUBROUTINE INTPU (MX,SI,FI»S,F»FPiFPP,FPPP)

C SH/EN S,F(S) AND THE FIRST THREE DERIVATIVES AT A SET OF POINTS
C FINO FKSI) AT THE NX VALUES OF SI BY EVALUATIN6 THE TAYLOR SERIES
C OBTAINED BY USING THE FIRST THKEE DERIVATIVES
DIMENSION SKI), FI(l), S(l), F(l)f FP<1), FPP(l), FPPP(l)
DATA PT/.33333333333333/
J = 0
DO 30 I = ItNX
VAL = 0.
SS = SKI)
10 J = J+l
TT = S<J)-SS
IF (FLOAT(J-1)«TT) 10,30,20
20 J = J.I
SS = SS-S(J)
VAL = SS«(FP(J)+.5*SS*(FPP<J)+SS*PT*FPPP{J)))
30 FKI) = F(U)+VAL
RETURN
END
 229

SUBROUTINE CONJ ([Link])

C CONJUGATION BY FAST FOURIER TRANSFORM
C GIVEN THE REAL PART F OF A,\l ANALYTIC FUNCTION ON THE UNIT CIRCLE
C THE IMAGINARY PART S IS CONSTRUCTED
COMPLEX [Link]
DIMENSION F(1),G(1),X<1), CN(l).SNU)
DATA PI/3.1<U59265358979/
L = N/2
OX = l./FLOATCL)
EIV = CMPLX(COS<PI*DX)«SIN(PI*OXM
00 2 I = l.L
2 6(1) = F(I)
CALL [Link])
6(1) = 0.
1 = 1
DO 10 J = 1.L.2
EIT = CMPLX<SN(I)*OX,CN(I>*OX)
I = 1+1
G(J) = 6(j)*EIT
10 G(J+1) = G(J+l)*EIT*EItf
00 22 1=1,L
22 SN(I) = -SM(I)
CALL FFOR|v|(LiG,X<CM<SN)
00 32 1=1.U
32 SN(I) = -SMCI)
EIV = C«PLX(AIWAG(G(L)).REAHS<1»)
1 = L
^0 G(I) = CHpLX(AIHAG(G<I-l)) f REAL(S<I)))
1 = 1-1
IF ([Link].D GO TO tO
G(l) = UV
RETURN
END

SUBROUTINE F O U C F ( N « G « X « A i B )
FOURIER COEFFICIENTS BY FAST FOURIER TRANSFORM
COMPLEX S.ElVi3P,X.6K
OI1ENSION G(1)«X(1)<
DATA PI/3.1«H59265358979/
L - = N/2
V = PI/L
EIV = CI"IPLX(COStV)(SIN(tf))
ENI = l./FLOAT(N)
CALL FFORM(LiG,X»A,B)
GK = 0.
I = 1
00 5 J = 1 < L « 2
X(J) = Cm|pLX(B(I)tA(D)
X(J+1) = X(J)*EIV
1 = Ul
K = L
00 10 J = l.L
 230

QP = GK-CONJG<G<J>)
GK = S«+CONJG(G(J)>-QP*X(J)
A(J) = -REAL<GK)*ENI
B(J) = AIMAG(GK)*ENI
GK = 5(K)
10 K = K-l
A<L*1) = .8(1)
B(l) = 0.
8(L+1) = 0.
RETURN
END

SUBROUTINE FFORM(N»FiX,CN»SN)
C FAST FOURIER TRANSFORM
C INPUT ARRAY F UITH REAL ANO IMAGINARY PARTS IN ALTERNATE CELLS
C REPLACED BY ITS FOURIER TRANSFORM
COMPLEX F(l),XU)t*
DIMENSION CN(1),SN(1)
IF ([Link].2) RETURN
NS =• 1
NR = 2
NS = N
11 00 10 K = NR,N
IF <MOO(NQiK).EO.O) GO TO Zi
10 CONTINUE
21 NOsNQ/K
NS = NS*K
NR = <
IQ = 0
ID = 0
00 22 I = liNS
00 24 J = liND
L = MOO(IQ+J,N)
W s F(L)
» s Q
00 26 K =. 2«NR
L S' L*MO
n s MOO(M+IO,N)
26 W = W+F(L)*CMPLX(CM(M+1)
2t X(IO+J) = W
10 = IO+NO
22 IQ = IQ+NQ
N9 = NO
IF ([Link].l) GO TO 61
00 32 K =
32 F(K) = X < K )
61 DO 60 K r NR,N
IF (MOO<NQ«K).EQ.O) GO TO 71
60 CONTINUE
71 NDSNQM
NS * NS*K
 231

NR = <
IQ = 0
10 = 0
00 72 I = 1,NS
00 7H J = 1,NO
L = MOO(IQ+J,N)
W - X(U
M = 0
00 76 K = 2«NR
L = L + ND

76 * z W+X(U>*CHPI.X(CN(n+l>tSN(H+lM
7f F(IO+J) = W
10 = IO+MO
72 IQ = I04-MQ
NO = NO
IF ([Link].l) GO TO 11
RETURM

FUNCTION INOEXR(X«ARRAf,N)
DIMENSION ARRAr(l)
S = A8SU-ARRAYIM))
00 10 L = l.M
IF <ABS(X-ARRAr(l».GT.S) SO TO 10
INOEXR = L
S = A3S(X-ftRRAY(L)>
10 [Link]
RETURM
ENO

SUBROUTINE GTURB(OELMAX,OELBP» [Link])

COMMON KHI ( 162.31) »FP(162«3l) ,«( 31) ,8(31) ,C( 31) ,0(31) tE<31)
1 , RP<31) ,RPP(31) , R(3l),RS(3l) ,KI(31) , AA(162) ,88(162) »CQ(162)
2 , 51(162) , PHI R( 162) , X C ( 162) , Y C U 6 2 ) ,Fw|(162) « ARCH162) t O S U M ( 168)
3 , ANGOLO( 162 ), XOLD ( 162), TOLD ( 162 ),ARCOLD(1&2),DELOLD( 162)
C01HON /ft/ [Link],RftD,E1»AtP,RNtPCH,[Link],CHD«DPHI,CL»RCLtYR
1 , XA,YA,TE,DT,OR,QE:LTH,OELf<,RA,OCN,USN,RAt,EPSIL,aCRir,Cl,C2
2 ,Cit.C5»C6tC7«9ET,3ETA,FSY''UXSEP,[Link])«n,N,M!«UNN»NSP
3 , IK,jK,IZ«ITYP,nOO£,IS,NFC,NCY,NRN,Ns,IDIM,N2,N3,N4,NT,IXX

REAL «IACH,MACHM,NE''«MACHS
OIMENSIOM HP(162),SEPP(162),CPP(162),THETAP(162),DELP(162)
1 «OELX(1),TO(1)
DIMENSION H(1),THETA(1),OELS(1),XX(1).YY(1),HACHN(1)
1 , SEPR ( 1 ) , CPX ( 1 > t OSOT ( 1 ) , S ( 1 ) , MACHS ( 1 ) , ANGNEw ( 1 )
EQUIVALENCE ( MACHN( 1 ) , A( 1 ) ) , ( H( 1 ) , FP ( 1, 6) ) , ( THETA( 1 ) ,FP(
1 t(XX(l)«FP(l,3 )),(YY(1),FP(1,5) ),(OELS(1),FP(1,10) )
2, ( ANGNEW (1 ), FP (l,2t»« (SEPR (D,FP(l,l4)),( CPX (l).PHIR(D)
3 , (S(l) , FP(1,16) ) , (MACHS(l) ,FPU,26) >. (DSOT(l) tFP(ltSO))
"» , (DELX(l),Fp(l,l2)),(TO(l),FPa,20))
 232

CP(Q) a C5*«CH/(1.+C2*Q*0)
QSX(8| r <C<f-U.«-a/C5»**U./C7n/C6
MACHO) = SQRT « Q / < C l - C 2 * e n
DATA ISW/0/»COF/0./tXPUT/.5/fXFAC/100 . /
00 10 J = liNN
PHKMH.J) = PHI(1.J)+OPHI
10 PHI(MM+1«J> = PHI(2«J)+OPHI
IF (IS«[Link] CALL SOPLOT(NRN)
COMPUTE AND STORE CP CRITICAL
CPX(i"!imi = CPU.)
JSX SET TO 1 FOR FSYM=1. AND FSYM=3 IF FLOW HAS NOT BEEN COMPUTED
ISX = <NCY+l)*(irYP-3)*ABS<FSY«+10.)+.2
IF ([Link].D SO TO 30
Hif = N5
FSY« = 0.
XC(NM) = 1.
ALP = 0.
XSEP = AHAXKO. iXSEP-1.)
OS = A(«i*I)
00 20 L r 1,MM
XOLO(L) = XC(L)
rOLO(L) = YC(L)
MACHN(L) = MACH(A(D)
20 CPXIL) = CPt«ACHM(l.»
IF ((A8S(YC(MM)-rC(l».L£.l.e-5>«ANO.(IABS(NRN>.ST.999)> 60 TO 50
60 TO 110
30 00 40 L = 2tM
U = (PHI(L+l.l)-PHI(L-l.D)»DELTH-SI(u)
QS = < < J * U ) / F P < L i l l
MACHM(L) = NACH(QS)
HO C P X ( L ) = C P < M A C H N ( L M
MaCHN(.in) = ,5*(NACHN12)+flACHNlM) )
MACHN(l) = HACrlN(M«)
CPX(l) = cP(nACHNd))
CPX(MM) = CPX(l)
3S=aSX(CPX(MM))
IF t F S Y M . E Q . 6 . ) SO TO 60
If ( ( F S Y M . L E . 5 . ) . O K . U T Y P . L E . 8 ) ) 60 To 50
ADVANCE PLOTTER PAPER TO THE NEXT SLAV* PASE
[Link]..5) CALL PLOTtl2.0*FLOAT«I\|T((20.2+XPLT)/12.»,o.«»5)
XPLT = t5
50 CALL GETCP«CDF)
CALL 60PRIN (HP,THETAP,SE^[Link],jfTRANS)
IF ([Link].l) CALL EXIT
ISW = 1
RETURN
60 DO 70 L = [Link]
70 CPP(L) = CPX(L)
lF(([Link]«0).OR,([Link].6.)> 60 TO gO
FIND THE BASE PRESSURE
OELSP = 10.
CPO = CP(|viACHN{IXX-l))
00 80 L = IXXtN
CPN = CP(I"1ACHN(L) )
OELBP s AHIN1([Link],M-CI'0>
 233

BO CPO = CPM
SCP = dCP+RBCP*0£LBP
90 ISW = 1
PCH = ftSS(PCH)
IF [Link]) SO TO 110
MODIFY THE HACH OISTRI3UT10N
CPO = CPl,1ACHN(LSEP»
SEPX = XC(LSEP)
SL = <BCP-CPO)/CXC<M«)-SEPX)
00 100 W = LSEPiNM
CPP(L) = CPO+SL*(XC(L)»S£PX)
100 HACHN(L> r HACH<QSX<CPP{L» )
110 KQMIN = 1
KQ*AX = 1
QHIN = MACHN(l)
QMAX = 8MIN
OARC = TP/FLOAT(NPTS-1)
00 115 L = 1,NPTS
115 H(L» = FLOAT (L-1)*OARC
H(MPTS) s TP
00 116 L = 1,M
116 YV(t) = FLOAT «U-1)*OT
yY(KH) = TP
CALL SPLIF (MH,YY,AKCL»OSOT,COtTDt3»0.»3,Ot )
CALL INTPL (NPTS,H,S,YY»AKCL,OSOT«CO,TO)
S(NPTS) = ARCL(HN)
CALL SPLIT (MM,ARCt»[Link],TO,^.0. ,3.0. )
CALL INTPHNPTS.S .IftCHS, ARCL,[Link],CO,TO)
CALL SPLIF <MM,ARCLiXC,DSOr,[Link]«3«0.«3f 0. >
CALL INTPL (MPTS,S«XXiARCL,XC,[Link])
00 120 L =. [Link]
IF ([Link]) KQNAX = L
IF <MACHS<L».[Link]«I:N) KQHIN = L
QMIN = AXUNi(«ACHStL>,3!"IIN)
QMAX = A*)AX1(MACHS(L).S«AX)
SEPR(L) - 0.
H(L) x 0.
OELS(L) = 0.
120 THETA(L) r 0.
' IF (PC*«LT.O.) GO TO l'+0
KQflAX = KaMIN+INOEXK([Link](KQ«IN+l) f MPTS»KQMIN)
IF ([Link]) CALL ABORT
CALL NASHPIC ( K O W f t X i N P T S )
XTRANS = PCH
IF ([Link].O) XTRANS = XX(KQNAX)
K830T = INO£xR(XTRAMStXX«KQl«IIN>
IF ([Link].1) CALL A90RT
CALL MASHMC (KQBOTtl)

THtTA(l)=FAC*THETA(2)+(l.-FAC»*TH£TA(n)
H(l)=FAC*H(2>+(l.-FAC)*H(t)
OELS<1)=H(1)*THETA(1)
COMPUTE THE SKIN FRICTION ORAS
Q = SQ^T(QS)
RT = (C1-C2*QS)/(C1"C2)
 234

HBT = <H(NPTS>+1.)*(1.-C2*QS/C1)-1.
HB8 = (H.(i)+i.)*(l.-C2«aS/Cl)-l.
COF = 2.*THETA(NPTS)»Q**(.5*( HBT +5.))*RT**3
COF = COF*2.*THETA(l)*a**«t5*( HBB+5.))*RT**3
IF ([Link].1) GO TO 200
c MAKE DISPLACEMENT IONOTONE INCREASING ON THE UPPER SURFACE
00 170 L = [Link]
IF <D£LS(L+l).[Link]<D) OELS(L+1) = OELS(L)
170 CONTIMUE
C LOWER SURFACE - FIND WHERE DELS START"; DECREASING
C TREAT THE LOWER SURFACE LIKE THE UPPER SURFACE IF [Link].O
XPC = .fad
IF ([Link].O.) XPC = 2.
J = KQBOT
180 J = J-l
IF (DELS(j-i).[Link](J)) GO TO iBb
IF ([Link].2) GO TO 180
GO TO 200
185 IF (XX(J).[Link]) SO TO 190
OELStJ-D =• DELS(J)
GO TO 180
C OISPLACtflENT MUST STAY MONOTONE DECREASING
190 J = J-l
IF (DELS(J-1).[Link](J» OELS(J-l) = OELS(J)
IF ([Link].2) GO TO 190
C SMOOTH OELS IS TINES
200 IF ([Link].O) GO TO 220
00 210 I = liIS
OLO = OELS(l)
00 210 L = [Link]
NEW = OE-LS(L-l)
OELS(L-l) = .25*(OLO*NErt*NE«+o£LS(L))
210 OLO = NtM
220 XPLT = XPLT+.5
FAC=(S{NPTS-l)-S{NPTS))/(S(NPTS-l)-S(MPTS-2»
DELS(NPTS)=FAC*DELS(NPTS-2)<-(l.-FAC)«nELS(NPTS-l)
IF ([Link].D SO TO 260
YFAC = 10./S(NPTS)
OH = (H(KQMAX + 1)-H(KQBOT-H)/ FLOAT(2*KQMAX-KQMIN)
FAC = ARCOLO(NT)/S(NPTS)
[Link].1.2) CALL SYMBOL).33,8.7t,.14,55HOISPLACEMENT THICKNESS
1 AT EACH BOUNDARY LAYER 11£RATION,270.,55)
CALL PLOT (XPLT4-XFftC*0£LS(l) ,10.5,3)
00 230 L s [Link]
CALL ? L O T ( X P L T + X F A C * O E L S ( L ) , 1 0 . 5 - Y F A C « S < L ) , 2 )
IF ( ( L . G E . K O B O T ) . AMD. ( L . L E . K Q M A X ) ) H( L ) = HCL-D+DH
230 Y Y ( L ) = S ( L ) * F A C
YY(NPTS) = ARCOLO(.MT)
C OELX WILL 8£ ROUN04RY LAYER DISPLACEMENT AT NT POINTS
CALL SP(-IP(NPTS,YY,OELS,OSOT,CO,T0,3,n.»3,0.)
CALL INTPL«NT,ARCOLO,OELX,YY,DELS,DSDT,CO,TOj
C THE FOLLOWING ARE 3EINS COMPUTED FOR FUTURE PRINT OUT
CALL SPLIF(NPTS,S,L>ELS,OSUT,CO»TQ,3,0.,3,0.)
CALL !NTPL(Wl«l,ARCL,DELP,S,OELS,OSOT,Co»TD)
CALL SPLIF (NPTS,S,H,DSDT,CO,TQ,3.0.,^,0.)
 235

CALL INTPL(NHtARCL,NP,S.H«OSDT»CO»TO)
CALL SPLIF(NPTS,StTHETA,OSOT,CO,TO,3,n.«3.0.)
CALL INTPL <MM,ARCL,THETAP,S t THETA,DSr>T,CO,TD)
CALL SPLJF(NPTS,S, S£P*,OSOT,CO,TO,3, n. ,3,0. )
CALL lNTPL<MM,[Link]«S«SEPR»DSOT,CotTD)
GET THE SLOPES FOR THE OUTER AIRFOIL flT CORRESPONDIMG POINTS
00 2«fO L = [Link]
OOEL = ROEL*(DELP(L)-OSU«(L))
OELP(L> s OOEL
OSJH(L) * DSUNID+ODEL
S(L) = FflC*ARCL(L)
SCIfl) = ARCOLO(NT)
CALL SPLJF(MM,S,Ff1,DSOT,CO,TDt3,0..3,0.)
CALL INTPL(NTtARCOLD,AJ4SNE«,S«FM,[Link],TO)
OELHAX = 0.
00 250 L = [Link]
OOEL - OELX(L)-OELOLO(L)
OELilAX = A M A X K O E L ^ A X t A B S C O O E L n
OY = OELOLD(L)fRDEL*ODEL
AMG = . S t l A N G O L O l D + A N S N E W I L ) )
XX(L)=XOLO(L)

250 OELOLO(L) = OY
ISS = IS
IS - -1
IF (ITrP.EQt99) CALL SOPRIN (HP, [Link])
CALL AIRFOL
IS = ISS
Fsrn = 7.
RETURN
260 00 270 L = ItM*
ARCOLO(L) = ARCL(L)
CPP«L) = CPX(L)
270 ANGOLO(L) = F«(L)
CALL SPLlF(NPTSiS«OELS,OSDT,CO.T0.3.0. .3,0. )
CALL INTPL(MM,ARCLtDSU1,StOELStOSDT,CO«TD)
CALL: SPLIF(NPTStS«SEPRtOSOTtCO«TO«3«0.«3iO.)
CALL I^TPL (MMfARCL»SEPP«SiSEPR,OSOT,(iO,TD)
CALL SPLIF (NPTS,S,TH£TA,[Link],TO,3.0.,3.0. )
CALL INTPL (MWtARCLtTriETAPiS,THETA,OSoT,COtTD)
CALL SOPRIM ([Link]^[Link])
NT = »1i"l
CALL GETCP<COF>
IF ([Link].-l > CALL PLOT (O.,0.,999)
CALL EXIT
ENO

SUBROUTINE GoPRIN<H,TH£TA«SEP»CPP,OEL,XTR)
REAL IftCHN
COMHON PHI(162,31),FP(162,il),A(31),B(31),C(31),D(31),E(31)
1 ,RP<31>,RPP<31),R<31),RS<31),KI<31),AA<162),8B(162),CO<162)
2 ,SI(l62),PHIR(162),XC(162),YC(162),F*l(162),ARCL(162),DSUH(162)
 236

3 ,ANGOL0(l62),XOLO<162},YOLO(l62),ARCoLO(162),D£LOL0<162)
COMWOM /A/ PI»TPtRAD,E1tALP«[Link],DPHI,CL«RCL«YR
1 ,XA«YA«TE«OT«DR,OELTH,0£LRtRAiQCN,OSN»RA<HEPSlLiOCRIT,CltC2
2 , C < l , C 5 t C 6 » C 7 t 3 E T . S E T A , [Link] Hit NNiNSP
3 , IK,jK»[Link],MOO£«[Link],N S .IOII'1,N2tN3tN<».NTiIXX

DIMENSION O S O T m t F P P < l » » F P P P < i ) , H < l ) i S E P U > , T H E T A < l ) « C P P m

1 ..1ACHNU) • C P ( 1 ) , O E L < 1 ) iBL(«M
EQUIVALENCE IFPP(l) t C O ( l » t (FPPP(l) t S I ( l ) ) t (DSOT ( 1 ) »FP( 1 , 31 ) )
EQUIVALENCE (MACHNU » , A<1 II , (CPU) , PHi«Cl) J
DATA lON,[Link]/l.O,0.,.00<t/
SN = . a . / A R C L ( « M )
QMINsflACHMdJ
00 10 L = ItM
QnlN=A*Il\ll(HACHN(U .Q«INI)
10 A R C L ( D = A C O S ( 1 . * S N * A R C L ( L »
ARCt(*|1) = PI
CALL S P t - I F ( H M i A R C U t F r t t O S O T t F P P t F P P P , l . 0 . . 1 » 0 . )
OSOTd) = FPP(l)*l.E-5
O S O T ( M N ) =: -FPP(MM)*l.E-5
00 20 1. = 1«MM
FPP(L) s RAO*F«(U)-180.
20 FPPP(L)= S N * O S O T ( U ) / A « A X 1 ( 1 . E - S , S I N ( A R C L ( L ) ) )
IF ( F S f M . G T . 5 . ) GO TO 120
IF ([Link].o.) so ro &a
WRITE (Nil, 310)
23 IF ([Link].O) W R I T E ( N t « 3 2 0 ) TTLE
WRITE (N»,360» IOFF
DO 30 L = liMH
IF ( M O O ( L * l « 5 5 ) . E a . O ) WRITE < N t » 3 6 0 ) T ON
30 WRITE (N<f,260l L . X C < L ) i r C ( L ) ,FPP(L) .FPPP(L) t«ACHN(L» «CP(L J
RESTORE QUANTITIES TO VALUES THEY HAD UPON ENTERING THIS ROUTINE
i*0 00 50 L = 1,MM
ARCL(L) s (COS(ARCt(L) (-1.I/SN
50 F P ( U « N N > = 1.
CAUL COSi
RETURN
60 RNX = •1*AINT(RN*1.E»5)
IF ( ( f t a S ( Y C ( M M ) - Y C ( l ) ) . L E ; . l . E - 5 ) . A N D . ( I A B S ( N R N ) . G T . 9 9 9 ) ) GO TO 25
WRITE < N < f t 3 9 0 ) [Link]
WRITE <Ni»,330) IOFF
IF ( JK«GE*0 ) GO TO 80
CALL PLOT (2..0..-3)
ENCODE <30»[Link]) [Link]
CALL SYMBOL ( 1.2 , . 7« .14* TTLEi Ot 1 30 )
ENCODE <20<380iTTLEI RMX
CALL SYMBOL ( 1. 5, 1.0 . . 14i TTLE.O. ,20 )
CALL PLOT(50.*XC(1) i3.0*bO,»YC(l) ,3)
00 70 L a 2,nn
70 CALL PLOT ( SO .*XC ( L) .5, 0+^0 .*YC ( L) , 2)
IPEN r 3
80 00 100 L =- 1,MN
YS = YOLO(L)-OSUM(L)/COS(ANGOLd(L))
YC(L) * YS
IF ([Link].-D CALL PLOT(SO.*XOLO(D, 5.0+50, *YS,IPENI
 237

IPEN = 2
IF «NOO<|_+3t55).EO.O) WRITE (N4,330> TON
IF (XOLU(l).[Link]) 60 TO 90
TRANS = 1H
IF (MACHN(U).[Link]) TRANS = lOHSTAGuATION
IF «XOUOU+1>.[Link]).OR.<XOLO<U-l).[Link])) GO TO 65
IF ((XOLOIL+2).ST.XTK1.0R.(XOLU(t-a).[Link]))TRANS= 10HTRANSITION
85 WRITE <N<t,340) XOUO(L)»YOUD(L)[Link],FPPP(L),CPPCU,TRANS
SO TO 100
90 WRITE (Nlf.350) XOLO(U)«YOUOtL)«YS»FPP<UtFPPP(C)«CPPtU)tTHETAjI)
1 .SEP(L)
100 CONTINUE
IF ([Link].O.) NRN = -IABS(NRN)
XP = -A8S(XP)
RETURN
120 WRITE (NH.310)
WRITE (Ni»,300) IOFF
I = 1
YSEP = ABS(XSEP)
IF ([Link].O.) YSEP = 2.
00 150 L = 1,M«
IF (noo<LtSS).eo.o> WRITE <Nt«3oo> IOM
IF (XC(L).[Link]) 60 TO 130
TRANS = 1H
IF (HACHN(L).[Link]) TRANS = 10HSTA&MATION
IF «XCIL+1>. [Link]). OR. (XC(U-U. ST. XrR» SO TO 125
1 = -1
YSEP = ABS(XSEP)
IF ((XC(L+2).[Link]).OR.<XC(L-2).ST,XTR» TRANS = 10HTRANSITION
185 WRITE <Ni»,290) U » X C < U ) « YC(U) tFpP(U) «FPPP(U) iflACHNd.).
1 CP(L),CPP(L),Z,[Link].U
GO TO 15Q
130 BL(1) = 1H
8L(2) = 1H
BL(3) = 1H
BL(<*)a 1H
IF ([Link]) BL(1) = 2 H L S
IF(<SEP<[Link]).AND.<SEP<L+I).[Link])) BL(2)= 2HCS
IF ([Link]) 3U(3)= 2HLM
IF((XC(L).[Link]).AND.(XC(L+I).[Link])) 3L(tl = 2HLP
WRITE (Nit,2eo> BL .UtXC(U).YC<t).FpP(L).FPPP(U)trtACHN(U)t
1 CP(L)fCPP(L),THETA(L),OSUH(L)tSEP(L).rt(L)iO£L(L).L
ISO CONTINUE
GO TO 10
260 FORMAT(Il<H2F9.5 f 2F8.2,2F9.<H
280 FORMAT ( 3 X , 4A2,I5.2F9.5.F9.2«F8.2,F8.<f ,2F9.«f ,F9.5,F9.5.F9.S,F7.2,
1E9.2.I3)
290 FORMAT (Il6t2F9.StF9.2«F8.2tF8t4i2F9.K«2F9.S,8XtA10*7X,IS)
300 FORnAT<Il,l<fXlHL5X2HXS«7Xi2HYSt7Xt3HAMG«i»Xt5HKAPPA|i»XtifHnACH6X2HCP
1 ,6X3HCPl-.tX5HTHETA,5X!tHOEl.S<6X3HSCP,6XlHH,6X2HOO,6XlHl./)
310 FORnAT(lHl«l5X«ifOHLOWER SURFACE TAlt TO UPPER SURFACE TAIL )
330 FORMATdHl/ 17X26HLISTIN6 OF COORDINATES FOR.2X.4A4)
330 FORKATdl /11X1HX, 3X« HY.7X,2HTS,6X, 3HANG. tXt5HKAPPA,6X,2HCP. 5X,
1 5HTHETA,5X,3HSEP/)
FORflAT (F14.5,2F9.5tF8.2tF8.2,F9."*,i*X.A10)
 238

350 FORMAT ( F14.5,2F9.5,F8. 2,f=8.2,F9.4t 2F9.5)

360 FORMAT (Il/12XlHLt&X,lHX»ex,lHY,&Xi3HaNS.<fX5HKAPPA'*X<»MMACH&X2HCP/)
370 FORMAT I aHHs.F^.StHX, SHCL=»F5.3,<*X,<»HT'C=iF«».3)
3BO FORMAT <4H RN=«FY.1.9H MILLION )
390 FORMATdHl/ 9X26HLISTING OF COORDINATES FOR,2X,»At »«U,3HRN=,
1 F4.1.8H MILLION )
ENO

SUBROUTINE NASHMC <K1,<21

C COMPUTE THE SOt/IMORf C A r C R FROM POINT <1 TO K2
C K3 rflut- BE THE SEPARATION POINT
COMMON PHU162.31 ) » F P ( 162«31) i A ( 3 1 ) t B ( 31 ) ,C ( 31 ) , 0 ( 31) . E ( 31 )
1 • * P ( 3 1 ) , R P P ( 3 1 ) < R < 3 1 > , RS(31) , K I ( 3 1 > , a A ( 1 6 £ ) ,Ba<16i>) , C O ( 1 6 2 )
2 , SI(l62),PHIR(162).XC(162),YC(162).Fvi(162)iARCL(162).OSUM(16a)
J , ftNGOLU(l62),XOLD(162),YOUD(lb2),ARCnLD(162
/ A / Pl,TP,RAD,[Link].P,[Link],TC«CHDtOPHI«CL«RCLtyR

2 tC't.C5«CSiC
3 .IK. jK,I2t lTYP..lOOE,ISiNFCi NCT f I
^ , MPTS.H..[Link].1'*
DIMENSION MACHS(l)«H(l),TH£TA(X),SEPR(l),S(l)iOELS(l)tXX(l)
EQUIVAUENCE(|V|ACHS(l)«FP(li26»MH(l),FP(l«&»t(THETA(l)iFp(l(e))
EQUIVALENCE ( SEPR < 1 ) ,F?< 1 • It) ) • < DELSI i > ,FP( 1 , 10» . < S( 1) ,FP
EOUIVALEMCE (XX< 1 ) ,FP< 1,3) )
REAL y)H,HHSQ,NJ,MACHS
OAT A T R t R T H O i T E i , T E 2 < S E P M A X « P I l < 1 I N , P I M A X /.3"*24»320. , 5.E-3,5.E«5,

GAM1 = .5/C2
CSIINF = C<*
INC s ISISN(1,K2-K1)
YSEP = ABS(XSEP)
IF (([Link].O.).AND.([Link].O» YSEP =1.
SEPHAX = SEPH
GE = 6.5
L = Kl
OS = A3S(S(L)-S(L-INO)
10 LP = L*INC
,MH s .S*(H1ACHS(L)*.%IACHS(LP»
iiHsa = HH*MH
CSIH = l.+C2*MHSQ
OSOLO =• OS
OS = ABS(S(LP)-S(D)
OQOS = («ACHS(UP)-1ACHS(L»)/(OS*MH*CSTH)
T = CSIINF/CSIH
RHOH = T**SAM1
NU = T*U,+TR)/(RHOH*(T+TR) J
RTH = RN*MH/(£**NU)
IF ([Link]) SO TO 30
THETAH= RTHO/RTH
THT = THETAH
30 FC = 1.0+.066*lHSa-.008*HH*MHSQ
FR = l.
 239

00 AT MOST 500 ITERATIONS

00 140 J x- 1.499
RTAU= l./(FC*<2.4711*ALOG<FR*RTH*THET4H)+4.75)+1.5*GE+1724./
1 (GC*GE+200.)-16.87)
TAU = RTAU*RTAU
HB = l./(l.-GE*RTAJ)
HH = (HB+1.)*(!.+•178*HHSQ)-1.
SEP = -THETAH*OQOS
IP ([Link].SEP1AX) SO TO 50
IF (XX(L).[Link]) SEP = SEPMAX
50 PIE = HH*sEP/TAU
PIE = AflAXl<PII"[Link]"IINl(PIi'1AXiPlE) )
G =• 6.1*SQRT([Link])-1.7
T2 = A 3 S ( 5 - e E ) / S E
GE = G
OT2 = OTl
OT1 = <HH+2.-MHSQ)*SEP+TAU
IF ([Link].l) GO TO 110
TI = A 3 S « D T 1 - O T 2 ) / O T 1 >
IF ( ([Link].TE2) .AND. ([Link]) ) GO To 130
THETAH = THT+.5*OT1*OS
CONTIMUE
130 THETA(LP) = THT+OT1*OS
SEP = -THETAH*OQOS
THETAH = THETA(LP)
THT = THETA(LP)
S£PR(L) = (SEPR(L)«DStSEP*OSOLO)/(OS+OSOLO)
SEPR(LP> = SEP
H(L) = <H(U*OS + HH*L)SOLC»/(OS+USOl.t»
H(LP) = HH
OELS(L) = H(L)*THETA(L)
L = UP
IF ([Link].K2) GO TO 10
H(K2)=H(K2-INC)+(OS/OSOLO)*(H(rt2-INC).H(K2-INC-INC))
SEPRU2) = 2.*SEPR(K2)-SE»>R(K2-INC)
DELSCK2) = H(K2)*THETA(K2)
H(K1) = 0.
SEPR(Kl) = 0.
RETURM

BLOCK OATA
COilMON P H I ( 1 6 2 « 3 1 ) « F P ( 1 6 2 « 3 1 ) » A ( 3 1 ) , B f 3 1 ) , C ( 3 1 ) 1 0 ( 3 1 1 « E { 3 1 )
1 ,«P(31),RPP(31),R(31),RS(3l),Hl(31),aA(162),BB(162),CO(162)
2 ,31(162),PHIR(162),XC(162).YC(162)tFv) f162)tARCL(162).DSUM(162)
i ,AMGOLO(162),XOLO(162),rOLO(162),ARClLO(162),UELOLO{162)
COVI^OM /A/ [Link].E«liALP,RNtPCH,[Link],OPHItt(..RCL»YR
1 ,XA,YA»TE«OT,OR,OELTHiDELRtRAtQCN»OS(g'[Link] l Cl.C2
2 tC4tC3tC6tC7«3eT«aEI'AtFsr.*1 t XS£PtS£[Link]( l »-)«n«NtnfltNN«NSP-
3 ,IK,J<iIZtITYP,!«!OOe,[Link],NCY,NRNiNG,IDIH,N2tN3,N<»,NT,IXX
«t t NPTS,[Link]*l<*
****IQI« MUST 3E SET TO THE FIKST DIMENSION OF PHI****
DATA PI/3.14153265358979/ , EH/.75/ , ALP/0./ t CL/lOO./ .
1 pCH/,07/ t FSYfl/1.0/ t RCL/1.0/ , BETA/0.O/i RN/20.E6/ ,
 240

z SEPH/.OOI*/ , XSEP/.93/ i xp/o.o/ . N/I&O/ t N/SO/ i NRN/I/ «

3 NFC/80/ , NPTS/81/ f UU/0/ , NG/1/ , IS/2/ , IOIH/162/ « NODE /!/
* t JK/0/ « N2/2/ . N3/3/ t Nt/*/ t LsEP/161/ t IZ/125/ , ITYP/1/
END
 241

LISTING OF THE THREE DIMENSIONAL ANALYSIS PROGRAM J 06/15/7*

PROGRAM FL017I INPUT,OUTPUT,TAPEl,TAPEa,TAPE3,TAPE»f«

1 TAPE5=INPUT.TAPE6=OUTPUT>
c THREE DIMENSIONAL WING ANALYSIS IN TRANSONIC FLOW
C USING SHEftREO PARABOLIC COORDINATES
C WITH STORASE ON THE DISC
C TAPES 1,2,3 ARE DISC FILES USEO IN ROTATION TO STORE
C THE THREE DIMENSIONAL POTENTIAL ARRAY DURING THE CALCULATION
c TAPE n STORES ENOUGH INFORMATION TO CONTINUE THE CALCULATION
C WITH ANOTHER COMPUTER RUN, IF THIS IS DESIRED
C IT SHOULD THEN BE SPECIFIED AS A MAGNETIC TAPE
COMMON 6(193,26,<f)»SEPl,
1 AO(193),SEP2,AK193),SEP3.A2(193),SEPf,A3(193),SEP5,
2 BO(2&>,SEP&»Bl(26)»S£P7»B2<26>»SEpa,B3(26),SEP9»
3 CO(33),SEP10,C1(33),SEP11.C2<33),SEP12,C3(33),SEP13,
<f 50(193,33),SEPlf,EO(129),sEP15,20(129),SEP16,
5 IV(193»33),SEP17,ITE1(33).SEP18»ITE2(33),SEP19,
6 NX,[Link],KT£l,«TE2»KSYM,Sc:AL,SCALZ,
•7 YAW,CYAW«SYAW,ALPHA,CA,[Link]«N1,N2,N3,10
COMMON/FLO/ GK1(193,2&)«BUFl,GK2(193,ab),BUF2,
1 SXX(193),BUF3,SXZ(193),BUFH,SZZ(193),BUF5,
2 SX(193),BUF6,SZ(193),[Link](193),BUF8,KK193).BUF9,
3 C(193),BuF10,D(193>,[Link](193),BuF12,G2(193),
f STRIP,PI,P2,P3,BETA,F«,[Link],IG,JG,KG,NS
DIMENSION XS(2<fl, 11), YS(2«f 1,11 )»ZS(il),SLOPT(U)» TRAIL (11),
1 XP(2<fl)»YP(2«fl),Dl<2m),02<2ifi),D3(2fl)«
2 X(193),Y(193),SV(193),SM(i93),CP(l93),
3 CHORD(33),SCL(33),SCO(33).SCM(33).TITLE(20),
* FIT(3),COVO(3),P10(3),P20(3),P30(3),BETAO(3),
S STRIPO(3),FHALF(3)«NP(11)
C 6 IS R£t)Uc£0 VELOCITY POTENTIAL
NO = 2tl
NE = 193
IREAD = 5
IWRIT = &
KPLOT = 0 '
IPLOT = -1
ISTOP = 2
Nl =1
N2 =2
N3 =3
REWIND 1
REWIND 2
REWIND 3
REWIND if
JO =0
RAO = 57.2957795130823
1 WRITE (IWRIT.600)
WRITE (IWRIT,2)
2 FORMATUfHOPROGRAM FLOl7,70X,32HANTONY JAMESONfCOURANT INSTITUTE/
1 50HOTHREE DIMENSIONAL WING ANALYSIS IN TRANSONIC FLOW,
2 28H USING PARABOLIC COORDINATES)
C READ NEW DATA
C PROGRAM STOPS ON READING THREE BLANK CARDS
 242

READ (IREAD.530) TITLE

WRITE (IWRIT.630) TITLE
READ (IREAD.500)
READ (IREA0.510) FNX,FNY«FNZ,FPLOT,FCONT
NX = FNX
NY = FNY
NZ = FNZ
C IF NX = 0 STOP
IF ([Link].D 60 TO 301
KPLOT = FPLOT
C NX,[Link] ARE NUMBERS OF CELLS IN FIRST' GRID
C KPLOT s: o GIVES NO CALCOMP PLOTS
C KPLOT = 1 GIVES THREE DIMENSIONAL CAL C OMP PLOT
C KPLOT = 2 GIVES CALCOMP PLOTS AT SEPARATE SPAN STATIONS
c FCONT = i. INDICATES CONTINUATION OF PREVIOUS RUN
L = 5*NX/16
XMAX = 2.*L/NX
L = 5*NZ/1S
ZMAX = 2.*L/NZ
C XMAX AND ZMAX ARE M A X I M U M EXTENT OF WING IN COMPUTATIONAL SPACE
READ (IREAD.500)
NM s-. o
C READ RELAXATION PARAMETERS FOR EACH M£SH
11 NM = MM + 1
READ (IREAD.510) FIT( NM),COVO(NM)»Plo(NM),P20(NM),P30<NM),
1 BETAO(NM),STRIPO(NM).FHALF(NM)
c FITO is MAXIMUM NUMBER OF ITERATIONS
C COtfO IS TOLERANCE FOR CONVERGENCE
•C P10 IS SUBSONIC RELAXATION FACTOR
c P20 is SUPERSONIC RELAXATION FACTOR
C P30 IS RELAXATION FACTOK FOK CIRCULATION
C BETAO DETERMINES AOOEO GST
C STRIPO IS WIDTH OF REGION FOR [Link] RELAXATION
c FHALF ME o INDICATES THAT A MESH REFINEMENT SHOULD a£ PERFORMED
c IF FHALF LT o INTERPOLATED POTENTIAL WILL aE SMOOTHED
C ABS(FHALP) TIMES AFTER THE MESH REFINEMENT
IF (FHALF(NM).iM£.O..[Link].3) GO To 11
FHALF(3) = 0.
C READ AERODYNAMIC PARAMETERS.
READ (IRCAD,500)
READ (IRCAD.510) FMACH,YA,[Link]
YAW = YA/RAO
ALPHA = AL/RAO
c FMACH is FREE STREAM MACH NUMBER
c YAM is YAW ANGLE IN DEGREES
c ALPHA is ANGLE OF ATTACK NORMAL TO LEASING EDGE IN DEGREES:
c coo is ADDED PARASITE DRAG COEFFICIENT
C READ GEOMETRIC DATA
C SQUARE ROOT TRANSFORMATION REQUIRES STRAIGHT LEADING EDGE
C PLANFORM AND SECTION VARIATION ARE OTHERWISE UNRESTRICTED
C XS AND YS ARE COORDINATES OF WING SURFACE
CALL SEOM ([Link],[Link],
1 [Link])
KSYM =: ISYM
IF- ([Link].O.) KSYH =: 0
 243

C KSYM = 1 INDICATES SYMMETRIC NONLIFTIigG FLOW

CYAW = COS(YAW)
SYAW - SIN(YAW)
CA = CYAW*COS(ALPHA)
SA = CYAW*SIN<ALPHA)
IF <[Link].l.) GO TO 101
C READ PARAMETERS FOR CONTINUATION OF PREVIOUS CALCULATION
READ (<f) NX,NY,NZ,NfltKl,K2,NIT
MX -- NX +1
MY = NY +2
MZ = NZ +1
C READ CURRENT VALUES OF POTENTIAL
00 62 K=1«MZ
READ (f) ((G(ItJ.l),I=ltMX)«J=l«MY)
BUFFER OUT(N3«1) (G(1,1«1)<G(MX«MY,1))
IF (UNir(N3).GT.O.» GO TO I
BUFFER OUTINI.D ([Link].I)>
c GIVE UP IF- VALUES ARE NOT PROPERLY STORED IN DISC FILES
IF (UNIT(Nl).GT.O.) GO TO 1
62 CONTINUE
READ (<f) (EO(K) ,K=K1,K2)
REWIND N3
REWIND Nl
REWIND H
C CALCULATE MESH POINTS OF' STRETCHED COORDINATES
C [Link] ARE MESH LOCATIONS
C [Link] ARE MULTIPLIERS FOR. FIKST DERIVATIVES
C A2iB2.C2 AND A3,83,C3 ARE MULTIPLIERS FOR SECOND DERIVATIVES
101 CALL COORO <NX,[Link]»XT£0»ZTIP,[Link]|AX,SY«SCAL»SCALZ,
1 AX,AY,AZ,AO«A1,A2iA3,80,Bt,B2,B3,CO,Cl,C2,C3)
C INTERPOLATE UNWRAPPED SURFACE AT MESH POINTS
C SO IS COORDINATE SURFACE CONTAINING WING SURFACE AND VORTEX SHEET
c iv = 2 INDICATES POINTS ON WINI» SURFACE
c iv = i INDICATES POINTS ON VORTEX SHEC*
C IV = 0 INDICATES POINTS ON THE SINGULAR LINE
c OF THE SQUARE ROOT TRANSFORMATION
C IV = -1 INDICATES POINTS JUST bEYONO EDGE OF WING OR VORTElc SHEET
C IV = -2 INDICATES POINTS IN THE FREE STREAM ON THE CUT
C IN THE SQUARE ROOT PLAlMES
CALL SURF <NDiNEtNC,NXtNZtKSYM,NPtKTel«KTE2tITEltITE2,IV,
1 YAW,SCAL» SCALZ« ZS,XS,YS,SLOPT» TRAIL,
2 SO,ZO,AO,CO«[Link],Oi,D2,Ds«XtY»IND)
C INO = 0 INDICATES SPLINE FAILURE DUE rO BAD OATAtGIVE UP
IF ([Link].O) GO TO 291
IF ([Link].l.) GO TO 111
NM =1
NIT = 0
C GENERATE STARTING GUESS FOR NEW CALCULATION
CALL ESTI»|
C ID = 0 INDICATES DISC FAILURE,61VE UP
IF ([Link].O) GO TO 1
REWIND NZ
REWIND Nl
111 WRITE (IWRIT.600)
FCONT = 0.
 244

MX =: NX +1
MY = NY +2
MZ == NZ +1
MIT = FIT(NM)
KIT = MIT + 2 -MB
IF ([Link].3I KIT =• 10
JIT = 0
COV = COVO(Nfl)
STRIP = STRIPO(NM)
BETA = BETAO<NM>
WRITE UWRIT,112)
112 FORMATU9HOCHORDWISE CELL DISTKIBUTION IN SQUARE ROOT PLANE,
1 46H AND MAPPED SURFACE COORDINATES AT CENTER LINE/
2 15HO X ,15H SURFACE HEIGHT)
LZ = NZ/2 *1
DO lllf 1=2,NX
11* WRITE (IWRIT.610) AO (I) ,SO (I,L* J
WRITE (IWRIT.116)
116 FORMATdSHO TE LOCATION , 15H POWER LAW )
WRITE (IWRIT.610) [Link]
WRITE (1WRIT.600)
WRITE UWRIT.118)
118 FORMAT(46HONORMAL CELL DISTRIBUTION IM SQUARE ROOT PLANE/
1 15HO Y )
KY =• NY +1
00 120 J=2«KY
120 WRITE UWRIT,610) BO(J)
WRITE (IWRIT«122)
122 FORMATdSHO SCALE FACTOR, 15H POWER LAW )
WRITE UWRIT,610) SY,AY
WRITE (IWRIT.600)
WRITE (IWRIT.12<t)
12f FORMAT(27HOSPANWIS£ CELL; DISTRIBUTION/
1 15HO Z )
00 126 K=2,NZ
126 WRITE (IWRIT.610) CO(K)
WRITE (IWRIT,128)
126 FORMATdSHO TIP LOCATION, 15H POWER LAW )
WRITE (IWRIT.610) ZMAX,AZ
WRITE (IWRIT.600)
WRITE UWRIT,132)
132 FORMAT(19HOITERATIV£ SOLUTION/
1 <t3HOSTRlP WIDTH FOK HORIZONTAL LINE RELAXATION)
WRITE (IWRIT,6iO) STRIP
WRITE (IWRlT,13if)
13<f FORMATdSHO NX «15H MY ,15H NZ )
WRITE (IWRIT,6<fO) NX,NY,NZ
CALL SCCOND(T)
WRITE UWRIT,660) T
WRITE UWRIT,136)
136 FORMATdSHO MACH NO t!5H YftW ,15H ANS OF ATTACK)
WRITE UWRIT,610) FMACHtYAtAL
WRITE UWRIT, 138)
136 FORMATUOHOITERATION,15H COKRECTIOM ,4H I ,tH J ,tH K ,
1 13H RESIDUAL <4H I <4H J t<fH K ,
 245

2 10H [Link] REL FCT 1,10H REL FCT 2.10H REL FCT S,
3 10H SETA ,10H SONIC PTS)
NIT = NIT +1
JI1 f JIT +1
PI = PlO(NM)
P2 = paO(NM)
P3 = P30<NM)
IF' ([Link]) PI = 1.
IF ([Link].10) P3 = 1.
c UPDATE POTENTIAL BY RELAXATION
C EACH ITERATION IS ONE STEP IN ARTIFICIAL TIME
C EQUIVALENT TIME DEPENDENT EQUATION IS
c (it -ii**a>*GSS +GMM +GNN +TER,«IS IN [Link] ANO GT
CALL MIXFLO
C 10 = 0 INDICATES DISC FAILURE,RETURN TO PREVIOUS ITERATION
IF ([Link].O) GO TO 151
JO = 0
REMIND Nl
REWIND N2
C UPOATEO VALUES ARE STORED IN DISC FILES 1,2,3 IN ROTATION
C SET FILE NUMBERS FOR NEXT ITERATION
N = Nl
Nl = N2
N2 = N3
N5 s N
C WRITE NUMBER OF ITERATIONS NIT,
C LARGEST CORRECTION DG AND ITS LOCATION IG,JG,KG,
c LARGEST RESIDUAL FR ANO ITS LOCATION IR,JR,KR,
C CIRCULATION EO,RELAXATION PARAMETERS P1,P2,P3 ANO BETA,
C ANO NUMBER OF SUPERSONIC POINTS MS
WRITE (IWRIT,650) [Link],IG,JG»KG,FR,IR,JR,KR,EO(LZ),
1 P1,P2,P3,BETA,NS
C EVERY KIT CYCLES SAVE CURRENT VALUES ON TAPE i*
C TO ALLOW RESTART IN CASE OF MACHINE FAILURE
IF ([Link]) GO TO 251
IF ([Link](OG).[Link]»[Link](OG).LT.10.) GO TO 11*1
C STOP ON ITERATION COUNT OR IF tRROR HEtTS TOLERANCE
c OR IF ITERATIONS DIVERGE.
GO TO 1«>1
c Jo = i INDICATES SUCCESSIVE DISC FAILURES,GIVE UP
151 IF ([Link].l) GO TO 1
REWIND Nl
REWIND "2
JO = 1
C RESET FILE NUMBERS FOR PREVIOUS ITERATION
N = N3
N3 = N2
N2 = Nl
Nl = N
GO TO 1"*1
C GENERATE AND WRITE AERODYNAMIC PARAMETERS FOR EACH SPAN STATION
C READ FROM THE OISC ANO PROCESS SLICES OF THE G ARRAY *=OR FIXED Z,
C REPRESENTING VALUES OF POTENTIAL ON X.Y PLANES
C CONTAINING SUCCESSIVE WING SECTIONS
161 LX = NX/2 *1
 246

CALL SECOND(T)
WRITE (IWRIT.660) T
WRITE (IWRIT.600)
C READ FIRST THREE SLICES OF POTENTIAL ftRRAY FROM DISC- FILE
00 162 L = l»3
BUFFER IN CNltl) (6(1,1,L)»G(MX,MY,L))
c RETURN TO PREVIOUS ITERATION IN EVENT OF DISC FAILURE
IF' (UNIT(Nl).GT.O.) 60 TO 151
162 CONTINUE
K a: a
C INCREMENT Z
171 K = K +1
IF ([Link]) GO TO 191
c SHIFT SLICES OF POTENTIAL ARRAY
00 172 J=1,MY
00 172 IsltMX
G(I,J,1> = 6(ItJ«2)
172 6(1,J,2) - G(I«J,3>
C READ SLICE OF POTENTIAL ARRAY FROM OIsC FILE
BUFFER IN (Nl.l) (611,1,3)«G(MX,NY»3)|
c RETURM TO PREVIOUS ITERATION IN EVENT OF DISC FAILURE
IF (UNIT(Nl).GT.O.) GO: TO 151
IF ([Link].KTE2) GO TO 171
Z = SCALZ*CO(K)
11 = ITEKK)
12 = ITE2(K)
C CALCULATE SURFACE SPEED SV,MACH NUMBER SM,PRESSURE COEFFICIENT CP
C ANO COORDINATES X»Y OF WING SECTION
CALL VELO tK,2,SV,SM,CP»X,Y)
CHORD(K) = X(Il) -X(LX)
C CALCULATE SECTION LIFT,DRAG ANU MOMENT COEFFICIENTS
CALL FOKCF (11,12tX,Y,CP,[Link](R),n..SCL(K)tSCO«K),SCM(K))
IF ([Link]) <»0 TO Ig5
WRITE (IWRIT.600)
WRITE (IWRIT.182)
182 FORMAT(2i»HOSECTION CHARACTARISTICS/
1 15HO MACH NO ,15H YA« «15H ANG OF ATTACK)
WRITE (IWRIT.610) FMACH,YA,AL
WRITE ([Link])
IS* FORMAT(15HO SPAN STATION,15H Cl- «15H CO ,
1 15H CM )
185 WRITE (IWRIT.610) Z,SCL(K),SCO(K),SCM(K)
C IF KPLOT = 0 LIST ANO [Link] CP
IF ([Link].O) CALL CPLOT (II,I2,FMAcH,X,Y,CP)
IF ([Link].2) GO TO 171
C IF KPLOT s 2 GENERATE CALCOMP PLOT OF SECTION CP
CALL GRAPH (IPLOT,II,I2»X,Y,CP,TITLE,[Link],
1 Z,SCL«)«SCO(K),CHOROO)
IPLOt = 0
GO TO 171
c CALCULATE TOTAL LIFT .DRAG AND MOMENT COEFFICIENTS
191 CALL TOTFOR(KTE1,KTE2,CHORO,SCL,SCO,SCM,CO,SCALZ«.23,
1 CL,CDl»CMP,CflR,CMY)
C01 s CYAMtCOl
CO s COO +C01
 247

VL01 = 0.
IF (ABS(C01).GT.l.£-6) VL01 = CL/C01
VLO = Oi
IF <ABS«CO)tGT.l.E-6) tfLO = CL/CD
WRITE (IWRIT.600)
REWIND Nl
CALL CHARTY
WRITE <IWRIT,600)
WRITE (IWRIT.192)
192 FORMAT121HOWING CHARACTARISTICS/
1 ' 15HO MACH NO ,15H YAW ,15H ANG OF ATTACK)
WRITE UWRIT.610) F M A C H , Y A * A L
WRITE <IWRIT,19<H
19t FORMATU5HO CL ,15H CO FORM ,15H CO FRICTION ,
1 15H CO ,15H L/D FORM ,1SH t/0 )
WRITE (IWRIT.610) C L » C 0 1 » C O O » C O » V L 0 1 , V L D
WRITE <IWRIT,196)
19& FORNATUSHO CM PITCH i!5H CM ROLL »15H CM YAW )
WRITE (IWRIT.610) CMP»CMRtCMY
REWIND Nl
IF ( K P L O T . L T . l ) GO TO 201
IF KPLOT GT 0 GENERATE THREE DIMENSIONAL CALCOMP PLOT
CALL THREEO<IPLOT*SV,S«*CP.X,YtTITL£,[Link]»CO,CHOROO>
IPLOT = 0
10 = 0 INDICATES DISC FAILURE,KETUKN TO PREVIOUS ITERATION
IF (IOtEQ.0) GO TO 151
STOP ON OPERATOR COMMAND
201 IF ([Link].l) GO TO 501
IF (FHALF(NM).EQ.O.) SO TO 1
REFINE GRID IF FHALF ME 0
NX = NX +NX
NY = NY +NY
NZ = NZ +NZ
RECALCULATE MESH LOCATIONS ON KEFINEO GRID
CALL COORO (NX,NY«NZ,xrEOtZTIP«XMAX ( ZqAX,SY<SCALtSCALZ,
1 AX t [Link],AO,Al,A2,A3,BO f Bi,B2,B3,CO,Cl,C2,C3)
INTERPOLATE UNWRAPPED SURFACE ON REFIiyED GRID
CALL SURF (NOfNE,MC,NX«NZtKSYfl«NP,KTElfKT£2,ITCl«IT£2,XV,
1 YAW,SCAL«SCALZiZS«XS,YS,SuOPT,TRAIL«
2 SO,ZOiAO,[Link]«Ul,[Link]»X,Y»lND)
IND = 0 INDICATES SPLIME FAILUKE DUE TO BAD DATA,SIl/E UP
IF ([Link].O) GO TO 291
INTERPOLATE POTENTIAL ON REFINtD GRID
CALL REFIN
10 = 0 INDICATES DISC FAILURE,KETURN TO PREVIOUS GRID
IF (10.£0.0) GO TO 221
REWIND Nl
REWIND N2
NSMOO = -FHALF(NM)
IF FHALF LT 0 SMOOTH INTERPOLA'ED POTENTIAL ABS(FHALF) TIMES
IF ([Link].l) GO TO 211
00 202 N=l,NSMOO
CALL SMOO
10 = 0 INDICATES DISC FAILURE,RETURN TO PREVIOUS SKID
IF ([Link].O) GO TO 221
 248

REWIND Nl
202 REWIND N2
C RESET FjLE NUMBERS
211 N = Nl
Nl = N2
N2 = N3
N3 = N
C INCREMENT NUMBER OF MESH
NM = NM +1
NIT = 0
SO TO 111
C RESTORE PREVIOUS GRID
221 .MX = NX/2
NY = NY/2
NZ - NZ/2
C RECALCULATE MESH LOCATIONS UN PREVIOUS GRID
CALL COORD (NX,NY,NZ,XT£0,ZTIP,XNAX,Z.v|AX,SY,SCAL,SCALZ,
1 AX,[Link],[Link].A2«A3,BO,Bi,B2.B3,CO»Cl,C2,C3)
C INTERPOLATE UNWRAPPED SURFACE ON PREVIOUS GRID
CALL SURF (NO,N£,.MC,[Link]»[Link],KTE2«IT£l,ITE2,IV,
1 YAW,SCftL,SCALZ,ZS,XS,YS,SLOPT,TRAIL,
2 SO,ZO» AO,CO,[Link], 1)1,02,03»X,Y»IND)
c INO = o INDICATES SPLINE FAILUKE DUE jo BAD DATA,GIVE UP
IF ([Link].O) GO TO 291
SO TO 151
c WRITE THREE COPIES OF; INFORMATION NEEDED TO RESTART ON TAPE
251 Kl a. KTEl -1
K2 = KTE2 +ITE2(KT£2) -NX/2
00 252 M=l,3
WRITE (4) NX,NY,NZ,N«,KliK2,NIT
00 262 K=liMZ
BUFFER IN <NI,D <G<I,I,I>,G<MX,MY,IM
c RETURN ro PREVIOUS ITERATION IN EVENT OF DISC FAILURE
IF (UNrT(Nl).GT.O.) GO TO 281
262 WRITE (if) «G<I,J,1),I=1,MX)«J=1,MY)
REWIND Nl
WRITE (t) (EO(K).K=KltK2)
ENDFILEi if
252 CONTINUE
REWIND t
c ALLOW OPERATOR TO STOP CALCULATION
CALL SSWTCH([Link])
IF ([Link].l) GO TO 161
JIT a 0
IF ([Link](OG).[Link](OG).LT.10.) GO TO
SO TO 161
281 REWIND H
SO TO 151
291 WRITE (IWRIT,600)
WRITE (IWRIT,292)
292 FORMAT(2<fHOBAD DATA«SPLlNE FAILURE')
SO TO 1
C TERMINATE CALCOMP FILE
301 IF ([Link].O) CALL PLOT(0.,0,i999)
STOP
 249

500 FORMAT(IX)
510 FORHAT<8E10.7>
530 FORMAT<20At)
600 FORMAT(lHl)
610 FORMATtF12.H,7F15.'H
620 FORMAT(8El5.5>
630 FORMAT(1HO»20A<»)
640 FORMATt16,7115)
650 [Link])
660 FORMATU5HOCOPIPUTING TIM£,F10.3»10H SECONDS)
END

SUBROUTINE GCOM (NDtNC«NP,ZS»XStYS,SLOPTiTRAlLtXPtYPt

1 [Link])
C GEOMETRIC DEFINITION OF WING
C XS AND YS ARE COORDINATES OF WING SURFACE
C THE SECTIONS AT DIFFERENT SPAN STATION ARE ALIGNED
C SO THAT THEIR SINGULAR POINTS AS DEFINED BY THE DATA
C LIE ON A STRAIGHT LINE
C THE WING IS UNWRAPPED ABOUT THIS LINE
C BY A SQUARE ROOT TRANSFORMATION TO PARABOLIC COORDINATES
DIMENSION . XS<NO,1),YS<NO,1),ZS(1),SLOPT<1>,TRAILU),
1 XPU)«YP(l)tNP(l>
IREAD = 5
IWRIT = 6-
RAO = 57.2957798130623
READ (IREAD,500)
READ (IREA0.510) FNC
c NC is NUMBER OF SPAN STATIONS AT WHICH THE SECTION is DEFINED
C IF NC LT a THE GEOMETRY IS ASSSUMEO TO BE UNCHANGED
C FROM THE PREVIOUS CASE
IF ([Link].2.) RETURN
NC = FNC
ISYM = 1
XTEO = 0.
CHOROO = 0.
K =1
11 READ (IREAU.500)
READ (IREAD,510) ZS(K).CHORD,THICK,Al,FSEC
ALPHA = AL/RAO
c zs is SPAN STATION
c PROFILE is SCALED TO A LENGTH EQUAL TO CHORD
C AND ROTATED THROUGH THE TWIST ANGLE AL
C MEASURED NORMAL TO THE LEADING EOSE In DEGREES
C ITS THICKNESS CHORO RATIO IS RtUUCEO 3Y THE FACTOR THICK
C FSEC = 1 INDICATES THAT A NEW PROFILE IS DEFINED
C BY A TABLE OF COORDINATES
C FSEC = 0 INDICATES THAT THE PROFILE IS DERIVED
C FROM THE EXISTING TABLE OF COORDINATES
IF ([Link].O.> GO TO 31
READ (IREAD,500)
READ (IREAO,510) FSYMiFNUtFNL
 250

NU = FNU
NL = FNL
N = NU +NL -1
C FSYH = 1 INDICATES SYMflETRIC PKOFILE
C FOR WHICH ONLY THE UPPEK SUKFACE IS R^AD
C NU AND NL ARE NUMBERS OF UPPER AND LOuER SURFACE POINTS
REAO (IREAO,500)
C REAO TRAILING EDGE INCLUDED ANGLE AND SLOPE.
C AND COORDINATES OF SINSULAR POINT
REAO (IREA0.510) [Link].XSIN6,YSING
REAO (IREA0.500)
c REAO UPPER SURFACE COORDINATES
00 12 I=NL»N
12 REAO (IREAD.510) XP(I).YP(I)
L = NL +1
IF ([Link].O.) GO TO 15
REAO (IREAD.500)
C REAO LOWER SURFACE COORDINATES
00 14 1=1,NL
REAO (IREAD.510) y/[Link]
J = L -I
XP(J) - VAb
!*• YP(J) = OUfl
GO TO 21
15 J = L
DO 16 I=NL»N
J = J -1
XP(J) = XP(I)
16 YP(J) = -YP(I)
21 WRITE (IWRIT.600)
WRITE (IWRIT.22) ZS(K)
22 FORMATU6HOPROFILE AT I = .F10.5/
1 15HO TE ANGLE ,15H TE SLOPE ,15H X SING
2 15H Y SING )
WRITE (IWRIT.610) [Link],YSING
WRITE UWRIT.2IM
1
2 * FORMATdSHO X ,15H Y
00 26 1=1,N
26 WRITE (IWRIT.610) XP(I)«YP(I)
C SCALE AND ROTATE PROFILE
31 SCALE = CHORO/(XP(l) -XP(NL))
XX = XP(NL) *(XSINS -XP(NL))*THICK
YY = YP(NL) *(YSING -TP(NL))*THICK
CA = COS(ALPHA)
SA = SIN(ALPHA)
00 32 1=1.N
XS(I.K) = SCALE*<(XP(I) -XX)*CA +THICK*<YP(I) -YT)*SA)
32 Y S < I , K > = SCAUE*(THICK*(YP(I) -YY)*CA -<XP(I) -XX)*SA)
SLOPT(K) = THICK*SLT -TAN(ALPHA)
TRAIL(K) = THICK*TRL/RAD
NP(K) = N
NP is NUMBER OF POINTS DEFINING PROFILE
CHORDO = [Link])
XTEO = AMAXl([Link](liK)l
CHORDO AND XTEO ARE MAXIMUM CHURD AND KEARMOST EXTENT OF WING
 251

IF ([Link].O..[Link].O.) ISYM = 0
ISYM s 1 INDICATES SYMMETRIC WING
WRITE (IWRIT,52) ZS(K)
52 FORMAT(27HOSECTION DEFINITION AT Z a .F10.5/
1 15HO CHORD .ISHTHICKNESs RATIO,15H ALPHA
WRITE (IWRIT,610) CHORD,THICK,AL
K = K +1
IF ([Link]) GO TO 11
20 = .5*(ZS(1> +ZS(NC))
00 62 K=1,NC
62 ZS(K) = ZS(K) -ZO
ZTIP = ZS(NC)
ZTIP IS TIP LOCATION AFTER WIN<i HAS BEEN C£NTEBEO AT Z s. Q.
RETURN
500 FORflAT(lX)
510 FORHATCflElO.T)
600 FORNAT(lHl)
610
END

SUBROUTINE COORD < NX, NT ,NZ ,XT£0 ,ZTIP. XHAX,ZMAX,SY« SCALtSCALZ,

1 AX,ftr,AZ,AO,Al,A2,ft3,BO,Bl,B2,B3,CO,Cl,C2,C3)
C SETS UP STRETCHEO PARA80LIC AMU SPANWlSE COORDINATES
c STRETCHING LAW HAS FORK x = xx«xx LT c»
C X = C +(XX -C)/(l. -((XX -C)/(l. -C))**2)**AXiXX GT C
C WHERE AX DETERMINES POUER LAW
c IN COMPUTATIONAL SPACE xx RANGES FROM -i. TO i.»
c YY RAMSES FROM o. TO [Link] RANGES FRO«I -i. TO i.
C A O t d O t C O ARE MESH LOCATIONS
C A1,B1,C1 ARE MULTIPLIERS FOK FIKST DERIVATIVES
C A2,82,C2 AND A3,B3,C3 ARE MULTIPLIERS FOR SECOND DERIVATIVES
C IF: OGI AND OGII ARE FIRST AND SECOND DIFFERENCES
C GX = A1*OSI AND GXX = A2*(OGII *Aa*OsI )
DIMENSION AO(l),Al(l)«A2(l),A3(l),Bn(l),81(l),B2(l)»B3(l),

KY = NY +1
OX = 2. /NX
OY = l./NY
OZ = 2./NZ
SELECT POWER LAWS
AX = .5
AY = .5
AZ = .5
SY = .5
SY SCALES Y SPACING RELATIVE TO X SPACING
SCAL = XT£0/(.50001*XHAX*XMAX)
SCALZ = ZTIPm.000001*ZMAX)
V2 = (DX/DY)**2
Wl = SCAL/SCALZ
W2 = «W1*OX/OZ)**2
GENERATE X MESH
00 12 1=2, NX
 252

00 = (I -1)*OX -1.
B = 1.
IF (ASS(OO).GT. X M A X ) GO TO 13
DO = DO
01 = 1.
02 = 0.
GO TO IH
IF ([Link].O.) B = -1.
A = 1. - ( ( 0 0 -B*X«AX>/(1. .XMAX))**2
C = A** X
D = (AX + AX -l.)*(l. -A)
00 = 8*X 1AX +(00 - B * X H A X ) / C
01 = A*C (1. 4-0)
02 = -(A +AX)*(DD -B*XMAx)
*(3. +0)/((1. -X«AX)**2)
AO(I) = 00
Aid) = ,5*D1/OX
A2U) = 01*01
12 A3(I) = ,5*DX*02
GENERATE Y MESH
00 22 J=2,KY
00 (KY -J)*OY
A 1. .00*00
C A**AY
0 (AY + AY -!.)*(!. A)
01 A * C / ( (1. +0)*SY)
B0( J) SY*00/C
Bl(J) ,5*Ol/OY
82(J)
22 B3(J) = -AY*00*OY*<3. +0)*A)
GENERATE Z ilESH
00 32 K=2,NZ
DO (K -1)*OZ -It
B 1.
IF (ASS(OO) >GT< ZHAX) GO TO 33
00 DO
01 1.
02 0.
GO TO i
IF (DO, LT.O.) B = -1.
A = 1. -((00 -B*Zf1AX)/(l. .ZMAX»**2
C = A**AZ
0 = (AZ +AZ -lt)*(lt -A)
DO = B*ZMAX +(00 -B*Z«AX)/C
01 = A*C/(1. +0)
02 = -(AZ 4-AZ)*(DD -B*ZMAX)
*(3, +0)*A*(1. -ZflAX)**2)
CO(K) = 00
CKK) = .5*01*W1/DZ
C2(K) = 01*01*^2
32 C3(K) = ,5*OZ*02

ENO
 253

SUBROUTINE SURF <NO,,M£,NC,NX,NZ,KSYM»NP,KTEliKTE2, ITEl, ITE2. IV,

1 YAW,SCAL,SCALZ,ZS,[Link],SLOPT,TRAIL,
2 SO,ZO,AO,CO»XP,YP,D1*D2»03»X,Y,INO)
C INTERPOLATES MAPPED WINS SURFACE AT M^SH POINTS
C INTERPOLATION IS LINEAR IN PHYSICAL PLANE
C AND QUADRATIC IN TRANSFORMED PLANE Y = 0,
C XS ANO YS ARE WINS COORDINATES IN PHYSICAL SPACE
C AT SPAN STATIONS ZS
C SO IS COORDINATE SURFACE CONTAINING WlNG SURFACE AND VORTEX SHEET
C IN TRANSFORMED SPACE
C ZO IS STRCAMWISE PROJECTION ON SINGULAR LINE
C OF TRAILING EDGE ANO DOWNSTREAM SIDE £tiGE
C USED IN DETERMINATION OF; STRENGTH OF yORTEX SHEET
C IV == 2 INDICATES POINTS ON WING SURFACE
C IV = 1 INDICATES POINTS ON VORTEX SHEET
C IV s 0 INDICATES POINTS ON THE SINGULAR LINE
C OF THE SQUARE ROOT TRANSFORMATION
C IV = -1 INDICATES POINTS JUST BEYOND E06E OF WING OR VORTEX SHEET
C IV = -2 INDICATES POINTS IN TH£ FREE STREAM ON THE CUT
c IN THE SQUARE ROOT PLANES
C KTEl AND KTE2 ARE K INDICES AT WING TIPS
C ITEl AND ITE2 ARE I INDICES AT LOWER ANO UPPER TRAILING EDGE
C INTERPOLATION IS LINEAR IN PHYSICAL PLANE
DIMENSION SO<NE»1>«XSCNO,1),YS<NO,1).ZS<1),SLOPTUHTRAIL<1),
1 AO(1),CO(1)»ZO<1),XP<1>»YP<1),01(1),02(1>iD3<l)»
2 X(1)«Y(1),IV(NE«1)«NP(1>,iTEl(l),ITE2<1>
PI a 3.14159265358979
TYAW = ,5*SCAL*TAM(YAW)
OX = 2./NX
LX = NX/2 +1
MX = NX +1
MZ = NZ +1
C VORTEX AND EDGE POINTS ARE REPRESENTED BY SETTING IV TO IVO OR IVl
c IF WING is SYMMETRIC VORTEX ANU EOGE POINTS DO NOT EXIST
C AND ALL POINTS OFF WING SURFACE ARE TREATED AS FREE STREAM POINTS
C BY SETTING IVO AND IVl TO -2
IVO a 1 -KSYM -KSY1 -KSYi"!
IVl = -1 -KSYM
c INITIALIZE iv FOR POINTS OUTSIUE WING AND VORTEX SHEET
C AND POINTS ON THE SINGULAR LINE
DO 2 K=1,MZ
ITE1(K) = MX
ITE2(K) = MX
00 H 1=1,MX
IV(IiK-) = -2
t SO(I,K) = 0.
2 IV(LX,K> = 0
K =1
K2 =2
UK = K +1
IF ([Link]) GO TO 91
Z = SCALZ*CO(K)
IF ([Link]<1)) GO TO 13
C Z IS SHORT OF FIRST SPAN STATION
KTEl = K +1
 254

C TRY NEXT VALUE OF Z

GO TO 11
13 IF ([Link](NO) GO TO 81
K2 = K2 -1
C Z IS ON WING
C INTERPOLATE PROFILE BETWEEN ADJACENT SPAN STATIONS
21 K2 = K2 +1
Kl = K2 -1
R2 = 1.
IF (ZS(K2) -Z) 21,25*23
23 R2 • = (Z -ZS(K1))/(ZS(K2) -ZS(K1))
s
25 Rl 1. -R2
C = R1*XS(1«K1) +R2*XS(i,K2)
CC = SQRTUC +O/SCAL)
C C IS INTERPOLATED CHORO
C CC IS CHORO IN SQUARE ROOT PLANE
C DETERMINE I INDICES AT TRAILING ED6E
00 32 1=2,NX
IF t ( A O i l ) +.5«OX).LT.-CC) II = I +1
IF KftO(I) -.5*OX).[Link]) 12 = I
32 CONTINUE
ITEKK) = II
ITE2JK) = 12
C SCALE CHORD SO THAT TRAILING EDGE COlMCIOCS
C WITH NEAREST MESH LOCATION
CC = AO(I2)/CC
C PROJECT TRAILING EOGE POINT ON SINGULAR LINE
ZO(K) = Z -TYAW*AO(I2)*AO(I2>
C GENERATE TRANSFORMED PROFILE AT SPAN STATIONS Kl AND «2
C AND CORRESPONDING PROFILE AT INTERPOLATED SPAN STATION K
C SET KK TO INDEX OF FIRST SPAN STATION
KK = Kl
P = Rl
i»l N •* NPUK)
9 = SQRT(XS<1,KK)/C)/CC
C SCALE MESH LOCATIONS FOR INTERPOLATION! OF PROFILE
DO »2 1=2,NX
42 X(I) = Q*AO(I)
C APPLY SQUARE ROOT TRANSFORMATION TO PROFILE
c USING CONTINUITY TO OBTAIN CORRECT BRANCH
ANGL = PI +PI
U "1.
V = 0.
DO <t* 1=1,N
' ANGL = ANGL +ATAN((U*YS(I»KK) .V*XS(I<KK))
1 /(U*XS(I,KK) +V*YS(I,KK))>
R = SQRT(XS(I,KK)»*2 *YS(I,KK>**2)
U = XS(ItKK)
V = YS([Link])
R = SQRT((R +R)/SCAL)
XP(I) = R*COS(,5*AMGL)
H<f YPd) = R*SIN(.5*ANGL)
C DETERMINE SLOPES Tl AND T2 OF LOWER AiyO UPPER SURFACE
C AT TRAILING EDGE TO PROVIDE ENti CONDITIONS FOR SPLINE
ANGL = ATAN<SLOPT(KK»
 255

ANSL1 = ATAN( YS(1,KK)/XS(1«KK))

ANGL2 = ATAN(YS(N«i<K)/XS{N«KK) )
ANGL1 = ANGL -,5*(AN6L1 -TRAlLUK))
ANGL2 = ANGL ..5*<ANGL2 4-TRAILUK))
Tl = TAN(ANGH)
T2 = TAN(ANSL2)
FIT SPLINE TO UNWRAPPED PROFILE
CALL SPLIF <l,N,XP»rp,01,02,03il,Tl,l.r2,0.0.,INO)
INTERPOLATE SPLINE AT 1ESH LOCATIONS
CALL INTPL (Il»I2tX«Y»ltN»XP,YP,01,02.D3,0)
CONTINUE UNWRAPPED PROFILE 8EYONO LOW^R TRAILING EOSE
XI ,25*XS(1«KK)
A SLOPT(KK)*(XS(1,KK) -XI)
B l./(XS(l»KK) -XI)
ANGL PI +PI
U 1.
V 0.
11-1
00 52 1=2, M
XX = .5*SCAL*Xd)**2
0 =. B-MXX -XI)
YY = YS(1,KK) fA*ALOG(U)/D
ANGL = ANGL + A T A N ( ( U * Y Y - V * X X ) A ( U * X X + V * Y Y ) )
R = S B R T ( X X * * 2 +YY**2)
U = XX
V * YY
R = SQRT(<K +*)/SCAL)
Yd) = R*SIN(.5*ANGL)
CONTINUE UNWRAPPED PROFILE BEYOND UPPER TRAILING EOSE
A SLOPT(KK)*(XS(N»KK) -XI)
8 l./(XS(N,KK) -XI)
ANGL: 0.
U 1.
V 0.
M 12 +1
00 5<t
XX = ,5*SCAL*Xd)**2
0 = B*(XX -XI)
YY = YS(N,KK> +A*ALOG<U)/0
ANGL = ANGL +ATAM((U*YY -V*XX)/(U*XX +V*YY»
R = SORT(XX**2 +YY**2)
U = XX
V = YY
R = SQRT((R *-R)/SCAL)
5M Yd)
Y(I) = R*SIN(.5*AN6L)
ADO CONTRXSUTION TO PROFILE AT INTERPOLATED SPAN STATION
Q = p*Q*CC*CC
00 62 1=2,NX
62 SO(I,K) = SO(I,K) *8*Y(I)
IF IKK.E8.K2) GO TO 71
SET KK TO INDEX OF SECOND SPAN STATION
KK = K2
P = R2
GO TO tl
SET IV TO INDICATE SURFACE POINT
 256

71 00 72 I=I1»I2
72 IV(I.K) = 2
C SEARCH FOR POINTS ON VORTEX SHEET AT I INDICES OFF «IN6 SURFACE
M =11-1
00 7» 1=2,»
c DETERMINE: STREAMWISE PROJECTION ON SINGULAR LINE
ZZ = Z -TYAW*AO(I)*AO(I)
C SET IV TO INDICATE VORTEX POINT
C IF PROJECTION IS 8EYONO PROJECTION OF UPSTREAM TIP
IF ([Link])) IV(I,K) = IVO
7H CONTINUE
« - 12 *1
00 76 I=M,NX
C DETERMINE STREAMWISE PROJECTION ON SINGULAR LINE
ZZ = Z -TYAW*AO(I)*AO(I)
C SET IV TO INDICATE VORTEX POINT
C IF PROJECTION IS BEYOND PROJECTION OF UPSTREAM TIP
IF ([Link](KTEl)) IV(I,K) = IVO
76 CONTINUE
KTE2 = K
GO TO 11
C Z IS BETONO LAST SPAN STATION
C SEARCH FOR POINTS ON VOKTEX SHEET
61 00 82 1=2,NX
C DETERMINE STREAHWISE PROJECTION ON SINGULAR LINE
ZZ = Z -TYAW*AO<I)*AO(I)
C SET IV TO INDICATE VORTEX POINT
C IF PROJECTION IS WITHIN PROJECTION OF DOWNSTREAM TIP
IF ([Link](NC>.[Link](KT£l)) ItMItK) = IVO
82 CONTINUE
60 TO 11
91 N = KTE2
IF [Link].) GO TO 93
C PROJECT DOWNSTREAM SIDE EOSE POINTS. ON SINGULAR LINE
10 = ITEKKTE2) +1
DO 92 I=IOiLX
N = N +1
92 ZO(N) = SCALZ*CO(KTE2) -TYA«*AO(\)*AO(I)
93 I = ITEl(KTEl)
ZO(KTEl-l) = SCALZ*CO(KTE1-1) - T Y A w » A O ( I ) * A O ( I )
ZOIN+D = SCALZ*CO(KTE2+1)
C LOCATE POINTS JUST BEYOND EDGE OF WINg OR VORTEX SHEET
DO 102 K=2iNZ
00 102 I=2iNX
IF (IV(I,K).GT.O) 60 TO 102
IF (IV(I+1<K+1),GT.O.O«.IV(I-1»K4.1).GT.O) IV(I»K) = IVl
IF (IV(I*1.K-1),[Link]<.IV(I-l,K-l).GT.O) IV(IiK) = IVl
102 CONTINUE
RETURN
END
 257

SUBROUTINE ESTIM
C GENERATES INITIAL ESTIMATE OF POTENTIAL
C SUCCESSIVE SLICES OF THE' S ARRAY , REPRESENTING VALUES OF POTENTIAL
C ON X-Y PLANES AT SUCCESSIVE VALUES OF Z,ARE GENERATED
C ANO STORED ON TWO OISC FILES TO PROVIoE BACK UP
C IN EVENT OF SUBSEQUENT OISC FAILURE
COMMON G(193,26«<t) «SEPl,
1 A0(193) ,SEP2,A1<193) ,SEP3. A2( 193) ,SEP4» A3t 193) ,SEP5,
2 80<2&),SEP&»Bl<26)»SEp7,Ba<26),SEpe,B3(26>,SEP9»
3 CO(33),SEP10,C1(33),SEP11,C2(33),SEP12,C3<33),SEP13,
f SOU93,33),SEPl'*,EO<129),sEP15,ZO<129),S£Pl&,
3 IV< 193,33), SEP17, 1 TEK33).SEP18,ITE2(33),SEP19,
6 NX,[Link],KTEl,KTE2»KSYN,ScAL,SCALZ«
7 YAW, [Link], ALPHA, CA,[Link],N1«N2»N3, 10
MX = NX +1
KY = NY +1
MY = NY +2
MZ = NZ +1
C SET THE G AKRAY TO ZERO
00 12 1=1,193
00 12 J=l,26
00 12 K=l,i*
12 G(I,J,K) =• 0.
K =1
C SET VALUES OF POTENTIAL AT DUMMY POINTS BEHIND BOUNDARY
21 00 22 1=2, NX
G(I,KY*1,D s: 0.
IF (IV(I,K>.LT.2) GO TO 22
C IV = 2 INDICATES POINT ON WING SURFACE
C SET POTENTIAL BELOW SURFACE TO SATISFY BOUNDARY CONDITION
DSI = SOU + l.K) -SO(I-l.K)
OSK = SO(I.K-fl) -SO(I,K-1)
SX = A1(I)*OSI
SZ = ClfK)*OSK
U = CA*AO(I) 4-SA*SO(I«K)
W = SYAW
FH = AO(I)*AO(I) +SO<I,K)*SO(i,K)
V = Bl(KY)*(l. +SX*SX +FH*Sz*SZ)
1 -(CA*SO(I«K) -SA*AO(I) *U*SX +FH*W*SZ) /V
22 CONTINUE
WRITE SLICE OF POTENTIAL ARRAY ON TWO OISC FILES
BUFFER OUT(N3,1) ( G( 1, 1,1 ) ,G(MX,MY,1 ) )
GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N3).GT.O.) GO TO fl
BUFFER OUT(Nl.l) (G( 1, 1,1) ,G(MX,MY,l) )
GIVE UP IN EVENT OF OISC FAILUKE
IF (UNIT(NI).GT.O.) GO TO 41
INCREMENT Z
K = K +1
IF ([Link]) GO TO 21
SET TRAILING JUMP £0 IN POTENTIAL TO ZERO
Kl = KTE1 -1
K2 = KTE2 tITE2(KT£2) -NX/2
DO 32 K=K1»K2
 258

32 EOfK)
SET 10 TO INDICATE SUCCESSFUL COMPLETION
10 = 1
RETURN
SET 10 TO INDICATE DISC' FAILURE
41 10
RETURN
END

SUBROUTINE MIXFLO
c UPDATES POTENTIAL at RELAXATION USING ROTATED DIFFERENCE SCHEME
C EQUIVALENT TIME DEPENDENT EQUATION IS
C (1. .M**2)*GSS +GPIM +GNN +TERMS IM [Link] AND GT
c SUCCESSIVE SLICES OF THE G ARRAY .REPRESENTING VALUES OF POTENTIAL
c ON x.y PLANES AT SUCCESSIVE VALUES: OF [Link] READ
C FROM ONE DISC FILE,UPOftTEU,AND WRITTEN ON A SECOND DISC FILE
C THREE SLICES ARE REQUIRED FOR COMPUTATION
C A FOURTH SLICE IS USED AS A BUFFER FOR DISC OPERATIONS
C INPUT AND OUTPUT BY SUFFER IN AND BUFFER OUT PROCEED IN PARALLEL
C WITH COMPUTATION
C IF THE BUFFER OPERATION IS NOT YET FINISHED,
C THE IF UNIT TEST DOES NOT RETURN CONTROL TO THE CENTRAL PROCESSOR
C UNTIL ITS COMPLETION,PREVENTING PREMATURE PROCESSING
COMMON) G(193.26,<»),SEPl«
1 AO(193)iSEP2,AK193),S£P3.A2(193),SEPt,A3(193),SEP5,
2 B0<26) .SEP6.BK26) .SEP7.B?(26).SEP8,B3<26),SEP9,
3 CO<33),SEP10,CK33),S£P11,C2(33),S£P12,C3(33),SEP13,
H SO<193,33),S£Pm,EUU29),sEPl5,ZoU29),S£Pi6,
5 IV(193.33),SEP17,IT£l(33).SEP18,ITE2(33),SEP19,
6 NX«[Link]«[Link]«ScAL«SCALZ.
7 YAW,[Link],CA,SA,FMACH,Nl<N2.N3,lO
COMWON'FLO/ GK1(193,26),BUF1,GK2U93,?6),BUF2,
1 SXX(19S),BUF3,SXZ(193)«BUF4«SZZ(193).BUF5.
2 SXI193).BUF6«SZ(193).[Link](193), t)UF8,Kl(193),8UF9,
3 C(193).BUF10.D(193)«3UF11.G1(193),BUF12«G2(193).
H STRIP,Pl,[Link],[Link],JR,KR,DG«[Link],[Link]
COMMON/SWP/ G10(26).SP41,G20(2&),SPA2.G30(26),SPA3tGtO(26).
1 IlfI2.K.L«MO«[Link],[Link]«Qlt82*[Link]
LX = NX/2 +1
MX = NX +1
KY = NY +1
MY = NY +2
TYAW = .5*SCAL*SYAW/CYAW
OX = 2./NX
Tl = DX*OX
AAO = l./FMACH**2 +.2
Ql = 2./PI
Q2 = 1./P2
FR = 0.
IR =0
JR =0
KR =0
 259

06 = 0.
IS 30
JS s. 0
KG =0
NS = 0
C FR,IR,JR AND KR ARE VALUE AND LOCATION OF LARGEST RESIDUAL
C [Link] AND KG ARC VALUE AND LOCATION) OF LARGEST CORRECTION
C NS IS NUMBER OF' SUPERSONIC POINTS
C START AT THIRD ROW IF FLOW IS SUPERSONIC AT INFINITY,
C REQUIRING CAUCHY DATA
Kl = 2
IF ([Link].l.) Kl = 3
c DEFINE CENTRAL STRIP OF x-r PLANE FOR HORIZONTAL LINE RELAXATION
c EXTENDING FROM i = 11 TO i = 12 WITH UIOTH DEFINED SY STRIP
C STRIP = 0. ELIMINATES THE CENTRAL STRiP
C STRIP = 1. ELIMINATES THE OUTE« STRIPS
F = ABS(.5*STRIP*NX)
L a. F
IF ([Link]/2) L = L -1
11 = LX -L
12 = LX +L
IF ([Link].O) 12 - LX -1
C READ FIRST THREE SLICES OF POTENTIAL ARRAY FROM FIRST DISC FILE
DO 2 L=li3
BUFFER IN (Nl»l) <G(1,1,L)tG<MX,MY»L))
C GIVE UP: IN EVENT OF DISC FAILURE
IF (UNIT(Ml).GT.O.) GO TO lOl
2 CONTINUE
C SAVE OLD VALUES OF POTENTIAL AT UPSTREAM Z STATIONS
C TO GENERATE CORRECT MIXED SPACE-TIME (DERIVATIVES
DO 4 [Link]
DO f 1=1,MX
G(I,J,t) = G U « J t l >
GKKI.J) = 6(1,J,l)
<» GK2(I,J) = 6(1,J.I)
K =2
L = 2
NO = KTE1 -1
IF ([Link]) GO TO 11
C ADVANCE' AN EXTRA SLICE IF THE FLOW IS SUPERSONIC AT INFINITY
C WRITE FIRST SLICE1 OF UPOATEO POTENTIAL ARRAY ON SECOND DISC FILE
BUFFER OUT(N2,1) (6<lil«<M i6(MXtNYi<M )
C GIVE UP IN EVENT OF DISC FAILURE
IF (UNITIM2).GT.O.) GO TO 101
C READ FOURTH SLICE OF POTENTIAL ARRAY FROM FIRST DISC FILE
BUFFER IN (Nltl) (G( 1,1,<t) tG(HX,flYt«M )
GO TO 5l
C WRITE SLICE OF UPOATEO POTENTIAL ARRAY ON SECOND DISC FILE
11 BUFFER OUT(N2«1> <GU,1,t),G<MX,HY»4) )
Z = SCALZ*CO(K)
DO 12 J=1,MY
GIO(J) = G(I2,J,2)
G20(J) = 6(12-1,J,2)
G30(J) = 6(11,J,2)
12 GifO(J) =
 260

C DETERMINE FIRST AND SECOND DERIVATIVES OF SURFACE SLOPE

C FOR USE IN RELAXATION SUBROUTINES YSWEEP AND XSWEEP
00 22 1=2, NX
OSI SO(I+1«K) -SO(I-ltK)
OSK s SO(I,K+1) -SO(I.K-l)
DSII = 80(1+1, K) -[Link] -SO(TiK) +SOU-1.K)
+A3(I)*OSI
OSKK a SO<I,K+1) -SOtl.K) -SO(t«K) +SO(I.K-1)
1 +C5(K)*DSK
OSIK s SOU + l.K+l -SO(I-1,K+1) -SO(I+1»K-1) +SO(I-1,K"D
SX(I) s A1U)*OSI
SZ(I) = C1(K)*OSK
SXXU) = A2(I)*OSII
SZZ(I) = C2(K)*OSKK
22 SXZ(I) = T1*A1CI)*CI(K)*OSIK
UPDATE THE CENTRAL STRIP BY HORIZONTAL LINE RELAXATION
IF [Link].I1) CALL YSWEEP
GIVE UP IN EVENT OF DISC FAILURE
IF (UMIT(N2) .GT.O. ) SO TO 101
REAO SLICE Op POTENTIAL ARRAY FKOM FIRST DISC FILE
IF ([Link]) BUFFER IN (Nlil) (6( 1 , 1, i* ) , G( MX,MT , t ) )
UPDATE THE OUTEK STRIPS BY VERTICAL LINE RELAXATION
• IF (IltGT.2) CALL XSWEEP
IF ([Link].O.) 60 TO 51
DETERMINE NEW JUMP EO IN POTENTIAL ALONG SIDE EDGE
OF DOWNSTREAM TIP
10 = I T E K K J +1
00 12 1=10, LX
fl = NX +2 "I
E = Gin«KY,2) •G(I,KYi2)
NO = NO +1
42 £ 0 ( N O ) = EO(NO) +P3*(E -EO(NO))
GIVE UP IN EVENT OF DISC FAILURE
51 IF (UNIT(NI).GT.O.) SO TO 101
IF ([Link]) GO TO 61
SHIFT SLICES OF POTENTIAL ARRAY
00 52 J=1,MY
DO 52 1=1, MX
G ( 11 J , 1 ) = G <I • J , 2 )
6(I,J,2) = G(I,J,3)
6(1, J, 3) = 6(1, Jtt)
32 G(I,J,1) = G(I,J,1>
INCREMENT Z
K = K +1
GO TO 11
WRITE LAST TWO SLICES OF POTENTIAL ARRAY ON SECOND DISC FILE
61 00 62 U=2,S
BUFFER OUT«N2,1) (S(l,l,L) ,6{MX,flY,L) )
GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(NZ).GT.O.) GO TO 101
62 CONTINUE
FR = 1.2*FR/AAO
SET 10 TO INDICATE SUCCESSFUL COMPLETION
10 = 1
RETURN
 261

SET 10 TO INDICATE DISC FAILURE

101 10 = 0
RETURN
END

SUBROUTINE YSWEEP
ROW RELAXATION
COMMON G(193,26.'M.S£P1,
1 AO(193),SEP2,A1<193),S£P3.A2(193).S£P'»,A3(193).SEPS,
2 BO<26>,SEP&»81(26).S£P7.B2(26),SEP8,B3(2&).SEP9.
3 CO{33),SEP10.C1<33).SEP11,C2<33),S£P12,C3(33),SEP13,
H SO(193.33),SEPm,EO<129),sEP15,ZO(129),SEP16,
5 I V( 193,33), SEPl7,IT£l<33).[Link]<33),SEP19,
6 NX,NY,!MZ,KT£l,KTE2»KSYI«l,ScAL,SCALZ.
7 YAW,CYAW,SYAW,ALPHA,CA,[Link],N1«N2.N3« IQ
COMMON/FLO/ GKl(193,26)tBUFl,GK2U93,3&).BUF2,
1 SXX(193),3UF3,SXZU93),BUP<t,SZZ(193).BUF5»
2 SX(193),BUF6,SZ(193),[Link](193),8UF8,RH193),BUF9,
3 C < 193 ), 8UF10, D ( 193), [Link] 193 ),8UF12, 62(193),
4 STRI P, PI, P2.P3, BETA, FR,IR,jR,KR, 06,15, JS, KG, NS
COMMON/SWP/ 610 ( 26 [Link], 620 (2&1.SPA2, 330(26), SPAS, 640 ( 26 ),
1 Il,I2,K,L,NO,LX,MX,Kr,MY,Tl,AAO,Ql,Q2,Z,TYAW
Jl = 2
IF ([Link].l. ) Jl = 5
C(I1-1) = 0.
0(11-1) = 0.
00 12 1 = 11, 12
RO(I) 1.
Rl(I) 1.
Gl(I) G(I,J1-1,L)
12 62(1) G (1.1. L)
J Jl
13 12
31 BC -Tl*81(J)*Cl(K)
00 32
AS -Ti*Ai(D*ai( j>
AC T1*A1(I)*C1(K)
YP SO(I,K) tSO(J)
A 1, -RO(I) +AO(I)*AO(I) +YP*YP
H RO(I)/A
FH RO(I)*A
OGI -GU-l.J.L)
06J = 6<I»J+1»L) -61(1)
D6K -GKl(I.J)
0611 6(1+1,J,L) -6(1,J,L) -G<I.J,L) +6(1-1,J,L)
+A3(I)*OGI
OGJJ 6(I,J+ltL) -6(1,J.L) -G(I.J.L) +6(1.J-l.L)
-B3(J)*06J
OSKK G(I,J,L+1) -6(1,J,L) -6(1.J.L) +6(I.J,L-1)
+C3(K)«D6K
DGIJ 6(1+1.J+l.L)
-6(I+1.J-1.L) +6(1-1»J-1,L)
 262

DGIK = 6(1+1,J.L+1) -6(1+1,J,L- t )

OGJK = G< It J+l.L + 1) -GUt J-l.L+D

1 -6(It J+1»L"1) +G(It J-ltL-1)
GY = -B1(J)*OGJ
U = Al(I)*Oei -SXU)*&Y +CA*AO(I) +SA»YP
V = GY +SA*AO(I) -CA*YP
w = RO(I)*(C1<K)*OSK -SZ(I)*GY +SYAW)
QXY = H*(U*U + V«V)
00 = QXY +W*W
AA =
OIM( AAO » t 2*80)
HZ = FH*SZCI)
F = I. +SX(I)*SX(I) *SZ(I)*HZ
AV = v -u*sxm -*(*HZ
uu = H*U*U
vv = H*AV*AV
ww = FH*W*W
uv = H*U*AV
vw = AV*W
uw = U*W
AXX = R1(I)*(AA -UU)
AZZ = FH*AA -WW
R = -( AXX*SXX(I) +AZZ*SZZ(I) -{UW +UW ) *SXZ ( I ) ) *6Y
1 -T1*H*(CA*(U*U -V»V) +(SA +SA)*U*V
2 -QXY*(U*AO(I) +V*yP))
AXT = A6S(U*A1(II)
AYT = A8S(AV*B1(J»
AZT = A6S(FH*W*C1(K) )
A = R0< I )*3ETA*AA/ftMAXl( AXT, Ayl »AZr, (1. »80(I)))
AXT = A*AXT
AYT = A*AYT
AZT = A*AZT
IF ([Link] .AA) SO TO 33
AXX = AXX*A2(I)
AYY = (F*AA -VV)*B2(J)
AZZ = AZZ*C2(K)
AXY = -Rim*<AA*SXm *UV)*(AB *AB)
AYZ = ,(AA*HZ +\N)*(BC +BC)
AXZ = -UW*(AC +AC)
BP = AXX
BM = AXX
8 = .AXX -AXX -Q1*(AYY *AZ?)
R = AXX*OGII «-AYY*OGJJ +AZZ.06KK
1 +AXY*OGIJ +AYZ*D5JK +AX?*OGIK *R
GO TO 35
33 MS = NS +1
S = [Link])
II = S
in = I -II
IHM a IM "II
AXX = UU*A2(I)
AYY - VV*62(J)
AZZ = WW*C2(K)
AXY = 6.*S*UV*AB
AYZ = 8,*VH*flC
 263

AXZ = e.*s*u«*AC
BXX = (03 -UU)*A2dI
BYY = (F*Q9 -VV)*B2(J)
BZZ = (FH*OQ -W*)*C2(K)
BXY = .(QQ*SXd) +UV)*(AB +ABl
BYZ = -(Q9*HZ *VM)*(8C +BC)
BXZ 3 -UH*(AC +AC)
AQ = AA/BQ
OELTAG = BXX*OGII *BYY*OGJJ +BZZ*OGKK
1 +BXY«OGIJ +BYZ*OGJK 4-BX?*OGIK
OGII = Gd«J.L) -Gd«,J,L) -6(lM,J,L) *GdMM,J,L)
1 *A3(I)*06I
OGJJ a Gd.J.L) -6d,J-l,L.) -G(I«J-1,L) +62(1)
1 -B3( J)*DGJ
OGKK = G(I«JtU -6(I,J,t-l) -G(I.J,L-1) +GK2(ItkJ)
1 +C3(K)«DGK
DGIJ = G(I.J.L) -5(11, J,L)
1 -Gd»J»l.L) +G(IM«J»1.L)
OGIK = G(I.J.L) -G(1,J,L-1)
1 -G(IM,J,L) +G(IH,J,L-1)
OGJK = Gd.J.U) -G(I,J,L-1)
GSS = AXX*DGII *AYY*D6Jd +AZZ*QGKK
1 >AXY*OSIJ +AYZ*OGJK -t-AX7*OGIK
B = .5*(AQ -l.)*(AXX t-AXX *AXY +AXZ)
BP = AQ*BXX -d. -s)*»
BH 3 AQ*BXX -d. +s)*a
3 3 .AQ*(BXX *BXX +Q2*(BYY +BZZH
1 +(AQ -1.)*(2.*<AXX *AYY +AZZ) +AXY +AYZ +AXZ)
R = (AQ -l.)*SSS +Aa*DELTA6 +R
35 IF (ABS(R) •[Link](FR) ) Go TO 37
FR s R
IR 3 I
JR = J
KR = K
37 R 3 R -AYT*(Gld) -Gd,J-l,|))
1 -AZT*(5K1( I. J) -Gd«J.C-i))
8 3 B -AXT -AYT -AZT
BM 3 BM +AXT
B 3 l./(8 -BM*Cd-l)(
C(I) = B*BP
32 0(1) 3 B*(R -BM*Od-l) )
CG 30. ^
I = 13
DO HZ «=•!!iIS
CG 3 od) -cd)*cG
IF (ABS(CG).[Link](OG) ) GO TO <f3
OG = CG
IG = I
JG = J
KG = K
Hi 62 d) = Gl(I)
61 d) 3 Gd.J.L)
GK2(I,J) a GKld.J)
GKld.J) = Gd.J.L)
 264

S(I,J,L) s Gd,J,L) »CG

U2 I =1-1
J = J +1
IF (J -KY) 31«51.61
51 IF d2.6T.ITE2(K)> 13 = ITE2<K)
IF (ITE2(K).[Link]) 13 ? LX
DO 52 1=11.13
Ltf = IA8SU -U8S<IV<IiK)))
ROd) = AHINO(LVtIABSdVd*K)))
52 Rl(I) = LV
GO TO 31
61 N = NO
I = CX +1
IF' ([Link].KTE2) GO TO 71
10 = NX +2 -13
DO 62 1=10.13
DGI = G(I+ltKYtl) -5(1-1, KY.L)
OSK = [Link].L+U -SK2(1,KY)
U a A1(I)*OGI +CA*AO(I> +SA*SO(I,K)
W = C1(K.)*OGK +SYAW
FH = AO(U*AO(I) +SO(I«KJ*SO(I.K)
V = B1(KYI*<1. +SX(I)*SX(IJ +FH*SZ(I)*SZ(I»I
62 G([Link]*1,L) = G([Link]-l.L)
1 -<CA*SO(I*K) -SA*AO(I) +U*SX(I)
I = 10
IF ([Link](K)) GO TO 71
E B 6<l3,KYtL) -G«IOiKY,L»
NO = MO +1
CO(NO) B EO(NO) +P3*tt -EO(NOI)
N = NO
71 IF ([Link].H) RETURN
I =1-1
E =0.
IF (xvi,K)*Ne.i) so TO 77
ZZ = Z -TYAM*AO(I)*AO(1>
73 IF ([Link](N-D) GO TO 7S
N = N -1
GO TO 73
75 R = (ZZ -ZO(N-1))/(ZO(N) -ZO(N-D)
E' = R*EO(N) *{1, -R)*E:0(N-1)
77 H = NX +2 -I
G(I,KY+l,l) = G([Link]-l.L) "E
G(M,KY*l,t) = 6|XiKY-l«k) *E
GK2(H,KY) = GK1(1,KY)
GKKMtKT) s [Link].L)
S(^.KY.L) c [Link].L) +E
GO TO 71
ENO

SUSROUTINE XSWEEP
COLUMN RELAXATION
COMMON G(193,26,i*).SEPl,
 265

1 AO<193).SEP2,AK193)«SEP3.A2<193),SEPH,A3«193),SEP5»
Z BO<26),S£P6,Bl<26)tS£P7«Ba<26>*SEP8,B3(26>,SEP9,
3 CO(33),SEP10,CK33>,S£P11.C2<33),SEP12,C3(33),S£P13,
H SO(193,33),SEPl«f,EO(129),s£Pl5,ZO<129),SEP16,
3 IV<193,33),SEP17,ITEK33).SEPie,ITE2<33),SEPl9.
6 NX,NY,NZ,KT£l,KTE2»KSYM,ScAL,SCAI.Z*
7 YAW,CTAW,STAH,AUPHA,CA,[Link],Nl»N2,r43,10
COMMON/FLO/ GK1(193,26) .BuFl,GK2d93»?6) »BUF2,
1 SXXU93>,BUF3,SXZ(193),BUPt»SZZU93),BUF5«
2 S X ( 1 9 3 ) tBUF6,SZ(193) ,BUF7,RO(193),BUF8,«K193),BUF9»
3 C(193),BUF10,D(193),BUF11.G1(193),BUF12,S2(193),
"> STRIP,Pl,P2,P3,BETA,F«,[Link],KR,DG t IS,JS,K6,NS
,SPftl,G20(2b),SPA2.G30(26),SPA3»GiVO(26),

N = NO
Jl = 2
IF (FMACH .GE .1 ) Jl = 3
C(Jl-l) = 0.
D(J1-1) = 0.
S s 1.
II = 1
I = 12 +1
DO 12 J=2,KY
R0( J) = 1.
*1<J) = 1.
GKJ) = Gl
1Z G2tJ) = 62
=
21 IP I +11
-II
J2 KY
— LT .[Link]) 02 = NY
IF (IVd,K).
LV S IA! S ( 1 -IABS(IV(I«K»)
RO(KY) = AHINO(UViIABS(IV(I«K) ))
RHKY) = UV
AC = T1*A1(I)*CKK)
00 32 J=JltJ2
AB = -T1*A1(I)*B1(J)
BC = -T1*B1( J ) * C 1 ( K )
YP = SO(I,K) *30(J)
A = 1. -RO(J) +AO(I)*AO(I) +YP*VP
H = RO(JJ/A
FH = RO(J)*A
OGI = S*(6(IP«JtL)
OGJ = Gd.J+l.L) -G(I.J-l.L)
OGK = GU.J.t+l) -GKl(I.J)
OGII = G(I+ltJ,L) -G«a,J»L) -GlI.J.L) +GII-1.J.L)
+A3(I)*OGI
OGJJ = G(IiJ+l.L) -G(ItJtL) +G(I.J-1.L)
-B3(J)*OGJ
OGKK = G<I,JtL+l) -Gd.J.L) -G(I,J,D +G(I,J,L-1)
+C3(K)*DGK
OGIJ

OGIK Gd + l.J.L+l) -Gd*l,J,L-D

-G(I-1,J,U-H) +6(1-1, JtL.l)
 266

OGJK
1 -G(ItJ+l<L-l) *G(I.J-l.L.l)
SY = -B1(J)*UGJ
U = A1(I)*OGI -SX(I)«GY +CA*AO(I) +SA*YP
V = 6Y +SA*AO(I) -CA*YP
W = RO(J)*(Cl(i<)*DGK -SZ(I)*sY +SYAW)
QXY = H*(U*U +V*V)
QQ = QXY + tf*W
AA ='DIM(AAO«.2»UQ)
HZ = FH*SZ(I)
F =1. +SX(I)*SX(I> +SZ(I)*HZ
AV = v -U*SX(I) -W*HZ
UU = H*U*U
VV = H*AV*AV
WW = FH*W*W
UV = H*U*AV
VW = AV*W
UW = U*W
AXX = R1(J)*(AA -UU)
AZZ = FH*AA -WW
R = .(AXX*SXX(I) +AZZ*SZZ(I) .(UW +UW)*SXZ(I))*SY
1 -T1*H*(CA»(U«U -V*V) 4>(sA +SA)*U*V
2 -QXr*(U*AO(D *V*yP))
AXT a A8S(U*A1(I»
AYT = ABS(AV*B1(J))
AZT x ABS(FH*W*C1(K>)
A = R0(J)*BETA*AA/AMAXl(AXT.A r r«AZT t (1. -RO(J)))
AXT = A*AXT
AYT = A*AYT
AZT = A*AZT
IF ([Link]) GO TO 33
AXX = AXX*A2(I)
AYY = (F*AA "VV)*B2(J)
AZZ = AZZ*C2(K)
AXY = -R1(J)*(AA*SX(I) +UV)*(Ag +AB)
AYZ = -(AA*HZ +(/W)*(BC +BC)
AXZ = -UW*(AC +AC)
8P a AYY
BM r AYY
B = -AYY -AYY -Q1*<AXX +AZz)
R = AXX*OGII tAYY«OGJJ +AZZ*OGKK
1 +AXY*OGIJ +AYZ*DGJK +AX^*DGIK +R
SO TO 35
33 NS = NS +1
AXX = UU*A2(I)
AYY a VV*B2(J)
AZZ = UW*C2(K)
AXY = 8.*S*UV»AB
AYZ = 8.*VW*3C
AXZ = 8.*S*U^*AC
BXX = (QQ -JU)*A2(I)
8YY = (F*OQ -VV)*B2(J)
6ZZ = (FH*QQ -MW)*C2(K)
BXY = .(QQ*SX<I> +UV)*(AB +AB)
8YZ = >(QQ*HZ +V«)*(BC +BC)
 267

BXZ = -Utf*(AC 4-AC)

AQ = AA/QQ
DELTAS = BXX*DGII +6YY*OGJJ 4-BZZ*OGKK
L +8XY*OGIJ «-BYZ*DGJK
DGII = G(I«Jf U -G{ifl,J,L) +G2(J>
L +A3(I)*UGI
OGJJ = G(It JtU) -G(IiJ-ltL) +6UtJ»2tU
L -B3<J)*DGJ
DGKK = 6(1. J,U) -5(I,J,L-1) -G(I.J.L-l) + G K 2 ( X , J >
L •fC3(K)*DGK
OGIJ -S(IM,J,UJ
I
OSIK G([Link]) -G(I,J,L-1)
L
OGJK G(I,J,L) -
L -G(I.J-ltL)
GSS AXX*OGII +AZZ*DGKK
L •fAXY*DSIJ +AYZ*OGJK
BP AQ*BYY
BM BP - < A « -l.)*(AYY +AYY + AYZ)
B -sp .BP -a2*Ae*(U
•KAQ -1. ) * ( 2 . * ( A X X +AYY +AZZ) +AXY +AYZ +AXZ)
R = (AQ -ItXGSS +AQ*OELTAG •t-R
IF (AaS(R).[Link](FK)) 60 TO 37
FR = R
IR I
JR J
KR K
R R -AXT*(Gl<J) -G(IM,J,H)
- A Z T * ( G K 1 ( I « J ) -C
B B - A X T'-AYT -AZT
BH BM + A Y T
B
C(J) B*BP
0(J) 8*(R
CG 0.
J J2
00 42 f
CG = D ( J ) -C(J)«CG
IF ( A B S ( C G ) . L E . A B S ( O G ) ) GO TO 43
06 = CG
IG = I
JG = J
KG = K
G2(J) = 61(J)
Gl(J) = G(I«J«L)
GK2(I,J) = GKKIiJ)
GKKI.J) = G(I«J«L)
G(ItJ,U = 6(1,Jtt) -CG
J = J -1
IF d V d , K ) . L T . 2 ) SO TO 51
OGI = S*(G(IP,KY,L) -G2(KY»
OGK = GCItKYtL+1) -GK2(IiKV)
U = A1(I)*OGI +SA«SO(I,K)
w = C 1 ( K ) * 0 6 K 4-SYAW
 268

FH = AO(I)*AO(I) «-SO(I.K)*SO(i»K)
V = BKKY)*<1. «-SX(I)*SX(I) +FH*SZ(I)*SZ(I)I
[Link]+ltL> = e<I«KY-l,L>
-<CA*SU(I«K) -SA*AO(J) +U*SX(D
IF [Link])) 50 TO 61
M =. NX +2 -I
C = G(«»KY,L) -G(I,KY»L)
NO = NO *1
E0( NO) = EO(NO) +P3*(E -EO(NO))
N = NO
GO TO 61
51 IF ([Link]) GO TO 61
E = 0.
IF UVU,K).NE.l) 60 TO 57
zz = Z -TYAW*AO(I)*AOU)
53 IF <zz
.GE .ZOCN-1M GO TO 55
N = N -1
GO TO 53
55 R = (ZZ -ZO(N-1))/(ZO(N) -ZO(N-D)
£ = R*£0(N ) +(1. -R)*££MN-1)
57 n = NX +2 -I
G( I f Ky +1 ? L) = B|M,KY-l.L) -E
G(M,KY+lt L) = G(I,i<Y-l,k) +E
GK2(H,KY) = GKK [Link])
GKKM,KY) = <J<M«KY«L)
G(H f KYtL) = lid,KY,L) •«•£
61 IF ([Link]|GO TO 71
IF ll. £Q. 2) RETURN
I =• i +11
GO TO 21
71 S =. -i.
II = -i
I = ii -i
00 72 J=2 »KY
GKJ) = G30(J)
72 G2(J) = GtO(J)
GO TO 21
END

SUBROUTINE VELO <K,LiSV,[Link].X.Y)

c CALCULATES SURFACE SPEED [Link] NUMBED [Link] COEFFICIENT CP
C AND COORDINATES X«Y AT SPAN STATION K
COnnON 6(193<26«i») «S£P1,
1 AO(193)»SEP2,AH193),SEP3,A2(193),SEP4»A3ll93),SEp5i
2 BO(26)«S£P6«Bl(26)tSEP7«B2(26)<SEP0tB3<26),SEP9t
3 CO(33),S£P10«Cl(33}«SEPll,C2(33),SEP12<C3(33)tSEPl3t

b IV<193.33)«SEP17,ir£i(33).SEPl8,ITE2(33)tSEP19.
6
7
OIHENSION SV <1> t SM(1),CP<1> t X <1),Y <i)
ITEl AND ITE2 ARE LOWER AND UPPER TRAILING EDGE POINTS
 269

11 = ITEl(K)
12 = IT£2(K)
SURFACE INDEX IS NY +1
J = NY *1
01 = ,2*FMACH**2
Tl = l./(.7*FMACH**2)
00 12 I=I1»I2
DETERMINE MULTIPLIER H OF SQUARE ROOT TRANSFORMATION
YP = SO(I.K) 4-30(0)
H - AO(I)*AO(I) +YP*YP
DETERMINE SLOPES SX«SZ OF SHEAKIN6 TRANSFORMATION
DSI = SO(I+1<K> -SO(I-1«K)
DSK = SO(I,K+1) -SO(IiK-l)
SX = A1(I)*OSI
SZ = Cim*OSK
DETERMINE FIRST DIFFERENCES OF POTENTIAL
OGI = G(I+ltJtL) -GU-1«J,U
DGJ = G(I«J+1«L> -GdtJ-ltL)
OGK = GdtJ«L+l) -6(I,J«L-1)
DETERMINE VELOCITY COMPONENTS U,tf,H
U = A1(I)*OGI +SX*B1(J)*OGJ +CA*AQ(I> +SA*YP
v = -Bi{j)*uiiJ +SA*Aom -CA*YP
W = Cl(K)*OliK +SZ*B1( J)«OGJ -t-SYAri
DETERMINE SURFACE SPEED [Link] NUMBER [Link] COtFFICIENT CP
QQ =0.
IF ([Link].l.E-6) QQ = (U*U +V*V)/H +w*W
0 = SQRT(QQ)
IF ([Link].O.) Q = -Q
SV(I) = Q
QQ = 1. +Q1*<1. -QQ)
SM(I) = FMACH*Q/SQRT(QQ)
CP(I) = T1*(QQ**3.5 -1.)
DETERMINE SURFACE COORDINATES X,Y
X(I) = .5*SCAL*(AO(I)«*2 -SO<IiK)**2)
12 Y(I) = SCAL*AO(I)«SO(I.K)
RETURN
END

SUBROUTINE CPLOT (litI2,FNACH»X,Y«CP>

c PLOTS CP AT EQUAL INTERVALS IN THE. MAPPED PLANE
DIMENSION K03t:<2>»i-i^£uoo>,>c<i),m>«cpu)
DATA KOOE/IH ,IH*/
IWRIT = 6
WRITE (IWRlTt2)
2 FORMATX50HOPLOT OF CP AT EQUAL INTERVALS IN THE MAPPED PLANE/
1 10HO X tlOH Y ,10H CP )
CPO = «1. 4-.2*F«ACH**2)**3.5 -1.) /( ,7*FMACH**2)
C CPO IS STAGNATION PRESSURE COEFFICIENT
C SET LINE TO BLANK SYMBOLS
DO 12 1=1,100
12 LINEU) = KOOCU)
00 22 1=11*12
 270

SET K PROPORTIONAL TO CP
K = 30.*(CPO -CP(D) +<t.5
SET ELEMENT K OF LINE TO + SYMBOL
LINE(K) = KODE<2)
WRITE UWRIT.610) X I I ) « T ( I ) t C P C I ) t L I N t
22 LINE(K) = KODE(l)
RETURN
610 FORHAT(3FlO.<ttlOOAl)
END

SUBROUTINE FORCF <HiI2.X»[Link]»CD»CMJ

C CALCULATES SECTION LIFT,DRAG AND MOMENT COEFFICIENTS
C BY TRAPEZOIDAL INTEGRATION OF SURFACE PRESSURE
DIMENSION X(1),Y(1),CP(1)
RAO = 57.2957795130823
ALPHA = AL/KAO
CL 0.
CO 0.
CM 0.
N 12 -1
00 12 1 =
ox s <X(I+1) -X(I))/CHORO
OY = (Y(I+1) -Y(I))/CHORO
XA = <.5*(X(I+1> +X{1)» -XM)/CHORD
YA = .5*(Y(i+i) +Y(D>/CHORD
CPA = .5*(CP«I+1) +CP(I»
OCL = -CPA*OX
OCO = CPA*OY
CL a CL 4-DCL
CO = CO +OCO
12 CM = CM +OCO*Yft -OCL*XA
ROTATE CL AND CO TO DIRECTION OF FREE STREAM
OCL = CL*COS(AUPHA) -CD*SIN(ALPHA)
CO = CL«SIN(ALPHA) *CD*COS(ALPHA)
CL = DCL
RETURN
ENO

SUBROUTINE TOTFOR(KTEliKT£2«CHOROiSCi.>SCO»SCM»[Link],XM,
1 CLtCO»CrtP«Ci"IR«CMY)
C CALCULATES TOTAL LIFTtORAG AND MOMENT COEFFICIENTS
C IN DIRECTION NORMAL TO LEAOIN6 EOSE
C BY TRAPEZOlOftL INTEGRATION OF SECTION FORCE COtFFICIENTS
C SPANWISE FORcE IS «OT CALCULATED
C CMP IS PITCHING MOMENT COEFFICIENT REFERRED TO MEAN CHORD
C CMR IS ROLLING MOMENT COEFFICIENT REFERRED TO SEMI-SPAN
c CMY is YAWING MOMENT COEFFICIENT REFERRED TO SEMI-SPAN
DIMENSION CHORD<l)lSCL(l)fSCU(l).SC)*|{l)tCO(l)
SPAN = SCALZ*<CO(*TE2> -CO(KTEl))
 271

CL = 0.
CO = 0.
CMP = 0.
CMR = 0.
CMY = 0.
S = 0.
N s KTE2 -1
00 12 KcKTEl .N
oz s .5*SCALZ*(CO<K+1)
.5*51 -CO(K))
z = .5*SCALZ*(CO<K+1)
.5*Si +CO(K»
CL r CU *SCL(K)*CHORO( K) )
CO = CO +LlZ*(SCO(K+l)*CHO«0(K*l) + SCO(K) »CHOKO( KJ )
CMP r CMP +OZ*<SCM(K+1)*CHOKO(K+1)**2 -fSCM(K)*CHORD(K)**2)
CMR = CMR +Z*DZ*(SCL(K+l)*CHORp<K-H) +SCU(K)«CHORD(K) )
CMY = CMY +Z«OZ*(SCO(K + l.)*CHORr)tK + l> +SCDIK) *CHORD(K) )
12 S = S *i *OZ*(CHOHO((<+1) +CHORO(K»)
CL s CL/S
CO S CO/S
CMP S CMP*
CMR =
(C1R *CMR)/(S*SPAN)
CMY = (COY
*CMYI/(S*SPAN)
RETURN
ENO

SUBROUTINE CHARTY
GENERATtS MACH NO CHARTS IN PLANE OF. uING PLANFORM
COMMON G(l93«26.<f).SEPl.
AOU93)«SEP2.A1U93),SEP3.A2(193) .SEPt. A3( 193) ,SEP5.
80(26)iSEP6i81(26)<SEp7.B2(26).SEpa«83(26),SEP9<
CO(33),SEP10,C1(33),SEP11.C2(33),SEP12»C3(33),SEP13.
SO(193.33),SEPm,EO(129),sEP15,ZO(129),SEPl6,
IV(l93i33),SEPl7,IT£i(a3).SEPlB.ITt2(33),SEPi9.
NXtNY.'NZiKTEl,KTE2tKSYM,[Link]
YAW,CYAW«SYAW,ALPHA,[Link]«Nl«N2<N3tIO
DIMENSION LV(33)
IWRIT = 6
LX = NX/2 +1
MX = NX +1
KY a NY +1
MY = NY +2
01 = ,2*FMACH**2
00 2 K=2,NZ
LV(K) = HY
IF (IV(LX.K).LE.O) LV«) = KY
2 CONTINUE
WRITE (ItlRlT.12)
12 FORMAT«t2HOUPP£R SUKFACE MACH NO CHART IN WING PLANE)
LI = 1
IM = NX
21 00 22 L=l,3
BUFFER IN <N1«1) (6(1,l.L)»6(MX,MY.L))
IF (UNIT(Nl).GT.O.) GO TO 101
 272

22 CONTINUE
K a 1
31 K a K +1
L a LV(K)
N = 1
II a NX/2 +1
KI 0 a
JJ 2 a
KJ 1 a
33 I II =
J a JJ
IF ([Link].L) GO TO 35
J s NY
35 YP = SO(I.K) +30(J>
H s AO(I)*AO(I) +YP*YP
OSI a SO(I+ltK) -SO(I-l.K)
OSK s SO(I,K+1) -SO(I,K-1)
sx a A1(I)*OSI
sz a C1(K)*OSK
OGI s G(I+l»J«2t -G(I-1,J,2)
OGJ a GIItJ+1.2) -G(I,J-1,2)
OGK a 6(1, J, 3) .6(1, J,l»
IF ([Link].L) GO TO 37
H s NX +2 -I
OGI = .5*1061 *S(M-1,J«2) -G(vi+l,j,2) )
OGJ a ,5*(OGJ +3(M,J-1«2) -G(v|,j+i,2) )
OGK s ,5*(OGK +S(M,J,3) -G(M,j,l))
37 U a A1(I)*OGI *SX*Bl( J)*OGJ +CA«AO(I) +SA*YP
V = -B1(J)*OGJ +SA*AO(I) -CA*YP
W s C1(K)*OGK +SZ*BK«J)*OGJ +SYAW
QQ a (U*U +tf*V)/H *W»«
F = 1. +Q1*(1. -au)
Q a 0.
IF ([Link]. 0.) Q = SQRT(90/F)
IF (LI*(I -II) +J -JJ) 41,45,43
41 QO s Q
I a I +LI
J s KY
60 TO 35
43 Q a ,5*(Q +QQ)
L a HY
45 N a
N +1
IVIN.K) s
100.*F,1ACH*a
IF (II. EQ.!« ) GO TO 51
IF ([Link] .KY ) GO TO 47
KI a LI
KJ a 0
47 II a II +KI
JJ a JJ +KJ
GO TO 33
51 IF ([Link]) GO TO 61
DO 52 1=1 ,MX
00 52 J=l ,MY
52 6 ( 1 , J , 2 ) = 6(1,J,3)
 273

SUFFER IN (Nl,l) (GU.1,3) ,G(MX,Mr,3) )

IP (UMIT(Nl).GT.O.) GO TO 101
GO TO 31
61 00 62 i = 2,N
62 WRITE (IWRIT.610) (IV(I«K)»K=2»NZ)
IF ([Link].-l) GO TO 91
REWIND MI
LI = -1
IM =' 2 '
WRITE (IWRIT.600)
WRITE (IWRIT.72)
72 FORMAT1H2HOLOWER SURFACE MACH NO CHART IN WING PLANE)
GO TO 21
91 10 =1
RETURN
101 10 =-o
RETURN
600 FORMAT(lHl)
610 FORMAT(lX,32m)
ENO

SUBROUTINE REFIN
C INTERPOLATES POTENTIAL AT MESH POINTS OF REFINED GRID
c SUCCESSIVE SLICES OF THE G ARRAY .REPRESENTING VALUES OF POTENTIAL
c ON x-r PLANES AT SUCCESSIVE VALUES OF Z,ARE READ
C FROM ONE DISC FILE,UPDATED,AND WRITTEN ON A SECOND DISC FILE
COMMON 6(193,26,[Link],
1 AOU93) «SEp2,Al(193),SEp3,A2(193) ,SEpf ,A3(195) ,SEp5,
2 B 0 ( 2 6 ) ,SEP6,81(26),SEP7,82(26).SEPa,83(26),SEP9,
i CO(33),SEP10,C1(33),SEP11,C2(33),SEP12,C3(33),SEP13,
«* SO<193,33),S£Pl'»,EU<l29),sePl5.ZOU29),S£Pi6,
5 IVU93i33)tSEP17«ITEl(33).SEP18,ITE2<33),SEP19,
6 NX,NY»N2,KT£i,KTE2»KSYMiScAL,SCALZ»
7 YAWiCYAW,SYAWiALPHH*CA«[Link],Nl»N2,N3,10
MX = NX +1
KY = NY +1
MY = NY +2
HZ = NZ +1
MXO = NX/2 +1
HYO = NY/2 +2
HZO = NZ/2 +1
K =1
C INTERPOLftTt POTENTIAL ARRAY G
C READ SLICE OF POTENTIAL ARRAY FROM FIRST DISC FILE
11 BUFFER IN (NI.D (G(i,i«i),G(Mxo,mo,i))
c GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(Nl).GT.O.) GO TO fOl
c SHIFT I/ALUCS TO LOCATIONS IN NEW GRID
J = NY/2 +1
JJ = KY
21 I = MXO
II = MX
 274

31 G([Link]) = 5(1, Jil)

I =1-1
II = II -2
IF [Link].O) GO TO 31
J = j -1
JJ = JJ -Z
IF ([Link].O) GO TO 21
INTERPOLATE IN X
DO 42 J=1,KY,2
DO 42 1=2, MX, 2

c INTERPOLATE IN Y
00 52 1=1, MX
00 54 J=2,NY,2
54 G(ItJfl) = ,5*(G( It J+l»l) +G(I» J-l«i»
52 G(I*MY«1) = 0.
c WRITE SLICE OF INTERPOLATED POTENTIAL ARRAY ON SECOND DISC FILE
BUFFER OUT<N2,1» (5(1, 1 .1 » ,6<MX,MY,i ) |
C GIVE UP IN EVENT OF DISC FAILU«E
IF (UNIT(N2).6T.O.) GO TO 401
C INCREMENT Z
K = K +1
IF ([Link]) SO TO 11
REMIND Nl
REWIND <M2
C REAO FIRST TWO SLICES OF POTENTIAL ARRAY FROM SECOND DISC FILE
BUFFER INI (N2,i) (Gti,i,i) ,G(MX,MY,D >
C GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N2).GT.O.) GO TO *01
BUFFER IN (N2«l) < G ( 1 , 1 , 3 ) , 6 ( MX , MY , 3 ) )
C SIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N2).GT.O.) GO TO 401
C WRITE FIRST SLICE OF POTENTIAL ARRAY ON FIRST DISC FILE
BUFFER OUT(N1,1) ( S( 1, 1,1) »G(HX,MY,1 ) )
C GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(Nl).GT.o.) 60 TO fOl
K =1
C INCREMENT 2
111 K = K +1
C INTERPOLATE IN Z
00 112 J=1,MY
00 112 1=1, MX
112 G(I,J,2) = .5*(G(IiJ«l> +G(I«J,3))
C WRITE TWO SLICES OF INTERPOLATED POTENTIAL ARRAY
C ON FIRST QlSc FILE
00 122 L=2,3
BUFFER OUT(Ni.l) (G( 1, 1»L) ,G(HX,HY,L) >
C GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(NI) .GT.O. ) GO TO 401
122 CONTINUE
IF ([Link]) GO TO 201
c SHIFT SLICES OF POTENTIAL ARRAT
oo 132 J=I,MY
00 132 I=1«MX
132 G(I,J,1) = G(I,J,3)
 275

C READ SLICE OF POTENTIAL ARRAY FROM SECOND OISC FILE

BUFFER IN tN2.1> (S<1,1,3),S(HX,MYii))
c SIVE UP IN EVENT OF DISC FAILURE
IF (UNIT<N2).GT.O.) GO TO 401
50 TO 111
201 REWIND Nl
REWIND N2
C SET VALUES OF POTENTIAL AT DUMMY POINTS BEHIND BOUNDARY
C READ FIRST THREE SLICES OF POTENTIAL ftRRAY FROM FIRST OISC FILE
00 202 L=lf3
BUFFER IN (Ml.l) (G(1,l,L)»G(MX,MY,L))
C GIVE UP IN EVENT OF DISC FAILURE
IF <UNIT<N1).GT.O.) GO TO 401
202 CONTINUt
C WRITE FIRST SLICE OF POTENTIAL ARRAY ON SECOND DISC FILE
BUFFER OUT(N2tl) ( G< 1,1,1), G( MX, MY, 1) )
C GIVE UP IN EVENT OF DISC FAILURE
IF <UNIT(N2).GT.O.) 60 TO fOl
TYAkl = ,5*SCAL»SYAW/CYAW
NO = KTE1 -1
EO(NO) = 0.
K =2
211 Z = SCALZ*CO(K)
N = NO
1 = MXO <fl
IF ([Link].KTE1.0R.K.6T.KTE2) GO TO 231
11 = ITEKK)
12 = ITE2CK)
C ITEl AND ITE2 ARE LOWER AND UPPER TRAILING EDGE POINTS
DO 212 1=11,12
C DETERMINE SLOPES [Link] OF SHEADING TRANSFORMATION
051 = SO(I+ltK) -SO(I-X.K)
OSK = SO(ItK+l) -SOIIiK-1)
SX = A1(I)*OSI
SZ = C1(K)*DSK
OGI s 6(1+1,KY,2) -S(I-1,KY,2)
OGK = G(I,KY,3) -[Link])
U = A1(I)*OGI +CA*AO(I> *SA*SO(I.K)
W = C1(K)*OGK *SYAW
FH = AO(I)*AO(I) +SO(I,K)*SO(I»K)
V = BHKY)*(1. +SX*SX +FH*S7*SZ)
C SET POTENTIAL BELOW SURFACE TO SATISFY BOUNDARY CONDITION
212 6{I»KY+1,2) = 6(ItKY-l,2)
1 -<CA*SO(I,K) -SA*AO(I) +U*SX -t-FH*W*SZ)/V
NO = NO +1
C RESET TRAILING EDGE JUMP EO IN POTENTIAL
EO(NO) = 6(12,KY,2) -G(Il,KY,2)
N = NO
I =11
IF ([Link].O.) GO TO 231
C RESET JUHP EO IN POTENTIAL ALONG SIUE £DGE OF DOWNSTRtAM TIP
221 I = I +1
M = NX +2 -I
NO = NO +1
EO(NO) = G(l"l»KYt2) -GU*KY«2)
 276

IF ([Link].1XO) 60 TO 221
I - II
231 I =1 -1
E =0.
IF (IV(I.K).NE.i) SO TO 237
C IV = 1 INDICATES VORTEX POINT
c INTERPOLATE JUMP E IN POTENTIAL
c TO SET POTENTIAL AT ou-iflY POINT BELOW VORTEX SHEET
ZZ = Z -TYAH*AO(I)**2
233 IF ([Link](N-l)) GO TO 235
N = N -1
SO TO 233
233 R = (22 -ZO(N-1))/<ZO<N) -ZO<N-1M
E s R*EO(N) *U. -R)*EO(N-l!
237 n = NX +2 -I
G<I,KY+1,2) = G(H,KY-1.2) -E
G(M«KY+1»2) = G(I,KY-1,2) +E
IF (IV(I.K).NEt-l) 60 TO 241
C IV = -1 INDICATES POINT JUST BEYOND EflGE OF WING OR, VORTEX SHEET
c KENORMALIZE POTENTIAL ON EITHEK SIDE OF CUT AT MEAN VALUE
G(I,KY«2> = .5*6(1,KY»1) + .25K 6( I ,KY,3) +G(PI,KT,3) )
IF <IVU,K+1).LT.1)
1S(I,KY»2) s ,5*G(ItKY«3) +.25*{6(I,KY,1) +<»<M«KY,1))
G{rt,KY»2) = 6(I,KY,2)
G(IiKY-l«2) = .5*(G(I,KY,2) +6(I,KY-2«2))
G(M,KY-1,2) = .5*<G(M,i<Y,2) +b(M,KY-a»2) )
2H1 IF ([Link].2) 60 TO 231
IF ([Link]) GO TO 261
c SHIFT SLICES OF POTENTIAL ARRA*
00 252 J=l«f"lY
00 252 i=l,HX
G(IiJ,l) a Gdi J.2)
252 6(1,J,2) = G(I,J,3)
C WRITE SLICE OF UPDATED POTENTIAL ARRAY ON SECOND DISC FILE
BUFFER ouT(N2,i> (GU,I,I),G<MX,MY,I) ,
c GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N2).GT.O.) GO TO 401
C READ SLICE OF POTENTIAL ARRAY FROM FIRST DISC FILE
BUFFER IN INI,D (S(i,i,3),ti([Link]«3»
c GIVE UP IN EVENT OF DISC FAILURE
IF (UNlTdMl).GT.O.) GO TO 401
C INCREMENT Z
K = K +1
GO TO 211
261 EOCNO + D = 0.
C WRITE LAST TWO SLICES OF POTENTIAL ARRAY ON SECOND DISC FILE
00 262 L=2,3
BUFFER OUT(N2,1) (6(1,1«L)«G<HX,HY,L)j
C GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N2).GT.O.) GO TO 401
262 CONTINUE
REWIND NI
REMIND N2
C COPY FINAL VALUES OF POTENTIAL ON FIRgT DISC FILE
00 502 K=[Link]
 277

BUFFER iN (N2.1) (G(1,1.1).G(MX,MY«1))

GIVE UP IN EVENT OF DISC FAILURE
IF <UNIT(N2).GT.O.) GO TO tOl
BUFFER OUT(Nl.l) (G(1,1,1).G(MX,MV,1))
GlVt UP IN EVENT OF DISC FAILURE
IF (UNIT(Nl).GT.O.) GO TO 401
302 CONTINUE
SET 10 TO INDICATE SUCCESSFUL COMPLETION
10 =1
RETURN
SET 10 TO INDICATE DISC FAILURE
401 10 =0
KETURN
END

SUBROUTINE SflOO
C SMOOTHS POTENTIAL
C BY REPLACING THE VALUE AT EACH POINT gY A WEIGHTED AVERAGE
C OF THE VALUES AT NEIGHBOURING POINTS
C SUCCESSIVE SLICES OF THE G ARRAY .REPRESENTING VALUES OF POTENTIAL
c ON X-Y PLANES AT SUCCESSIVE VALUES OF [Link] READ
C FROM ONE DISC FILE,UPDATED*AND WRITTEM ON A SECOND DISC FILE
COMMON 6(193.26,t).S£Pl,
1 AO(193),SEP2,A1<193),SEP3,A2(193),SEP<»,A3U93),SEP5,
2 BO(2&).SEPS,Bl<26).SEP7,Ba(26),SEP8.B3(2&),SEP9»
i CO(33)tSEPlOiCl(33)iS£Pli.C2(33),St.Pl2. C3( 33),SEPl3.
4 80(193.33)«[Link](129),sEP15«ZO(129).SEK1&,
5 IV(193,33),SEpl7,irEl(33).SEplB,ITE2<33),SEP19.
6 [Link],Ni:,KTEl,KTE2tKSYM,ScAL,SCALZ«
7 YAW,CYAU,SYAW,ALPHA,CA,SA,FnACH,NltN2tN3,IO
MX = NX +1
KY = NY +1
MY = NY +2
«Z = NZ +1
c SET SMOOTHING PARAMETERS
PX = l,/6.
PY = 1./6.
PZ = 1./6.
C READ FIRST THREE SLICES OF POTENTIAL ARRAY FROM FIRST DISC FILE
00 2 L=l,3
BUFFER IN (Nl«l) (S(l.l.L).6(HX,MY.L))
c GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N1).6T.O.) GO TO 5l
2 CONTINUE
C WRITE FIRST SUlCE OF POTENTIAL ARRAY ON SECOND DISC FILE
BUFFER OUT(N2d> (G( 1« 111) tG(MX< MYtl) )
C GIVE UP IN EVENT OF DISC FAILURE
IF <UNir<M2).ST.O.) GO TO 51
K =1
C INCREMENT Z
UK = K +1
C GENERATt SMOOTHED VALUES OF POTENTIAL FOR MIDDLE SLICE
 278

00 12 J=3,NY
00 11 1=2,NX
1* 6(IiJ,f) = (1. -PX -PY -PZ)»G(I,J.2)
1 +.5*PX*(G(I+i<Ji2> 4-6(1-1,J,2))
2 +.5*PY*(6(ItJ+l»2) +G(I,j-l»2M
3 +.5*PZ*<G(ItJ«3) +G(ItJ«t»
6(1,J,1) = G(1,J,2)
12 6(MX,J,1) = G<nx,J«2)
LEAVE BOUNDARY VALUES UNCHANGED
00 16 1=1,MX
6(1.1,<U = G(I,1,2)
6(1,2,11 = G(I,2,2)
G(IiKY,4) = G(I,KY,2)
lb G<[Link]«<n = [Link].2)
WRITE SLICE OF UPOATEO POTENTIAL ARRAY ON SECOND DISC FILE
BUFFER OUT(N2,1) < G( 1, !.<*) .G(nX,HY»t) }
GIVE UP IN EVENT OF DISC FAILURE
IF <UNIT(N2).GT.O.> GO TO 51
IF ([Link]) GO TO 31
SHIFT SLICES OF POTENTIAL ARRAY
00 22 J=1,MY
00 22 1=1,MX
G(ItJtl) = G(I,J,2)
22 6(1,J,2) = G(I,J,3)
READ SLICE OF POTENTIAL ARRAY fROH FIRST DISC FILE
SUFFER IN <NI,I> (S'(iii«3)«G(nxtnrt3>i
GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(Nl).GT.O.) GO TO 51
GO TO 11
WRITE LAST SLICE OF UPOATEO POTENTIAL ARRAY ON SECOND DISC FILE
31 BUFFER OUT(N2,1) (G{1,1«3),G<MX,MY,3)>
GIVE UP IN EVENT OF UlSC FAlLUKE
IF (UNIT(N2).GT.Q.) 60 TO 51
REMIND NI
REWIND N2
COPY FINAL VALUES OF POTENTIAL ON FIRsT DISC FILE
00 42 K=1,MZ
BUFFER IN (N2«l) (G(1,1,1),G(MX,NY,1))
GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(N2).GT.O.) GO TO 51
BUFFER OUT(N1,1) (G(1,1,1),G(WX,«Y,1))
GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(NI).GT.O. ) GO TO 51
i+2 CONTINUE
SET 10 TO INDICATE SUCCESSFUL COMPLETION
10 =1
RETURN
SET 10 TO INDICATE DISC FAILURE
51 10 - 0
RETURN
ENO
 279

SUBROUTINE SPLIF(«»N»S,F,FP,[Link],[Link],VN»MOD£»FOM,INO)
C CUBIC SPLINE
C SPLINE IS FITTED TO DATA ARRAY F AT NoUES S
C FROM INDEX H TO INOEX ,M
C KM =• i»2 OR 3 INDICATES THAT FIRST,SECOND OR THIRD DERIVATIVE
C IS GIVEN VALUE VM AT POINT l"l
C KN = j.,2 OR 3 INDICATES THAT FIRST,SECOND OR THIRD OEKIVATIVE
C IS GIVEN VALUE VN AT POINT N
C IF MODE = 0 NOOAL VALUES OF FIRST,SECOND AND THIRD DERIVATIVES
C OF SPLINE ARE STORED IM FP,FPP AND FPPP ARRAYS
C SO THAT FITTED VALUE AT A DISTANCE H BEYOND A NODE IS
C F +FP*H +FPP*H**2/2. +FPPP*H**3/6
C IF HOOt GT 0 FPPP IS GIVEN THE NOOAL VALUES OF THE INTEGRAL OF F
C INSTEAD OF ITS THIRD DERIVATIVE, STARTING KITH THE VALUE FOR
C THEN THE THIRD DERIVATIVE CAN tfE RECOVERED AS
C (FPPII+l) -FP(I))/(S(I+1) -S(I>)
C INO IS SET EQUAL TO 0 IF S IS NOT A MONOTONE ARRAY
DIMENSION S(l),FU),FP(l),FPPm,FPpP(l)
INO = 0
K = IABS(N -M)
IF (K -1) 61,81,1
IK = (N -M)/K
I = M
J = M +K
OS = S(J) -S(I)
0 = OS
IF (OS) [Link]
11 OF - (F< J) -F<I) )/OS
IF (KM -2) 12,13,11
12 U = .5
V = 3.*(DF -Vfl)/DS
GO TO 25
13 U = 0.
V = VM
GO TO 25
1H U = -1.
V = -DS*VM
GO TO 25
21 I = J
J = J +K
OS = S(J) -S(I)
IF (D*OS) 81,81,23
23 OF = (F(J) -F(I»/OS
B s l./(OS +DS +U)
U = B*OS
V = B*(fa.*OF .V)
25 FPU) = U
FPP(I) = V
U = (2. -U)*OS
V = 6.*DF +DS*V
IF (J -N) 21,31,21
31 IF (KN -2) 32,33,34
32 V = (6.*VN -VI/U
GO TO 35
33 V = VN
 280

GO TO 3S
3t V = (OS*VN +FPPJI))/(1. +FPfI)
35 8 = V
0 = OS
m os r S(J) -S(I)
u = FPP(I) -FP(I)*V
FPPP(J) = (V -U)/OS
FPP(I) = U
FP(I) s (F(J) -F(I))/OS »OS*(V +U
V = U
J = I
I = I -K
IF (J -H) <t 1,51, <fl
51 I = N -K
FPPP(Nl = FPPP(I)
FPP(N) = B
FP(N) = DF .»-D*(FPP«I) +B +8)/6.
INO - 1
IF (MODE) 81 ,81,61
61 FPPP(J) = FOM
V = FPP(J)
71 I s J
J = J +K
US S S(J) -S(I)
U S FPP<J)
FPPP( J) FPPP(I) +.5*OS*(F(I) *FfJ) -DS*OS*(U
-
V S U
IF (J -N) 71,61,71
ei RETURN
ENO

SUaROUTlNE INTPL(«l»NI,Sl,Fl»fl»N»S»ff»FP»FPP,FPPP,l'100E)
c INTERPOLATION USING PIECEWISE TAYLOR SERIES
C AS GENERATED BY CU3IC SPLINE OR ITS IMTEGRAL
c VALUES F,FP»FPP ANO FPPP OF FUNCTION ANO ITS FIRST,SECOND
C ANO THIKO DERIVATIVES A HE GIVEN AT NODES S
C FROM INDEX « TO INDEX ,M
C INTERPOLATED VALUES FI ARE GENERATED AT POINTS SI
C FROM INDEX «I TO INDEX NI
C IF MOOt 6T 0 A CORRECTION IS ADDED
C FOR A PIECEWISE CONSTANT FOURTH DERIVATIVE
C SO THAT INTEGRAL OF CUdIC SPLINE IS EVALUATED EXACTLY
DIMENSION SI(l),FI(l),S(l)»F<l),FP(i),FPP(l),FPPP(l)
K = IA3S(N -M)
K = <N -flJ/K
I = M
WIN = MI
NIN = NI
0 = SIN) -SIM)
IF (D*(SI(NI> -SI(MIM) 11,13,13
11 MIN = NI
NIN = MI
 281

19 KI = IABS(NIN -HIN)
IF ( K I ) 21.21,15
15 KI a (NIN -MIN)/KI
21 II = HIM .KI
C =0.
IF ( M O D E ) 31,31,23
24 C =1.
31 II = II +KI
SS = SKID
33 I = I +K
IF (I -N) 35.37,35
35 IF ( D * ( S ( I ) - S S ) ) 33*33,37
37 J = I
I = I -K
SS a SS - S < I )
FPPPP a C*(FPPP(J) -FPPP(IM/(S(j) -S(I»
FF = FPPP(I) +.25*SS*FPPPP
FF a- FPP(U +SS*FF/3.
FF a FP(I) +.5*SS*FF
FI(II) a F(I) +SS*FF
IF (II - N I N ) 3l,m,31
<tl R E T U R N
END

SUBROUTINE GRAPH (IPLOT,litI2«X,Y,CP,[Link],YA,AL,

1 Z,CL,CO,CHOHDO>
C GENERftTtS CALCOHP PLOT OF WING SECTION
C AND SURFACE PRESSURE COEFFICIENT
DIMENSION X(l),Y(l)»CP(l).TITl.E(12),R(12)
IF ([Link].O) GO TO 11
c INITIALIZE PLOTTER IF IPLOT LT o
CALL PLOTS8L(1000,2<tHAMTONY JAMESON X109t03)
C DEFINE ORIGIN
CALL PLOT(1.25,1.0,-3)
c WRITE TITLE AND FLOW PARAMETERS
11 ENCODE(H8,12,R(l)> TITtE
12 FOR«AT(12At)
CALL sr«BOL(0.,0...1'*,a,0.,'*8)
ENCODE(fO,14,R(l) ) FMACH,TA,AL
It FORNAT(4HH = ,F8.3,3X,SHYAW = .F5.2.3K.6HALP = ,F5.2)
CALL sr«BOL(0.,-.25,.14.R.O.,tO)
ENCOOE("»0,16,R(1) ) Z i C U . C D
16 FORflATC*H2 = .F8.2.3X, 5MCL = ,F6.«fi3X. 5HCD =- ,F6.f)
CALL SrMBOL(0.,-.5,.m,R,0.,40)
C SCALE AND TRANSLATE PROFILE
XMIN a x(Il)
00 22 1=11,12
22 XniN a AMINKX(I) .XMIIM)
SCALE a 5./CHOROQ
00 24 1=11,12
X(I) s (X(I) >xniN)*SCALE +.5
2* Y(I) a Y(I)*SCALE +.75
 282

LOCATE FRONT STAGNATION POINT

CPNAX = 0.
IMAX = II
Nl = II +1
N2 = 12 .1
00 26 I=NltN2
IF (CP(I).[Link]) SO TO 26
CPMAX a CP(I)
IMAX = I
26 CONTINUE
N =12 .11 *•!
DRAW PROFILE:
CALL L'INC'(X( II), r (II )<N«l'Ot [Link].)
SHIFT ORIGIN
CALL PLOT(0.i4.5»-3)
DRAW VERTICAL AXIS
CALL AXIS(0. ,-3.,2HCP,[Link])
MARK CRITICAL PRESSURE COEFFICIENT ON AXIS
CPC = <«5. +F«ACH**2)/b.)**3.5 -1,)/(.7*FMACH**2)
IF ([Link].-2.0) CALL SYMBOLCO..-2.5*CPC«.40,15,0..-1)
PLOT LOWER -SURFACE PRESSURE COEFFICIENT
00 32 I=IlilMAX
IF (CPU).LT.-2.0) 60 TO 32
CALL SYMBOL(X(I),-2.5*CP(IH.07t3«<»5.,-l)
32 [Link]
PLOT UPPER SURFACE PRESSURE COEFFICIENT
00 31 I=IMAX,I2
IF (CP(I).LT.-2.0) SO TO 34
CALL SYMBOL(X(I),-2.5*CP(I)..07,3,0.,.l)
34 CONTINUE
SHIFT ORIGIN FOR NEXT PLOT
CALL PLOTU2, ,-4.5,-3)
RETURN
END

SUBROUTINE THREECH [Link]«[Link],

1 VLO«CL,CO,CHOROO)
C GENERATES DRAWING OF MING AND THREE DIMENSIONAL PLOTS
C OF PRESSURE COEFFICIENT OVER UPPER ANo LOWER SURFACES
COMMON G(193«2b(it) tSEPl,
1 AO(193)tSEP2tAl(193>tSEP3.A2(193),S£P4»A3( 193)«S£P5»
2 BO(26)tSEP6,Bl(26)«SEP7,B2(26)«SEp6«B3<26)iSEP9«
3 CO(33),SEP10,Cl(33),SEPll.C2(33),SEP12,C3(33),SEPl3t
4 SO(193.33).SEP14,EO(129),sE:Pl5,ZO(129),SEPl6,
b IV(193i33),SEPl7tITEl(33),SEPl8«ITE2(3JS),SEPl9i
6 [Link]«NZ,KTEl.KTE2«KSYM,ScAL,SCALZt
7 YAW, CY«W,S YAW, ALPHA, [Link].F,«lACH,Nl.N2tN3,10
DIMENSION X(l),YUNSV<l),SM(l),CP<i),TITLEU2)»R(12)
LX = NX/2 +1
MX = NX *1
MY = NY +2
C SET HORIZONTAL ANO VERTICAL SHIFTS
 283

SX = 2.
TX = 3.5
ST = 2.75
OY « 8./NZ
IF [Link].O) 60 TO 1
c INITIALIZE: PLOTTER IF IPLOT LT o
CAUL PLOTSBLdOOO,2HHANTONY JAMESON X109H03)
C DEFINE ORIGIN
CALL PLOT([Link]-3)
in =i
C WRITE TITLE FOR DRAWING OF WINS
£NCOD£U2«2»Rd) )
2 FORNATd2HVl£W OF WINS)
CALL SYMBOL(2.».5..14,R,0.»12)
C READ FIRST THREE SLICES OF POTENTIAL ARRAY FROM DISC FILE
11 00 12 Lsl,3
BUFFER IN (Ni.l) (S(l«l«L)«G(MX,nY,L))
c GIVE UP IN EVENT OF DISC FAILURE
IF (UNIT(Nl).GT.O.) GO TO 101
12 CONTINUE
K =2
C INCREMENT Z
21 K = K +1
IF ([Link].KTE2) GO TO 61
C SHIFT SLICES OF POTENTIAL ARRAY
DO 22 J=1,MY •
00 22 1=1,MX
S(I.J.l) = G(I»J,2)
22 G(I,J,2) = 6(1,J,3)
C READ SLICE OF POTENTIAL ARRAY FROM DISC FILE
BUFFER IN (Nl,l) <Gd,l,3),G(MX,«Y,3))
IF (UNIT(Nl).GT.O. ) GO TO 101
c GIVE UP IN EVENT OF oisc FAILURE
IF ([Link]) GO TO 21
11 = ITEl(K)
12 = ITE2(K)
C CALCULATE SURFACE SPEEO [Link]* NUMBER SM,PRESSURE COEFFICIENT CP
C ANO COORDINATES X,Y OF WING SECTION
CALL VELO <K,2,[Link]"I,CP«X,Y)
IF ([Link]) GO TO HI
C WRITE TITLE ANO FLOW PARAMETERS
C BEFORE GENERATING PLOT AT FIRST SPAN STATION
ENCODERS,32,R<1)) TITLE
32 FORMATd2A4)
CALL SYMBOL!.5,0.•.14»*«0.,48)
ENCODE(4o,34,Rd)> FMACH,YA,AL
31* FORMAT(4HM = ,F6.3,3X,6HYAW = ,F5.2,3xtSHALP = ,F5.2)
CALL SYM80L(,5,-.25«.14,R,0.,40)
£NCOOE(tO«36,R(l)) VLO,CL,CO
36 FORMAT(6HL/0 = ,F6.2.3X«5HCL = ,F6.t,^[Link] = ,F6.4)
CALL SYMBOH ,5,-,5» .14, R, 0. ,i»0 )
C SCALE ANO TRANSLATE COORDINATES ANO PRESSURE COEFFICIENT
m XPIIN = x(Il)
00 42 1=11,12
t»2 XI«IIN = AMINKX(I) ,XMIN)
 284

SCAUX = 2.5/CHOROO
SCALP B -1.25
DO 44 I=IltI2
X(I) = <X(I) -XMIN)*SCALX *SX
Y(I) = Y(I)*SCALX +ST
44 CPU) = SCALP*CP(I) +SY
C INCREMENT VERTICAL SHIFT FOR NEXT SPAN STATION
sr = ST +OT
IF (M.E8.2) 60 TO 51
.C IF H = 1 DRAW WINS SECTION
N =12 -II +1
CALL LINE<X(II),Y(II)»N.I.O,I,O.,I.,O.«I.)
60 TO 21
C IF H = 2' PLOT PRESSURE COtFFIClENT OVER UPPER AND LOHER SURFACES
51 N =12 -LX 4-1
c PLOT UPPER SURFACE COEFFICIENT AT LEFT SIDE OF PAGE
CALL LlNE(X<LX),CP(LX)tNtltO,[Link].,[Link].)
N = tX .11 4-1
c TRANSLATE x COORDINATES ro RIGHT
00 52 1=[Link]
52 X(I) = X(I) +TX
c PLOT LOWER SURFACE COEFFICIENT AT RIGHT SIDE OF PAGE
CALL LINE<X(II).cPdi>.N. 1.0,1,o.,i.,o.,i.)
60 TO 21
61 REWINO Nl
H = M +1
c SHIFT ORIGIN FOR NEXT PLOT
CALL pLOT<i2.,o.,-j)
IF ([Link].2) 60 TO 71
C RESET HORIZONTAL AND VERTICAL SHIFTS
SX = 0.
SY = 2.75
c WRITE TITLES FOR PRESSURE PLOTS
ENCODEU<»t62,R(l))
62 FORHATC24HUPPER SURFACE PRESSURE )
CALL [Link].m.R.o..24)
ENCOOE(24.64,R(1))
64 FOR«AT(24HLOWER SURFACE PRESSURE )
CALL SYMBOL(3.5t.5t.l4tRt0.t24)
60 TO 11
C SET 10 TO INDICATE SUCCESSFUL COMPLETION
71 10 =1
RETURN
C SET 10 TO INDICATE DISC' FAILURE
101 10 =0
RETURN
END
 285

7. Listing of Quasiconservation Option for Program H

This is a listing of an option for Program H that gives

correct resolution of the shock conditions by using the theory

described in Section 2 of Chapter I. The results obtained from the

option agree almost perfectly with those of an exact, or full,

conservation form of the finite difference scheme. We do not list

the exact form because its computation time is about forty percent
longer than the listed option. The option is based on a centered

finite difference approximation of a quasilinear equation for the

velocity potential 4> combined with artificial viscosity terms in

true conservation form. Further details about this new procedure

will appear in a later publication. Our limited experience with it

indicates, that it does not give such a reliable overall simulation

of boundary layer shock wave interaction as does the old Murman

subroutine it replaces (see the seventh, eighth and ninth pages

of the listing of Program H).
 286

LISTING OF QUASICONSERVATION OPTION FOR PROGRAM H 07/18/71*

C ****TO USE THIS OPTION REPLACE THE SUBROUTINE 1UR«AN FOUND ****
c ****ON PAGES ^ THRU 9 OF THE LISTING OF PROGRAM H BY THE ****
C ****FOLLOWlNG NEW VERSION. ****
SUBROUTINE NlURMAN
C SET UP COEFFICIENT ARRAYS FOR THE TRIDIAGONAL SYSTEM USEO FOR LINE
C RELAXATION aND COMPUTE THE UPDATED PHI ON THIS LINE
COMMON P H I ( 1 6 2 i 3 1 ) t F P ( 1 6 2 i 3 1 ) « A ( 3 1 ) • B< 31) , C < 31) 10( 31) .E (31)
1 t R P ( 3 1 ) ,RPP ( 31) , R ( 3 l ) , R S ( 3 l ) , R I ( 3 1 ) , A A ( 1 6 2 ) , B 9 ( 1 & 2 ) . C 0 ( l 6 2 )
? .SId62)«PHIRd&2>, X C d & 2 ) . Y C U & 2 ) , FMd&8)>ARCL(1&2).OSUMds2)
3 «ftNGOLD(16?),XOLD(162).YOLO(162).ARCOLD(l&2),OELOLO(1&2)
C0.1M3N /A/ [Link]«[Link]«[Link]»[Link],YR
1 *XA,YA,TE,nT.O*,DELTH,OELR,RAtDCN,DSN,RAtt,EpSIL,[Link],Ca
2 «C«»,C5.C6,C7«BET«BETA«FSY,"[Link](!*) [Link]
3 <lK,JK,IZ,lTYP,!U|Of}[Link]<NFCtNCYtNRNtl\|GtIOlntN2tN3«Nt>MTtIXX
H , NPTS,LL,i,LSEP,>H*
DIMENSION VU(35),RPO(35)
DATA RPO/35*0./
BETP = BETA+.25
C 00 THE BOUNDARY
RP(1) = 0.
RP(NN) = 0.
KK = 0
PHIO = PHI(I,2)-2.*DR*CO(I)
PHIyP= PHI(I,2)-PHI(I,1)
PHIYY = PHIYP+PHIO-PHIU.I)
pHIxx = PHI(I+l,l)+PHI(I-ltl,-PHl(I,l)-PHI(I.l)
PHIXM = PHI(I*ltl)-PHl(I-l.l)
PHIxP = PHI(I+1,2)-PHI(I-1,2)
C CHECK FOR THE TAIL POINT
IF <[Link]> GO TO 10
C(l) = (Cl+Cl)*RS(l)
A(l) = -C<1)+XA*C1-C1
OU) = Cl*(PHlXX+RSm*PHlTY+RAt*CO<I)-Ei(l»
GO TO 40
10 U = PHIXM»OELTH-SI(I)
BQ = U/FPU.l)
OS = U*BQ
CS = C1-C2*BS
9Q = BQ*QS*(FP(I-1.1).FP(I'H«1) )
X = RAi»*([Link])*CO(I>
C(l) = (CS+CS>*RS<1>
CMOS = CS-QS
0(1) = CMQS*PHIXX*CS*RS(1)*PHIYY + Rl(l)*BQ + X + RPPrl)
PHIXT = BETP*ABS(U)+A8S(CMaSi
IF ([Link].O.) GO TO 30
C FLOW IS SUPERSONIC. BACKWARD DIFFERENCES
KK = 1
PHIXT s PHIXT-CMOS
A<1) = -(C(i)+PHIXT)
RPP(l) i CM8S*PHIXX
0(1) •= Od)-PHIXT*E<l)-RPP(l)
GO' TO *0
c FLOW SUBCRITICAL, CENTRAL DIFFERENCES
 287

50 Ad) = XA*CMQS-Cd)-PHIXT
0(1) = 0 ( 1 ) - P H I X T * E ( 1 )
RPPd) = 0.
00 NON-BOUNDARY POINTS
1*0 DO 60 J =[Link]
PHIXX = PHI(I«-1.J)+PHI(I-1, J)-PHI(I, J ) - P H I ( I . J )
CU = PHIXP
PrilXP = PHld + l«J+l)-PHI<I-ltJ+l)
PHIXY = PHIXP-PHIXI
PHIXM = OU
DU = DU*DELTH
PHIyv| = PHIYP
PHIYP = PHI( ItJ + D-PHl (I. J)
PHIYY = PHIYP-PHIYM
U = R( J)*OU-SHI>
DV = R(J)*(PMl(I,J+i)-PHI(I,J-l))*DELR
V = OV*R(J)-cO(I)
VV(J) = V
RAV = R(J)*RA*V
9Q = l./FPd.J)
BQU = BQ*U
us = sau*u
UV = (BQU*BOU)*V
US = 8Q*V»tf
us = us+vs
CS = C1-C2*QS
CMVS = CS-Vs
CMUs = CS-Us
COMPUTE CONTRIBUTION OF RISHr-HANO SIDE FRO* LOW ORDER TERHS
0(J) =RA t >*(<CMVS+US-VS>*DV-UV*OU)+RI< J)*QS*3Q*(U*(FP(T-l«J)-

UV = .5*BQU*RAV
C(J) = RS( J)*Cf1\/S
B(J) = C(J)
0(J) = 0(J)+C(J)*PHIYY-UV*PHIXY*CNUS*PHIXX+RPP(J)
CSQS = CS/QS
CVQS - CSQS-1.
PHIXT = BETP*ABS{U)
PHIYT = BETP*ABS(RftV)
IF ([Link].O.) GO TO 50
SUPERSONIC FLOW, USE BACKWARD DIFFERENCING
KK = KK+1
PHIxT = PHIXT-C«QS*(US+US+ABS(UV))*CSQS*VS
PHIYT r PHIYT-CNQS*(RS(J)*<VS+VS>+ABS<UV))
B(J) = RSI J)*CSQS*'JS
C(J) = B(U)+PHIYT '
A t J ) = -<C(J)+B(J)+PHIXT)
RPP(J) = CMQS*(US*PHIXX -f Utf*PHIXY)
RP(J) = CHQS*RS(J)*VS*PHIYY-f-RPO(J)
R P O ( j ) = CI*IGS*UV*PHIXY
GO TO 60
SUBSONIC FLOW. USE CENTRAL DIFFERENCES
50 C(J) = C(J)*PHIYT
PHIXT = PHIXT+CMUS
A(J) = XA*C!"IUS-B(J)-C<J)-PHIXT
 288

RPP(J) = 0.
RP(J) = RPO<J)
RPO<J) = 0«
60 0(J) = D<J)-PHIXT*E'<J)-RPP<J>-RP<J>
00 70 J = 2.N
IF (VV(J).LT.O.) SO TO 72
D(J) = 0<J)+RP(J+l)
GO TO 70
72 9Q = B(J)
B(J) = C(J)
C(J) = BO
0(J) = 0(J)*RP(J-l)
70 CONTINUE
75 MSP = NSP*KK
SOLVE THE TRIOIASOMAL SYSTEH
CALL TRIO
RETURN
END
 289

8.% Listing of Update for Design Programs B and D

We start with an update for the glossary of Tape 7 parameters

which appears on pages 105 and 106 of Volume I.

The following two parameters have been redefined:

NRN Integer. ABS(NPN) is the run number. If NRN

is negative the paths in the hodograph plane
are plotted. If NRN > 1000 the Calcomp plots
are done on blank paper on the CIMS CDC 6600.
TR Real. Between 0. and 1. it specifies the
relative location of the artificial tail
between trailing streamlines ^ = 0.
If TR > 1 the new model of the tail is chosen.

The following two parameters have been added:

NCR Integer. Number of constraints. If omitted

or zero it will default to 7. NCR is added
on Card 1, Columns 61-65 of Table 1, page 107
of Volume I.
TE Real. Tail extension parameter. If TE >_ 0
points up to TE will be printed and plotted
in D. For TE set to zero or omitted TE
defaults to 1. If TE is negative and TR <_ 1,
TE is set to 1+0.3*CD. If TE is negative and
TR > 1, TE is set to 1. TE is added on
Card 10, Columns 71-80 of Table 1, page 107
of Volume I.
 290

LISTING OP UPDATE FOR OESI3N PROGRAMS B AMO 0 08/15/7*

PAGE 129 DELETE LINES 15 ANtJ 16

PAGE 129 DELETE LINE 27 AND REPLACE BY IHE FOLLOWING

READ (N7.50) NP,NRN««RP,AtAA,GAMMA,rM,BPtCD,TRtNCR
IF ([Link].O) NCR = 7
CAGE 129 DELETE LINE 43 AND REPLACE BY THE FOLLOWING
REAO (N7«70) (FF(I)«I = It64)
IF (FF<64).EQ,0.) FF(64) =1.
PAGE ISO DELETE LINE 16 AND REPLACE BY THE FOLLOWINS
50 FORMAT <315,9F5.3,15)
PAGE 130 INSERT AFTER LINE 43 THE FOLLOWING
IF {AI«AG<CPlP<4)).Ea.O.> CMP<4) = -CO/(4,*AIMAG(CNP«2))*SQR
1 T(CAtJS<ONE-CE<2»»
CAGE 131 INSERI AFTER LINE 34 THE FOLLOWING
33(8,NRPJ = FF(6»)
PAGE 131 DELETE LINES 56 ANQ 57 AMD REPLACE BY THE FOLLOWING
IF(AlNAG<CHP<<[Link].O) X l ( 2 » l ) = XI (2il )*TMP*CHP(5) / C A B S ( C M P
1 (5))

PAGE 131 DELETE LINE 59 AND REPLACE BY THE FOLLOWING

C117) = <*.*B*REAL(C«PJ2)*XH2,1)*CHP{6))
C(16) = CD*C(17)
IF (C(17).EQ.O.) C(16) = 2.«CD
38(lt,NRP) =AMAX1(0. ,C( !)*(!.-TR)*C( 16) )
TEMPCao) = (O.,0.)
IF ([Link].l.) TEflP<20) = C(16)/(4,«CMP(2))
TMP = X1(2,1)*TAO(2,2)-TEHP(20)
C(16) = .5*C(16)
PAGE 132 DELETE LINES 3 THRU a
PAGE 13d OEL£T£ LIA/t 49 AND REPLACE BY THE FOLLOWING
CALL ABORT
PAGE 133 DELETE LINE 51 AND REPLACE BY THE FOLLOWING
CAUL ABORT
PAGE 131* INSERT AFTER LINE 12 THE FOLLOWING
OATA NBMAX /O/
ISW = 0
PAGE 13* INSERT AFTEK LINE 30 THE FOLLOWING
IF ([Link].O) CALL AOJ(1,1,A>
PAGE 134 INSERT AFTER LINE 46 THE FOLLOWING
ISW = KK
 291

PAGE 13<f INSERT AFTER LINE HZ THE FOLLOWING

N8HAX = MAXO(NBHAX,N3)

PAGE i3t DELETE LINE 49 AND REPLACE BY THE FOLLOWING

80 WRITE (N2<130> NBMAX
PAS£ 131* DELETE LINE 58 AND REPLACE BY THE FOLLOWING
130 FORMAT (13H OUT OF PATHS/ISM LONGEST PATH HAS ,I3t7H POINTS)
PAGE 135 DELETE LINES 9 ANO 10 AND REPLACE BY THE FOLLOWING
EQUIVALENCE <CBltC<29)) , (CMliC(19) ) . (CB2,C(J7) ) ,(C84,C(33) )
PAGE 135 INSERT AFTEK LINE 11 THE FOLLOWING
CM2 = .999*C*1
PAGE 135 INSERT AFTER LINE 41 THE FOLLOWING
IF ([Link].7) 88(7, NRP) = 0.
TE s 83(8, NRP)
PAGE 137 DELETE LINES 12 ANO 13 AND REPLACE BY THE FOLLOWING
SUM = 400.*XR*FLOAT<NR)/<SUM*FLOAT(,v|RP))

PAGE 138 DELETE LINES 5 THKU 9 ANO REPLACE BY THE FOLLOWING

READ <N7»240) (O(J).J = 1,8)
WRITE (Nlt240> (0(J),J = 1,6)
NK = NK-1
WRITE (Nl«250) NK, (LCIJ+1), J = 1,NK)
WRITE (Nl«200) (FF<J), J = 1.62),XR,TE
PAGE 130 INSERT AFTER LINE <»0 THE FOLLOWING
2SO FORMAT (1615)
t'AGE 1HO DELETE LINES HH ANO i*5 AND KEpuACE BY THE FOLLOWING
IF([Link].O)CaLLCUSP(Xl(5«N)«T(5,N),TAO(5,N)tU(5<N)tX3(5,N»
PAGE lul IMSERT AFTER LINE <» THE FOLLOWING
SS(6) = CLOG(ETA(N) )
C(20> = AIMAG(SS(6»
PAGE 141 DELETE LINE tl
mi DELLTL LINE <»3 AND REPLACE, «Y THE FOLLOWING
SS(<t> = "TT(5)*S3(3)*(U(3,N)*T£i«IP(2o) )*SS(6)+X3(lt N»
PAGE 142 INSERT AFTER LINE 10 THE FOLLOWING
C20 = C(20)
PAGE 142 INSERT AFTER LINE 47 THE FOLLOWING
C(20> = C2Q
PAGE 142 INSERT AFTER LINE 55 THE FOLLOWING
COMPLEX TEMP
COMMON /C/ TEMPC20)
 292

PAGE ins DELETE LINE n AND KEPI-ACE BY THE FOLLOWING

R = TAOC*tI)*Xl(2,I)-T£flP<20>
PAGE 143 INSERT AFTER LINE 20 THE FOLLOWING
COMPLEX TEMP
/C/ TEMP (20)

PASE Ilf3 DELETE LINE 32 AND KEPt-ACE BY THE FOLLOWING

ft = TT<8)*Y(4)-TEMP<20)

PASE 146 DELETE LINES 46 ANO 47 ANO REPLACE BY THE FOLLOWING

T3«) = 2./(l./Tl<K,I-l)+l./r2<K)>
10 ra«) = 2./<i./rt<Ktn+it/T2CKj i
PAGE i4& INSERT AFTER LINE s THE FOLLOWING
B = B-TEI"1PJ20)/ET

146 DELETE LINE 27 AND REPLACE BY THE FOLUOWINS

U<3<I)-TEMP(20)«TEMP(20>
PAGE 146 DELETE LINE 51 AND REPLACE BY THE FOLLOWING
E = CONJ5(1./£TA(N) )
PAGE 147 DELETE LINE 5 AND KEPLACE BY THE FOLLOWING
GE = PF*(U(3t J-l>+U<3.J)+t»*<U(4tJ-l)+U(4»J)
PASE 147 DELETE LINE 35 AND REPLACE BY THE FOLLOWING
B5CLOStC«PLX{COS(C(20»."SIN(C(20))»*£TA(I))+CMPLX(0.»C(20))
CI20) 2 AlNASO)
PASC 147 OECCTE LINE 41 AND REPLACE BY THE FOLLOWING
3 = CLOG(CMPLX(CQS(C(20» «-SIN(C(20) ) >»ETA(I»
9 = REAL(B)
C(2o) s AIHAS(B)'t-C(20)
r2 = REAL(X(1) )»Q-AI1AG(TEMP(20))*C(20)

PAGE 147 DELETE LINE 46 AND REPLACE BY THE FOLLOWING

AQ(4) -
PAGE 147 o£L£Tt LINC sa AND REPLACE BY THE FOLLOWING
A t 4 « N ) = tREAL("TEHP(S)*B*Y2+X3(lil))+SH3))*Sll'»)

PAGE 150 DELETE LINE 47 ANO REPLACE BY THE FOLLOWING

TAIL LOGS
PAGE 150 DELETE LINE 51 ANO REPLACE BY tne FOLLOWING
LOSS
PAGE isi DELETE LINE 4* AND REPLACE BY THE FOLLOWING
TT(4) s
PAGE 156 DELETE LINE s ANO REPLACE BY THE FOLLOWING
READ INlttO) NP«MRNt»RP<£fl«BPtTR«NK
= 1.
 293

IF (IABS(NRN).GT,999) FAC = .5
PAGE: 156 INSERT AFTEK LINE 11 THE FOLLOWING
TE = AINAG jeej
PAGE I5b DELETC LINES 31 THRU 33 AND REPLACE BY THE FOLLOWING
NRN = ISIGN(I"IOO(IABS(NRN) ,1000) »NRN)
CALL CPLOT {(3.0,2.0),-3)
C SF WILL BE THE CHORD LENGTH iN INCHES
SF = 5.
C DEFAULT TAIL EXTENSION TO 1 IF [Link].l OTHERWISE TE=H..6*DY
IF ([Link].O.) TE = l.+.6*AHAXl([Link](CC(6)t1.00001-TR))
IF (([Link].1.).OR.(CC(6).LE.O.)) TE = -TE
CALL GRF (NN,NNX»TE)
PAGE 156 DELETE LINES 39 AND ifQ AND REPLACE BY THE FOLLOWING
Xl«IAX = 22.*FAC
CALL CPLOT (CflPLX(.5*XnAX,it.S),-3)
SIZE = .It
REWIND N3
READ < N 3 » 9 0 ) (PG(I),I = 1,6)
CALL CSYPIBL ((-S.O.-[Link].&O)
SIZE = .07
PAGE 15b DELETE LINE 13 AND REPLACE BY THE FOLLOWING
CALL XYAXES ((0. • 0. ),1. + 3.»XflAX/ll..1.*3.*XMAX/11.,1.4/XMAX)
PAGE 156 DELETE LINE "»5 AND KEPLACE BY THE FOLLOWING
CALL XYAXES «0.»0.),l. + XMAX/il.,l.+XMAX/ll.,<*.t/XMAX)
PAGE I5b DELETE LINE ifB AND REPLACE BY THE FOLLOWING
40 FORMAT (3I5,20X,3F5.3,5X,F5.3)

PAGE 15& DELETE LINES 57 AND 56 AND KEpLACE BY THE FOLLOWING

110 FORMAT (6F10.5)
PAGE 157 DELETE LINE 1 AND REPLACE BY THE FOLLOWING
SUBROUTINE GRF (NNtNNXtTE)
PAGE 157 DELETE LINE 11 AND REPLACE BY THE FOLLOWING
DATA *0,NX,Li1,MX*Ax,NNxMAX,K /O. ,3,?50,500,250,0/

PAGE 157 INSERT AFTER LINE 12 THE FOLLOWING

XT = ABS(TE)
PAGE 158 OELtTt. LINE 35 AND KEPLACE BY THE FOLLOWING
160 CALL SORT («X-1,TE)
PAGE 160 DELETE: LINES ti THRU m AND REPLACE BY THE FOLLOWING
READ ([Link]) PSI(1)«PX,(PSI(I), I = 2,l<t)
IF (PSI(2).E9.1H1) PSI(2) a PX
READ (Nl«50) (PSI(I)i I = 19,30)
IF ([Link].15) READ (N1.50) (PSI(I), la 31,1*6)
 294

PAGE 160 DELETE LINES l»? AND 50 ANO REPLACE BY THE FOLLOWING
IA = IA3S(II)
00 10 J = [Link]
PAGE 160 DELETE LINE 55 AND REPLACE BY THE FOLLOWING
IF [Link].O) T = T*CSQRT(l.*dP*flP/(T*T)iON£)-6P
PAGE 161 DELETE LINE 1 AND REPLACE BY THE FOLLOWING
JJ = 15 + IA3S(NK)
PAGE i$i DELETE LINE 3 AND REPLACE BY THE FOLLOWING
WRITE (N2.100) (FF(J)iJ =1.64)
PASE 161 DELETE LINE 9 AND REPLACE BY THE FOLLOWING
40 FORMAT (lXA4,2Al,A3,lXA4t9F5.3.1XA4)
PAGE 161 DELETE LINES 14 ANO 15 AND REPLACE BY THE FOLLOWING
90 FORMAT (///38X,6HTAP£ 7///4XA4tAliA3«A4.F6.2«2F5.2.F6.2.2F6.3
1 ,F7.3,F6.3,F5.2,A4/4X,16A4/4X,16A4)
PAGE 161 DELETE LINE 20 AND REPLACE BY THE FOLLOWING
2 F5.3.3X3HDY=F5.3.3X,4HT/C=FS.3/////i5X«14HTAP£ b, PATH O/)

PAGE 161 DELETE LINE 23 AND KEPLACE BY THE FOLLOWING

SUBROUTINE SORT (N,TE)
PAGE 161 DELETE LINES 3? AND 36 AND REPLACE BY THE FOLLOWING
CHANGE CPOR AND CPSF TO CHANGE CP ORIGIN AND SCALE FACTOR
OATA CPV|AX,[Link]/3.i4.5«.4/
IF ([Link]..7) CPOR = 4.0
IF ([Link]..8) CPOR = 5.0
YHN = 0.
PASE 161 INSERT AFTER LINE 40 THE FOLLOWING
IF (C(3iJ).GT..8) GO TO 10
PAGE 161 DELETE LINES 42 AND 43 ANO REPLACE BY THE FOLLOWING
YI"IX = A « A X l ( Y M X t C ( 4 . J H
10 CONTINUE
IF ( T E . G T . O . ) GO TO 15
ADD TAIL POINT ON LOWER SURFACE
TE = 1.
N = N+l
00 12 K = It4
12 C(K«N> = C(Kil)
C(4,l) = C(4,1)+CC(6)
C(5,AI) = 100.
15 TC = «YMX-YMN)/TE
CC(5) = CC(5)/TE
CC(6) = CC(6)/TE
NPTS = N
IF ([Link].l.) NPTS r N-l
 295

PAGE 161 DELETE LINE 48 AND REPLACE BY THE FOLLOWING

IP IC(5.N>.E8.100.) Ct5,N) = C(5,l) + .000001
K s lABS(NRN)
WRITE <N3,90> RR,K,NPTS
PAGE 161 DELETE LIME 51 AND REPLACE BY THE FOLLOWING
CALL XYAXES(CMPLX(-.5»CPOR),l.*l./CpSF,10.-YOR-CPOR».CPSF)
SFX = SF
PAGE 161 DELETE LINE 57 AND REPLACE BY THE FOLLOWING
Y«X = CPOR-PEIN+D/CPSF
PAGE 162 DELETE LINES 5 AND 6 AND KEPUACE BY THE
CALL CSYMBL U-.5,-1.0> ,RR,6D)
SF =. SFX
PAGE 162 INSERT AFT£R LINE 26 TMfc. FOLLOWING
C13.J) = C(3,J)/TE
CCf ,J) s C(*f JJ/TE
PAGE 162 INSERT AFTER LINE Sf THE FOLLOWING
IF ([Link].l.) SO TO 65
PAGE 162 DELETE LINES 37 THRU 40 AND RrCLACE BY THE FOLLOWING
IF <C(3,a>.E9.1.) CALL CSYMBL(C(3tl ) i 15.-1 )
65 ANG = 0.
YOR = YOR+CPOR
SS = l./(SF*CPSF)
CALL CSYN8L (C?1PLX(C(3»1) »-SS*C(5tl» ) «11«-1 J
00 70 K = 2iN
PAGE 162 DELETE LINE 46 AND REPLACE BY THE FOLLOWING
80 FORMAT <3H H = ,F4.3 1 5X . 3HCL=»FS, 3,5X.3HDY=F«f ,d»6X4HT/C=FI|..3)
PAGE 163 DELETE LINE 7 AND REPLACE 6Y THE FOLLOWING
SAD(S) = CSQRT(CONJS(00)-ES(S),X)
PAGE 163 DELETE LINE 9 AND REPLACE BY THE FOLLOWING
SF = SX*XMAX/22.
PAGE 163 DELETE LINE 30
PAGE 163 DELETE LINE 3<* AND REPLACE SY THE FOLLOWING
GO TO 45
25 IF (.«IOO(-NN,[Link].1» GO TO 32
PAGE 163 DELETE LINE 58 AND REPLACE 8Y THE FOLLOWING
SO TO 50
45 SIZE = .28
PAGE 154 DELETE LINE 19 AND REPLACE BY THE FOLLOWING
IF [Link].O) GO TO 120
 296

PAGE 16* DELETE LINE 2f AND REPLACE 8T THE FOLLOWING

120 IF ([Link].O) RETURN
C SKIP PAST DATA ON TAPEl
R£AO (NltllO) (X. I = 1,7)
C READ AND PLOT PATHS
50 R£AO (Ml,110) KK,L,I«,((A(I,J),I = i,IM),PSI(0), J = l.L)
C *#*«tCHECK FOR END OF FILE****
IF (EOF(Nl).NE.O) RETURN
C CHECK FOR SUPERSONIC PATH
IF ([Link].O) 60 TO 150
IF ([Link].O) 60 TO 50
C PLOT THE PATH OR FORK
IF ([Link].l) SO TO 50
CALL CPLOT (A(5,l),3)
DO 140 j = 2,L
140 CALL CPLOT (A(5,J),2)
150 IF ([Link].l) GO TO 50
C CHECK TO SEE IF SUPERSONIC PATHS WERE WRITTEN ON TA?El
IF ([Link].9) GO TO 50
READ (NltllO) IA,(ETA(I)*I = 1,IA)
READ (Ml,110) I3,(SEE(I),I = 1,18)
W4 = -KK
X = ETfl(IA)
GO TO 25
PAGE i&a DELETE LINE i AND REPLACE ar THE FOLLOWING
N = I<IOO(IABS(NRN),1000)
PAGE 163 DELETE LINE 5 AND REPLACE BY THE FOLLOWING
IF (lABS(NRN).[Link]) 60 TO 50
CALL PLOTS (60,10)
RETURN
c PLOT ON UNLINED PAPER
50 CALL PLOTSBL (60,10)
PAGE i&3 DELETE LINE 19 AND REPLACE BY THE FOLLOWING
i [Link]/
Vol. 59: J. A. Hanson, Growth in Open Economics. IV, 127 pages. Vol. 86: Symposium on the Theory of Scheduling and Its Ap-
1971. DM 16,- plications. Edited by S. E. Elmaghraby. VIII, 437 pages. 1973.
Vol. 60: H. Hauptmann, Schatz- und Kontrolltheorie in stetigen DM 32,-
dynamischen Wirtschaftsmodellen. V, 104 Seiten. 1971. DM 16,- Vol. 87: G. F. Newell, Approximate Stochastic Behavior of n-Server
Vol. 61: K. H. F. Meyer, Wartesysteme mil variabler Bearbeitungs- Service Systems with Large n. VIII, 118 pages. 1973. DM 16,-
rate. VII, 314 Seiten. 1971. DM 24,- Vol. 88: H. Steckhan, Guterstrbme in Netzen. VII, 134 Seiten.
Vol. 62: W. Krelle u. G. Gabisch unter Mitarbeit von J. Burger- 1973. DM16,-
meister, Wachstumstheorie. VII, 223 Seiten. 1972. DM 20,- Vol. 89: J. P. Wallace and A. Sherret, Estimation of Product.
Vol. 63: J. Kohlas, Monte Carlo Simulation im Operations Re- Attributes and Their Importances. V, 94 pages. 1973. DM 16,-
search. VI, 162 Seiten. 1972. DM 16,- Vol. 90: J.-F. Richard, Posterior and Predictive Densities for
Simultaneous Equation Models. VI, 226 pages. 1973. DM 20,-
Vol. 64: P. Gessner u. K. Spremann, Optimierung in Funktionen-
raumen. IV, 120 Seiten: 1972. DM 16,- Vol. 91: Th. Marschak and R. Seiten, General Equilibrium with
Price-Making Firms. XI, 246 pages. 1974. DM 22,-
Vol. 65: W. Everling, Exercises in Computer Systems Analysis.
VIII, 184 pages. 1972. DM 18,- Vol. 92: E. Dierker, Topological Methods in Walrasian Economics.
IV, 130 pages. 1974. DM 16,-
Vol. 66: F. Bauer, P. Garabedian and D. Korn, Supercritical Wing
Sections. V, 211 pages. 1972. DM 20,- Vol. 93: 4th IFAC/IFIP International Conference on Digital Com-
puter Applications to Process Control, Zurich/Switzerland, March
Vol. 67: I. V. Girsanbv, Lectures on Mathematical Theory of
19-22, 1974. Edited by M. Mansour and W. Schaufelberger.
Extremum Problems. V, 136 pages. 1972. DM 16,-
XVIII, 544 pages. 1974. DM 36,-
Vol. 68: J. Loeckx, Computability and Decidability. An Introduction
Vol. 94: 4th IFAC/IFIP International Conference on Digital Com-
for Students of Computer Science. VI, 76 pages. 1972. DM 16,-
puter Applications to Process Control, Zurich/Switzerland, March
Vol. 69: S. Ashour, Sequencing Theory. V, 133 pages. 1972. 19-22, 1974. Edited by M. Mansour and W. Schaufelberger.
DM 16,- XVIII, 546 pages. 1974. DM 36,-
Vol. 70: J. P. Brown, The Economic Effects of Floods. Investiga- Vol. 95: M. Zeleny, Linear Multiobjective Programming. XII, 220
tions of a Stochastic Model of Rational Investment Behavior in the pages. 1974. DM 20,-
Face of Floods. V, 87 pages. 1972. DM 16,- Vol. 96: O. Moeschlin, Zur Theorie von Neumannscher Wachs-
Vol. 71: R. Henn und O. Opitz, Konsum- und Produktionstheorie II. tumsmodelle. XI, 115 Seiten. 1974. DM 16,-
V, 134 Seiten. 1972. DM 16,- Vol. 97: G. Schmidt, GberdieStabilitatdeseinfachen Bedienungs-
Vol. 72: T. P. Bagchi and J. G. C. Templeton, Numerical Methods in kanals. VII, 147 Seiten. 1974. DM 16,-
Markov Chains and Bulk Queues. XI, 89 pages. 1972. DM 16,- Vol. 98: Mathematical Methods in Queueing Theory. Proceedings
of a Conference at Western Michigan University, May 10-12,1973.
Vol. 73: H. Kiendl, Suboptimale Regler mit abschnittweise linearer
Edited by A. B. Clarke. VII, 374 pages. 1974. DM 28,-
Struktur. VI, 146 Seiten. 1972. DM 16,-
Vol. 99: Production Theory. Edited by W. Eichhorn, R. Henn,
Vol. 74: F. Pokropp, Aggregation von Produktionsfunktionen. VI,
O. Opitz, and R. W. Shephard. VIII, 386 pages. 1974. DM 32,-
107 Seiten. 1972. DM16,-
Vol. 100: B. S. Duran and P. L Odell, Cluster Analysis. A survey.
Vol. 75: GI-Gesellschaft fur Informatik e.V. Bericht Nr. 3. 1. Fach-
VI, 137 pages. 1974. DM 18,-
tagung iiber Programmiersprachen • Munchen, 9-11, Marz 1971.
Herausgegeben im Auftrag der Gesellschaft fur Informatik von H. Vol. 101: W. M. Wonham, Linear Multivariable Control. A Geo-
Langmaack und M. Paul. VII, 280 Seiten. 1972. DM 24,- metric Approach. X, 344 pages. 1974. DM 30,-
Vol. 76: G. Fandel, Optimale Entscheidung bei mehrfacher Ziel- Vol. 102: Analyse ConvexeetSes Applications. Comptes Rendus,
setzung. 121 Seiten. 1972. DM 16,- Janvier 1974. Edited by J.-P. Aubin. IV, 244 pages. 1974. DM 25,-

Vol. 77: A Auslender, Problemes de Minimax via I'Analyse Con- Vol. 103: D. E. Boyce, A Farhi, R. Weischedel, Optimal Subset
vexe et les Inegalites Variationelles: Theorie et Algorithmes. VII, Selection. Multiple Regression, Interdependence and Optimal
132 pages. 1972. DM 16,- Network Algorithms. XIII, 187 pages. 1974. DM 20,-

Vol. 78: GI-Gesellschaft fur Informatik e.V. 2. Jahrestagung, Karls- Vol. 104: S. Fujino, A Neo-Keynesian Theory of Inflation and
ruhe, 2.-4. Oktober 1972. Herausgegeben im Auftrag der Gesell- Economic Growth. V, 96 pages. 1974. DM 18,-
schaft fiir Informatik von P. Deussen. XI, 576 Seiten. 1973. Vol. 105: Optimal Control Theory and its Applications. Part I.
DM 36,- Proceedings of the Fourteenth Biennual Seminar of the Canadian
Mathematical Congress. University of Western Ontario, August
Vol. 79: A. Berman, Cones, Matrices and Mathematical Program- 12-25, 1973. Edited by B. J. Kirby. VI, 425 pages. 1974. DM 35,-
ming. V, 96 pages. 1973. DM 16,-
Vol. 106: Optimal Control Theory and its Applications. Part II.
Vol. 80: International Seminar on Trends in Mathematical Model- Proceedings of the Fourteenth Biennial Seminar of the Canadian
ling, Venice, 13-18 December 1971. Edited by N. Hawkes. VI, Mathematical Congress. University of Western Ontario, August
288 pages. 1973. DM 24,- 12-25, 1973. Edited by B. J. Kirby. VI, 403 pages. 1974. DM 35,-
Vol. 81: Advanced Course on Software Engineering. Edited by
Vol. 107: Control Theory, Numerical Methods and Computer
F. L. Bauer. XII, 545 pages. 1973. DM 32,- Systems Modelling. International Symposium, Rocquencourt,
Vol. 82: R. Saeks, Resolution Space, Operators and Systems. X, June 17-21, 1974. Edited by A. Bensoussan and J. L Lions. VIII,
267 pages. 1973. DM 22,- 757 pages. 1975. DM 53,-
Vol. 83: NTG/GI-Gesellschaft fur Informatik, Nachrichtentech- Vol. 108: F. Bauer et al., Supercritical Wing Sections II. A Hand-
nische Gesellschaft. Fachtagung ..Cognitive Verfahren und Sy- book. V, 296 pages. 1975. DM 28,-
steme", Hamburg, 11.-13. April 1973. Herausgegeben im Auftrag
der NTG/GI von Th. Einsele, W. Giloi und H.-H. Nagel. VIII, 373
Seiten. 1973. DM 28,-
Vol. 84: A. V. Balakrishnan, Stochastic Differential System I.
Filtering and Control. A Function Space Approach. V, 252 pages.
1973. DM22,-
Vol. 85: T. Page, Economics of Involuntary Transfers: A Unified
Approach to Pollution and Congestion Externalities. XI, 159 pages.
1973. DM 18,-
 Okonometrie und Unternehmensforschung
Econometrics and Operations Research
Vol. I Nichtlineare Programmierung. Von H. P. Kiinzi und W. Krelle unter
Mitwirkung von W. Oettli. - Mit 18 Abbildungen. XV, 221 Seiten.
1962. Geb. DM38,-
Vol. II . Lineare Programmierung und Erweiterungen. Von G. B. Dantzig. Ins
Deutsche ubertragen und bearbeitet von A. Jaeger. - Mit 103 Ab-
bildungen. XVI, 712 Seiten. 1966. Geb. DM 68,-
Vol. Ill Stochastic Processes. By M. Girault. - With 35 figures. XII, 126
pages. 1966. Cloth DM 28,-
Vol. IV Methoden der Unternehmensforschung im Versicherungswesen. Von
K.-H. Wolff. - Mit 14-Diagrammed VIII, 266 Seiten. 1966. Geb.
DM 49,-
Vol. V The Theory of Max-Min and its Application 4to Weapons Allocation
Problems. By John M. Danskin. - With 6 figures. X, 126 pages. 1967.
Cloth DM 32,- • •' . ' .
Vol. VI Entscheidungskriterien bei Risikp. Von H. Schneeweiss. - Mit 35
Abbildungen. XII, 214 Seiten. 1967. Geb. DM48,- . . .
Vol. VII Boolean Methods in Operations Research and Related Areas. By P.
L. Hammer (Ivanescu) and S. Rudeanu. With a preface by R. Bellman. -
With,25 figures: XVI, 329 pages. 1968. Cloth DM46,1 -. „;
Vol. VIII Strategy for R & D: Studies in the Microeconomics of Development.
By Th. Marschak, Th. K. Glennan JR., and R. Summers.'- With 44
figures..XIV, 330 pages. 1967. Cloth DM 56,80
, Vol. IX Dynamic Programming of Economic Decisions. By M. J. Beckmann. -
With 9 figures XII, 143 pages. 1968. Cloth DM 28,-
Vol. X Input-Output-Analyse. Von J. Schumann. - Mit 12 Abbildungen. X,
311 Seiten. 1968. Geb. DM 58,-
Vol. XI Produktionstheorie. Von W. Wittmann. - Mit 54 Abbildungen. VIII,
177 Seiten. 1968. Geb. DM 42,- .
Vol. XII Sensivitatsanalysen und parametrische Programmierung. Von W. Din-
kelbach. - Mit 20 Abbildungen. XI, 190 Seiten. 1969. Geb. DM 48,-
Vol. XIII Graphentheoretische Methoden und ihre Anwendungen.' Von W.
•• Knodel. - Mit 24 Abbildungen. VIII, 111 Seiten. 1969. Geb. DM 38,-
Vol. XIV Praktische Studien zur Unternehmensforschung. Von E. Nievergelt,
O. Muller, F. E. Schlaepfer und W^RrLandis. - Mit 82 Abbildungen.
XII, 240 Seiten. Geb. DM 58,-. "~~~—-
Vol. XV Optimale Reihenfolgen. Von [Link]-Merbach.-Mit'43 Abbildungen.
IX, 225 Seiten. 1970. Geb. DM 60,-
Vol. XVI Preispolitik der Mehrproduktenunternehmung in der statischen Theo-
. He. Von R-. Seiten. - Mit 20 Abbildungen. VIII, 195 Seiten. 1970. Geb.
DM 64,- , .-
Vol. XVII Information Theory for Systems Engineers. By L. P. Hyvarinen. - With-
42 figures. VIII, 197 pages. 1970. Cloth DM 44,-
Vol. XVIII Unternehmensforschung im Bergbau. Von F. L. Wilk'e. - Mit 29 Ab-
. bildungen: VIII, 150 Seiten. 1972. Geb. DM 54,-
This series aims to report new developments in mathematical eco-
nomics, econometrics, operations research, and mathematical systems,
research and teaching - quickly, informally and at a high level. The
type of material considered for publication includes:
1. Preliminary drafts of original papers and monographs
2. Lectures on a new field, or presenting a new angle on a classical field
3. Seminar work-outs
4. Reports of meetings, provided they are
a) of exceptional interest and
b) devoted to a single topic.
Texts which are out of print but still in demand may also be considered
if they fall within these categories.
The timeliness of a manuscript is more important than its form, which
may be unfinished or tentative. Thus, in some instances, proofs may be
merely outlined and results presented which have been or will later be
published elsewhere. If possible, a subject index should be included.
Publication of Lecture Notes is intended as a service to the international
scientific community, in that a commercial publisher, Springer-Ver-
lag, can offer a wider distribution to documents which would otherwise
have a restricted readership. Once published and copyrighted, they can
be documented in the scientific literature.

Manuscripts
Manuscripts should comprise not less than 100 pages.
They are reproduced by a photographic process and therefore must be typed with extreme care. Symbols
not on the typewriter should be inserted by hand in indelible black ink. Corrections to the typescript
should be made by pasting the amended text over the old one, or by obliterating errors with white cor-
recting fluid. Authors receive 75 free copies and are free to use the material in other publications. The
typescript is reduced slightly in size during reproduction; best results will not be obtained unless the
text on any one page is kept within the overall limit of 18x26.5 cm (7x10Vz inches). The publishers
will be pleased to supply on request special stationery with the typing area outlined.
Manuscripts in English, German or French should be sent directly to Springer-Verlag New York or
Springer-Verlag Heidelberg

Springer-Verlag, D-1000 Berlin 33, Heidelberger Platz 3

Springer-Verlag, D-6900 Heidelberg 1, Neuenheimer LandstraBe 28-30
Springer-Verlag, 175 Fifth Avenue, New York, NY 10010/USA

ISBN 3-540-07029-X
ISBN 0-387-07029-X