Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

0
LnV0 @	
LnDS4xk!4y
A4y&Bb
LnH _

"e;l 

"dkl30<$ *Ln=bLnQZLn=

v-

w9

wU0

v

vj-

v}G	+o1r2P)Q
-VVpSBbLnQ]VVpS,Yr*}7t
b%6#
*M,

a	bLnQZM,
*HF
^bLnQZHF-4v;S
UbLnQ]4v;S+VpK
ObLnQ[VpK*gY|F
>bLnQZgY|F	*eD%
;bLnQZeD%*gY]C
:bLnQZgY]C*gZ&*
/bLnQZgZ&*+^}
'bLnQ[^},(Q$s
$	bLnQ\(Q$s+^}:3
#bLnQ[^}:3-KQs
bLnQ]KQs*0K
bLnQZ0K*u

bLnQZu
	*gZ<
bLnQZgZ<*gY{&
bLnQZgY{&*gY{+
bLnQZgY{+-NpK
bLnQ]NpK*gZ<
	bLnQZgZ<*gYcG
bLnQZgYcG*gZS

bLnQXD*gZ9e
	bLnQZgZ9e 
-0 w&(A 7V`
j+
 w(N. Nw2NX+Z`
j+7V`
i	*gY{%
bLnQZgY{%*gYK,
bLnQZgYK,
J~VbLnQ@bLnO@bLnQ@bLnQ@	(+
 
X2Jw+
Z`
i+@+
@	` AP	 




	 PP X((

((	 !((((
(
((	(000000	 )00((

88888888	 288888888888888888	 :8(@@@@@@@@@@	 C@@@@@@@@@@@@@@@@	 KPHHHC	 T	 \


	 e




	 m






	 v



	 ~	 


	 


cW@P ASSIGNMENTSbP IF@STFN OR AR	 
RAY ASSIGNMENTXcP DO]#P DO` END STATEMENT FUNCTIONRaP IFRcP	 
  IFP SUBSTRING ASSIGNMENTArgumentAn arrayA@X PUNCHeH DATA	 
)A@X PRINT0 SAVE	E SUBROUTINEX OPEN0 INTEGER0	 
1 LOGICAL IMPLICIT8 INTRINSICC@X FINDMX REWIND=@P CALL	 
:X INQUIRE  PARAMETERP ELSEAPX REREAD<P GOTO	 
BE( DIMENSIONP PAUSEP RETURN0 DOUBLEPRECISION
 FORM	 
KATh INCLUDEX BACK	Cp ENTRY%( EQUIVALENCEJPX DECODE	 
SEH NAMELISTAPX ACCEPT BLOCKDATA?PX READMX UNLOAD	E	 
\ FUNCTION
P ENDDOX CLOSEMX ENDFILE0 REAL
P ENDIF	 
dX SKIP?@X WRITE8 EXTERNAL
%( COMMON0 CHARACTERJ@X	 
m ENCODE0 COMPLEXP CONTINUE:@P ASSIGNA@X TYPEP STOP	 
u PROGRAMA





 
~



	D"bLnQ@	JLnE

LnO

LnQ
xbLnQ@
ybLnQ@
|bLnQ@
~bLnQ@
	 

!

"

$

%

' 

)

*

,

-	D"bLnQ@bLnQ@
bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@
bLnQ@
bLnQ@	 

/

1

2

4

5

7 

9

:

=	D"bLnQ@

bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@	 

>

@

A

C

E

F

H

I
 

K	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@ 

M

N

P

Q

S

T

V

W

Y	D"bLnQ@bLnQ@ bLnQ@ bLnQ@!bLnQ@!bLnQ@"bLnQ@#bLnQ@#bLnQ@$	 %

Z

\

]



a

b -

d

e

g	D"bLnQ@%bLnQ@&bLnQ@&bLnQ@'bLnQ@'bLnQ@(bLnQ@.bLnQ@0bLnQ@0 1

h	D"bLnQ@4e

s
ueVZq
terv3
rbZ3
qbM@
obM-
nb}Rs
lbHFS
j	D"bM3
ic6N3
gf7
feQ
db}
'3
ce4v<
ab}
S
`bKs
^b}

]	D"cu5s
[fjs
Ze4v

Xb2ds
VbXd3
UdQ
3
Sb_Bs
Rbq3
Pb})S
N	D"b2I
Mc^\@
Kc(|3
JbeD%S
Ge53
Fe
{/s
Dba`3
Bc.a|s
Ae5*3
?	D"b|3
>e
tQ3
<c^x$3
:bD8:
9e5!%3
7cK|
6c^}S
4c^'b
2d(Q%3
1	D"c^}.3
/dr:`S
.eW[S
,eKR3
*e

hS
)b\|E3
'e5s
&eWq2
!b2dM
 	D"d(Q"i
b}
e}
f0y<
be3,!
eV?[t
by

1
bZ@
ge%gm!%(
(9