-------
32
Subroutine QALCMP
o
in
AJ
n
o
in
(VJ
»>
(VI
4
»
^^
o
in
(VJ
"^
r-4
4
»
^
O
in
(VJ
>
a
.
,
o
J^
(VJ
*
t
^5
o
a. o
-T *
o >
.j =>
< in
O (VI
«
UJ Z
*"-^ I .
H*< o
»
o
in
M
->
oc
o
j>
tVJ
a.
<
>
UJ
»
^.
o
in
(VJ
***
a.
UJ
h-
»
^.
O
in
(VJ
*
^
f
A
o
in
(VJ
».»
to
^
>-4
^
Q
>
^MU.
o
IT)
(VI
^
M
*.
^.
O
in
(VJ
**
h-
j;
£3
UJ
r/)
«
^»
O
in
(VI
-
o
H-
O
I
a.
»XNODI(250) »
A
o
in
(VI
-
0
o
CO
o
*
_»
o
in
^-
i *
Q
O
CO
o
*
~*
0
in
M
-
tn
O
Q
*
^.
O
in
(VJ
cc
n
<
UJ
CK
^
O
in
(VI
CJ
»
o
in
(VJ
«
z
i~»
u
»
JMk
o
in
(VJ
w^
_J
o
>
»
o.
o
in
(VJ
-
X
O
o
in
'Vl
o
3L
3T
>
O
in
(VJ
-
CO
u.
z
*
>*«
o
in
(VI
*--
o
>
Q
*>
-^
n
e-
O
in
(VI
*-*
<
x
CL
-I
-
X
o
>
-^
o
in
(VJ
-
a.
z
o
»
^^
o
in
(VJ
a.
z
z
0
o
»
^^
o
'n
(VJ
~-
a.
z
CO
z
X
*.
^«
c>
in
(V
^
Q_
2
O
3D
O
MIL,LCONS,K2FL»
x
»
LO
o
UJ
to
z
9>
cr
u.
X
(E
Z
-*
Q
3:
CT
»
0.
o
2:
LT
X
u.
"")
o
z
» h
z ^>
UJ Z
_J »
x o:
3t
-> z
Z >
o
0 Ct
z z
X
Q
O
CD.
z
r
s^"
x
o
CD
Z
-J
»
X
Q
O
CO
o
X
-
<
o
UJ
a
z
o
o
(VI
o
y-
O
'J
,
O
CD
O
_j
«
UJ
z
LO
^.
~5
^
-) -«
2! ^*
- 0
-t II
II ~.
_J
o
O
(X
CD
LO
Z
o
s:
o
o
^ o -*
<
Q
to
Z
UJ
3:
o
o
o
o
Q
CD -v
Z ~)
_J
-) (vj ->
LU z y: z
Z » Q »
_« || ^H
3 tO II ~ UJ O M
z->-)r>«£z~)-)r)^)~>
o -^ z o z
OO>-t-HOOO>->-«OO
_j-*«Kt _in-iOOaO>-tOQUOQ
z
z
I-H
o
4
-^
z
^-* "^
^ o
II ^
o
>
*
-.
~5
o
4
<
o
UJ
o
I
-J
z
o
CO
o
o
o
o
o
o
o
4
UJ
o
I
o
II
. UJ
X -N
H- Z O -)
O (VJ O Z UJ
I -> . ^, _
x ii
o
o
v: uj i
«* O II
to z ^
OZQ.Q.OQ Z Q
UJO-J_I>>OU-OU-O>
OO<-«tJQ
o o
« (VI
o
n
o
4-
o o
in vc
o o
1^ 00
-------
33
Subroutine QALCMP (Cont'd)
o
to
tI
>
»»
o
o
o:
LU
» LO
~ LU
O H-
X <
z ^
LU Z 02T
_J LU fM CC
Z X -J » LU
LU X X 01-
«S -. Z X X
x< z uj ~» z -* TE:
XX LU _l O LU»«
~* -y _j x z _i x ex
~* *- Z X X ~ Z X > O
3T fMLU X ^ Nl LU X -« O
-5 *_i u *_! -> O'Cr
z ~x -> zz x -H xo.
M UJ r-i X UJ OX i
*_J S~ M NJ_J Z-~ NJ »-l
XZ~5~5 * *X -« * O
r-»XLU"^-z -^xz<"*z n x
S:-._J«~»xi «j ozoi"-*-] " »a:
o^X x o~x z< f»)«-z x-^o x z< t-
~ <~) ^^-«->X LU I r-*< XOLO'-'X LUi X<
-5 o + >- -.^.^««-^ _j^ >NJ ^^^^^ _j^ O -«T
>- (- rsj Tar <~5 x o-»* o~ "7O + -' X~> »-^.-s ZOO*^ X i O XZ
i-t O--* »--^'H-»M ^s^ (JO -^ >- » -^ (SJ ~* *~ CM »O
o oar-* ~'« (j^^.- «tODO'-'-« ^ OZO-H-
^- . ~> LOO-'") IOtOI -^1 «QD~) ~) O tO I -H t CE CO "> O U)
ii »CD-~ ~^^.»CD < O rsi~>o<-> NI-^ M'~- n o > t~ o a *: o ~< n
n ^»-<2»o^«>OM>ooj> o»oo»Qco~«:>o-«>ouja:x»
* (QO*O»»'QfM»QLULU'l^~)ll>}'~5ll QvO*Q>»"S'-<-^'
" ~ M^"5ll-.-)ll-^"^IID30Z**'-Z-^-*^H-<-«Mi-«Q:Z*'<
-^ -> ^ *-«zzz>-~) ^--^^i~^ «~~»oa:*-'t
-------
Subroutine DOCMP
34
in
O CM
in *
CM Q -»
O o
_J
~ u_
O CM
in *
-. CM
* O CO
Q
o
Z
X
*
2
CM
o
4>
-. O Q CM <_> X _l
noino~'3:o +
o a. *: ~- ooinx
rvi :> » in CM <\j en
UJ CM Q. O
M » o z co z UJ
<.ino,>- O (VJ (M rr
i uj -~ in CL *
CO
<
*
0.
<
z ~
r-l
CO
* o
-. CO
-> o
z *
o z
O CO
* o
o
-* z
CX "-< O Q
1 O -<
cc
4>
o > o » CM o in 13
oo in » a. »
mintcvj--»<2x
o_ *poo » o in uj
QLT'' in < Q. »
UjZQO<>_JT -
^. -. u
l~5-»* "5
O
CM
O
t
O
o
o
o
o
o
o_j
O -> o
O O
LU
Q ~)
O
D _)
O D
* >
X CO
CO O O
->->
a co a:
> * <
UJ -. UJ
i "> o:
S o
_i o
O T CO
> a. <
* + *
m z t-
l-t 1-4 Z
< O Q
UJ * UJ
ac co
i ~> i
3 -I
II O
00
cos
o
2:
s:
o
Q
Q
^^^ -^ ^ifr
O Q I
O < >
-. o
o
X O
-«-* on*
x u 2^ uj i » ~
u. it: o u -)^-H
o co z ~) i
OOU,|-'~">-'~>
Z-^ZI XO II
Z Q (X O -«
U.OU-O>_I2X
*-tQi-iOO
«I
o o
*+ CM
z.
UJ
X
X
NJ uj
* _l
~ X
X
<=> -)^t
m " s:
\- <-* Nl
O ' »
o s: ^
o o
o co i
QD -.
_J II
. ^ Q
^1 » Q O
at ~> M -*
2
UJ
X
X
2:
-) 2
UJ
M _l
* X
2 ~>
UJ
M Z
* UJ
x » ~.
-x -» O
-4 , in
x 2:
~> -> o
Ul
X
C£
-4-)
s_
< o
* o
-» co o
-4 CD
~> I O
N ~5 O
II 4.
Q (-
> C'
O «
II -
-^ M ^
-> * ~>
o -> <
CO < .
CC I ~)
< -^
II ~) M
II
^. o
<0
o
II
o *
^o ^^
< ~3 O
O X K
0.0
U. _J > O
»-< < o o
X O
a. a
_j > u.
< Q t-i
< -5 o <
I I- X
OL O Q.
_J > O _J
< O O <
0>
o
n
o
in
-^
-------
UJ
Nl
35
Subroutine DOCMP (Cont'd)
o
on
O
cr
u
N!
T.
X
Lfl
^ (/)
~ UJ
C». H-
X
^ sr
»_^
j <
*" i
VI ~
ca -3
^ 2T
II '
-. O
~f
UJ
_J
***
X
^Hh
CJ
2T
-
<5
A
^-^
U
2
»,»
IN)
II
^.
Ul
X
u
3"
*
0
^*
*
5->
^f
/^>i
~^
U~
OD
O
^^,
^
O
h*.
o
CD
, .
0
*J
0
UJ
_J
X
X
^.
.<
-»»
M
&
*^
~~t
**
)
!!
UJ
X
X
Xi
$
^»
: <
~»
.-»
2 t^-
0 T.
j -»>
. O
o n
4 r 4
r 1 «
PROGRAM TERM I
i
X
t~t
ne
&~~
<
»
^>
_j
a
o-4>oujQ:x«-
aujuj--*> n o^ »*>OO*.Q> ae-4^-
u r> ^> u 2- - oo z- ^. -> -« si ~i ~« it ^ cr 2r«- <
" Z 2 2 ^ "> ^ -">_«.-._ ^^Qtv^H... ^v
->^»-i -HOI~O
>oou,._i>ou>u,_j>o_j>*4
oo oo oo o o
xO cs r^*- ""^ o^ o> ^-H o
O -4 -4 O
-4 f\J
-------
Subroutine SOLVFX
36
o
10
"VJ
O !\i
I/I
01 Cl
O
~> ~r
2£ x
o .n
j"! 0)
X)
- 0!
O
!/! »
f\l ->
* O
>-< m
a o)
o
O O)
in y
, r-j »
c en
in a 2
O! ? O
> o
CJ X _J
X O
X > »
LT,
Ol
» o
o in
in o)
o
IP
0,
» O
~ IT
0 (V.
i/1 ~
<"VJ
a
C
- 1/1
.-.- 'V
; *-*
0 0
-D *
O
f O
J~,
o A;
rtJ .J
O
L/'
01
o
IP
x
aJ
in
*-« cf
OJ *
:> o
» in
01
o
Oi T
~' Q
U"l UJ
o o
J" lT>
O
25 0
U U^
» ru
O
(/-, U"
O Ol
r^ _*
~ o s
O i/> X
in 01 *
Q. 1_>
tO 2T UJ
U- O CO
2 * Z
-~ o y.
o in u,
If) M Z
a '*
O 2 2
> 2 S
O O O
» U X
rn >-. »
IS, i^) r"\
o in ^
-; -~ ex
a
x ac LL
f*s 2^ ~^
O
in
. o
o tn
01 cv
UJ
T O
( K- !-l -'
c. o -
f~» T U,1 X
~x a a o
s\i T 2:
a
a. S
u
cj>
x
u_ y o D
2T »s :j x o ~>
O X> ~> o
U U Q
~ ^. o
->->-> o
^- _ ^
< < «I X
I T T <
_J _) _J U!
t f « I +
UJ UJ Ixl UJ ->
'J3
H-
_l
O
in
o
o
o
o
o
i-» II II II li II II
00
O to
o z u.
'jj " Z
x it o
U. ^! aJ
do-j
u. o u. o
-H O t- O
-------
37
Subroutine SOLVEX (Cont'd)
UJ
z S
c
> o
o >
X O
X
o «~
i? f")
*-* *
(_) ~7
* 2:
.-
-i _J
C !U
~ ;£
O ^
i -
~s ~~>
UJ Z
"T?" %*»
(_> <_)
0
-.D
O
O
e
.^
o
»-^
CD
t~
_'
i
^^
O
UJ
Q
>
C3
00
O
l~
o
o
X
- Ju
- O ~~)
{*J * O
-J 0 Z
UJ UJ *
o a « «
_! X II
uj ~> u. v:
o
o^
o
1
o
0
_
>^
^;
^^
to
u_
z
* !j
o :.
a
> o
o >
x o
X
c\j *-*
«^ n
o
«l r~l
-~ -^
. )
Z '
C_)
0
o
*
o
o
i K
O
t <
03
»
t-
_J O
1
--» u i
0 O
-J ""*
UJ C/>
0 Z
> o
o o
x
t
* i
9*
O
z
(_)
Z K
~ > '
~)
o
K- "1
<[ <
>
X Cr T
r*"i ^- TB
_,^ _. 2
_J
O
U
X
'UJ
o
^
UJ
c^
Q:
UJ
>
z
o
o
r
j^
, <
»- >
o
X O
' ' -J
^ <
i u (/) cc o z "> uj z u u ti o tn o ~< z z
H >i !! -^ 03 < II i! O O < !l CD II II M M »~< - M uj < ^0 O 'oJ < ^:
?K3rO~^<:ilOO7'f^'-<> 3TjlECJ-~- zujuj^'-< oz>-.zz-~-Z'a:Lri >-i3r_ji~o
zzuj--'U.'~'XarjLi.ou.oz2UJ"-u-i-*Tpccoou.ocro^o(i'O
-------
» c »
IT _J
cr CV ~ li_
Lr - t.
~ c c a u x _
r c if c ? c
- r :\ -' o y » ...
"V tf * ^ i
^ -~ CV « - - C 5
<~ Q *r ~ O C LT X
,r * Lfi !X (V 'j" I
- u -~ n. i «=
(\ C >- 2' (/ * U i
' ~ J" c H- u. c 'y ~
* c -\ O CJ if .'
iC -~^ ~! * » » ~~
> c. rv -H c1 c a ^
-, r ^, st- » c c ir u *
« rv Q r ^ Li' If a 2
w - ^ ;5 * c <\ rv rj L-^
I-- i' L U' - ~- "j K
- <- i- o n .. .-_ . a
: » « i: «- c - ; -
, -, .- r> i- > c c r- ~-
N- c c: «- C (_' T_ v-
, Lr <.<~ K C -~ '- i O r
- (\ CV 5TTCrr^-~» -~
38
Subroutine INTER
c c » c: {/ u 2 -
u u rv i\ ._j . _j K .
(\ r C >. o <" f ij U >- H- ^ ^
c ci a a r ~ s u, n. a i- - - a o r- > ^~
,- ^ C e. ^ 7 * a z 2" ' a a : r . ^- i
' < v C * « . Li "- 7 t- i- ^- x.
T U. X <: .,.; C ,'t 7 ^ - ^- C . \r K x >- ,| _ - n
Q O- r- _i - - - r ti _ s| . -; u _. ^. _ _ u . - _
I' X ~1X~>.~'X->X>-Q.C -(..
c 2' - n ii r>. n ii - i! it n if ~s T <~ ,1 .. »- n
i' r\f-Qi'< >ini-no^--* K(-<~ n J^H
; u ? tr 5 r 5 ? >- ~) -' 2- »- _.' r- ~ i-
C * CLLl-CUu-h-CI-l--- T C "! < U 7 -i
c. rr o h- ~ c \- ~> cj x > > > > x :_ c x c.1 r;- '. n
U v.
r\ -
-------
39
Subroutine TABU
c
4-
)
c
f\
« if <-_ c ~~' ir
(.- >.- , \~ . ;|i
n <- c H v _.
V r- .7' C r_ -J I
S f >,' ,- ~>
> r > --
» «- » c c +>
>." -~ ^' ~ I
C «. --v> ^~
UC I ^- y
r LL .-; (f U LL; U * >
« c ^ _j c ii c u1 x ^ c- n c-
*- i/" - Q- "~> » ~' ! ~^ U" I' tf
~ *- <^ i=" i K s- ^ i- r
>. ^ i! a a e a a > c > ~ > a
~ (j. > y r x i- x !i t- c i- 11 ~
5 ? -- ~~ *-^-'i- t- t t c
u»-QLi_u.cuc nacaccur
>~ c z > »~ c i i c.1 u > c > c > a u
-------
40
Subroutine OUTGO
o
M
m
o
LP
(XI
o
-J O
~- -^5
o V
o »
( o
13 LO
O fu
» o
~ in
o (M
in ~- »
r\j o
O o
-5 z LO
z. x cxi
a: > «*
»- ^-v V-4
-~ 0 O
o in o
ft 'M Z
\J X
~ eg «-
0_ i£ -~
» in
uJ « iX;
* o *-'
LO 0
O i\i O
'.n ' CD
!\l I 0
* X. "
CL G ~
x *> o
LU in
>- O f M
^ r, ****
. cvi t-i
o - CD
LO "xl O
fVj ** £Q
-~. O
> o *-
* '/] *
f\j O
0 LH
in t~ rvj
nj T
** O '\j ru
o
!\j
U
O
L'1
(V
i
c
>
9>
^,
0
IT"'
(\!
*-*
S3.
K
~ u.
o rvj
in ^
~ (V »
o <- to
LO a. z
(XI 2T O
4r^ X ~J
s: o *
a; ~i
o 5:
o :.n x
(\i ~' i/)
a. u
U** Z oJ
U. C3 CO
2T « Z
^- o a^
O i/^ U_
in M x
«\| '**-' ry
~- 0. '»
0 Z Z
> 7 It
0 0 0
-us:
~
n -
» CC
-« V.
00
l~*
a
UJ
Cf-
r
in
X
vf
X
00
t
*
LU
CK
X
X
-t
*
ct
< X
> 00
-J ~*
O CL » »
0 LO O
tn "
j -
VJ X
- a:
a; 3;
>
^ "* ''i *> t tail)
< Z X
O
tr>
f\j
*-*
'/;
U
r cn u. o
a. ;
i j
^
*^ ^
^ ">
< 6
* 2!
» t i
LT'
i\i
^>
>-
- a:
C£ X
a in
3* »
_' X
" ~S
** O ^ ** «^ LL.' Q^ **
» o in IAJ z
(\j rvj _j »
o
LO
ru
"»* ^
< c
- x at
L '- "S
0
'n
(M
z
»-<
_J
*~(
x z -> z *
H- t~- >-< a. o z »
'il Z
z *-"*
> « O
s
^ _P
C O
a: 5"
CD 2"
O 0
CO O
"? ^ *i
> ' X I4j
7* CL or
. i (\) O
>-
X
0
^
X
_j cr o
< O- O X
_J
in >j
j
4
Z Z
~f
c3
5-
2:
o
o
1
fc<
Z
o
I-H
I/)
2
UJ
X
*"-4
o
^f ^
V 1
a o,
~> ~£
II !i
LU <
Z *
»-H X
_i LU
< 4-
> <
_J »
x
O O
/I «
o
a x
?x -^
Z *-"
** p-
LU <
h- 2"
t-< ar
or o
3 U_
O
T
T LO
X «
» r*^-
x *
O <-t
X X
j> e>
X X
oc in
* »
uJ O
_J X
< -v
r x
1/1 00
X LU
* _>
LU <
"^ X
:£ in
x
sj- X
» f*~
X »
in LU
» j
o <
z s
r x
(X! LU
» < ^J
Ct _J
X <
LO >
X
x in - -
>^" *
» X UJ
* 1^- D
» LU <
X _J >
i (XI ro
>< a
-- o
J a.
(X) X
t f -^J-
^~ o
rvj
' !3_
X '-i
* #.
(XJ X
* * >^
*- c>
fVJ
tf.
~» -^
> u.
X
r ' ^
~^ Nj" *-
- »
- UJ -~ X
_j i-i o ro
-i + LU LU (XI »
»U1 2 Z »
»^ -^ . . ^^ -v* T
r-* ^^ r ^ ^-^ j^ JL
(| r-4 ^J | TB r-<
HH _^ J *~4 *-H ^ "^*
o « (xi n uJ -< ar
o f\) rn ^ _ ,_| HH 3f ^
> 4
O
OJ
o
a.
»
x
(XI
*
u.
a.
c
«
X
»-
n
»
x
-< f
» Z
x o
-J O
^-1
o
c
LU
o.
t
«r~
X
^~
»
-. rvj
i
O \D
C< > Lu
^ >
O -^ X
» > -^
Q »
o < z x m
O * |i ! - t
^, X i i t i »
0 LU » X
«-H I-H ^ o ro
O * * LU ^t »
LLJ UJ : i_l ;^C *"
« Z Z i-" Ct X
< < _! || * 1 ijj
K" _) 1 ' < Z "-" H>
X i i \ Z Z
ijj M u o LU < t-i a:
t-iOOLOKTK-15
Z UJ >-«QCZt~Q
it LU X O IT O O LU 2
-« >-i 1-1 o * u. o a; LU
o o o
-------
Subroutine DIVCK
41
o
in
o
Lfl
o
IP
fvj
O
IT!
"Vj
in
rvj
a:
UJ
~ in
o rvj
(V) Q ~
o o
~~> z in
X X tVJ
cr *
O Q
o in o
n 'M 2
\j ~- x
*«* AJ «v
o. i£
< Q O
> »in
UJ -» f\l
~ in a
O (Vi O
in GD
ou -« u
-- y »
0. 0 ~
Z * O
uj « m
! O (\i
* IP «
^.. (XI ii
O Q
U i Nl O
"- O
-> O «
.-x Oj o
o ~- -j)
m *- ru
AJ 3C
cn uj CD
o
UJ
z
o o o
un ji in
OJ Cvl CXJ
X O 0£
S I- >-i
a a <
< X aJ
i 3. a:
-^ tv
» o
in a.
O OJ Z
KJ o x
^ o
'_)"i:-
* «..
. ^. o
o o in
in in rvj
CM rvj ~
a
z cn z
*"*'* t&r- O'
O 2* »
rfW_ fr* <**^
o o in
in in M
>"VI (Vi
_»G Z
o > z
> o o
. o
O f) -~
J~! * O
\j o m
in _j tr
x < o
o _j >
z
O
31
x
UJ
l/l
or
u_
3:
cr
o
o:
»
1.
x
u.
O
PC
in
O
T
3:
O
o
X Ct
* 3
~> Z
z »
o
O CY
Z Z
Z o
O II
3T QT
o
o
X
-~ u.
o ->
O
o z
UJ »
« *-<
X I!
U- ^
")
O O
Z (V
in
z
o
UJ
O
^-4
>
I«
Q
O
or
UJ
o rN
^H T
o n
4 o r*j
i *>
o x
>- o in
t\j
in \o
A
o
o
UJ O U_ O
O X
~ O ~)
iC . O
UJ O <\J
tn z m »
u. » *
z ~ ct x cr
UJ ~5 "» -< Ct UJ
UJ < It -«
~> H- O I- T Or K
>- ~z. " HH o: or z
u_ o u, ex o uj o
t~«
-------
42
Function JKFND
3:
/*,
5: in
x *
« c
* s:
K- X
(/> -^
« 36 I! 2T
-J O t~ II
< 5: U) i
x a: LU
x j Z, ;/>
» i- 2!
"5 -i o tr
o i C1 o 7 rs
Z UJ U. f- O
D t/) U, U, *. Uj ~Z
u_ 2 -» »-t ~> ce UJ
-------
Subroutine QALOUT
43
9
o
in
o at
*\i #>
(*") O
o a.
in <
OJ 3»
-* UJ
Oj >
< *»
o
-. in
0 OJ
in -~
oj a
.^^ ^p-
^~* UJ
* &
0 O
in in
OJ OJ
o >
*
*» .*
o o
in in
OJ OJ
^*
i in
z> <
o »
I O) *
D * O
O IT
_! O OJ
' > «
f« a> *
*
D Z
0 0
no 5"
D o
in o
,-.
*
o
in
*** »
D
0 0
Z 111
X C.J
O O
in o
M ^
OJ »
Q 0
* in
-~ CVJ
o *-
in a
OJ O
~ CD
-- O
o -.
o oj
OJ "-<
-~- o
M O
* CD
O
o *
in ~
OJ 0
in
! OJ
S ~-
o in
U! O
in Cj
» *
*-* --V
o o
in j>
Oj OJ
~-- -w*
o ct
i- »-<
o <
X UJ
a oc
oj m
* 0
in
O <\J
OJ U
0 0
in in
Z i/)
i* U.
» <»>
o o
in in
OJ Oj
_! a
o >
> o
as >
o n
in »
oj o
in
- * rvj
o ~^
in <
OJ X
CL
>- _J
X <
O _l
-t in
»
_j
~ u.
0 OJ
in *:
(VJ *
a. z
z o
>- o
X _J
o »
0 X
m x
^ trs
a. o
Z UJ
<3 cn
^ z
o a:
in u_
oj 3:
a:
a »
0 Q
o 2:
ct
OJ 2T
>" cr
a. »
z x
m u.
~y ~>
x. O
* ^
, »
o Z
in uj
OJ _J
***^ iv
QL *
O Z
OD
O O
» z
~z
o
3:
2:
o
(J
\£)
A
^
ft PL'
X ^- » *
<~« Z -»
It.! * X
o U X
OJ Z ~^ »
* o *- x
x o o »
in oj ~, ,
-4' -^ X
< OJ X r-«
o » * ^ "^^
rvj »
m -^ x
» !U * 4"
*'"** t^» "j^ v^
« 4 1-4 *
X I- ^
»-i .-* (/I O U.
-!«- OJ O
0 >- »
X 1- OJ O X X
O * < o
O O X t- ~4
x in x «" o 9
>t z x n x -i CL
V O f-« 4 u. Q.
o o * ^ «-
Q _i * X O II
_j x * x i/i oj m
» ZT A _ « » Q z
x XX^ZX Z
Z_J*t *~ ' *-' 3E ' O
j^X'-'Oo o
H-^XQ,*XOJQO X
>-vO_JX*»> d o
ZOZ«T-«-~X(-'-4 OJ
» «.
a^rD^^ox^t x
3C O X n "< *3eX-~0
zx-^o>-«^ . o -* o m
4-X'-< »o3:_j oj
Cs X ' « < (*^ CX U. X »O
aaacKX'-'Q.i- -crx
Z QD ^ 3: < » ^ O '- 3B -^
0>Z O*Z
_i_j---i-xcnrx^t-
uj< ~^J-
c o
OJ
->
0 Z.
t~* m>-
t ~*
UJ it
o ->
*
-+ in
M OJ
y;
0 0
X O
o
o
II
<-*
~5
^^
O
^^
^
o
X
H-
_)
UI
-~- ZD
"> Z
r^e > 4
O h-
z
u. o
M O
in
OJ
o
0
h-
0
O
Q
_l
»
O
UJ
z
o
_j
CK
O
0
-n
z
_j
o
UJ
*-.
a en
> z
-5 o
2! O
Ct _J
>
-> rr
Z 0
»>
' Q
CE CD
<. O
> _J
_l
* * C5
O UJ
o
1 '/I O
^ Z
y.
o o
t- >n
>
o o
03 Q
0
^
-)
U
II
X
o
K-
^
0
CO
»
^r
O
H-
»
O
CD
h~
_J
UI
Z)
-> ^
t 1
(_) I
z
u. o
*-, o
o
rn
o
*
0
II
2:
o
1
H-
O
uD
~~* *-*
o 2:
O
O t
H-
l- 0
_! CD
« >"
X x
O i
1 U,
> l-l
O II
cr i-
o
U. I
>-< i i
-------
44
Subroutine QALOUT (Cont'd)
a.
0.
on
O
h-
.
(~
o
cc
> 1
^
t
-
v
7
CJ
II
Q.
O
t
*-.
a.
o
) i
^
* H-
-* O
II UJ
~"5 Z)
~> "2
0 >~i
r^ u »-
^-" 7
o u. 6
O i-i U
2
a
UJ
t>
CO > i
o z a:
OH
> i < C_) X
» a. _j x
X O <\J
O H- 0 -4
h- t-i cc »
*'>-«
x t- cr x
i < -a ~«
u. o z
»-« -J -" H-
II U_ UJ
-< Z ^ _J t- O
» UJ (ft
-------
45
Subroutine GRAPH
r
je
Z
0-
a.
&i
vj<;
(/)
Z X
«. o
t- X
^ -H ^
LU *
C_: I V
* X X
>- ---i *~«
s- *> *
< * x
x in t-
,1 O ' i Z
Z O » « O
»-H CO _)
X UJ X II I --,
r-t O- ^- < O2
X CL X ' H- » IT) LT
a x o o ~- < 2" o 01 o o
2L * 'i (O^O UJ <3t in O IT) O '-O
'"> » x i « » « tn mo o >~ << o ir i LT
!_,-,,». ^^_^OV 2 O X II H- >
jj^^f ^(Q. X X O"^ ~! ^ H- i' CO O1"
O ^ <-H Q. K ! V '_n o . X i H- 2: O II O > s5 »- 21
rf x QC x c- u-i - o 5: U.I ,j o a. H- c --1
^ v r-i _i ujoa x i o o oa, x N-^O o o_i
X « X 3. O T -^ X *v f Z O i- < M * « <~ CL '-0 < -3 »
rx en oc >-z ^-,^>_». uj_i^ o ~ z o ^ t~ z
< 0. r> < ^ x: -. - -x o Q o -~ 2: 0- >c a. o o - ^ z in cj
crz_ii~ in oxoxo^zo oo>~<»-io 5 o < o o «ujr> _
o "" ex yi z ^ t-< ^ K i - < CD . j « -« "-< '-i :?. o _j M
X _l .i «, rn «. f") H- K> «-« ^ Ui t « <- » ^ * * >~ ti.' 8 t t~ ,"? d.
ui » ~! fx in i~ * » o ^ P -^ _J o o -' * u. H- »~ o ~! '- '- ' !; < ^~
zzt-»«-icD_jQ:ri:x,DuJi:iiSf » i: ct x ~>o_j»«_jo«-jii z-
t~s'~>^CDi!;< «-'»'--S«~itOU.>-»-UJCLK "> 3: --< UJ * I > Q. » _I ^- UJ uJ
r- i U Or I/) >-H X 2T Z -~- O. -' ") ~J > D *- ? 33 Z. ' "D > >- * Z :? H- Z - _J O O
:D y; ._j _J z s; 'ju * t-- f- o n _J z y: ui _i i- z o o uj -jj o u T =5 _J T z
OZ il r-J O Ui <. ID < ! t~ O O -^ M en O X'<>-- H- z Z LT* ;- 3" t- t~ z Z z ^ ^ s- _i vt- ».- H- H-
crxi H-uj2:-'»-'a'*-*(ri!uJ -jz t-* o: z o >- -" T _jz_i
^ I-H «j < o >-< u OL o ct o '.n o o o a.- o u, u. o a: o o o. u. u. u. u -^ >-* u, o a o a
in O O G 2T _J >-! ~3t U. ^ U. V Z O O *-» O H-I -' O 3E U- (J 2 »~i »-i »~i > --> _J -* O <- CJ «-
ooo o ^Cififn °
-------
46
Subroutine GRAPH (Cont'd)
CO
LJ
*
X
^ o
U. O
>-
» X
a. x
>< < -».
« »
h- -H X
z *: -H
UU U_ 00 «"
O ~> uU «^
2 H- a: a, o
»- 2 < x i i
H- o H-
s: H- a: o o o
i-H -» (1. || _Jt\i Lf) -
»- M _J t- »
OO-Jil 3! H-KX CKX
ot o t-«^i-«>-uj-l I (-! t-3Ti
O < OIMJ-OO O
o o u~> oj in in
LT LT> LP rn n
-------
47
AUT0QD:
The program output has the same basic format with the following
additions:
Under the heading "Estuary/Stream Data" the non-point source
input data and other physical data is printed,
Under the heading "Flow Conditions for the Period (Month-Day-Year}
through (Month-Day-Year)" the point source inflows and/or diversions,
the non-point source inflows and/or non-point losses and
the channel flows are printed. The non-point values printed
here are the equivalent junction inflows and/or diversions
(non-point source value multiplied by channel length)"
Under the heading"Input Conditions for (Month-Day-Year) through
(Month-Day-Year)" the point source inflow concentrations and
the equivalent non-point source loadings are printed.
The non-point source loading is the total mass loading due to
non-point sources for the junctions (non-point source
value multiplied by channel length).
The same new variables have been added to program AUT0QD that
were added to AUT0SS.
Program Listing
Following is a complete listing of Program AUT0QD. New or changed
cards are marked by arrows.
-------
48
Main PROGRAM
ft ft
ft ft
ft ft
ft ft
ft ft
ft ft
ft ft
ft ft
ft ft
ft *
* ft
ft ft
* ft
ft 4
ft *
* *
ft >*
* ft
ft *
ft ft
* ft
£t ;}t
^C Jjt
* *
* *
* *
ijE jjt
* *
* *
ft ft
4 ft
* ft
* *
* ft
* »
* *
jjl iQt
* ft
ft ft
j^S ]Ql
ft >«
ft ft
ft ft
* ft
* ft
4 ft
* ft
ft ft
ft ft
ft £*
ft ft
ft ft
ft ft
ft ft
* *
ft *
* *
* ?t
A jj[
* *
* ft
O O
ft ft
ft ft ft
ft ft *
ft ft ft
ft ft 4
ft ft ft
ft ft ft
ft ft ft
ft ft ft
ft ft ft
a:
LU
O
X
z
v
o
I
I
in
o
p
o
ct
o
o
3:
a.
A ft ft
4 ft *
ft ft ft
* ft ft
ft ft ft
ft ft ft
ft ft «
ft ft ft
O U <_'
ft
ft
ft
ft
*
ft
ft
ft
ft
ft
ft
*
*
ft
A
ft
ft
ft
ft
ft
ft
ft
ft
4
ft
ft
4
*
ft
ft
ft *
* ft
ft ft
ft ft
ft ft
ft *
ft *
ft ft
* *
ft ft
ftft#ftft»ftftft
*********
ftftftftftft***
ftftftftft****
in o » -» -»
***«**$*«
~t\iOLn» o:x>ct
_j LT (\i o in z <*- fvj'~-Ln rvj*o>
*ft*ftft**ft*O>»--*t/>{\| ** O >-" _J
UJ
ft ft
-*? $
ft 4
4 *
ft ft
ft ft
* 4
ft *
ft 4
U O
ft
*
ft
ft
ft
ft
ft
*********
O U O O O (J U U U
-------
47
AUT0QD:
The program output has the same basic format with the following
additions:
Under the heading "Cstuary/Stream Data" the non-point source
input data and other physical data is printed.
Under the heading "Flow Conditions for the Period (Month-Day-Year)
through (Month-Day-Year}" the point source inflows and/or diversions,
the non-point source inflows and/or non-point losses and
the channel flows are printed. The non-point values printed
here are the equivalent junction inflows and/or diversions
(non-point source value multiplied by channel length)"
Under the heading!'Input Conditions for (Month-Day-Year) through
(Month-Day-Year)" the point source inflow concentrations and
the equivalent non-point source loadings are printed.
The non-point source loading is the total mass loading due to
non-point sources for the junctions (non-point source
value multiplied by channel length).
The same new variables have been added to program AUT0QD that
were added to AUT0SS.
Program Listing
Foilowirig is a complete listing of Program AUT0QD. New or changed
cards are marked by arrows.
-------
Main PROGRAM
48
4
4
4
^
4
if
4
4
$t
4
iji
it
#
4
4
$
4
*
*
4
*
4
!?
iT
"?*
$
4
*
4
4
4
4
4
!)l
4
*
&
4
$
4
$
4
4
S
.
H-
« *
_J
«t
~J
0
cc
UJ
>
«
i
u
4
4
4
*
4
*
1)1
*
*
4
4
4
^
4
4
*
4
4
*
4
*
*
4
4
4
A
£
4
4
ft
4
4
4
*
£
*
4
4
4
4
4
4
*
4
4
4
*
*
4
4
4
4
4
*
i
$
4
9
*
*
#
4
4
->
*
4
4
4
4
*
4
*
$
*
*
4
*
*
*
4
4
4
4
*
4
*
U'J
<_)
<[
._J
'.U
!>
0
-J
4
*
*
4
4
*
$
*
*
*
*
*
*
4
4
4
*
*
*
*
4
4
444*4*44
****** -* 4
4*44*44*
*****4r**
***$4*$*
******«!*
4***4*4*
V
O
C/l
* 4
4 4
* *
* 4i
& 9
4 4
* 4
4 4
4 *
4 4
4 4
Sjt 3ft
O
2:
UJ C/1 O
o: 1-4,»
>-
z
o
-, UJ
(X I
CV!
« O
Ct tV)
»- oc
*
4
9
ijt
4
O
PROGRAM AUTOQO -
4
4
*
4
4
4
4
4
4
U
4
4
*
*
4
4
4
4
4
0
it
4
*
*
4
4
*
4
4
4
4
*
4
*
*
4
*
4
4
4
4
4
4
4
4
O
4
4
4
4
*
4
4
4
4
4
4
4
*
4
*
4
ff
*
4
4
*
4
4
4
4
4
0
*
4
*
4
*
4
$
4
4
U
*
3D
a."
,-H
at
4
4
4
4
*
4
4
*
*
O
*
*
4
4
*
*
4
*
4
0
UJ U, UJ U SO
H- U_ 3£ n
o o a. uj o
or o o uo
.i Q _j z «
_J U lu 00
i U. Q t/) 5
UJ (ft _J CO O
X I-H «L »-4 CO
z _j o _i
O O en O «
a: a. z a uj
>-< z o z o
z z ui z T
uj <: t - a:
1/1 z -"A *
o u. o uj o 3:
i^~3 ^ ^^^ *~\ "\| e j
X1 LA IN,' _J Ct (X
~r t/«, .-\J UJ > O
a. o ~- a. a »~ -.-
H- O X X «i >- »
» uT! O O UJ o ac » »
-' O U"s t\J X O X
<\i
c o
in - u «5 o x iii o
og a x r -x z _j
--. <
o tv r\j
in -
O O UJ
» o o
,- ITS U-
<\J 2T O
^-^ ^-4 ? .-
2- 0 O
^ rr: r
z
o
%
rvj
O
O <3 Ur, Z5 UJ O.
ui _s rvj s: Xi v
tv » at z »~
-^ a. * _j t-
vi o z x -j - >
^jr (\| ^
x (_; *
cE
» *i 3
X 3S
a. o
o _J
(ft r
r ~s-
^ x
X O
O _!
K- u.
« X
X UJ
x
14
O U-
O X
r -4-
*
uJ UJ >- O
,,'-, u"> - rvj _J i,T < a
in ' in a. » z
x rxi LO fvj z o o » uj
i... -i/)-~-oZ>-UJX
o "M < ~> n- r cj x >-(
*-<*. 2: 3: o ~> <3 v- u.
saxct -zz«-4_j
z
o
in
o
r*- 4
X H-
b z o
a: o x
o ~> >t
r r x
x x i
a -3 <. Q -^
C3 ~> Q 20 Z
II II
«r O o
H- CD ac
'.
_i a
II O
o >-
UOOCJOOOU
-------
Main Program (Cont'd)
49
Z> X X
-> o u,
_J _J _l
-I II II
M UJ
cr (x. x
> u.
o
CM
x
Q.
in
o
UJ
in
a:
~
JL
2 O
x ui x
ro < * » *«
» * 1
O Z X t-
r> in ~-t in x
«-* LD <-<
X»-X»1~s
- .£>.«»
"X*O3
» < ->. X Z3
<« * 3 -< D
< \ t T
<^ » ^ tn *^v
x -- -i..
r> a m 5« x
*X-»XC7>
X <-< » LP »
rr x » ID
?-< r") f- *->
x x o -< C"
-H f- T »
*.*iLr>x
x ^ ^(oo
0
^ ZJ
x o tn
,-i T -
.!««>
x x
X
o
XO5'*'
rn T X O
«-^!OO
X Cs
xoxx
» n \o o
o » » G;
x» X O
» >~ n x
x(-»m
ITl J X
«r a >-4
_i 2: o
*" Ct O I*)
xo
-4 \D O
II II M
Q Ct I-
Ct 3C >
-z ^-z.
O *t O
i < CM
v O
O CM Q
Ct OC
2t t- 2"
xx
u. cr
n 3r
IT) !D
-< o
o
x x
o
X
O
tr
u.
UJ
oc
o a o
O O
r>
x x
o o
M
O
o
o
X
n
w»
X
rr
»
o
o
o
X
n
<*
Ln
o « »
x ~- x
f> in cr-
,..-«.
x » «t
O X <
o » r
O ^^ '^
o «* »
xxx
rn ^-f r>-
» »
>< ill
.--fX
»-" » "'
x x o
f) ^« I
«.»»-<
x x »-
'-< in
o x x o
x -* o
n o
» » x ~C
X O » f!
O O Q »
» r> a x
o x o a--
o n x »
a * ro c ~~
x x o o
r> o x o o-
e- » (T- X *
x _~> iO Ct
LD O O » IB
Cs x
X LO
» O" X "* '-i
x. » .( ro x
J^ Q <-* n o
> o in * < ro
O O i X 1-1
z> x » M
r> f) x « z>
r - in - x x
f) X ,('
* in -> t -' »
x » o i -* x
LO O X X <
» (3 f* rn ,
- CM m
rx » x » i: u.
4 in <-> x uj o
.» T »in >
v ~ « x -! uj tn
»r5 ^ Tl_J2
^. X X'-*X"-«O
Q ' « * X ~< ^! '
X _J "JL < r" >~
ft n u1 ***» rt o
»-'-< Q-'OXUJUJ
4 O O AJ ID > '-0
2f fYf » * HH
^ ^ ^ i: u.
o -- x * x o
UJ t~ X ~t I -«
n ~» i » < "O i
^ j x « i-'
< X O X CO
at o * < cv in 2:
u. o
s: <. < ^ z
a:2:OOX«X
X UJ (M <-> X '
f) Ct I
Ct X »
O * O X
32 r\j f\j LO
~ « X
e- CT-
X-
ID
»D
- r
c? 'i
x «
< ~«
-'XX ft < O
i/1 vC ' -~ < (*>
ii < 13 X i'
X T f!
X \D H- -< "
r- « H- x x
- O H- O ^ "
C? X
X C5 <*) * < X
^-s X X
r>~ oo cr
o
f)
il o X r> ' --
r\j n 4 in
o
>4
T 3.
cr
o
UJ O ~
3 X UJ ^ -« X *
O < _J U, X
5 2 H- O -«
rj >- ii f-i » v
« o t tn -i » o
^- ! < « CM (V
O H-I Z. OD Q « »-
-\j tn o x :> o
» < Ct 20 UJ X
i Z> X U. '
II O 4- 5" »
^ X -4 X < X
"O |J"1 UJ
-. ""> X Ct CM
^ » IT t-
x « * tn o
< in -~ X 2" Q <-*
T 4 -4 JE 2: u.
a x o u-i
_j * o o
:
_J f_< O h- -H a.
cr r - » £ tD u.1
3E .-! X -* Z
2 * Ct I »-4
K- -~. x LU
I- 7" X " H-I UJ _J
KI a ^4 o cr _J _j
3: o I'M x t-4 <
'3: L«_ O « ^ X U.
-< nj n -4 in
o
-------
50
Main PROGRAM (Cont'd)
o
o
o o o o
CVl %C O O C." f\J
XI lt I - <-*.
O O r-l
H- t~ O O O
t- I O I-
O O t-
:3 O O O O
. -- o o o o
i~ -i x » "- o^Ti-o^'/io
»-»»QO» -iC)O«'SO
O UJ LU h- O UJ i! O UJ 3 -J M II UJ O LJ II O LU => J II II LU O uJ O O O iiJ O O
a:CLiXLiJ'-x>i,i<<->^O'-'a~>2O<<~> O-«XQO - O2>> ~52 >- X^>>> ~) Z1 >->> V LL.
I h- O > O II i U"l"t--«OH-OI!i-i LO H-I O h- Ok- O
o_j_j_Jf--_ir- t-_j_ir-ciKK-_jcT'^.t~_i_jooH-K_j_j_j!-.j-jt-
<-'^_J " ~>2:_J_J OZ ^ ~)Z_I_J OZ ~-_l_J _J
o oo -j\ o o m
O vC(^ h-COO" C^
O
-------
51
Main PROGRAM (Cont'd)
2
O. -
S -* O
O II "> O
C/) 7D < < U
o 2 > > in ii
-52-J-J Z OO
O< no
) t ' O
-------
52
Subroutine SETUP
o
in
(V
o
in
rvj
M
O
in
rvj
o
LH
rvj
o
in
:D
o
( O
o .
in o »
rvj in ~
^ rvj o
_j in
O > M
> « ~
-^ O !£
o in Q
in rvj
rvj ~.
com
HH Q rvj
uj a
a: o s:
en LU
~ oj t-
o >~
in i ^
rvj 3: o
Q U">
o UJ rvj
^ ro
o ~> <
'j~> o *
rvj in
-~ (VI O
»i en rvj
o < "
- OJ
~* ~N <
O O
en in -*
rvj rvj o
>- ~ in
z Q. rvj
ii < '
x > -*
O UJ <
o o o
rvj rvj rvj
n -^
o
o in
rvj ~
Q.
en z
u. "5
3: »
o
in
rvj
en
>-
x
o
o en
in rvj
rvj
en o z
o » in
in "- rvj
rvj o
an
o
CK LJ OJ
CL >- Ct
Z < <
» Q >
Q HI _J
_J UJ -<
ijj o :t
o 3: <
rvj _j
h- 03 *
_l Ct CL
UJ V O
Q HI H-
» » en
t- CD _i
_j >-
UJ < O
Q Q Q
Q£ » »
u. CD a
3: o CD
cc r z
3 Q C
Q Z CD
3T UJ O
o: z _i
a. eo uj
o uj CL
ct z t-
- - _i t-
x _i >
U. »-« _J Z
~> 3: u.
o x tvj ar
z v: 3e
> en » z
z o en
UJ UJ > O
o o - uj
z > uj x
» u a: >-<
~> o v u,
Z Z >- _J
o
o
z z
o
z
X
Z O
D en
3: oo
Ct CM Z ~>
i in 3t z
0. * O »
D _l 3T (V
3! HH CC II
cc 3: ii ->
o
rvi
3:
X
3:
x
->
s.
C£ UJ
II O
Z I
3 O Z
Q Z
T U
cc oj 3:
II Ct
II Z II
II II
>-H UJ "">
X X Ct Q
-H 0 "I «-H
a:
^H O Z
o, ~
a o
3: o z
ct o ct
~) o
z
o
-« II
UJ II
D -> ->
Z
HI O Q.
II
-~ O
~) II
O O
o o
II II
-5 -)
Z Q
O O 2D
(_> O O
o
rvj
CL -)
CD CL
Z Z
x o
a CL ~>
o
o
o
O II O O
II -.
-. -> o o
II II
z v
O X
o o
,-. o
o o o <
-------
53
Subroutine SETUP (Cont'd)
00 OOOO O 0000
O O O O (*")
O O O O O O OO O O O O O O O O O O
MHO* II II O O II II O O O OJ O O O II II II II ^ II
~. iioo~o--. ii »^.oo^ ii oo ii no «o^ ~II~
-)-)-* II ~) II ~5 O -^ II -^ O O O II
-------
Subroutine NEDAT
54
o
in
i\j
o
in
rvj
Nl
O
in
rvj
o
-vj
o
in
oj
Q
i
LU
o ~.
in o ~.
rvj en ~» o
rvj o in
O > oj ~
> » en
o ^ z
O J") Q
in rvj > ^
rvj -" -» o
>-H Q ru -*
<; en
eu ~ Q- cj
t o x >
> m LU ~
. rvj t o
o in
in i . rvj
rvj x o -~~
*- Q in >
cj LU oj x
en *- o
o -» -< a
o LU < o
* » £T
O O O
in in in ^
rvj oj rvj o
*~ *- in
z o x rvj
m -.
o
o
m
rvj
en
u.
x
o
in
rvj
x
o
in
rvj
z
o
»
o
rvj
a.
x
O
~ o
o in
in f\j
rvj
^ ~ CL
en o z
< ru z
x o
CJ < O
X X *
Q. -
-s _| O
o a
Z <
O H* _J
_J LU -*
jj r> *.
o x - O
O -t \~
» en
t- OD _)
_J >- -
LU < O
a o Q
.. t-H _J
or
u. cc o
x o cc
Ct. X Z
^500
Q Z OD
X LU O
tr z _i
a o LU
D LU CL
X E V
or z H-
_i t-
x _j >
X X
t- CJ X
O LU
X Q X
» a. z o a.
X X X O Z
»- -t -* r o
o x x ^- z
»-* o rvj \ x
r D
x _j
n »
< x
_l Q.
X
X LU
H-
X
rvj -i x r>-
_j z o o
HH _j ac
en x » ro
-> o x x
O t- LU CJ
x < a:
a. d
_j en < ct
X Z Q Z
» » Z -
CJ O LU
Z > UJ X
CJ r£ 1-1
~) ^ >- U.
Z Z HH _|
Z
o
_J X
> t(
X O
O UJ
_i en
LU x
I X
-
LU x rvj
^ ^ \c
LU en oo
ar i
^ x x
x en a cj < -«
_J _) _i _i > en o
z u
^-
O
r-* I
+ 1 -C
x x
-< » X *
1C X *
i- r
LU
i (V
en
t
a.
en
CJ
o
o
o
in
o
D
CL
in o o
>-
o
*.
~5 O
X U.
_J X _J ^- I-- "i *
-» r\j . cs a. -« X
o o 2r o in
rvj ^ 'jU O " ro
> < iu < in
Q (V' _j . || Q >-.
i ~* uj tn -> ct ~-
Z H- CD h- Z I
<
-------
55
Subroutine NEDAT (Cont'd)
u
^
a:
r
(Si
\
1.
Z
»
V
«
X
»
(_)
J^
»
r 4 , .
< 0
LT>
X >
LJ a:
t- x
z z
H- 4 »-*
UJ
_l »-
< X
O 3
X
o
CM
X
in
z
o
14
1
O
oJ
Lu
O
Lu
H-
LU
O
i t
Lu
Lu
LU
O
r 4
_j
-*
O 0
O o
u- o
O '~4
0
o
I U-
_J
< O
o o
2:
a:
f.
0 CO
CD 1-
Q.
O Z
I
V
o
o x
>
~ o
CVJ Z
O
o rvj
Is- »
* O
Of X
!£ 4
Z *"*
»-- t
LU <
H" ^" ^*
-4 a:
or o ->
i Lu *
^.
rvj
<
-
u
^
a:
»
o
z
»
<\)
(X
<
>
_j
~-
O 0
cO C5
f**" O
^ -
o
o
1 ^-
t
< 0
o o
G
jr
Of
o
O I/)
-1 t
d_
o z
H- »
>
O »
O X
>
(_)
f) Z
< »
i rO ^»«
O
X
r-4
'
t
"!
< LU
CO
0 »-
fM CL
" Z
»
0 >
1
x
o *
O CJ
z
K »
Q X
r 4 f
36 O
J **
"X
UJ »
z a:
LU
i t
LU Z
CD "4
<
. | |
|
Lu *i
*-> O
*
X
O
X
LO
1
Lu
CO
X
t
Q
t 4
_J
LU
Z
Z X
< H-
X 0
O '~|
x ^
o
C_)
e 3£
X LY
in »
> CJ Z
Z UJ
aji I
X CM X
4 lX *
^» »^ ^ .
O O > P 4
~i CM _l ""
^H 4» X
O O
(X x O Q
7 r"* ^ r 4
z r> 35
1- O II
Lu *I -»
H- 7" 1 » <
-i fX _J
oc O
.
~)
^»
^ T
IU h-
_l O
X 14
* 3t
^^ -^
~) =>
z in
' O
X Z o
H- » $
O <\J ~Z
t * II UJ
3C ~> _) U
II XI
rM u 2
> ^-< i-
^* »-H ) f.
"^ ""^ 4
CO O
lu
O
Jl
CO
<
UJ
X
<
LU
U
<
Lu
(X
0
CO
2-
O
* 4
r
U
z
ID -»
~) cr
X 2
X X
in »
» ~^
Z
* ».
X -<
-» £X
> ~" "3
<1 O >
-< CM _J
H * '
» o o o
fX I O 0
J i -H 1 0
D Z ~ 0 ^
r H- o
-< uj
I
UJ
^
1
UJ
cr
CM
OOOOO OO OJ
invor-
-------
56
Subroutine NETDAT (Cont'd)
u
X o
ct
» o
CO ||
a z
z. *~
» >
>
^-
X Z t-
~ » o
a- -i
UJ II ~
t- Z Z UJ
z ~ o
-i 0 O Z
r> x -«
_i or K
-I Z
< o u. o
CJ Q i i O
O
rn
i
41HAVERAGE CHANNEL TIDAL VELOCITIES (FT/SEC)
«
x
in
»
^
$
x
I-H
»"
0 0 ^
i- CM
f-H » ^*v
» O $
a: x x
1 1 ( -H
Z
^ t- 0
UJ
i«4
O
*-% -*H
» O
O H-
X
or o
» o
CJ
z
» Q.
CM X
a ui
^. t
> _j
_i
*- UJ
O o z
O 0
H- 0 _l
Z> « UJ
O CD
O <
_J t- _J
_J **
< O U,
<_) O -
o
in
^-«
»NPTS»RMJ)
35HJUNCTION WATER TEMPERATURES (DEG-C) »5X»20
>_
X
x in
* «
~) »
z $
X
a -«
x
UJ O 0
» vO CM
>-< *
cr ^ o
uj a: x
H- * -
z z
UJ < ~
_l H- X *
_j t-ior x
< a: o -«
a 3 u.
o
>D
i i
a.
x
UJ
H-
X
a:
*>
~>
z
.s
^^
(X
4
>
_J
0 o
O O
h- O
ID r~<
O
O
i
< O
o o
0 200
»NPTS»RMJ»EVAP)
34HNET EVAPORATION - RAINFALL ( IN/MO) »5X»20 (
K- V »
» X
ox in
o -
~) -
z *
Q. » X
< Q. -
^> ^ "-
_J > 0 O
UJ 00 CM
UJ "* < >
Z OC » 0
UJ a: x
UJ Z Z -*
33 >-i H-
^ UJ
UJ
-5
X
a
»
~>
z
»
»-^
a:
~^
_l Z
O "H
O II
H- ~5
^
. Q o
QN
^ _J -H
* _J
X «T O
i O Q
O
<
u.
Q_
<
>
X
^.
~)
*~
CL
>
UJ
* ID
5 ^
> i_i
CL I-
< Z
> O
uJ o
0
JJ\
1 «
-5
X
a:
o *
m i/)
rvj K-
a
o z
V
o
O X
»
~~)
0 Z
i »
o o
X v-
a o
j x
a.
o 2? .1
o " u
O _l V
i UJ Z
OD i i
O 4
t- _l _l
o u. <
O "-. O
0
o
CM
61HAVERAGE DAILY PHOTOSYNTHESIS-RESPIRATION
»
X
in
»
<->
^i
x
*-4
^,
O O
rH CM
CM »
» O
i X
3; r i
~Z. "
' t
UJ <
H- X
Z 0
3 U.
o
^->
OJ
X 0
1 1
-^ o
0 X
CM a.
x ->
in x
* cc
^ »
>- ~^
< z
Q
X -*
X Ct
C3 <
CO "> ~)
X _) Z
o o ~-
O II
X H- ""}
O ID
O O
CM
Ul _J CM
<
CJ
*
«^
-1
o
1
0
X
II
^
5
^»
o
(-
0
X
CL
-------
57
Subroutine NETDAT (Cont'd)
LU
^
Z
1 1
t-
z
o
o
o
rvj
rvj
s:
o »
£> LO
CV h-
a.
o z
i >
>
o »
O X
»
^ "^
1- Z
X »
o t-
LU X
CO O
_) UJ 0
CO -t
UJ " f\J
o z a: -
o LU a:
0 _J H- ^
-i UJ Z Z
00 »-*
O < LU
1- _J _l t-
o u. < a:
CD -" 0 3
o
n
<\j
EN UPTAKE OF SEDIMENTS (GM 0?/SQM/DAY
o
>-
X
o
X
r\j
rvj
t
s:
Q
LU
CO
»
-)
X
o:
>
~^
z
r
i i
a:
_)
-
o
o
1
^
o
_l
O
*
«.
~1
f
"^ X
Z Q
e UJ
~H LO
II II
-> ~ LU
~> O
0 Z
tn >- i-
OJ 5- h-
Q Z
O LU O
O LO O
0
CO
ru
»
0 O
CO 21
tv ar
»
O CO
t *
Q.
O Z
O »
V
^~. V
Q. X
LO »
H-. O
0 Z
_J »
M
uJ
o z a:
o LU
O _l h-
-i UJ Z
TQ > i
O <
1- _1 _1
» 1
O U. »
LU <
H- 5"
*- CL *
a: o x
X U. '-i
o
^
V
~)
X
ar
»
~ o
r*i ~* t-
» no.
u z
2; o
CX. H- >-
« w-
O O x
z o
* *-* ~~)
f\J '' Z
tt ^
i ^ ~)
_J O Z
»- uJ - »
o o z -i: -
O O LU II
H- O 1 H "~>
Z) ** UJ Z
O 00 >-i LO
O < CO
It 1 1 fVl
_J 1
r*»
^
o
r <
*
,^
J
'
~H
^
Q LU
II O
Z
) <
" (
' Z
^; o
O O
tn
00
OJ
DECAY RATES CORRECTED 10 STREAM TEMP
o
o
£
(_>
X
!"VJ
_n -~.
9- ~-±
X *
in x
» i«<
^-« *
o o
X (VI
^H ^
". X
o o in
0s (VJ »
rvj -.
O V
a: x <
Tt n O
Z ^ X
~- ^ f 1
LU
2:
3;
»
)
~z
f
T
2;
a:
»
o ^o
^t >-
ro a.
-rr
O "i-
0 } V
»
o ox
O O »
i O
t z *- 1
^£ O O U. < O
o o o * * o o
o o
o * <
m m
-------
58
Subroutine NETDAT (Cont'd)
o
1
a
3E
LU
t
^*
*
*
in
f4
O
1 «
^
~0
»"
rvj
ii
LU
II O
"" z
~) t 1
^^ H"
BOO DECAY RATES CORRECTED TO STREAM TEMP
2)
z *:
x o
rvj »
LO ~ ->
* K 2t
x * cr
in i >
» « ~}
-~ ** z
* o >
x rvj
-M «. cr
-~ x ~~)
rvj rvj » _j z
n .
o >- o -H
cr x Q
o
(V
"0
o
o
o
>^-
vO
3C
X
_
~)
^-
"VJ
^
Q UJ
II O
<-» Z
""> i
t-
rvj ^
i£ O
0 U
o
fi
n
->
5T
or
>
O CO
f«- t
n a.
z
o >
t- >-
9-
0 X
CD
~)
*-. 2
t i *>
< cr
uJ <->
i <
_j uj
cr
UJ
o z T
O LU
0 _) 1-
« LU Z
CO * i
o <
f 1 1
' _J
O U. <
O >-« U
0
^
n
o
0
f\l
1
-)
a
s:
UJ
>
<
*
>j-
rvj
0
r 4
*
,~
~)
ct
"> » t
z ^
» UJ
" ' cr
ii ii
~~) - LU
~> 3
LO "" Z
^ cr
ro »-^ H-
«< 2
O LU O
Q cr o
LD
^>
fl
NPUT REAERATION RATES CORRECTED TO STREA
»> )
AIR)
>-> x uj
X *-< 'X
no ^ »
LO O ~)
- rvj r
x » 3:
LO X -
> tn -)
~ » z
3ft » »
X >- --
^-< < cr
0 -)
in rvj -H _j 2
ro »
o o >-^
cr x i o n
rs i "^
Z ~* tO tD
>-' t rj, o o
LU 4 X O
1 2T LU t r**1
i t rr t _j
cr o < o
x u. r a Q
o
in
n
o
o
0
,j-
vO
GO
X
^
~5
cr
t-H
^
LU
cr
ii
UJ
"5 O
* Z
cr i
>-* H*
< z
LU O
DC U
0
vO
f"l
-3
0
CT CO
n i-
CL
o z
H~
>-
o
O X
#
> ~3
CO Z
o
Q CO
_J O
0
UJ
o z cr
O LU
0 _) 1
-H UJ Z
3D i i
O <
t- _J _J
-~ _J
o u, <
CD t-H CJ
O
^
n
NPUTED OXYGEN SATURATION CONCENTRATIONS
ii
X
^~
*
X
LO
^^
^ -
r
^-4 h"
0 *
Q
» O
5;
x o
0
z .
» 1
t H-t
a. z
i
I
" LU
O 0 Z
(3 O
> o -J
O < LU
o cr
o <
_j t- _j
_j *-
T
T
»
I
o a.
'~* Z
^ *
>_
CD
t X
V
O ~>
O Z
I
CD Q
r o ~
(J JD 0
.J O o
'.U 3.
z uj cr
H- "Z
r- Z Z
'-O " t *
CJ LU
-J _l t-
LL < a
i U ^
NITIAL C80D CONCENTRATIONS (FPM ) , 5X , 20 ( 1
*-H
X
ro
n
»
x
LTI
V
_
41
X
fi
o
rvj
«.
o
X
r-<
'
h-
<
T
3;
O
U.
o
o
^-
-------
59
Subroutine NETDAT (Cont'd)
to
o
o
X
u
~)
T
"X
»
~>
2
*
<
a:
^
;>
_j
O o
c o
i O
ID i
~>
5T
a:
»
LO
»
0 Q.
m 2
^
>-
O >
t- X
*>
O ~>
o z
»
Q O
a: o
2 2
_J X
* '
UJ a:
2 UJ
»
h- 2
3HINITIAL NBOD CONCENTRATIONS (KPM).5X»20
n
»
X
in
r.
^
*
X
*-*
~*
o o
rvj "\j
^ *
0
2. I
"5 » t
2
~ r
Q rx.
o »
2 o i/)
x in t-
2
2" O -
CC >- V
- «
-^ OX
» ~)
^. ^ ^
a: >- -
< x >-
-> OX
_J -JO
*-» *
o o LJ oe
tO o 2 UJ
» 0 h-
O -< 1- 2
tn
2
O
HH
t
a:
i
2
UJ
O
o
CJ
UJ
X
o
Q
UJ
a
in
to
i
t
2 V
"-" X
x o
LO »
>3" ~~)
5
x on
LO »
» ~^
2
4 »
JL '^ *""*
< ' -~. (X
~ * <:
o o r >
-J (XI > ' _l
>^ ».«*
> o o O
ac x oj o
3t , * *. (_
2 X O
iX
l/>
^
a
2
».
>-
*
X
«-
~)
2
»
(/)
(_)
^-p
O .t
0 LJ
O t
' 2
X
a
a
b
i *
i
cc
LJ
2
X
fH
rvj
t t
7
t
T
X
><
LO
»
h- ^^
(/) >
U X
_J 1
^^
o o
^o ^
^ "
* o
a; x
^ r-<
2 ^"
to
o
5
5"
ct
r-
)
2
«.
i i
Ct
_j
*-^
O
o
>
13
O
o
in
o
i
o
o
^
-
o
n
o
i
AJ
^C
J-
- UJ
II D
O
» 4
1
LJ
2
O
< t
I
X
o
f
t
Q.
o yi
J' "~5
5r
x i
LO -
->
' ^~* <^
^ -^ >
X 4
~< I. ₯
. « r-i
J^ AJ O _|
J i"\j «
» o O
a: r x c
^ j-i i-
2 -- r^
o
O
H-
O
O
^«
CM
^
C_J
|
LJ
O ~?
O
O _J
^ oJ
o
o
o cnM^-^-ino M i- -» 0 O3o~^-i ~ o oc-<
OO LJ< CO UJi-'uJ<5: O < II O
_lt-_J-Jt-3' _II-_J_JH-T-^_I>-_JH-T* _J^-_l- a: -> _i _i >-< o: x _i _j>-«a:x_j ~ t/^2'-ictQi u.
* lOSU-XOOt»O!*Li_£XOtDO"iU-' O^t-«QOO XU_ O O i ^: O
»» * rt ^* *1
oo oo oo ooo o
"-H fvj ro^" LOvO r^ac^ c
-------
Subroutine NETDAT (Cont'd)
60
-i
IT V
O O
O (-
o
2 O
O
2 O
_J T'
O
LU _J
tn
x
2
o
"D
-H
cr
LU
O
a:
^>
o
O "*
(X
2
O #
2 T
rt
O «~
O o
03 OJ
C^
X X
r*> in
o
CD
O
_J
OD
UJ
to
o
CL
2
O ~
XI O
u rvj
LO
t »
uj cr
H- a
2 2
x ?;
LO <
uJ
* (-
x in
F-H
Lu
O O
»- LU
O _l
TT" LTI I
-' X
cr
-5
2
cr
O o
O o
r- O
T
cr
a
o 2
LO -
LO X
O X
O 2
O -
CL
D 2
a? cr
2 2
_J X
UJ X
2 LU
CD
or,
t,
ii
ar
o
LU
O
cc
D
O
in
o
a -~
2 ~
O <<
2 X
a a
o o z
JD rvj 13
2 » 2
XXX
m in -
x x cr
LO < »
UJ ~)
' >- 2
lu U
O (
LT
3: c
cr x
o o
LU O
, o
rvj,
LO
o
o
o
_J _l
~ -J
Lu <
r-l (J
O
LO
»
ac
LU
m
LT
x in
-» cr
>- LU <.
o o >
cv _i
^ LU
O _) O
X I-H O
2:1-
^ X Z>
V- V O
< <
T O _J
cr x _i
o a <
Lu O O
LO
T
in
h-
CL
O 2
LO >-
o x
i
O 2
a
>- 2
X >
O X
_J O
O IU T
O 2 LU
O h-
-< (- 2
in ii
o o
t- _j _i
_j
O Lu <
o >- o
s-
LO
rvj
o
tr
CO
2
o
QC
CJ
UJ
o
i:
5
in
2
HH
O
a.
2
O
2 * a.
X 2
rvj --i >-
O " x
X o O
o rvj
x s:
x ji a
LO »
T 2
X LU -H
-H or a:
-* t <
O LO >
r\j |
» Lu ^
O O O O
X O O
^H LU O
_) D ~<
( -< O
< 2: o
5" X _) (-
cr >- _i
o -
X
O -
O T
~ 2
O » ~
_l CL O
Lu 2 CO
_J O LO
LU
3:
00
_J
II
2
V
n
JL.
o
3C
O
U
a
o
in
a
o
i
-t
LO
'J-i
2 LU 3:
12
r- 2
LO I
O UJ
_J _J r-
^^ | It
b. < a
"H (J ^
o
LO
a
-r
2
a
o ~>
rvj -^ _i
o * o
X X O
h O O
2" - _J
cr x _i
O i/1 <
Lu U
LO'
o
o
UJ
(J
cr
O *
a. x
~> 2
2 O *-
cr 2 o -.
rvj a
10 x 2
I- LO X 2
(1 r" LO O
2 - » CJ
» IT,
X O
- cn
CL O
2 _J
O O
O o
£)
o ir »
o LU i
o t -*
-'22
ii *~
O LU
o < a.
o (_> a
o
a- '
s^
x LU cr
LO cr »
» ( ~>
-- in 2
X Lu ^
>- o cr
O LU >
CM _J _l
» H-1
O T O O
r x o o
^< V > O
» o o
< X O
5 X _J I-
cr o _i
o rvj
-------
61
Subroutine NETDAT (Cont'd)
UJ
Q
O X
O C1-
x r
O «
« *-*
O
x n
c* r
x -H
^< »
^ x
O
OJ (ft
UJ
x 3:
- cc
-> UJ
o a:
rn O -< CC
i- 3" ro ~ a r>
M or » o o H- o
en o >t ro h- uj 2!
a u. < ' tn cc uj
-H (\J
00 O
« CVJ O
^* sJ^ ^5
-------
62
Subroutine FLOWS
o
in
o
tr>
M
o
in
ru
o -^
in o *
rvi in ~
^ (VI O
_i in
o > ru
> » -*
-» o *:
o in a
in oj
cvi .
(/> O
:r o j">
1-1 O (M
<
UJ -> 0_
or o T
~ (V h-
o «-
in t-
rvj x o
Q in
O UJ <\l
in «-
o ro
t/i »
rvi o
IT
to rvj
u,
o »
in -»
."VJ O
to rvj
o ~
« LO
O 3T
J-» O
rvj x
>- -^
X O
o in
» nj
-~ or uj ru
o o_ > or
IT) Z < <
M > Q >
Q -" _l
Z _l UJ -i
3 jj o ce
> 0 T <
O AJ _|
!/» K 3) »
ru _j ct CL
~- UJ >- O
CL O *-« K-
Z * IO
>- f- CD _)
X _J >- >
O UJ < O
Q Q Q
-^ » -i _J
o o: * »
in u. CD o
ru 3t O CD
or T z
< in o » o
» cvj t/i -^ in
to M co rvj o
o
in
ru rvj o
*- IT)
o ui < o
O
o o ru ru ru o
< ru z i
s: o o
x x » cr
» CL *^ *
_l O O.
in _i ru x
tvi ~- cc
^ -* a. *
to o z x
Z X O
X U Z
o » in ui
in ru _i
M o x
*-* in a.
^ "^ QC
O Q
Z OD
Ul O
o uj
uj a,
ac >
x x
or o
Q. :D
x x
X X
? 00
z z
3t X -
J -J X
X X >
>- o
or _i z
< r> x
?.-> *
x r x
X X ^
*«^ ^^ "^^
2 Z 21
z s:
o _j
m >
OJ X
CL co
z u
o u.
O X
** x^"
~ X
o .
in ru
oj ^
^ z
3T
X
Ct
* ^^ 3C
(/) » 2
O CO
UJ V O
to < or
2 Q Z
» z «
O > UJ
>- Ul X
O t "-"
o > u.
* 7
O X
»
z
ru <.
X
z >t
* X
X
UJ ^~
z o
00
-> x
r vt
~t X
X ~
~ o
z z
2£ ::
» x
X X
o
> Q. UJ
< UJ O
XX *
^ -t X
UJ
ac
UJ 1-1
< X
Q ^
ii
» tv
o »
5" X
x, ru
-t -<
in
o
o _i
o >
^
O X
*
O -N
o o
Z UJ
UJ 03
Z Z
» »
uj no
v >-
2
X
4
"5
0-
2 o
QD >
V J-
t-i X.
« .4
CO
O (VJ
X I"
M «. O O
. x o o
UJ CD
O O
3T T
UJ 2D
> >-
< <
O O
o
OP
LT!
£
O
a
-^ t\j
in
z
o
o
u
r- <~> rvj
2222
- 3T r -X. T
UJ it n
z
U. 1-1 O
I O » CVJ I I H-. 1-4
OH II ul Q - CD UJ OC Or
rH.^^Dar-'CcctuJUJ
o
K CL
Z
O O
LP
a t- Q 7 ii u _j _i
ZZ-iOUJO >->-<<
U"l
-------
Subroutine FLOWS
63
^
Q.
O
Z
«»
(X
U
*
*^
OL
O
z
CL
Z
o
o
CL
O
Z
w
1
~"1 O
Z 0
o
~ I/) »
2 <
3; * a
Q » O
X ~> Z
1 » a.
<: a. o. z
O O o
z -t a: 13 uj i
o * < + -»
O H- O QL
i- t- in z » ~) a
in »-H o -« z z
« 00*0 ~ «-
aoo»~z a. z
_i o r> z HH
' .J O CL ' Z ~> ' O
+ UJ ' O X Z) *" O 1
o CD u_ t- x -> t- i
1 1 1 «tf **") m > *-* z) -*^ fi
ao _j > _j -> z o ~5 c_)
z ~ x z *- o z o z
i o so a a u -* z ^~
Qf^^uJQII" Z»-Z+O
Z«-^t Z (J HH f\j | 2 ||
ujcr><''~ uj
2CK uJiiZZ)(>J 1 Z 2 X Z O
MZt-00~5D"5 II IIO oir< n CJZK
< * ""^OOOOOZZO^ O
1 1
o o o A °
nj n -t 'j>
;/i
>-
-
<[
Q
i i
+
UJ
O
X
14
Z
X
_J
^
an
Q
>-
14
»
-^ CD
~5 t- >-
-- ^ or; <
^Q.0-) COO ZQ
->z^o x -,»-,
> o in ~j OD x»-
Q_OO< t-in D
z * > * in i en cp
HH ^ ^ * O"-" t-x
* O ~* X Z> *
1 OL ~5 ZZ> 0
->Z)o< "« in xz
^O»> Q. X* Z5X
ZOOUJ < Z3-~ in_l
1 !++ > !/1-H -f^
O^t-^ UJ ~" 0
~) + Z)_JO 1 t t 40
a. zzo»o z oz) 1
X o <" *- « X * X *< O Z »
oo«-«xz>-)z> x t-6 -ict
O O II Z) IO lOOZ)UJZ3IIOC3"»
_j o M ~5 m ii CL ii f"- in z> o - !^ M z
U-lll- lll-Z)OZ'- 'h-mf H- 't
-JXX XX~-X XZ D Z
oi/)inoinm» iinoincj' 'Ooo^r
A A o o o o
Q
Z
0
(_J
i
o
u.
X"
II
f\i
»
X
in
*
^.
*
x
LO
ryj
*
X
14
>
X
-~ ~
*
X
h- «
ZJ *^
O 0
o n
» i
H-
O X
X i
Z)
in x
»
z
* 1^
X X
Z) ^^
in »-
o
CO
*-H
»
1 «
X
f- 4
«
1
4
X
or
o
u.
4t
O
O
LD in
rvj >-
>
M Z
* T
M M
14 n
f» »
x x
*
<[ <"
X
X <
II ~
- in
Z) rvj
or »
x
»- X
X -"
^ »
» X
X »
» «
> 1^1
1 1
LO
- ru
X »
r\j x
o
r\j x
>-« »
»- ^.
x $
< X
1 1
^
< in
^ CVJ
»
Ct X
0
u, »
X
in
z ~
O K1
- X
-t C\J
-------
Subroutine FLOWS (Cont'd)
64
It UJ <
- f *
z t/i o
-H H- *
< t-l ^ O o
X X O f*>
in <* T -*
* t fl »
ro
* x I
x in x «
< « 1/1
<- » x
U") * -«
oj r * ~
» ' X. *
i X
x in ~ ~«
-H rvj in ~-
»
» rvj rvj
-* x
H-" 'Tl X O
>fr CM -<
» >t U-
ii in « »
U. t/5
Q O U. II
O U
H- X Z
* * X O
o
fVJ
>
X
in
o
to
o
UJ
o
ct
o
o
en
o z
CL «-i
X O
^0 *"
oj ->
x a:
» 4£-
*
X -H
ct
z
»-<
o
X
UJ
fl
U.
o
CO
3
o
UJ
0
cc
O
a.
X
o
in
CL
z
II
o
cc
X Z
* r* »
X -i
^ o cc
o
f\J
to
to
Z
o
> 4
to
ct
UJ
o o > o o » >
I OJ _J OJ OJ X _l
.t » -~- P-< - Ln
> o o » o o
CC X tD Ct X « O
o :D
a. o
X O
OJ »
OJ -5
x ac
in »
z
* -
i i
-H CC
o o >
f) OJ I
O O
Ct X O
o
X
UJ
to
u.
o
to
UJ
to
to
o
a:
o
to
z
o
I I
(ft
cc
LU
o
CL
Z *
O X
Z -H
X ~
ON O
in oj
»
X X
in in
o
o
T
cc
LO o » z
l-l -H O Z)
T U. ~)
» » U.
» z: *
z H < x
n 4- LP ^c r^-
~ H- O ~- >- < O
LU < LU < U.
HH CC I >-H CC ^^ I
ar o t CM CC
rI O
+ O CL
a: x <
Z UJ
t
UJ < tD
i CC ti
Ct O O
-3. u. o
cc
<
>
o
\j
*
X
in
to
u.
o
to
o
u.
_J
UJ
X O
» 5:
x cr
in »
z z
o
OJ
- ~»
O O
X tD
_J Z
O I-
o
Z Z
~« «- h- K D
Z ZD Z K-
O -< O O LU
o o o u or
a
z
UJ
-------
Subroutine FLOCMP
65
X X
o-
*-*
O
in
ru
z
H-t
^3
~f
X
*
,-»
0
in
rvj
Nl
>
^_
O
in
(VI
»»
<
»
.
0
in
rvj
o
*
^.
0
in
rvj
-
»
33
O
Q. O
X »
(_j .
0 0
1 in
u. rvj
»
UJ Z
z >-
i < O
H-
13 Z
O 0
OC T
CC X
0 O
CO O
O -N » » > Ct O
in o . .-. j »> Q.ZD
Minion ~ a uj (vi <<
«- rvi o in » o CL >- ct xx
_j inrvjo in z «i < -*>t
o > (\J ~- in rvj»o> xx
> inrvj >-»Oi-«_j <..»
* ^~. r 1 U. "^ QL f~ » -J" 30
~ 0 *: Z CO Z _J LU -«
o in a » u. 3UJOCC zz
in CM » ~ x «-QX< xx»
rvj ~* o + ~. .*-«> _j_ix
t/> o in -« ^AJ^J »
xoin\jo nH-'D»- xx>
t-Hdoj^m rvjjao. «>-o
<«.~tO(\j >"UJ>-O '3T_JZ
UJ->O.O'-' CL O *-" h- <3>X
orox^co z^^co x~5-4"
»>nuj-~-f~tD_j xxx
^rvit-ox x_j>» -»»> <_j nr>-'~'
~-Qin>--> o a * » ^~-z
U'jjrvjxo inu.coQ zzx
»co oin rvjxooD xx_i
^n^rvj ctxz _j_i»
o-^<-^<~ a-^^-j > * x
LTO«-OcOC>ZZ»-» XX*
rvjin iri o
>-ioorvjQxx»-'irz_i u.~)X
O<^O*CL » » » XX4-
»rvjz _joo.ouj -J"~tx
^- o
min«~*-rvj»»-Q:z» CM \o -<
rvjrvjoo^ CL » _j i ~-~
inmcoozx_) »> zzz
zarvjrvj-'_)z xxx
M^OZ~-XOXCMQ: »».»x
ouj»*CD»'X-~»'CO»'Z O
^. O CtOZU^O »~Z>-!XUJ
ooo »o »inujujxafM< ' in " in Q. »z » z «i" * >t" x
zoxrvjcorvjzoo »-ujxxxx-~
^t-j-^co^ozvuix-j^ ^ rvj
ooorvju o t i m o ^H
aDXM^xxa~>o>u.z ~--"
OCL^QXCt »-ZZ>-«_JOZZZZ
>-< X X X X
Z CO _J _) _J _)
0 Z
X UJ «I
X XI-
O "t <
O 0 Q
i (\j ro ^ in >f> h~ i (vj ro --^rvjd
.
o
m
CVI
z
a
»
^^
o
in
rvj
X
I
tx
Ul ^
o ^
O ^ X
Z o ~
=>
* JD r I
h- Z <
> ~ II O
Z i > O
»
n
*- 4
*
_J
UJ
z
z
'
X
r 1
>
o
(VJ
»
r
» <
x
,
r-
r
*-^
«-*
0
z n
.-^ r-^
^ *
*-H
a: x
"* H
Z ~-
~> t
U) <
t X
f" Ct
T: o
3: U.
Ul
UJ
H-
<
Z
» 1
X
o:
UJ
t-
^
u
-"^
^^ >^
1 1 -H
h-
Z _l
0 O
D >
-«.
(^
Z
'
tf
*
z
UJ
_i
X
It
,
~)
z
^»
_J
0
>
in
-------
66
Subroutine FLOCMP (Cont'd)
UJ O »-i
o > » »
cr UJ -. ~
o to t- *
< x u. r
X CC (VJ O -H ~
h- x en ~ ~
0. o nj -* o *
uu rn >-« <\j X
Q > » (/I <-« » «
xxx _i >« x
UJ CO 1/1 ^* UJ * Lfi O
a: m » * z x AJ
>->.-. 4" z i *»
I-H X * < < *~ O X
'Ji x » r o 'jj in
uJ * o MI/I
>- ~ ^- 3 \ ~
<*LOCC U. X t H-
oinjx o in u. u.
>» rI H- *" Z5
in ~ o
->lPXX-^< * CO '-'
LdfVI-<\O^ UJ U. UJ
O^^'^QT i LO
Z^X-tX< I UJ 1/1
ii X *< < to ii 3£
"--<_) X CJ 3
Z»*0< (- O _J *
2:xx»n2 Q. _i o *
_j»^,X^,o UJ UJ > -~
^» >- rvj » ii o :> 2
cr * IT h- 2
o:xa»(vjxu _j _j o i
>_ ,-* It r-< (jj LU (jj 1-4 (_
i-t ** X » !fl 2-Z h- QL
~»OOOXV!/1 2X2 U UJ
-~.o3nn^.»o « »- -*»»-~a: XCLX o_j ~ ^
<: to -* * o oujo~~)o x «
X> i
* >-< I _j » « co CT»»r*"»(v)»' > ~~>
»« * * u_
z -. < o: » <_> »o »o »~^o* ^ x
UJ ^z-.2T 2 2 t- -* ~> *
^ XCLX* »*»*.*» 2 ~ -~
* 2^t-«XfMXMX(\Jl^O~' Z ~)
in ST-^ZUJ* -< a: ct * QL »- o a: o ~-
_ioujxx < »^^O>~O>^O>-~ -> * n
iixuJiE-HQ ~-:*-*xt-;*'--*i3Z z>z oz ^D_i2 o z ~> -) r> o.ru~>
~Z h->-3nj (-O^KO'-l-O^H-OU- II Z ~20To^
o->i-iuj-'Ouj«Q;
~f-l 3'>-<_JXKS:fVJ-J»-2'_Jt-?"_Jt-5"_l^orZKt--(Ct:_j»-«Q:_j>-HCK_j^' z<-u_uj
Q><»)su._jz -au-inosu-Oiu-u-xu-O-iQccocccroitcjoxxa:
^H rvj 0 i
oo oooo o o
<\jn -4- iri vO r>- oc o
-------
X
in
t
<
cc
67
Subroutine FLOCMP (Cont'd)
UJ
o:
UJ
<
uJ
Q
UJ
o
u
x
ro
n
9
X
in
O O
» U. X
(X
H-4
fl
a:
O -H
O II
h- ~)
Z>
O O
o
<\J
P-*
II
t-
o
o
*
>*
CM
in
O O O O IT O
00
n v0 -4- n <\i ^ ~+
h- M n n n u n
O t- t- I I H- I-
O O O O O O
O O O O O in
CVI ......
<-« X vO -«
n
- o
> Q
Z
UJ
UJ UJ
_J r>
Z
_j -<
> I-
Z
U. O
O
o
n
x
t-
>
n
o
Q
Z
<
O
(V -* »-~<
UJ UJ LJ UJ UJ UJ UJ
O Q
Z Z
o ut
ID rvi
D o
OH
Q Z h-
Z < Q
U. U, U. U.I UJ Z
>-( >-i -< o rr LU
O
O
o
(VI
O O
o
LO
(TJ
*J
(O
s_
I-
O)
(U
(U
(O
o
o>
C7>
TJ
-------
Subroutine VAULIN
68
o
in o
fM in
~ fM O
* _j in
o > fM
o > *
CM o *:
~ o in a
z in CM
^ «-» y) o
? x o -n
x -« a CM
» < » ~
UJ Q.
o a: o x
tn »in uj
o n
in
fM O
~ m
(/) fM
u,
Z l/>
» U,
X
o »
.n
CM O
~ in
-' O -« _1
Z _l UJ "«
.3 LU o a
a x <
tn t n »
fM _i a a.
~- uj v o
o o z CD
>- o
cr _j z
< O X
XXX
X X ^
ro Is- "
~* z
Z Z X
X X _l
X X
CD Z U
UJ Z) O
U. ~) T
X X >fr
-* >t X
XX
^ ^ o
> z
>-< X
ZZ>-i_JOO
oo
o
tn o
Z
o
3T
X
O
a
z z
UJ UJ
QQ
z z
X X
_) -I
» »
X X
T. X
^ ^
>-> in
z z
X X
<
o
z
X
X
o
X >t
X
o
o
a:
Q.
z
UJ
a;
o
o
X
in
>
in
x
in
UJ H-
x
<
o
o
X
X
er
(\J
CM
CD
<
O -i
l-l II
«- h~
CD CE
o a
X fM
in u
o in
>T t~
-< -JO
H- UJ *
x M a
O "» O O
t- o i
fM _J _| o
: x
» o <
It O O <
o -5 u it u
~* o
o
CVJ Q vC O
x n CM o
xo->-)->~>«-i
OUQ -' «C5fM_JUJCC
u iDctt ~^ujh---'UJC5a^
z or i- £ _j u o u >-
II
-H rvj
o o u. ^ «-
z o z o o
OUJU-OU-U-OUJUJV
o
cv
-------
Subroutine VAULIN (Cont'd)
69
o o
z uj
UJ 00
z z
* ^
LU O3
UJ OD
O O
z: -si
C/)
z
o
»>
z
o
I/)
tI
Q O
O
z:
cr
CD
o s:
-
O Q UJ
*-H HH CD
I
LU
Ct
II
UJ
!* »* ^'
Ct Ct UJ
jj LU Z
i/) en u
in
' _J O
uj -*
co u.
-j
C5 ^O
ro
O <.
Ct ~
a. *-> z
o z: r>
K- x ->
_
Z H-I
o ~- o
LJ Q II
Z ~
_l
_J O
z z
u. r> »-H
-« ~> o
o
Z t-
a>
+ o
~« o
a ~
z uj
CO X
u.
CL _J -H
O UJ X
II Z U.
0 _J O
Z UJ Z
CD CD II
~) < X
*~ _J U.
CL ~)
"HU- O
O 1-1 Z
(/> O
O O
u o
-H
O
Z O
o
II
o o
o o
I h-
o o
o o
o o
o o
LU O
Z UJ
o o
o o
z z
<. <.
t
o o
o o
O Ol
LU UJ
f H- -( oe
* -J O
o < o
_J => Ct
U. O Q.
Z X
I-H LU 2C
X -H
Z H-
< X
x z m
XXX
^-» » o
(V. ,-yj ^
x »
r-« f*- O
~- u. x
UJ X
O _J *
X ~ f-
- z: ^
> a
X Ct Z
» LU >-
^ >
C1- O
I a: HH
" _i
x rj
o ry <
n ct
X
»
1 X
Z I
O h-
o
x
z: x
ct i
*-
-> o
o
00
U *-i
^ t-
o
o m *-* *>
o
<-> O
Z Q.
O C?
u. u.
>-* Ct I
O O O LU O f
II vD II O CH Z -'
~ Z t-
-) O ~> »-i O UJ I K t S'
Z Z Z »-« Ct
-H O - O O Ct O
(_) O O O O 3 U.
< I-
? T3
X
-« X X
> S0 *«4
X » »
LU » -«
V * - -*
7 r-t » X
UJ ~- X -«
>- LO M >-
< oo * in
O (\J ,\l
i-t X -< »
O » X
-« X X O
.Ll > « JO
o ~ » »
Z * >f ~.
i- X < *
~- -« » x
z *-
s: LO ct ~
_j oj o in
» » U, CM
GC
or x
>- "< x
»4 » f«4
» X -
CD » 00 X
< * C ^
O X I-H *
HH -< I- X
^ O Q
oc <*) z in
O - O OJ
r > o »
«- I >- CO -.
Z - O r-l ~
z: » a. - *
_i x z -a- x
> « 1I I-H ,I
LU -> '
a * x o
>- i vo - n
> i oj x i
_i » oj »
~ o >*
O f) -
ct
uj a
i- o
H- X < X
LU ^ <~< <
m 3
o o
in vo
o o
h- CO
I-H ct in o o
ct o oj ct ro
u. * x
-H oj ro
o o
0* O
-------
70
Subroutine VAULIN (Cont'd)
2:
a
CL
en
z
o
*
X
o
(VI
>
x
LP
o
(J
3
O
LU
O
ac
o
o
c/1
o
a
x
o
or
D
o
CO
o
CL
o
z
n
r>
*
x
in
* *
x -t x
-H ct ^
-» ^ «t ^ ~
un o > o o
o (vi ^ _j o (vi
** " rvj «
o ~ o * o
ct i « o ct x
3: ^ X K- 3r -M
Z -H Z> Z
«- h- O t
LU i Ct * _J f-t ct
3r O x < ct O
<
o
o
o
n
fVI
X
a.
» i
o
*
o.
z
Q
03
O
O X
o *
O ~5
CD -*
O CL
_l ~5 Z
Z O
LU CO
Z -< O
II II
(/) ~5 <- LU
Z ~5 D
O O -» Z
(j -H CL "-I
_J (V) Z H-
Q Z
U. O CD O
in z
(VI O
*
o ^o
cr _i
O n !4
o r
-^ LO X
O ' X
X
o . ->
->
LU ~ a.
~5 _JCL Z
Z Z Q
» -* Q 20
- ~) OD (J
II (_> II O HH O II
O
X
-5
a
14
O
*
o
(VI
o
o
o
Q
CO
z
UJ
a,
z
03
_j T;
H"H JL
X -5
* Z
"5 -«
Ct
<
CL
Z
DO
Z
X
II
_J Z
o -
O II
Z II ~5 -4OO
o»-»oooooo
3
V
O
*
z
l«
(J
in *-
(VI 1-1
o *
h- vC
r>
O O" _1
o n i
s.
~ in x
o ^- x
X
O ~5
~5
LU a,
_l CL Z
Z OD
-^ OD Z
~5 Z X
X II O
CL ~ in
C5
o
4
Z
»
.i
O II
z:
x
4
CL
Z
Z
o
o
II
OO-'Z
li.O
CD Z
Z O
O O
in
< o
Z ~) CL O
X Z t
-' Z 00
-» i-< O O
« h- t- f"
"Z Z
I (VI (Vl^ k (VJ^ L^ k (VI
LTI O
* in
CL >-*
z z
o
o
m
-------
Subroutine VAULIN (Cont'd)
71
a.
z
z
o
o
z
>
f-4
a
<
> ->
_i z
* *
O -'
C5 II
I- ->
O
O O
< o
a a
X
-)
a.
t-H
O
*
->
z
I-H
o
in z
O I-H
m a
*
O £
h- n
o _i
o n »-«
0*2:
-» in x
o x
X ~
o . ~>
-> -~
LJ *- a.
_i a. z
z z
z o
~> o o
o n o
a -" *«
z n -j o
-y ^^,
o
O
O
CM
z
o
o
z
UJ
U.
I
in
o
X
^^.
")
a.
ii
o
4t -~ -v
. O O
X.
in
CM
r-
U.
*
LkJ
_J
I«
T
a
UJ
>
I-H
QC
»
X
O X O
00 > « u" 00
CM -
^ o in
^ » * O fM *
-^ U) X >-< * X I
* ar *H a: »-«
x >- uj x > »*
~< »- in tx x in
~ » CM » > CM
in ui uj x *» »
<\j >- x » * --
»< Xl-^XX'-
~t Q < « « < *
<- crx-'»-x
o» xo-
n <
o
o
Z
HH
O
M
ijj »
Ct
x x
r-4 U.
~>
tn o
(M Z
> »
O -H
I II
o
Z
=> 3.
~> a
x a.
» X
x \o
in »
a: *
» x -«
^ " UJ
^ Q.
o in «
r\j rvj
X
r*
>
X
«
- I
O I
CM
- O
-< n
II ^
ii
»
x
^
** »
< x
x -
a.
_j *
< x
OD
cc
CD
V
<
o
Z
O
o
at x * ro
> o X -*
x m >-« »
oo » ~"
-^
^ » »
>-i xx
» II X) »
J- -^
» o *
x o n x
o
TL.
HH O
_J
UJ
Q
X
in
*
X
to -»
O
Z
CM
CM UI U, O
>-t d. » ro
i » ii
i x en u »
. iI t-H
- x in x
~j- » a: ~H
-
z z
u, >- o o
I-H O O O
It
z z
-H O
O O
in o
U. CK
*- 3C
o
fVJ
ro
3T
tr
O O
U. O
a:
". ^
-> z
^^ ^.^
in u)
U_ I-
Z "H
n a:
x <
I-H UI
~ o o
t- UJ Z
» at» »
x x :D x x
M z -- »
» I CM -^
* t\l CM *
^ x >- n x x
i ^H » * m I-H z
< x x - *- a:
sr in < in in r>
a:cM »-*cM(-Q
O -xt'-X » U) Z
U.X<* -^xai'aJ
* -< (M n
-------
72
Subroutine VALCMP
V X
O *» 9- »
in o -» .
(vi in o n
<\i o in
» _i « in M o
-* O > (VI in
O > (/) "\j
Ln » -* < u. **
(vi o ^ z in
o in o » u.
z in (vi * ~ T
M (VI -'.-. 0 »
d '/» o n -.
z 2: o -n -vi o
x »* Q (vi «~ m
«-
»- » »
CX UJ (V!
o a v CK
in z < <
(VI » Q >
a HI _j
ex > » >
Z _l UJ
C3 UJ O a
» 0 X <
» r >
0 »V » _|
in > "D
- O
Q; O
a. =>
< <
x x
^ ^
X X
-t CO
z z
x 2: +
-1 _J X
»
X X >
>-o
CMMl-OT
o ^ in o
Isj|/^H--.(MX
CV) 2! O »
. *- Q IT) >~ -^
OOUJfVIXO
ouj-i(/)rV(QXX»CCZ_J U.~^X
cvj«j<»-o»a.*-»»* xx-*
<
0
UJ
Q
.
»OO»««i/>_J(\J5rfE>-
. -~. O
(viza.(V!(Vi«-«oz-'XOX(vi3:
oouj«:*
O - CD * S -^^ * IO * Z
Q.O--^^O-vCtOZOCO »^
X »OOO »O »LnUJUJ>-Q(VI
o>uninin>^in-^(vi_iin««[Q:.-*
_jor\j(vi(vionjo xzoz
'Lncx » »-z »z
> z
o o
a 3r
CD s
o o
co o
> (vi n
z:
o
o
in v£) h-
CO
z
UJ
X
ZQ --<
Z Z Z Z O UJ M
>-
_J_J_J_J
LO UJ
Z CO
o
II
-. UJ
-> o
z
o
I-
o
Q
ac
z
uj z
z »
I
O UJ II
vD Q. ~5
O >- M O I O
<
o
< M
-i Z U. O
O >« i O
o z
UJ O
o o
o u. o
o >- o
o
(VI
(VI
o
II
~ UJ
~ z
>- l-l
< t-
o z
UJ O
Q O
o
CO
~) O
z
» o
-< II
O II ~*
£>->->
o o >-
>- in o
<. o
o z
z
II
II O
3D O
Z -t o o
K-I n in rn
z a:
o a o o
o *: Q o
o o
in vo
-------
73
Subroutine VALCMP (Cont'd)
X
<\l
I4
4*
x
V
<>
(/}
Q
»
>-
^
O
UJ
Q
~")
> Z
14 >
cx -i
UJ II
Q ~)
O
O
-JO*
o
O O*
oo
Q
O t-
H-
Q
O O
o x **.
u. ^
O "5
0 0
UJ Z UJ
1 ^ o
I «, ,
X II >*; UJ
U_ >^ " O
~5 to 7-
O O U. > <
Z Is*- Z K-
O
>
X
(V
>-
_J
UJ
o
* 0
--". t
~) O
*~ II
I «-.
{/) T
O ** '
«~ o
+
^-« O
~)
o
CO
I/) h"
^ 1
21
X >-*
"- "")
II '
*-. o
-^
rvj
(/)
o
«
>.
<
14
Qi
UJ UJ
oo
Z CJ
1 1
f _l
0
O CVI
< »4
^-<
Q
O t-
h-
Q
O X O
*« ~ ) "^
~) 0 O
z z o
UJ UJ
-i _) ^H
II II »
~5 x *: ^ u
u. «- r
O "^ O tO 2
rvj o o u. H
r" Z < ' Z h
h-
_J
UJ
o o
*
f\J UJ
x a
0~* __J
01
"^ 4-
««-* ^^
CM ->
O (/I
* (/)
" 4
"") 21
*"^ X
1 1 II
j en ^
3 Q -}
^ «^
II lO
- UJ tO
o
o
^*« II
~) ~
** ~)
J ***
O 0
X O
»
~) o
~-
(/) H-
1/1 _l
21 «^ O
X ""} Z
II « I c
x-»
o
in
**
o
1-
o
o
f_
H; i i
Q. 1
^ "S
jc
UJ _J
o o
HH CD 3D
h- _J Z
^
V
»
2:
Q
K-
a: o
a. ">
z ~
* z
H- UJ
or _i
(X <
y; o
II
1- _J
M) ,D»YA
,26H CONCENTRATIONS (PPM
> .^
z <:
r »
_l X
» LT>
UJ »
CL
V *
t- X
1 4
^. *-
O 0
-Cj- i«4
lt 4»
0 » O
o a i
0^ f i~>
~^.~
*»-.
< UJ 1- T HH
u
«
"^
2:
a
»
-j
z
«.
(4
a
>
i
*
o
0
t-
^5
O
_J
O
i-H
O
t
0
o
^-^
o
CO
u
1
UJ
z
UJ UJ
O 0-
Z V
l-« I
H- _J
Z ^
» ~5
II O
~J II UJ
_l " Z ~> ~ Z _l *- ^ZCL«l->^-ZZ"-MCt_ll|t-«Cr»'_JZ OZ
-------
74
Subroutine VALCMP (Cont'd)
o
O
O
Q
CD
O 2" .- O -! ->
o ii
-------
75
Subroutine CDERIV
0 ~ » »
m o ~. ~*
CM in -» o n
CM o in >
_j »» in (M « 1/1
O > > "* I/) (M
_n * -« u. *'
<\J » O ^ Z o .n -^
*
t- ». +
a: u CM
o a > a
in z < <
CM * O >
-~ Q HH _J
a. t- »
Z _1 UJ -<
3 UJ O CC
> Q r <
-^ ^ > i >
3 *\J _J
xx
~^
Z
(-4
o
*
MLHl -^
>- I- CO _J
> O Q Q
~ ain>-~ occ**
OCJUJCMXO LnU-ODO
(M
(M >-
o
T
o
o
0 2 ~ in * O <
2: LJ O
X*
> - CM
o o »
z
^ in
_J O Q.
_! CM X
OL »
O UJ
CD >-
O
o -^.
l/> -)
o
>- *
>o
UJ O CM CM CM O (M
o xzoz>-
o
C
+
o o
CD T
in u
z
o
T
in
5T
Q
II
-)
O
O O
o
UJ II
o z
z
z
o o
o
o
(M
o
o
o
o
z
UJ
_J
X
X
z ~
^^ "y
a
u.
u.
a
i
o o
X _) _J
Q U, U.
O + I
c -.
* X _J
-~ z z
I O
-~ *
uj ~. ~* _j j;
_J -I X Z <
z o z *' co
i Z O O " M
* II O II MO
ZZOCtKCtx:*
II II "
-------
77
Subroutine VDOIN (Cont'd)
CO
2
O
*
CO
2
X
>
CO
2
O
o o
2 LU
UJ 00
2 2
« «>
UJ CD
>- >
UJ QC
O O
2
X
O
X
a
> "^
a. o
0
-~ o
o
o
o
2 0
H- U-
CO vD
I CO -«
l-1 a
_ «~ Z
Q 2 O
O
-i i-« Z
O
O O
2 *-> 00 ~*
D O 2 II
-> U
II O II «
O
O
-N CO
o z
X
O II
o
o
o
o
o
~ r
II O CO II
in vO
vO vD ~
~ ~. -)
-y -> ~ o o
~- ~> t- >- a
_l _J I-H
O O _l O O O
> > O O O X
* * > ^ -. ^
- -. * o o ->
~> ~> ^
x a cj x o c_)
U- UJ 2 U-
< X
_J U.
^ ~5
u. o
o co -^ o
22 2
O O >-
co ^- o co
U. U. X U.
2 HM O X
UJ 2
O
co ->
2
X Q
-* O
U. 2
~5
O
O O
o ro
o
CM O O
II
X O ~
U. UJ U
z.
CO O
2 2 ~>
^ O
CO V
U. U. X
X HH O
o
LO
Q Q > »-i
~) O O V G> O O
fO 2CD2XUJLU3D
»O »-CJXO »C_>
X O -^ II II II ^ ||
L_o II ^.^^-5-5^
o
2 O
O CO 00 CO i-« i 2
~i r^
-------
Subroutine VDOIN (Cont'd)
78
o
CO
-> o
z -»
\-
< I- LO
» z
Q t NH
3 2T
a. a
Z UJ
UJ
a
o
UJ
*
o
X
o
a:
o
o
o
UJ
> 2:
t <
-J 3
< o
_l O CC
u. a> o,
z x
HH LU 30
X-*
Z I- >
< X
x z in
n ~
x
in
Q
z
X
o a
o
~) X O
x >< ~)
HO *~
X X
<^" f-^
in ~
-. o
C^. (VI ~i
I
* f- O
U. X
O I
X
>
~)C»«
O O
O ft
O O iI
M it o o or I
-» M UJ o f ~*
>
<~< u
X O
ai <
» Q
t-t X
«>
UJ
Z X
i 5?
X X
> x rvj -H
uj « *
(vi in
X t-i (VI
<
Q
LJ
O
2T
QD
ce
>
D
a.
ao
o
-» X X
* »-H O
T* 00
in #
(M X
- r ~*
x o
o u. in
r> rvj
O t-i < OQ>
X
in t »
» a. *
z x
X * "<
« **«^
x 'n
x r- t *
*s^ ^_^ .^^ ^^
_J o O * »*
ro z «-
O < » o
^3 in
_i x cvi -H
» x in »
O * » rvi
m » *
_l » X » 2:
-. ^« x x
O UJ * » * > *
o v ^ (vi < * -j
-~ o z
»-i i a: o z CD
-« » x x n » z
» < in ><< x
cr x » > M n
at -H x -> ^
Z * O X ~>
< t x > -< o *-
UJ 4 r-1 >^ > O Q.
»- £*:!/) CO
CC O CVI O Z
i U. » * O X
* -H (vi n
o o
o_
t/)
o
II
I
or
UJ
o
z
o
c_>
u.
2T
UJ
U
a
o
a
x
ox
_) «-
Q.
z o in *
V -H (M X
x n »
o - o ~
ii ce x in
"> o z
z ^ i x
Q. - ui o in
_J (VJ (VI
O o
o a: x
114
o z
o ~ k-
UJ < -.
_J t- 2" *
_i - or x
< or o
o s u.
z o
» x
-« z
i~y __j
< ~
> o
_J -I
n
O »
<£> CC
H- 3
O Z
o
UJ
_J t-
_J M
-------
Subroutine VDOIN (Cont'd)
2 O. ^. Q.
t-> 2 2 Z
O UC, >H >-
2 2 X X
X X O O
ct
->
or:
202 2 Z
"3D ^ O * f\J *
a _J ct _i ct _i o:
< -~ < 0>0>0>~^
_J(\J_J^-«_JM_|Z
O »O O » o «
oaroctocro n
l--»l-'Xh-'Xh--J
D 2 O 2 ^ Z 3
O O'-'O-'OO
UJ uJ uj ro
2 2 ->
1-^ H-« ^-*
3 ^ Z
X X -
Q. Q. ->
i i i i »*
O O CL
* # >-i
2 Z -)
I 4 > (
002
03 2 t-i
O X X
* « O
-)
2 2 '-
»« ii Z
O O -!
* * o
f*> ro \JD
n n ^
ro i i
tn m .1-11-4
X X X X
-~ ~ X X X
CO
2
O
x
a. a. ^- ~-
2 2 0. Q. Qu
Qi OC 2 2 2
U X X OD 2
O O X
II II II II
^^ >*X || *^ *^
X
o
II
UJ
o
h-
o
o
LlJ
.
X
u.
X
If)
IT)
X
o m
->
o
CD
O
I
00
CM
at
UJ
rr
»
X.
2 *~-
O 2
1! 13
'X «H-~'
o
OD
2
I
00
»-*
>
^!
u.
»
UJ
_l
*- 1
X
or
UJ
£
»
X
2
»
n
»
.
*0 ~
O O Q.
22
O
Q
X
,i
»
f\J
r-
u.
>>
LJ
_)
fr-H
X
QL
UJ
i
iT
»
X
r^
*>
^4
So
>- 0 X
x 2 a.
^..^
~
t 4
LD
r\j
X
,(
»
X
^^
*
-L
-4 ")
II ^
x
'^ ~)
a < cr <
3 u * a
< o
u o
O O i O OD
O X O O X
>-2~'" <
3
C
O
n
ro
O
»o:xx«-a:iuj»a:x crx
~)-X~*t^~>f>-~X'-i QI z QT
OOOOOOLD-J-
-------
Subroutine VDOIN (Cont'd)
"T"*
^
C
o
o
2."
O
c
^*
a.1
c
~
4-1
rs
o
i_
r-
UJ
V
<[
o
HH
>
,-.
UJ
0
TL
» 4
~*
Z
z
CO
at
14
»
CO
V
^
Q
r4
e
00
o
^p
i.
H-4
«
z
2:
-J
o
o
_J
Q
CC
^
_J
»
o
CD
O
-J
^
o
0
OJ
^
1
z
»^
UJ
1
1 1
tt
^
Q
(
i
-_J
UJ
o
4»
-
-
r 1
^
0
00
>
^-,
«t
X
I 4
~»
in
OJ
»
i
»-4
4»
^
*
X
.
o
n
14
»
X
-<
*
t
^
5"
ct
o
u.
0
0
OJ
UJ
I
H-
oc
o
U-
o
z
o
u
X
f 4
«
<
*
o
z
^
X
LT)
»
<
»
*
X
OJ
^
^^.
^
x
_4
>
in
OJ
*
x
« *
«.
\
^,
(-^i
^l
X
«-H
-^
LT>
OJ
>
X
X
. 1
«
X
»
^»
*
X
1 4
"^
in
OJ
>
X
f)
^
^
x
OJ
»
(\l
14
4*
X
-<
^
<
3
a
x
H-
X
vO
»
«J"
I-H
f
4K
X
OJ
»
OJ
14
>
X
t 4
*
^.
^
*>
^
O
t 1
a:
UJ
a.
rvj
»
x
»
».
*
X
4
»~
in
OJ
>
x
o
n
»
^
*
it
o
o
14
r£
UJ
Q.
LO
X
»
z
1*4
CO
>
Q
U,
O
Ct
UJ
CO
TL
~2)
Z
X
OJ
n
«
x
in
«,
_
*
x
r4
~
in
OJ
«>
n
*~
in
OJ
*
x
r-4
»
X
~.
*
X
r4
«^
in
x
00
4>
n
NiO
U.
II
tn
cr
o
x
z
"-1
a.
UJ
r
CO
UJ
TL
t 4
r
X
r4
OJ
«
X
in
*
^.
$[
x
*-*
in
OJ
>
X
p 1
^
^,
-^
41
X
r 1
^
O
n
r (
V
X
r4
4r>
X
»
*
X
r4
*
O
n
i4
»
I
r4
X
4K
**.
*
X
^,
o
ro
< 4
4^
X
14
»
X
t»
^«
4
X
r4
^«
in
OJ
4*
X
o
00 Z
> cc
« 1
X UJ
-4 Ct
in
o
o
0
OJ
0
2T
UJ
IS)
-------
Subroutine VDOCP
81
O **^ »> 9- >
in o . *-* »
ojin^on truj
«"OJOin»' OQ.V
--j-^inojo mz<
-* o > oj in oj»o
o>»'enoj ^--QI-I
I^»«^»-(U.~' CL ^ »
oj o^:zen z_iuj
>"Otno»-u- Oujo
zin(vi»-~x »ox
>-4OJ's^<-»O» ,«.»»
o~eno.n OAI»
^ r o LO cvi o in h- D
xi-iooj^'ji oj_io:
* < » en oj uj>-
*^UJ-^QLOV-' CLO«-«
occox^tn z » »
in »-tnuj'*< >- > CD
OJ OJI-OX X_JV
>^o^»mo OUJ«T
rMiT)»_^.(VJX »QO
OJXO~'»' » » >-4
~~-ainv~ oac»
ooujojxo inu-tD
in»cn^-oin ojxo
oj^».n*oj ^acx
oj » ae z
OOJOJOO~^^-(l.
LO^^tfll/li/jOZX.J
OJZQ.OJOJ-sCinCDU.'-'
^^^j^^-^njz-jj;
>-x> «oz~-xox
r>oujojzoxojenojzoo
** -H^:XXO->O
i-tooo-ioxo: »zz
H"
D Z Z
O O O
Or X X
CO X X
ZD O O
in o o
' oj en -^ in vO ^ ""
PE»LCBO»LNBD,LDO»LSTOP»LVAK1,LVAR2,
>-
t
_i i-
«. ^
_J Z
LJJ. "
CM (X
^ X
» 2T
( o »
\j i *
*l C^
o z
» UJ
UJ X
Of. " <
X l^.
"-" _J
oj r>
/4HFEB./,LMN(3)/4HMAH./»LMN(4)/4HAPR./
*-s
OJ
»
z
X
_J
>
X
OJ «l
*"* ""7
~" X
z -^
^ X
1 ^»
1 t
z **
o z
^^ ^r
Z
UJ n
7^ LL.
^ UJ
X 1/1
X X
^ -i"
x x
.->. .
in (?*
~
Z Z
5 5
^H OJ
o
in
OJ
OJ
z
o
»
o
tn
OJ
rvi
o
Q
»
o
in
OJ
^iff
OJ
0
o
»
o
in
OJ
, i
z
Q
»
0
in
OJ
*-*
i t
o
X Q
>
O --
Q in
X OJ
-4" ""*
X <~<
^ O ^
OJ O >-
r-4
' Z O
z o
5 lo £
Z 0
UJ UJ
X H-
11 ~7
Q HI
O
o
1/1 o
< a
Q Z
z »
» «-H
' II
II O
~5 >-
OD O
-J _)
-i o in
u in oj
^ i i « i
ct
Q. O O
*: a a
".
f-4
Z
o
«
1
o
^H
o
0
"* "O
> z
1 1 »
IT '*'*
UJ II
Q^^
/
0
o
I \o
_J
< o
o o
o
in
o
H-
~
O
O
UJ
X
T
o
z
«--
u.
I <
X
u.
"^
o
z
>
<
II
~*
o
,J-
o
Q
O
-*
O
t
0
o
S-,
^
^ ~~)
_J
- - ] , 1
Ijj
y> z
u.
z ->
II ~-
^: u.
~) '
DELT2) )/VOL(J)
*
o o
-> ~) OJ
* '
o -« o
t O 1
Q
O ~ O
0*0
,-«->-*
"^
o en c?
UJ < UJ
X
o ~
X OJ
-
_i it _)
en ~) in
u. «- u.
X Q X
O ~
U- CD U_
V-H O -<
_J "
O -1
> 0
X >
X
OJ -*
H- OJ
uJ -J
O UJ
$ .Oi
^ 0 *
> ro %
<"-* ~}
i « o "
Z t i
Q O
O Q
* O "-
-> ^ -v
^^ # ""^
en o
0 T
O >-
Z U. X
x >- o
o o
-i OJ
-------
82
Subroutine VDOCP (Cont'd)
o o _»
> > o
X X >
-. ~ X
(\i rvj ^
i >- <\j
_i -j i- o o
LJ LJ _J
O O LJ O O O
* * C5 II II
*^ ~* # <-« *-* O O O O
~> -> ^ ~5 -> II -~ f«- |_ CO >- CT> t »- I
' > "} " ^»OJO _J -~ _J _l _J » _J ^«
^-i ^H Q O ~) Z < O LJ"^O LJ"^O LJ^~ LU~5 UJ~5
OZ'-'OO*' Q >-i H-OQ-'K-OQ-'t OQ-) oa-~OO~~
OQOCDZX O *_( *_! * ^ *_l»*_l
^^QOXX (\l O OOMtOOOOJtOOO(\lv/)_l OJtOOMcOO
**-». ~* <3 (_J I ^-OX-»->OX + O X*>X + >
-^^ + OO-» Q .-^^»\^^.x-.X-~'~-~> ^^x-^^X
^^-->OO» OJ OU. > ~)^~) ">*-"> ~)~'~ ~)^~)~^^-~l
i_ <.»O» ~~ OOr-^QZX QO-* QOZTOZT
o XXO^>-^» .-H t LJ < ii^-**x(JOJ + XZf^ + X2 *X«_)+XZ
>- x~>~>-^ ocii n-«->»-.iix*^iix»-»iioijn -.HX^IIX
LDLJM II «- ^-~>LJLJ~5X_|_J _)-^-N|l_|-)-»ll_|~5^X^LJ~)'-ll~>'->ll
QLOO'-'^IIOO OO Lu ^ijj^^.-^^^^-)^ ^--^||-«^>-~?-.^~)'~
D Z~^~5-~OO>-ZOO"OO!/)ZCO'-<-^~5LO'-<''^"^!/1'i*^ Z < * "^ « - "^
f-,0*'-^ "^CDZX> OJOOU. lx.OlO*LuZ~}Ot-'ZtO'-'
>OOODZXU-Li_Li-O
-------
83
Subroutine VDOCP (Cont'd)
z
o
to
z
o
~r
o
r
Q.
Q.
to
z
o
z
»
1
«J
» r>
O X
Q AJ
h-
<
cc
K-
Z
LU
O
-y
^_
O
o
X 3 0
-" 0 O
oj oo z
^..^
>-
X
o o
ooo
lllt»
-~ -^ O _! »OXO
(--)->!( O »^- J-»»»
_i ^ ^- -^ in o->
UJ DQ-) -< CD» »rT3r
00-500 -~ zx xa: a: a:
*ODZ>- o <_jm in»- » »
rvjto_juxx t- v- »»-^ »-? -j ->
X + O -- -O Q^ O Z O Z Z
~'->oo^ o "S. a3*»*aD»-o^
. -) X O O OXt-i(jx^Z «O-H
-> -. o o ^ o -i-^'-.j'Hac-jLt-ja:
tO ~5 O > h- * -~ ^ <^o>o>
"
__-
OO ~ 'jj-jt-ujocricMCKXiDcrocto
") x ^TLJUJZ *-ttr_ia>'»-«>-i3;'- »OCL«I-^Z -Z OZOZDU
-< OO>-Z2r~5UJ^CJ + t-X l-O O'-OZ
3
C
10
-------
Subroutine ODERIV
X
>- o
X *
o
H-
0
z
o
H-
o
C_3
O
»
h-
0
o
Q
^
:>
KH
ct
oJ
Q
O
UJ
z
1 1
^h
0
ujcr
COD
O ^3
to
UJ
z
0
in o
(Vj in
(VI
_i -~
-« o >
0 > *
in » ~.
rvj . o
~* O if>
z in oj
-H (VI
o .0
T X O
X «-< O
»
0 :t 0
tn in
(VI , (VI
o >^
isi in i
(V 2
Q
0 O UJ
in to
(VI ~. »
»- o .
< in o
» M in
-. (VJ
o z «-
in «-H to
(VI U <
*- > »
o . -*
» o o
in in
O (VI (VI
in ~
(VI Z CL
»» t « 4
1- X >
0 0 UJ
o * »
o ~.
> o o
-» in in
o CM (VI
in
(VI Z O
~- >~ < H-
zoo
M 03 X
O O Q.
Z
p
s:
o
o
(VI
* >
» M M
. o n
o in »
in M o
M «~ in
> tO (VI
-1 U. ~-
*: Z i/>
d u.
» *- z
-^ 0 »
O J") *
in "vj o
(vi «- in
<" tO (VJ
Q. <_)
TL » tO
UJ ~ <
1 0 Z
»in o
-^ (VJ X
0 *
m v ~
(VJ X 0
^ o in
(*) > fM
^ "» ~*
* o to
~ in <
0 (VI 3:
in «- u
(vi o x
~ o »
(VI Z ->
< X 0
» « in
-» ~ (VI
0 O "
tn in to
rvi (vi <
x
^* Q Z
< O X
13 ^
~ (J -^
O » O
in ~ in
(VJ O (VJ
~ m
X (V) tO
i- ~~ to
O (VJ <
*~ * ^ 3T
^ O X
ro >} in
^
o
(VI
>
<
X
Q.
_J
«t
_l
v
<^
0
in
(VJ
~
0
3:
CK
^,
O
in
(VJ
->
2:
v£)
^,
o
tn
(VI
-»
r>
2
'"3
*
A
O
J1
(VI
w
r\
2J
>-
x
o
»
,^
o
in
(VI
«
OL
^
2
Q
(_)
>
^.
O
in
(VI
«
Q_
^
CD
2T
X
»
^-^
o
in
(VI
-
OL
Q
oc
CJ
r-
»
H- >
CC UJ
CL >
Z <
O
O t-i
1 »
_J UJ
UJ O
C3 Z
» HH
'VI »
*- OD
_i or
UJ >-
Q HM
» »
H- QD
_J >
UJ <
Q 0
» t i
CE »
U. OD
3: o
a: 3:
» > i
z »
3 0
O Z
r u
a: z
#* *
Q. o
o u
r OD
a z
X .J
u. -
~) X
O X
z *
» to
Z 0
UJ UJ
_i to
X Z
>. *
0 0
z >
o
-) a
z z
z
3:
o
o
r 1
»
(VI
a:
<
>
_i
»
i
a:
<
>
_i
*
Q.
O
(
to
_)
X
0
o
_l
K
Q
CD
Z
_l
«>
C
03
O
_l
»
UJ
a
>-
t
_J H-
» >
_J Z
U. »
(VI Ct
^ 3
» z
to -
> Q
4 T
Q Z
Z >
» UJ
UJ X
CC i-i
> u.
-« _J
(vi n
^x
o
in
(VI
w
H-
O
Z
Q
»
^^
O
in
(VI
^»
> o
Q
U 0
a n
« o
**. ^
0 Q
in ~
(VI 0
^^
1 0
Q
O "5 UJ
O Z _J
, f*.
2 ^ -)^ ->
O II -" ~?
HH ~) ^ ^ OJ
to *: > y:
UJ -H II O II
3: O"' Z
a Q o HI Q
0
o
it
z
^
o
**.
o
-. 0
-)
^ UJ
to _i
o
o --
* ->
in -"
o y-
^^
x
0 O
II *~
o u.
o -
t
^.
"^
^^ »*» **^
-> "> to
o
Z Z Q
t 1 » 4 '
Q Q *
CO Z ~
o x -7
* * ^
-> ^ _J
"> "> 0
^ »^ >
z z *
t 1 t 1 ^-»
o o ->
f «
-^ ^- o:
~> 5 > i
>^ r> a:
o o «
a o
* * ->
^«. ^-> *~
~~> ~) t
^ ** ^
Q Q O
0 O O
CD Z *
O X
1 1 ")
o^ ^ * <^-"
->-)>-
*~ X
Q 0 O
0 O 1
OD Z -~
O X ~5
* * "-
~ ^ 2
"~> ""} I-H
O
_J _J *
o o -.
> > ">
* # ~
0 Z Z
OCX
1 1 O
II II II
~*. f- - *-*
~) ~) ~)
1 1 K
0 Q Q
O Z 0
Q Q O
-)
^-
Q.
^
>
UJ
1
,-s
~5
>-»
t
r
<3
_jj
to
i
^.
)
~»
o
H-
O
X
Q.
^^
+
*~.
~~)
^
_J
O
*
*-.
*
^^
*~
o
o
en
0
*
o
^
o
4-
_
~>
^«
Q
O 0
Z Z
X ~7
X -i
z to u n
X. < O Z
Q * Z
1 ~ >- > U Q
-i (VI
0
14
o
(VI
o
t
0
o
-^
o
^>. «~.
0 _J _1 ^
_J Z Z X
ijj Z ^ Z
_J «- Q O -~
> O O 0 >
X D Z CO X
- Z O 0 X 0
i ^^ II II II o\ II
T ^^^ II |l || \^J II
zzG'croro'h-ft'
II II < < < <
_ixu-aorD:rioao
ZZ«-"O(_)XOO
0
(V
o
C£
CC
to
-------
Subroutine ODERIV (Cont'd) 85
h-
0
CJ
cr
LU
C
0 Q
CD Z
<_> X
cr or
OC 03
f(NH> )/XLEN
X
0
2T
o
II
X
0
z
UJ
X
X
X
z
0
o
o
1
Q
o
ff\
o
II
X
Q
o
z
UJ
_J
X
X
X
o
o
X
1
-I Z
o
0 *
o oc
X OD
O
II II
X O
Q 0
Z _J
z
0
*
a:
OD
0
u
0
_J
X
Q
o
*
z z
o <
* *
cc -»
CD
x rvj
Z 0
O (3
_) Lu
X X
Q 0
O-y
C> 0
* *
z z
* *
2~y
Nl M
o 6
Lu Lu
O O
0 0
Lu Lu
O C
f *
0 0
o o
Lu Lu
X X
z z
1- 1-
0 U
o o
II II
I X
z z
K K
Q 0
O 0
Z
0
Lu
O
Z
0
_J
Lu
f
I
Z
H-
Z
O
II
X
z
Q
Z
o
0
Lu
0
1
o
0
-J
Lu
_l
Z
h-
0
O
II
_l
z
H-
o
o
0 Z
o o
Lu Lu
O O
1 1
a z
a o
Lu Lu
1 1
-J _l
z z
H- 1-
u z
0 Q
II II
Z Z Z Z
i- h- 1- r>
O Q Z K Q
O Z O UJ Z
oxaaaLuU-u-oaaaoaoaaoaruj
o o
n *t
CO
-------
Function JKFND
86
O
T in
x
9- O
a. +
D ~
» 2:
H- x -~ o
LO \ ^r *
HH ~, « If)
a z -« "> iiJ » x z
X I Z C/^ O » O *
» I Z < i ro
-51^ _J >- J^
.
Q o o ae » *
z xs: ujsco >t
u.~~a:a: i/)»-o x
ic x 2: ~
->HH(f t UJ».^ «I
u._jou zac\j x
Z > !(/) I I O *
O + Kf-Z H- J: t- -*<\) i
I'-'cnLniiz ZDUJO i voz
i-iii-iHHQct oo »o<:oo<>*ct
ot-oo^D crujy +>-»- i >-Hr>
zuj^-^u.1 dni ^3: it xii i
Z5LOU.U.^LLl2'OZIj. II
-------
Subroutine TABU
o
h-
o
I OX
a. (VJ -»
Z ~» UJ -^
LO O O _J ")(/)
I- h- - - *
O. O_ O (- X ~
X Z -* O O Q. I ~
~~ I- O X ~ ~)
>. >- o « >-
* » H- O O +>-
X O Z ~> I
^»-O H- X »
oca. a. ^ *
XT
t^''-< ^->^CL^' ^->>^
uj o i * ~^'~* LO
ZZUJLOUJUJ^UJ «- + H-
( I-H t/) Q. ~~) OI~>lT>ZLn*~4
rDCOH-ZH-^ h-Zf~'~' *^ ^^Z
CDX^>^U'^'* ** Z " h I H-^O
C)H-tU.Q.U.U.OU.O II Q. O 3- O Q- LU Z
o o o o o
m
-------
Subroutine INTER
oe tr
» »
i/) -.
t- en
a. t-
2 OL
* 2T
V ^
- >
X
»- ^.
t in -^
< i »
s: a. a.
2T Z OJ V
» *^ r\j »
_i x in
i- a.
UJ h- Z
r -i -) Z) ^ ** X -->O ^-
O >/) X-H -5X~)2X>-IIVCLQ.Z T
o 2 i ii ii CM ii ti «-i ii ii ~ it T "Z. *-» o a:
t\j ^^
CM (\J
-------
89
Subroutine CALEN
3:
9-
O
o
(VJ
o
z < < »-
UJ X i >
_i » >o * n 3: o
<: s: >» -« in * o
Q x -t x in ^
-i x i r> v
i 01
CD I- II -" ^" X II Th-
O Z < II II II II II li_ II < O II iiJ
o o
(VJ ro
-------
Subroutine OUTGO
90
»
.
0
in
(VJ
**
2
i i
Q
-^
X
»
^-.
0
in
(VJ
^
M
>
,-*
O
in
(VI
>
<
*.
,-.
0
;n
~ (VI
>-
C3
X
*-»
Q. O
2 in
(VI
ct
^[ H-
> ^
i o
O
o
o ~
t- 0
^> in
O (VI
UJ 2
2 »-«
«-« O)
t
r> 2
o o
Or X
OC Z
Z5 O
>/1 O
0 ^
LO ^5 ^
tvi in <~.
^* (VI O
_i in
O XVI
> ~
* A <
*» O 3£
0 .n O
in M
rvi ^ -.
~- /» 0
t o j*>
i Q (VI
<
UJ Q.
Or 0 Z
in uj
(VI 1-
o
in »- -.
fVI Z 0
~- oin
O UJ (VI
» to
-^ ;)
o -» «c
in o
oj in ^»
(VI O
2 in
l-H t/l (VI
o <
(VI
.-*.<
o o
in in *~
(VI (VI O
in
2 Q. (VI
14 ^ 1*^
X > *
O UJ <
» > »
*-. ~* «-»
000
m in m
(VJ (VI (VI
~r ^
2 0 X
0 0 O
CO X I-H
>-.. .
o n
in
(VI O
--in
(/) (VI
i. -~-
2 U>
U.
z
o
»n **
"VI O
in
to (vi
o **
i/)
*» <
O Z
in o
(VI X
* 4>
>-
X 0
o in
(VI
*^ -~~ ~*
o to o
in < (vi
(VI Z -~
" O <
O X I
o a
2 _l
X O <
in _i
-^ (VI
O '-' ~*
in in o
(vi ^^ in
*^ y (vi
O 2 "*^
O X O
3D Z
O OC
» 0
^ in -^
0 (VI 0
in in
M in M
*- to
(VI < -)
^ Z Z
O X Ct
^_
« on
o a
in 2
fVI
"^ O
a. »-
2 J
3 JJ
Q
*
O (VI
>n *
(VI _1
*- UJ
a. o
2
>~ h-
X _J
O UJ
o
«-». >
=> ex.
in u.
(VI Z
x
a,
2 2
2 i
O Q
O Z
'X.
*-. *
o a
in o
(VI Z
or
a.
2 X
OD U.
^ ~)
x o
2
- k »
0 2
in uj
(VJ _l
x
o_
2 0
Q 2
00
O ~)
2
2
0
Z
Z
o
0
«
UJ (VI
>- or
o >
I-H 1
* »
UJ ^
O TL
Z <
-< ^
_l
JD
or Q.
>- o
H
i/)
00 _l
>-
< o
O Q
-« _l
» »
CD O
O B
Z 2
-« _)
»
O O
2 00
UJ O
2 _l
« *
O UJ
UJ Q.
CO V
2 »-
_J 1-
_i :>
-* _l 2
Z U.
x (Vi or
» ^ i
10 2
o to
UJ > Q
in <; or
202
2
O UJ
>- UJ X
o or >-i
o >- u.
2 >-i _J
,-.
o
in
(VI
>-
^
«
^^
o
in
(VI
*.*
x
2
O
i
to
2
UJ
Z
1 t
o
or
<
>
_j
»
or
_i
»
or
«
>
_j
»
UJ or
2 <
* i !>
_l _J
t i ^~
* O
^ X
i-t in
or
I O
in 2
x
XOJ
-i-
X
4- CO
<
LU
X O
0) _J
-« <
>
or x
uj in
>
»-« X
a:r*-
x
in uj
_i
X HH
>t z
> "X"
*
t"
CO M
or
0 X
i in
i i »
»* X
i -^
<
z -^
QC ^
O
U. X
X
in
x
r»-
>
UJ
_i
i
z
3C
^~
»
X
in
>
o
-V
x
(VI
>
X
00
»
UJ
0
_J
<
>
X
in
»
X
r-
»
UJ
_l
i i
z
X
>*
»
X
in
»
o
2
I
(V
»
X
CO
»
UJ
^
J
<
>
I
in "-
»
X UJ
^ 3
1
UJ <
_J >
^
14
~-
X
»
^>
H- 1
«
^»
o
1 t
«^
>-
>
»
(*)
1 1
X
*
n
i
»
*-.
fVI
» 1
*~
>-
>
^^
(VI
» 4
»
X
*>
(VJ
1 (
»
^-x
» 1
»-
>-
^
x-v
* 4 *-*
*^ -i'
-
l-H UJ
_| t-l O
i i * UJ UJ (VI
UJ 2 2
- 2 -! or
II _l J ~3C
.- 1 ll^ t»^ "^^
44.+
o * (vi on uj
d t i i i i i H-
II II M
o (vi n j' ct
Q 1 1 1-4 1 f
«
o
_ 1
UJ
a.
<-4
>
X ">.
-J o
» 41
(VI 0
<
O jj
u. a
a -HI
o
X
x j-
^-
rvj
fO
N-l vO
U.
x a.
>J 0
»
(*) X
-3"
o
HI <"*)
UJ l-H
a.
i X
"^
X
^ n
»
(VI 0
wt
C UJ
u. a.
» vH
X
-* X
-i'
m *
1-4 (V!
»
X \O
(*) ll
a.
0
X
« X UJ
J" o
1- 2
<(*)-
Z i i H
:t 2
O X O
U- ^- O
o
\o
o
f
0 <:
o *-
-~ X
0 UJ
H* V 4
o * *
UJ UJ UJ
2 2
t
i i i
X *
UJ M II
O O
2 UJ
U. UJ CC
1 4 1 1 1 1
-4 (VI
in
-H M r>
^ (vi
O O
-------
Subroutine OUTGO (Cont'd)
o
.t
UJ
,i
>
X
~- OJ
>I
~ X
I-H «4"
Q »
2 x n
UJ » HH
>1 II
» -^ X
O O f)
UJ -t *
II 3 -H UJ
O UJ < HH CC
IT i- T i- r>
I-H Ct Z K O
O 3T O O UJ Z
o s u. u a uj
o o o
>t tr> «o
-------
92
V. EXAMPLE RUNS AND SENSITIVITY
The following figures illustrate the sensitivity of the AUT0-QUAL
models to variations in the non-point variables. Sensitivities to
other variables are shown in T.R. 54. The sensitivity to various
factors will depend on the physical and biochemical properties of a
given system. Therefore, the user is urged to experiment with his own
systems before drawing any definite conclusions about a
variable.
AUTjJSS was generally used for the sensitivity runs. The effects
are the same in AUTJ9QD as in AUTjJSS. Figures 9,10 and 11 shows the
convergence of the AUT0QD solution to the AUTflSS solution over time.
A hypothetical estuary/stream (see figure 1) was used for the
sensitivity runs. The following data values were assigned to the
example estuary/stream;
Mile of Upstream end = 100.0
Mile of Downstream end =0.0
Mile of fall line = 50.0
Number of Sections =100
PHYSICAL DATA;
Miles 0.0 through 48.0 A] = 0.0
0 Mile 50.0 AI = 0.06
P Mile 100.0 A] = 0.04
-------
93
»o *
Miles 0.0 through 48.0
@ Mile 50.0
Miles 50.0 through 100.0
A3'
@ Mile 0.0
0 Mile 50.0
Miles 50.1 through 100.0
WIDTHS;
0 Mile 0.0
@ Mile 50.0
Miles 50.0 through 100.0
DISPERSION COEFFICIENTS;
(P Mile 0.0
& Mile 50.0
Miles 50.0 through 100.0
CBOD decay rate (@ 20°C);
Miles 0.0 through 100.0
NBOD decay rate (@ 20°C);
Miles 0.0 through 100.0
Non-point source CBOD;
Miles 0.0 through 100.0
Reareation Rate (@ 20° C)
Miles 0.0 through 100.0
A2 = 0.0
A2 = 0.6
A2 = 0.6
A3 = 20.0
A3 = 10.0
A3 =0.0
Width = 5,000.0 ft.
Width = 500.0 ft.
Width = 500.0 ft.
E= 5,000.0 ft2/sec.
E = 100.0 ft2/sec.
E = 100.0 ft2/sec.
CDECAY = 0.4 Vday
NDECAY = 0.3 Vday
N0NPCB0D =
200.0
(lbs/day)/mile
1
REAER =0.4 '/day
-------
94
Non-point source NBOD;
Miles 0.0 through 100.0 N0NPNB0D = 200.0
(lbs/day)/mile
Non-point source fDS;
Miles 0.0 through 100.0 N0NPTDS = 400.0
(Ibs/day)/mile
Non
-point source 0,,;
Miles 0.0 through 100.0 N0NPD0 = 50.0
(lbs/day)/mile
Non-point source Flows;
Miles 0.0 through 100.0 N0NPFL0W = +1.0 cfs/mile
Computed Oxygen Saturation Concentrations.
All other physical data assumes its respective default value.
Where point values are specified the program will interpolate
linearly between the points for intermediate values.
COMPUTATI0NAL DATA;
The following point source inflows and concentrations were
specified.
Mile 100.0; 500.0 cfs
5.0 ppm CB0D
4.0 ppm NB0D
20.0 ppm TDS
9.0 ppm D0
Mile 95.0; 50.0 cfs
30.0 ppm CB0D
40.0 ppm NB0D
200.0 ppm TDS
0.0 ppm D0
-------
95
Nile 25.0; 300.0 cfs
30.0 ppn CB0D
60.0 ppm NB0D
400.0 ppm TDS
0.0 ppm 00
These data constitute the base condition upon which the sensitivity runs
were made.
Following is the data deck used for running the base condition
on AUT0SS;
-------
96
to
~-f
T i
o
en
0
ro
to
_rO
10
IO
ro
to
CM
ro
UI
Q
Q
C
T5
To
CM
M-
to
O
o
o
fft
Q
^
q
ol
o
»Q
m
W)
ol
cvl
t_Q
CM
CJ
CM
-------
97
v>
»r>
s
i en
; *r
oo
«J-
, f
*r
u»
«r
i ***
"
i *f
i «
i 10
; *
CM
IT
*r
o
"r
i to
<$
to
10
«
CM
to
ro
0
lO
o>
CXJ
oo
CM
t~-
CJ
u>
CVJ
lO
CM
S
IO
CM
CM
CM
C\J
i S
! -
CO
r^
f
u»
try
^r
ro
CM
O
cn
CO
r-
o>
to
*r
fO
-
>
1
<
u
U
01
3q
CO
-
O
O
«
o
c/
U)
<
1 1«
UI
ew:
^-
«
0
O
-
O
.
a
^
_j
u.
a.
2
w^v
w
0
0
O
_
«0
Ck
H
a.
^
%j^
w-
JS
O
O
o
-*
o
.
o
o
^
GO
O
a.
35
"^
.^
0
%
0
o
M
O
0
o
^8
cD
3
a.
"Z
^^\
w
J^
0
%
o
0
N
O
*
0
^
A
a.
~2
^
_z
O
.
O
to
o
*
O
Xi
a
h
4:
vn
i
JLJ
i
r
O.
*G
|
-I*
\P
1
^
-4
U.
Q
-
O
O
U)
o
o
o
'
o
O
(0
o
to
or
O
O
0
<0
Q
«
U)
M
-------
98
in
' in
««-
in
ro
: m
, CO
1 in
i In
i 0
, m
i «*
a-
.
^r
|S
i ?
! «
' CM
; «r
1 -a-
. o
"
<7»
to
00
10
r-
10
i»
ro
~^T
0
s
s
s
ro
O
to
V)
CM
CD
CM
r^
1 ~
U>
~
,n
CM
Si
10
~
CM
CVJ
S
O
C\4
Ol
CO
r*-
<£>
ID
*»-
ro
CM
-
5
^
oo
r^
u>
m
r»-
rO
La
h
o
o
t4
0
*
o
o
m
o
o
o
o
t
0
^
0
0
to
o
U)
o
o
o
,
o
0
^9
O
o
U)
6
ID
vr
0
o
*?
O
*
0
0
«o
o
*
10
tsl
Q.
^
k-
^0
a
^
CD
0
-
^t-
0
-
0
o
vo
o
o
Q
o
w
o
^
0
0
lo
o
«
(0
5-
o
o
v£
^o
0
«
IA
tJ
a.
"p
h
\/)
^9
A
0
.
0
o
0
0
10
o
.
o
o
.
a
^Q
H
\n
h-
,-j
<
^
^
fl
^
L
1
'
i
-------
99
DESCRIPTION OF SENSITIVITY FIGURES;
Figure 1 -schematic of example, streams/estuary.
figure 2 -base condition for sensitivity runs.
Figure 3 -base condition for sensitivity runs with all non-point
parameters set to zero.
Figure 4 -base condition with varied non-point source inflows and
non-point losses.
Figure 5 -base condition with varied non-point source CBJJD loadings.
Figure 6 -base condition with varied non-point source NBfID loadings.
Figure 7 -base condition with varied non-point source 0- contributions.
Figure 8 -base condition with varied non-point source TDS loadings.
Figure 9 -AUT0SS and AUT0QD CB0D comparison* JUa with base
condition input values. The AUT0QD CB0D starting
concentrations were set at 3.4 ppm for the entire network.
Figure 10 -AUT0SS and AUT0QD NB0D comparison. Ran with base
condition input values. NB0D starting concentrations
were uniformly set at 3.5 ppm.
Figure 11 -AUT0SS and AUT0QD D0 comparison. Ran with base
condition input values. DJ9 starting concentrations
were uniformly set at 6.0 ppm.
-------
100
FIGURE 1
CD I/)
1-
LO U
CM
O
O>
O
« O
5: co
a:
oo
LU
a:
I
CO
a.
u
O) CD
^ CD
--f-
!
in
<4-
o
o
o
o
in
o
O)
S-
o
o
-------
FIGURE 2
Example stream/estuary with point and
non-point input parameters. Basic condition
for sensitivity runs.
101
Q.
Q.
C.
o
0}
o
c:
o
o
10.0 -
9.0 -
8.0 -
7.0 -
6.0 -
5.0 -
4.0 -
3.0 -
2.0 -
1.0 _
0.0
0 10 20 30 40 50 60 70 80
River Mile
90 100
-------
FIGURE 3
Example stream/estuary with only point
source input parameters.
102
10. Q-\
0
10
20 30 40 50 60 70 80 90 100
River Mile
-------
103
o>
en
o
-------
FIGURE 5
Sensitivity to a non-point source
carbonaceous oxygen demand loading
104
(U
CD
o
to
o
10.0.
9.0-
8.0 _
7.0 _
6.0_
5.0-
4.0 -
3.0 -
2.0 _
1.0 _
0 10 20 30 40 50 60 70 80 90 100
River Mile
Non-point source CBOD = 0.0 Ibs/day/mile
Non-point source CBOD = 200.0 Ibs/day/mile
.-~ Non-point source CBOD = 400.0 Iba/day/mile
-------
FIGURE 6
Sensitivity to a non-point source
nitrogenous oxygen demand loading
105
CL
o.
c
d)
CD
>»
X
o
-o
0)
o
l/l
to
10.0
9.0
8.0
7.0
6.0
5.0
4.0
3.0
2.0
1.0-1
0 10 20 30 40 50 60 70 80 90 100
River Mile
Non-point source NBOD = 0.0 Ibs/day/mile
Non-point source NBOD = 200.0 Ibs/day/mile
Non-point source NBOD = 400.0 Ibs/day/mile
-------
FIGURE 7
Sensitivity to a non-point source
02 contribution
106
10.0_
i i
0 10 20 30 40 50 60 70 80 90 100
River Mile
Non-point source 02 = 0.0 Ibs/day/mile
Non-point source 02 = 50.0 Ibs/day/mile
Non-point source 02 = 200.0 1bs/day/mi1e
-------
107
FIGURE 8
Sensitivity to a conservative parameter
non-point source loading
200.0-
180.0_
160.0-
140.0-
120.0-
100.0-
*£
^ 80.0-
^ 60.0 -
40.0 -
20.0 .
0.0
0 10 20 30 40 50 60 70 80 90 100
River Mile
Non-point source TDS = 0.0 IDS/day/mile
Non-point source TDS = 400.0 Ibs/day/mile
Non-point source TDS = 800.0 Ibs/day/mile
-------
FIGURE 9
AUT0SS and AUT0QD Comparison
Carbonaceous Oxygen Demand
at selected miles
108
6.0 -
5.0 -
4.0 -
I
Mile 90.0 (AUT0QD)
Mile 85.0 (AUT0QD)
(AUT0SS)
MilP qn.n
Mile 85.0
1: 3.0 -
a
o
co
o
2.0-
1 0
n n -
ft /- Mile 75.0 (AUT0QD)
\ '
\\
\ V ,£, Mile 55.0 (AUT0QD)
v x «« , Mile 25 0 (AUT00D)
\
Nx-*_ _ . Mile 20.0 (AUT0QD)
Mile 75.0
0
10 15
Time (Days)
20
Mile 55.1
Mile 25.0
Mile 20.0
25
-------
FIGURE 10
AUT0SS and AUT0QD Comparison
Nitrogenous Oxygen Demand
at selected miles
109
6.0 _
5.0 -
4.0 H
3.0 -
O
CO
2.0 -
1.0 -
0.0
n
i /
! /
i
Mile 90.0(AUT0QD)
Mile 85.0 (AUT0QD)
Mile 75.0 AUT0QD)
H
\ ] Nv« Mile 25.0
\ ^ x.
(AUT0QD)
Mile 55.0 (AUT0QD)
\
\
Mile 20.0 (AUT0QD)
0
1
10
15
Time (Days)
20
(AUT0SS)
Mile 90.0
Mile 85.0
Mile 75.0
Mile 55.0
Mile 25.0
ile 20.0
25
-------
no
FIGURE 11
AUTJ9SS and AUT0QD Comparison
Dissolved Oxygen at selected miles
9.0 -
8.0 -
7.0 -
6.0
Mile 10.0 (AUT0QD)
/
-*-
Mile 40.0 (AUT0QD)
/ A
Mile 25.0 (AUT0QD)
5
-o
st
o
to
5.0 -
4.0 -
3.0 -
2.0
iV^
t\
-\
Mile 50.0 (AUT0QD)
u
i
Mile 85.0 (AUT0QD)
l
i.O (AUT0QD)
0
10
15
Time (Days)
20
(AUT0SS)
Mile 10.0
Mile 40.0
Mile 25.0
Mile 50.0
Mile 85.0
Mile 75.0
25
-------