Nasa Technical Memorandum: Production The Extended NASA-Langley Lattice Fortran Computer Program - II - Source Code
Nasa Technical Memorandum: Production The Extended NASA-Langley Lattice Fortran Computer Program - II - Source Code
Henry E. Herbert
John E. Lamar
April 1982
and
P age
Io ABSTRACT / SUMMARY ......................... 4
2. INTRODUCTION .............................. 4
1 ABSTRACT / SUMMARY
This document presents the source code for the latest production
2 INTRODUCTION
update to these references for users and computer specialists who have
the Control Data Corporation (CDC) computers with the NOS operating
130K (octal) words of memory, and uses the Langley Research Center
5
routines that provide random access of mass storage files. The User's
Administration.
6
3 PROGRAM STRUCTURE
3.1 OVERVIEW
subroutines, seven labeled common blocks and nine files• The overall
(1) . . . . (7)
GEOMETRIC . . • . LONGITUDINAL
COMPUTATIONS . . • . LOAD
• . ANALYSIS
oe •
PROGRAM
WINGAL
The main program, WINGAL,forms the "root node" to the tree. Each of
more than one routine (this will be explained in the next section).
The point of this tree diagram is that it constitutes the way the
program is loaded into memory by the operating system, and hence, the
way it executes for any given input set. The actual file of loader
The root node consists of the main program (WINGAL) and four
subroutines. The main program is used to declare all files and common
The four subroutines contained in this node are LOADING, FTLUP, INFSUB
and READIN. LOADING is not called by any routine in VLM; its sole
this level so they are accessible to all higher level nodes that
require them. FTLUP and INFSUB, however, are used by several of the
linear interpolation routine that uses the CDC Fortran routine LOCF to
used to read in and print out the input data, with line numbers, for
they are considered "global" and must also remain in memory at all
times. The higher nodes in the tree are movedin and out of central
memoryby the loader when they are called by the main program, and this
overlapping results in considerable reduction of central memory
3.2.1 GEOMETRIC
COMPUTATIONS
GEOMETRY
is called by WINGALto determine, from the input data, the
3.2.2 AERODYNAMIC
EQUATIONS
MATRIXSOLVER
This node consists of six routines and performs the Given's Method of
Matrix Solution to determine the circulation terms of the horseshoe
vortices; i.e., these routines solve the matrix of the basic linear
3.2.3 AERODYNAMIC
ANALYSIS
This node consists of flve routines and is used to compute the linear
.
HEAPSRT - Called by FLOWFL to sort the X-Y values of the panel
centers. FLOWFL compares these values to the X-Y locations of
the flow llne points in determining the relative position of
the flow llne wlth respect to any given planform. HEAPSRT
uses a Heap Sort alogorlthm, which Is described In reference
5.
.
SIFT - Called by HEAPSRT to swap values in the sorting
process.
3.2.4 NEAR-FIELDINDUCED
DRAGSOLUTIONS
This node consists of two routines, TIPSUCT and WRTANS. The principal
values for KV,se for each planform. WRTANS is then called by TIPSUCT
This node consists of 18 routines, the principal one being CNLONG, that
INTERP SUTS
IQHSCV CURVIN
IQHSD CURVI2
IQHSE CURVI
IQHSF CEEZ
IQHSG TERMS
IQHSH SNHCSH
UERTST INTRVL
UGETIO
The routines beginning with the letters "IQ" provide smooth curve
3.3 FILES
There are nine files associated with the VLMprogram and these are as
follows:
input from TAPE81and prints all of it except the title card over onto
TAPE5. For the remainder of the program, TAPE5, serves as the primary
input file. The remaining files are scratch files used by the program
4 LOAD STRUCTURE
• • • • • • •
e•ieeeeeeemeeeeeeeoeeeeeeeeeeeeeeieeeeeeee••eeeeee••e•ee••ee
PROGRAM
WINGAL
done by the CDC SEGRES Loader Program• The SEGRES program reads a
relocatable binary file into a set of movable pieces (here, each branch
WINGAL, the Loader brings into memory the entire branch, leaving the
returns control back to the main program (WINGAL), that branch is moved
back out to mass storage, and another one brought in and loaded into
14
APPENDIX A
PSEUDO
CALPLT
INFOPLT
NOTATE
PNTPLT
APPENDIX B
______Z_ZZ
18
_0_
OO000
ZXZ_Z
_0 0
_ U_O_ _
_0 Z_ _ _ _
_0
X _Z _ _ _ U_
_ Z_Z _ _ _
OZ< _ Z _ _ Z _
U Z_ _ _0 _ Z _Z
0 0
UUUU_UUUU_UU_UU _U_
_j
19
u
1
20 t
t
i
!
_U UUUUUU
u _U_U
21
ZZZZZZZZZZZZZZZZZZZ___ZZZZZZZZZ__w_O_O_
0 0
0 0
0 _U_ _ _
0 0 0 0 0 0
r
22
i
I
f
#
I_.. CO O_ 0 ,-.¢
F-I m-4
U_ L&I UU _ U.I
ZZ
u.
i,-4
O
_._u •
C3 _1VI
Z uJ
_C_
u_'r z
su I-- ._
_s,O
O
..I 3E r-_
i-._ C3 1
-IU,
ZZu_
C3_
"_O
OZ'_
_ u
_, .J ..J
_lr_
UUUU
UUUU_uuUuUUUUUUUU U UUU_UUU
r ........
23
00_000
0 0 0
U U U (...)
U (.J, _ UUUUUUUUU U N
I
24
UO
Z O_ ,I
sr_ _ _
,..) _ °
0 _'* _ OZ
_-_Z _Z_
OO _ _ C) _-_ N _,..l HI
uJ_
Z •
0
"rl-. m:[ _ oO
O_.J
_3
_ u e, _..
0 I,-, Z
0,_0
00_._
O0
V _ _ aO
• 0
? OZ IEH
U-O UJ Z_ UJ_J ul
0
25
!
I
t
4
0 _._
0
e Z
I-4
0 -J
0 OC
I._ Zl--
M 0
4" • XZ +
I" 0 b '_e'_
• , _,,_ 41.
I_T _ wJ
Z ----
_0_ _,_ _ I_II_ _ •
,,..I • 1:3 • U 14,1 It,-- 0
I_UC3 1_ u.. e&. k4k. Or. C) I.,.- U,.- U,- n,,+ 112_
T 1_ _,.,_ C, i,,_ m,,...+m.,_ _,-,_ "e 1,._ m-,,+ ,,-.,+ t+-+ _- _I' _,
_ _* 0
e- l'- f" O"
0 f4 0
0
U U_UUU U _'4
26
J
I
f
t
h
F
[3
uJ
"Jr
u
Z
C:_ O
¢P,J LU
r3c)
uJ
o£
MJ
-,r
_ v 0 _[ UJ u.l
o
O_ ,_
• -a sr
.J _
0 t.Ju
I-C) 0
•_ I=-
0
,4" _r O0
_._ _ 0 0 O0
_o
0r_ ,,O P,,- eo
tJU
UU
UCJ
27
0000000000_0
0
Z
X
M
Z
0
M
0 Z Z
0
M
U
Q_
= Z
= N
O O O O O O OO O OO O
0 0
_ N
IJN NU(JN N N IN NI_ I_ I_ I_ I_
_N NUU
t
i
i
I
P
I Z
M
I,,,..
+
v
X
M..
"7
OO
0
0 0
MJ
I-- 0
u_ 0 0
i.i
--; 0 0
I=.I,
sr 0 _'- 11
_li_ 0
Z
_1_ I--I--
_1_
_1_
, _ ° _" "° g 2
_II_
X_I_ _
0 0
0 0 0 O0 0 0 N
_ _ m_ 0 ,.4 _
er f_J t.I ¢_
29 J
I
!
!
l
!
/
I
(
f
i
I
i
!
_T_::_
_ _ IO_
0 0 O0 0 0 0 0 O0
3O
__oo_oo _ _
0_0_0000000000000_0
O_
_0 0
0
_Z 0
0 ,,01--
_Z
i-I ,[,,
OU _ Z I=,, -')
t.9, ),,-
-r n.
01--
_ o,-,
0
N
(21)
0
_ Z _
A
Ik...
_ _ _ _I
A
V ¢,"
_t
0
f_
_0
0 0
_u_u
31
i
4
32
r .................................
33
, Lo
I
r
34
z_ _
0 0 0
35
0
N
_X
_' _ _ _ _ _
O0
ZO
u.O
_3 _-_ Z
_ t4J u_
Ou
_ -r
,4f .-_ #--
._ _ Z "._
0{%1
L
.J- X _ r
N_ ,_ w'r CD
0
0 _0
0_0
Om_O
0_
0_0 0 0 0
0 O0 _0 O0 _ 0 _00 O0 0
U_U_ _ _ _ _ _
36
°
0
_ZZZ O u _ u
_Z
OU 0 __ _ _ _ _
Z_Z O_O _
_ENJO N_ N3 _ N UI NI Z _
OOO00
II Z.Z 7
0 0 0 _ _ 0
UUUUUUUUuuUUUUUU
37
,L
't
oo
M Z •
)-!"
)_- 4.
I _,"
I!
040 :_
0
• 4.
• 0
l-
O0 O0
_______0000000000___
ZZZZZ_ZZZ_ZZZZZZZZZZZZZZZZZZ_ZZZZZZ_zZzZZZZZZ_Z
Z 0
TZ ,-4
r ÷
I X
O_
0"¢
+
i n
O0
12n _ I_ _ _,-_
0 _ 0 O0
UU
39
NNNNN N_
u_
U
ku
M
Z
z
M
O u
w Z z
O 0
• Z
Z _ _ z
z _ _ z
u Z _
I _ _ H _
t--
_ _ z
E4J Z
Z
0 < : N
X U _ _ 0 _ _ _ Z
_m Z
Z
U _
)-,
Z
_ Z
_ _ Z _ _Z_ Z_ O
.._ X >- u
),( I_
u_ZZ
:3 • • Z
_ I Z_
rr Z 0
W _0 Z _ O _ Oi _Z
u u 0
_ 0 u
:Z'_:
N
O0 0
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
0
0
0
0
0
Z
Z
0 E
X 0 0
0 _ 0 0
_+ ++ ZZZ _ _ _ 0 • ZZ ZQ
_X XX _ Z H_Z _ _ X_ _ _ Z
0 0 0
N 0
41
i
|
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
ZZZZZZZZZ_ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
Z
0
0 0
U
0 _ 0 0 O_ 0 0
UUUU UU U U
_UUU UUUU U_U
_2
O
0
0 0
U U _ UUUUUC._UUU _-_ N
43
____,___ZZZZZZZZZZZZZZZZZZZZZZZZZZ
0 O0 0 0
44
i
I
ZZZZZZZZZZZ_ZZ_ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
_J
t Z Z {4 _. >.' Z Z
z o _
.-I (j, i_ i.-1 ,-v I_ Z
u,.7 Z
uJ¢._ _Z Z_ _uo u u U _
Z
u Z -" ::E
I • "_ _nZUJUJH_O--J--Ju -:1 }k O_ I Z .J-_ n e¢ Z I e_ _ _ -JC_
0 Z
5 i ,_
L
46
ZZZZZZZZ_ZZ_ZZZZ_ZZ_ZZZZZZZZZZZZZZZZZZZZZZZZZZZZ_
_
Z
_
_
o
_
_ _
m
J
u
0
Z
N
M
v
+_
A
_ _ Z
_ _1 _ _ 0 _Z_
_ + U
uu
U UUUUUU UU UU
4?
i
/
48
A 0
u
0
@
I_ t%105
-'a
"9
Z 0,-_
LM ,$-3l
41- e_
Oe_ O-a--
_ w_ OZI_ I0
Z _ 0 _ H
U _ _
¢.)
IJ UiJI
49
B.
,1
D
Z M
_N
Z
5O
5].
I.
i
t
t
,?-
Z
MJ
_C_
u'u C) I I
,-, _,- -_ o
Z • _ C) e._ uJ C_IC_
_++0 OOm
UJ • • II _r I m • • • #°t"J" r_j_. n am
0
N
0
52
41"
4
41,
g
v
4
0
• M
_ _ 0
x
g
O_Z
_ _Z
¢_ 0 0 O0
53
' '°L
0 O0 0 0 0
54
ooo__~_
O0 0000
0000000000000000000000000000000
_ A
N
,", e,
U m..._
A vUJ _-
3 u
I
0
J
w 0 _ 0
0
"r od
_j •
u,. ! 0
I • v • w
_0 0_
,=JU
0 _ _Z U
Z _ _0_ _
Pt •
eO 0 m eO0
0 ZZ _ _I _ v_
0 0
uuu
J
55
• I-- _[ ll_J
Z • Z - -"4
_ ,._3_ _.
O0 I I,.-4. _ 0 • U II Lu II
56
r'. 6:) ,._ ..'_ c._ r-. c._ 0 r-_ --_ r,,
00_00000000_ O0000C_oOOC
U_ _3 UE
_X_ _Z IU
_X U
lIP" _
_ Z _
_ _m_
_ Z _UZ
_ _Z Z_ _ U
_u_X_U
N_ 0
0 _000 O
0 O0 O0
o _,_
57
i
t
ii
o
_ Z
_ UX
E U_ _ E E [ E_ a EQrQ
O Z 0 0 0 _O O_ OO_o
U U U U UU U UUUU_
58
_ _u u u
_ Z
_ Z OZOZ _ _
O_ 0 0
U
59
__O___O_N_
00000000000000000000 O
.4"
"r
w#--
I-,-
!" r-.. z
Z_=_
w
a.
!"
N _ UJUJ I
M
w
; = .jp
N
O
Z 3
l-I _,,; =
NN N -; o
0 UJU_
!" O
Q ZE _ ,_ 1=.,
u..luJ
{,.,,i O
ULI
OO
I"- _O
O I_,,O
U u U U U 't-J_
u ,t.) ¢.Im
)
6o j
..,@
I-- I--l.- Z I-- ,-4 u.I .j i-m I/t _,_ _-I (:3E_ w_'_ f,_ "i- _ ._} i--
_,,- II2
u_
61
ZZ
% Z ZZ
Z _
_ _Z_o_
ZO _I
-J 2E Z)_N TVI_
i_. N Z C_ Z X N {). O. IiI qI C)
UUU_U_
62
"_2_
ClO _O00_CO00 0_0_00_00000
_Dr7 O
U I ÷
e_
,,..4/" O
-J
0 0_1.
0 • ,.!
-! Z Z_
ZZ u.
O
O
LM_I
r-I
ZZZ_ _ I o.O
I 0 • O
ZZ
_O ÷ ! O
ZZZ_O U-
ZZZ _ N
Z
!
41. 123
! 41. =_
N _J 4f ¢_
_ _ _ X _ O _
OO _
• ÷
1_ II-
O O 0 0 000 OO O0
U U U
f
63
_ _ _ O_
X O_ _ X_ X
ux
0
0
N
CI, I--
0
0,'¢
i-I .,.J
..._ ._ _ _Z _ UX
>
0 0 -" Z u.. c,._
0 0
0 O0 N
_0 _
U UUuUUUUUU U UuuUU
n
6
0_
1.4
UJ
"It"
I'-
Z
I,-.I
en
sr
C_
U
_0
Z _vv
U'I,
JI--
! UJ
x)¢ I
LULU _1 Z
e,,. z z I i-.
_ u
r4 t_ tu Lu LU L'_ "_
• v__l-" v.-_ I.-- Z _ CD I-- E)
0 0
UU_U
U
L_UU
65
0 0 0
66
6'7
° ,,
,,,I"
Z
0 m
_ _ _ Z_O
_ _|_ _ _m_
0
e" 0 0 0 0 0
68
0 0
0 O0 0 0 ,-_ I-*
69
B ,
___Z_OO_ZZZZZ_ZZZZZ_ZZZZZZ_ZZZZZZZZZ_ZZZZ
ZZ
-J
o _
_ v
=_ .._Z Zi-- -r
_ U
U_Z _ X '_
Z _ U _
w J
I"-
0 0
)
70
i
1
t
|
I
I
J
ZZZZZZ_ZZZZZZZZZZZZZZ_ZZZZZZZZZZZZZZZZZZZZZ_Z_Z_Z
U _
x
_ x _ N
_ _ I
4"4
,--,_7?:'o
_ •
0
0 0 0 000 0 0
?1
-J
I--I _ E e. I-.l N
0 ")E _ _ 1" N _:::)
I_ Vt _ N_ Z
'4" _ ',_
72
Z
if
.}
I L
_ l-
_o
Z 41
I:: IM
it I
Z _t'-
_(_1
X_ _UX
_N_ _
_N _
N_X_
l-,l
mm
ZZ
O_
0 _ W
gT- 7* _ _z7
ZZZ _
Z _.
•t t_ ÷
Ng_N_ N N _
zz _ -Tf-
O0 0 0 0 0
o
?3
74
_O0000OO_O0_O_ZZZZZZZZZ_
_ZZZZZZZZZZZ_O0_O0_OO_
O0
_ u u u
N_ UUUUUUuUUUUUU_UUUUUUUUUUU U
?5
|
r
=,
U U UUUUU U U UU_ U
i
7G
i
I
t
i
I
i
t
|
l
t
O0
i
77
'4"
O
p,.
¢,rt
<D
lit
_'_ _O
0 ZO _
AU _
_Z _ _ o
•:
C_ 7_,_T;,,,Vg
• • °°
tJ_J u._ °-
ku ;7_ •
O
O OO O O O
78
000 0 OO0 0
_0 _ N_
_N _ NNN N
u
...,# ,..I
I,-. I,-,
2 ,2
,.I --J_
X_ _l"_ I _ I _X )<l.---_ I
! I I
nr, II l--mi.L@ II •
Z e,d
....... _,_ ._o ...... _ _
Our',
m-4 P.( 0 0 0 o 0 0 0 o 0 0
.................. __++
79
"+,
J.
O"
_J
a.
H
41-
I-- Z
0 0 O0 0 0 0 0 O0
0 0 0 00 0 0 0 0 0 0
0
81
0
I-- e,
t._2"
I--
I-
_._
_-_Z
• _ _
U UU_J
82
_o_
MJ
"r (,,_
,.._W
"_U
_wJ
,-_ (&el,
'lIE"r
_o °
_J
o o
83
_o__ _o
X I I I I
; ( ( (
_ g • • g
0 0 0 0
Y-T-T-T-
CdCd=d=d
_0_0_0_0
0 0__ _
0 I 0 I 0 I O I
UuU
84
_:_5_S_ "_'_=_"
I
q X I I l I I
N
I ! u , _ _ _ _ @ @
j N
,_ o _ _ @
- _ g o g
_ , , , ! J - •
0 0 _--
; ; g _ -
0 *"_ 0 _..._ 0 _-
MI_I_ _
0 £:3 0 IAJ 0 _
,."4 0 (_ e f"--
el'_J • . •
I'%J
"r "I-07l-0
0 Q 0
Z _Z _Z
-J _ ,,.J
UU(-_
85
ooo______ °__ _
I_)
I I-- .4 I I m _[t N P
NOi _ Z
• _ I I ,.-4 ,-4 * •
• • • 00 oO oO * _ 0 • 4[
g _ 0*40.0*40*40*4" _ _ 0 . "
I 000 0 ._ _ _0 * • u.* .4 .4
i.=II _.i pi 14.. IPI _ g_i v "I _ :=_ _ -J v 0 f'l 0 _'I O e'_ -# v X :l( ,.J
7 7 _,,
e.IUO N ..IZ-JZ_IIZ.I,_EUZ •f_" ._I" *P-IU1 i.=_'_ kl,,l
]E _-e ,.-_ o.
i_ua U I.I. "_r
O _l' IM I_ 7 1.3 E) _.
,,...4 f_..j t[::3 u. LL
UU _ U N U N U N U _ Ul_l UU U U U _,._ U N U LL. L_ H U.
0"4 O _.o
U
86 I
I
_ u
Z .I.
0 ,..,; u
Z :3 _ _ o0
,../ u.I 0 '_"
0 t--
_1_ _
_ 0 _
.,.1
_ .
O_ _
__3_.._.
_ • "I- x I--
_ OZ_ID 123
0 0
U _ U _ U
87
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ_ZZ_ZZ
I
t.
I-
t-I
t-I
m
.J
U
0
N I
E)
I.-
C3Z_-4
0 -JZ
; .2,C,
_,_0
.J •
u_Z
_Z
0
cJ
0
i-I e-4N
U U_,..)U
88
ZZ_ZZZZZZZZZZZZZ_ZZZZZZZZZZZZZZZ_ZZZZZZZZZZ_ ZZZZ_
i
u
I--
c_
o •
÷ o
__ •
=-I
H _
0 0
O
_0 0 _ 0
89
!
i
t
1
¢o OO O0
N • eO • •
• ,, O O O cOO
WD • O
_0 l | e •
U
0 90
!
91 9 I
u_
M
£D
0 V_ -J {3
-r
"7, i I"
CD
"uOC
.J • •
i*w C_ C. q..
(D
O"
)) P,',- ),.=_ i-_ ."_ _'_,C.'-I:, C._ _II- )-._ _, _ • _,-._- _ an :'...D,-_,_, _t
2" V" Z t': Z
C TM C c L _"
E _'- _ i" _
U C' L) _J I_, UJ
U U _ U I-_ C.. )- _'-t. u_
-.J ). p.
"_ >- -a
L._ "_
X <I c-
u'_ 0
E LZ,
I'-- I--
E_ E) ..j
R Y _ _2 I h 4 + t'% -J .l _ t_l U
L," -,:_ L, _--, _ --a .._ u (...> _L) L_ _ U --_ Z) _ _ lL___ U- L." _._ C C_
0 0 0 C
4,., f_ u,
93
_3
EJ
0
_4 i
!
t
_7
U_
(..o _.. rn r, f_. C f_.l ___. C2: C, ___ C.; C. _, r" __D f,,2
_4
U
N
IL
IE
U _
M _
_u_z
C_. Z Q.
r4
96
t
i
97
97
_ u
(
¢
99
___ ZZ ZZ __
I.L _ LU I_. [a. I.L LU UJ U_ _J- U- U_ U_
U_UUU_ U U
J
i00
IIIIII _O0_O_ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZz
ZZZZZZ __U_ZZZZZZZZZZZZZZZZZZZZZZZZZ_ZZZZZZ_ZZZ
O000C_ EEEEEUUUUUUUUUUuuUUUUUUUUUUUUUUUUUUUUUUUUUu
_IP _ IJu
t_ .4P <:[
I.- _ I--
0 U_Z
0
t,ll. ,.P ,_ _
v
° _
.J _x
O_ 0
,4"
_<Z_
,.J
U
3_
..J _ Z_ !
L_
Z ! ! •
_ Z_J
X_:D M I I I
.JO
O_ Z
r'_ ,4r ,4r O '_ O0 P
¢5
o _;.;
O _
O uJtAO
_-I P-P-
Cj>.- _
M.
z
UUUUUU_U
i01
i
l
d
ZZZZZZZZZZZZZZZZZZZ_ZZZ_ZZ_ZZZZZ_Z_ZZZZZZZZZZZ_
0
C-
XU
• -J
e[_Y I=-
_*MJ a.
Z _ _ Z
13. _ _ o. UJ v) NZ 4_
_1£
¢_,,J Z
l,-
el I LO
_" ::= 0
.... = .
_,-_I_. M. U.
_-e
t4*. _" • .
1.3
I--
X .z o- .
X
_e_ 0
_=_
_-_ 0 r
l_"_ff_ )4
r
)< t&.
I,,-
A tj_
_
o_ (_
3"7"
)-)-
I
__
0 N
102
103
"%
U
U _ U U UUUU UUUU
104
ZZ ZZ ZZ ZZ ZZ
_OQOO_OOOOO_OOQOOO0_O_O_
Z ZZ
Z X Z _
_ 0 Z
O<
_ _ZZ_Z_ _ _ _ _
_ _Z_Z__ _Z_
Z
U
l,,-
,C = I II I
M U _: IIIIIIt_1 II II
_u XlIX_IIE_ IY I_
0 0
QD
z _ z
N o _
0
O
O
UUUUUUUUUUUUUUUUUUUUUUUU
-)
105
)
.)
T
I
f
!
...I 31,-
_2 o -,
7 0
*'( "-_ Z 0
l,-I i,-,I
(I..)
U U UU
i
106 I
i
I
107
,%
U
108
i IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIII
Z
.J
NP dF _._-
_0 i_,.*-_ _.m'_
| |
_* _ IIIIIINX_
_ _)))_111111111
_H_O__N_ ___o_
_Z _ Z_NN_N N ZZ _vwZ
_0 _0_ __ 0
u
Z Z
0 O_ 0
109
w_ K_
_X_ _ +00
_v vwNXNX_XE d_O0
oL,, - _ = _.o "
wwNNwwNNNNNNO_ _OEII
_II_)IlXx_xlx_ _N I O I 1
IINNII_O_D+_v_ _N
_ w I _'' _ 0 _"
N__X__ 000
X_ _ _I_ 0_ ¢J
• 000 Z_-_
ta_ I..
-J l-e
e
_.ll _IZ
go
O*¢'_ O
ii0
NNN_NNN_NN_NNN_NN_N_NNNNNNNN_NNNNNNNNNNNNNNNNNNNN
o.
41.
u
4.
• ",, ,,-, o.
I I
i_, c3 ""_
l:k o- _
_ _ooo _ _ . o . _.
Iii
* ,°
,i
U
u
U
u
U
U
!
41" 41. L
41.
4" 4.
e4e4 +
I I U
O0 e_
'I"
41'
41. OUN "r _'_m
.'r 1" u_O i-4 _p I-- 4_ 41. _
JJ 0 J 0 !
O_ 4'N N X .11. 4F ",,t¢L _,=l _. _ • e._
Ne4 _-_r- 'I'
_j
eD
_ OONvO O_4'_n_ '_ I N_ I f_J_VI _'_--I.,.J _ _ +
,,-I_. I Z),J*" + +
_0_- I -r_ 0
. • v _1, _ '_ •
v_ _f_v el_
+
_ N N N O N O u _--"t ,_ .,'-_ l | er_
_Z NNN NNN 0
i
O
m
112
d'
0 M
O_
0_
NOI _
ilt ÷_÷+ 0
_NN O0 _e_ I
NNt_OXP++)))))_
te_ll_il_x÷÷*÷÷÷
___000000
III dU I_
ll )ll Ullll
113
f /
00
L_L
00
UQ_
UU_ 0
III
t1_O •
__ 0_
_NNN O_ _
_111 01-- NNN
I1_ O_ NZ_ _ _
O
)
114 I
J
i
I
t
i
t
t
l
115
, L
"%
_ 0
N
_ N NN
_ oo _ _ _
0
•- u-_
o _7_
•.) +
ZZll _vZ _[
I
116
O e..4 e_
ILl
C5'
>-
eL
6.
_ 0
,0
X
0
A
N
X 0
e-4
)-
e_
NN
1
e-¢
eL N_
M I! v
v
1 0 _ O_N_ xx_=4 v v
I-4
'_'vX
v
N_
I_ a. LL
t,,,¢ I,,,0 M
0 _n 0
117
0 0 0
0
(:3 0 _-
0
.J
Z
•_ -J 0
_ uJ
.J_
•0 r4__ 0
0 **_1
P,. 0
g g "
/
_ _ MM
_ _ Ua.J
Z _ Z Z_
0
0
e_
118
119
, i.
__O_N_
_ZZZZZZZZZZZZZZ .. ..
ZZ°°°_Z°°Z_°°ZZZZZZZZZZ._. Z_ZZZZZZ_Z
d
Z
M
v
0
i a.
M M
w
Q
t-4_ X
o_
OP"
N
Q.D-e
O_ 1
W
ZN L
M
_IIIIIII_N_Z
v_
__oo 0
_N
O_ 0
120
=r
ILl
Z
M
Z M_ U_
O_ 0
wz_ z _uZ
121
\
122
NNNN
XX_
_X_
: IIII
ZXZX
r_ 0
0 _ 0_0_0_ 0 _0 _0_
;
123
0 _ 0 _0_0 0
0
N
i
i
124
0000000000000000000000000000000000000000000000000
Z Z
O0 0_0 _ O_
ee _o_eo _ e* e_
125
_'r
QC I. _ ,_ A
O
_I_ 41"
41' "I
_ _ 'I_
_ Z " U_J I-..
2_ •• ev
I._ t--- Z
l-t ::=1_
_('11 U
U.I ('_
I_ Z
LU 1_.
Z"
_ O_ZZO0_
4_ I I I I
I.
I.-- •
z @
_ *,IF
_ZOZO
Z D_ 000 • • Z
@ A _ -.
0 _ _ _ O_
41.
0
e
U _,,Q'
U U
126
_Z|
! !
Z
127
J
!
/
I-- ,v
f_
W
wf-O 14 u_ _ I-- W Z
IM
f_ ; =
W
; =
4*
4_
Z
2 _
MJ
5r-
I I I I I I 4(
4[
t
_v
Ma if .J
Z Z .,1(
5r
=l uu _ e C) N Z _ 0 _ Z z_
_" ua i.u •
U_UU_U_UUU_UUUUU_UUUUU
128
t
129
i
!
_Z_Z _ _ _ _
Z_Z_Z_O _ U _ Z
OO00wZ_Z _lZ=Ot _ _ _ - Z E #
0 ,=4 o_
I I I I I l I I I I I @
'4[
.J
7'
0 _ H U..
Z _ _
t'*'*tZtZ't'**t***ZZ*'''*''t''''''''''Z&&&Z'*"
_U_U U U_U _U_ UU_UU UUUUUUUUUU UUU L.I,4..) (L)
130
NN_N_NNN NNNNNNNNNNNNNNNNNNNNNNNNNN_NNNNNNN
O _E
O
O
0"
r
I--
el.
Z_
X_ Z
0 Z
(3
Z
,I E3
Z Z ...I fD
Z_u
Z
w _z _
X
,-4
Z _ -J
o* I
N T .a Z
ee_Z_l_
M z
=_0 IO
,.,I
=,v Z n_
Z _ Z
0
(
131
"%
z
Z
J _
0
L _ _ Z
0 Z _ Z
Z
MJ
Z _ _ _ _ _
T ,..
0 Z
0 ,e{
Z M
0 P- N_H M _ v_ M
I-,- <{
0 ,.v
14.. e41-i
i_ v !-
E v Z _
0 0 0 0 0
m_m
_ZHZ_m
_Z_Z
_=rr_g_.
)-
T-
t-4
VD
3 Z_Z _ _I lU_O
7
W _Z_ _ _ZZ_Z|
V_
,-%
t
LU _ _ _ _ZZ_
_Z_ _ _ U Z_Z
_X _ Z _ Z Z_
* I I l I l
,-4
4.3
UW
Z
_, _m
Z • Z
0 0
0
O'.
ZZttZ_Z_ZZ&tZtZZ_ZZ_&_t_&_&ZZ
133
134
.!
4
135
0 0 --J
0 0
m-t
0 0
1_ 3,c
Z.J _ Lu
t_ • ....,_ I • ¢v
J I Z_ u Q _'X
U u
137
, .°
%
%
i
b
H
v
X
N
"!"
X _ J
,=J ,,1_ N
I_IF E •
UJQ 4" _
_v
O_
J_H
N_N_
0_
_nl E
UUUU
139
%%
_000000
_ I_ --"_ I_
i4 :::) _'
i4 Vl
:3 1_3 ¢4
::3 _
t_,'_ _'_ _'l_ ¢_ I_-I_ i_.
_ _
V', I.,-I
"* (__ "l
¢4 ::_ :3_ _
_111/_, _
¢_ _
I1_ _
,.,,=, ¢._
_ _--_
_ _
I/'l _
0'11_l
_ _Vl i4,
--_l t4
--_l ___,
0'1 i._Vl _ =:)
¢_ :_1:3
0"11/t
. w
• I-- ,,, _,'- O ,N Z U
• I_ 41. • • .--I O
• U Z M ¢'1 i A u_ _ M.
41. u.I ¢_r* U O _'1 "_' r'J
• _')- • Z Z UU'
• P, I,.-i ,_÷ ,.4 Ua Z I_ •
• Z 1.9 eel _ J e I" I'-- U.I •
• _ :,<NZ Z I.M M.. I_ CO •
• _ )" .,_ I_ ,_1W W II ]E •
• _"1 IV,,. _,,= • I'M _ IIM I'_1 ),.- _ I,t. Z _,'M •"
• ",J, Z N ,..._ i,t _ XXI" _ _ _ Z '''_ _1.
• ,_)-U I: Z Ula ).= I_',_ •
• I I I I I I I I I I I I I I I t
..J
L
• ,-IN r f**l_ •
41. ..1_1 (._ IdJ e J
• _l_ _ U IL,_ U Z _ 0 _r U
• I,-- i_ _ .1.
• ::) U_ I_, I. O Z
L_
• g _t " tuOI Z :) I_ --
• 4)
41 •
UU_l, U UU_._
140
,If
.if
,if _v uJ
,if t.M I_
J i.
w _
,_C)
M _ _.47"
Z Z _
Z 0 _O _ _ N _ _ M EE_UEQ_ U _ t !
_ _ _ N _ _ Z_O U _ _
k Z kN k _ k < _ I01 _ uuO0 _0 _ P *
0 _ • _ U_UU JJ ollm_ OO _ •
u N j aJZZ llZ _ •
0
A
g
0 0 0
N 0 •
0
UU UUU
U_U UU UUU UUU UUU _UU UUU U
B
I
141
,i
°,
0
_o _____0000
p-
Z Z
O O _ .IF
uJ
_ Z Z _
Z _ w _ M (t_ t-¢
trt .j
Z _ Z Z U Z=)
N
U
I-- N e-e
e_ rt _t _O
N N
N
A.),(
Z Z_
_Z
Z
_ _ N Z
f_ 0
Z_'-
b.*t- _ °
Z it" _ '_
U
n.,
_ Z _ Z_Z_ZH _ O
U __ _ Z
I I I I I I I ! I I
(.9 ,_
u_
i-e _ (,.4 u_ Z Z
rt lin _ O M O :r- _L t4J *', P- _._ t_ a "r t-- Z k_
P- O _-4
O _ _.4
w 0 0
_'_ U N _. e,"_ I-- _._
0
O_ _0 e-4
4P
_UU
11..) UUU UUU U_UUU _UU
+
r
142
aDaDaD_)_CDQD_D_
===.=_===_=.=.=.
4_ N _
_ _XZ
X X_ _
_ _ Z
7
0 •
_I _ _ _u
o_ 0 •
LU 4 u.J 4_
N
&,_ 5"-
C_,.O5,.- (,_ H 5r'-
0 l. t_
Z •
_O_ Z _ Z_
LU&U -_, ; *
4_
_ ..'.
..- -"
u
..
0 ; u
,I_ ._- ; °
II. Z
0 ,4
sr
I I I I I I I l I
.I- _IZ
"r "r"
Z _
Z
U X
l-. 0
_(
n," Z _u
Llkl _ w _u
0 ZZ
N =
_. C, •
0 •
_U_U _U UU • .....--&..-
_UUU uuu _-------_-
143
4 ¸
4_. _L
• N
4_
• X
• X
41" or
• W
_'X •'
Z_, • X
I I I 48. _ _ _o
,I .J z "_" a.l_0
0 • r _ tU ,_ _,.4
t "
k
144
4t
41
• UJ Z
• ¢.t WX
• Z
• uJ
• 0 O_ _ +
41- .jv)
:K _,4 i. _¢Z
11. _ v • wt-_
_/t (,,'t _ .ll. I-,- Vt
X >( • Z_
41. • _ 41. _-<tu •
_ _ • rvtn
.:, .; .. ° wu-.
v
_. xl[ P- e _10 P- @ lau ,<[
• I Z w + _ N • UJ • Z_ "_'r
I-- X Z
• UU • _.4 • v Z _1
• • • Z • VI
Z
X I/'tX ¢_I X Z _ _ • ,,, 0
I-- M
i_ ¢_ IP- ua
• • • •
145
dL
../
m-¢
X
I
3[
• -m X 7
m_ _ IN.
lm_ _ O O
I _" Z
e.,e In (_ 4[ 41
0-- 8-
iv _ 0" J,,,,
u_ _ _ .._ _)
--JC)
0
,el N wl
Z v • e-4
*v __ ),(u_ | _v
Ik--
Z Z; 3- w • • M
_-t_
.j _J .J II _ o.-e
<[ 8-- _r
W
,v
"r
0
=) *', Z
"# Z :E
uJ I
Z
"!"
M
JZ
i
(x-._
,,JZ I- I-,-
_N ZuJ
o-i iix
Z
uJ
UU UU_ UUU U
147
REFERENCES
.
Lamar, J. E., and Gloss, B. B. : Subsonic Aerodynamic
Characteristics of Interacting Lifting Surfaces with Separated
Flow around Sharp Edges Predicted by a Vortex-Lattlce Method.
NASA TN I>-7921, Sept. 1975.
.
Lamar, J. E. and Frlnk, N. T. : Experimental and Analytic
Study of the Longitudinal Aerodynamic Characteristics of
Analytically and Empirically Designed Strake-Wing
Configurations at Subcritical Speeds. NASA TP-1803, June
1981.
.
Lamar, J.E., and Herbert, H.E. : Production Version of the
Extended NASA - Langley Vortex Lattice FORTRAN Computer
Program, Vol 1. NASA TM 83303, April, 1982.
o
Akima, H. : A Method of Bivariate Interpolation And Smooth
Surface Fitting For Irregularly Distributed Data Points. ACM
Trans. Math Software 4, 2(June,1978), pp. 148-159.
.
Subprogram Library. Vol. II of the Computer Programing Manual.
Langley Research Center, NASA, February, 1982.
.
Special Capabilities, Vol. IV of the Computer Programing
Manual, Langley Research Center, NASA, February, 1982.
148
H. E. HERBERT
i COMPUTER SCIENCES CORPORATION
HAMPTON, VA.
JULY, 1981
END
NASA TM 83304 j
Hampton, VA 23665
16. Abstract
This document presents the source code for the latest production version, MARK IV,
of the NASA-Langley Vortex Lattice Computer Program. All viable subcritical
aerodynamic features of previous versions have been retained. This version extends
the previously documented program capabi'l_ti:es to four planforms, 400 panels, and
enables the user to obtain vortex-flow aerodynamics on cambered planforms, flow-
field properties off the configuration in attached flow, and planform longitudinal
load distributions.
19. Security Oa_f. (of this report] _. Security Oa_f, (of this page) = 21. No. of Pages 22. Price