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

0
y.60 @	
y.$S4xk!4y
A4y&Bb

"e;lTBD0<$ aH +,>w,>,/ 
w~ 

w[([0A7X+! * 

w~	 (J0A*O 00J@.
 (0N@G ,1X@

GaP+! 
w~	  .1J@(
 ,0H@

G 01X@ *1X
@
A (1X  @AGaN+! 

(lO/.",>8!	"
DE(vx@

Qtby./@by./@by.1@by./@by./@by.1@	 
U( wZ*h
Q*	,>+F@ 
w~+@,#+C+*+*+*+-+*+@@+0	*UD'+6+-+6+;+@+* 

w0
1P+B +C 

w0
0P
+B ( 0+C 

w0.HaP+B,>0
,>
,/+ 

w0
	D"by./@+by.*@,by./@.by.*@/by./@1by./@1by.*@4by./@5by./@6	 ( 7 .0P
@(DaN+B+B 

w 0`p+> +C 0an@+B	"? 
+C 

w0
1P
7
@4ZH,> wZ.@
Q.	,>,>,4/+5"H@+G-0,>w,/	D"by./@8d"e;g@=d"e;g@?by./@Aby.*@Bby.*@Fby./@G

Q
][Iby./@J	"  KaZ+O *5JO,>,F/ wS* GJ  
aJ +T,>,>,  @S/,>w~,>w,/+-0I aH +Z,>w,>,/	D"by./@Lby.*@Mby./@Nby./@Rby./@Sby./@U

Q
W4Vby./@Yby./@Z D @Z,>w~,>w,U/+VD"by./@\

Qz]@`@<]	(*D]-0V.@ w~+@$`+

+c+h+n+q@+

 
w, .0L
@	 e0GaN+{ +

 
w, .1L@0GaN+{ +

 n 
w,1L
+{ 	D"by./@]by./@cby./@eby.*@gby./@iby./@kby.*@mby./@nby.*@p	( p+

 
w,0L
+|[(A07Z+{ 

(al+w,>+x,>Z.(
Q.		 Ay,>,>,N/@+

0 (0P
@,M[(A.} 01N@ 

G,GaH+
 	D"by./@qby.*@vby.*@wby.*@yby./@zby./@|by./@~by./@
by.*@
	(


+

 w Jp 8ap+
 :+
	 : 

pz+{ 
w (+
4Z
,>	 
 

wZ.0
Q.	,>,>,z/+
 

wS.BN0@/+\-0. w  @ 
 
  Jp,>,>,/4:
x w6P8+
*
	D"by./@
	by.*@
by./@
by./@
u3{
by./@
by./@
by./@
by./@
	" 
0J+
,>,/@+
h 8
 `,>,>,/ 8
 [
.
	 @ 

# Jp2rp+
N8 

H0L+
H HX H`,>,>,/4:
x*	0J( 

,+
-S0GP`[P5P
4.		D"by.*@
by./@
by./@
by./@
!`
:@
!by./@
(by./@
*by./@
+by./@
.	"
/1N+
@,	0L+
3 :pGZP+
@ :
z	+
@ .n	[
P JpZ

(5L
@	"
77((+
@ P
 NS, L, Zp p *j
 (
h
S.BN@ pXP8	 "
@S.GNP.
0N+
LZ

Zp2L+
LZ.P
Q.	,>,>,
/+
Ll 
 "
H(
	D"by./@
0by./@
3by./@
5by./@
<by./@
=by./@
Aby.*@
Fby./@
Gby./@
H	"@ 
I0H+
K,>,
/@@` H1h
89
$[
,>,>,
 /@@
/	  @
Q 2 

.,/,
 Lp2rp+
b H Pp4P
a 8 Np 
p 

( Lp4L
^  @
Z p 0
2N 
+
^,> 
,>	,
F/	D"by.*@
Jby./@
Kby./@
P`
:@
Pby.*@
Q`
:@
Q`
:@
Rby.*@
\by./@
]	((
^+
x:p ..
82H+
X9
T X
.8
QX
:,  X.<	 


f Q6
*6` 
 J J
c 

XL
i,
: 70+
n pS*
GJ p

 	" 
o0H+
r\`X 

p QP0 L
q 

pS0GP0XLX
XTX[w,>,>w,
O/r
w@/+	D"`
:@

`
:@
b`
:@
gby./@
hby./@
iby./@
nby./@
wby./@
x|@/+
x-0
y w 
 8
j$	 
  2
&4)V}=2 

w[.02 N
9S0 P, 6Hw+ ,l

	D"by./@
yby./@
~by.*@by./@
by./@by./@
,
/,~-0] w,>h
,>
,/+
,>,>,/	D"Y5by.*@by./@Y6by.*@by./@QZH"@%,^+-0.

++ :
XZ
+, ,XL
Z`
@@@@
	D"}f:
2NfG&by./@'`
:@'`
:@*`
:@+`
:@,`
:@,`
:@-	 
- w[

w.

wLp2rp+B@@p@@pZ` H7NP+6 P1H
O@p.4
+6	 *@68 P(

P
+@4:+=+;+k QN
 P0P+L7Jp+C	"@>  N@@ `"P ( H, 6.`+F ,>h
,>,/6H`	* EG+K DZ,h
Q,	,>,>

,E/XX
+[7Jp+O G,>h
,>,J/	D"by./@7by./@>`	D 
@@by.*@Eby./@Fby.*@Iby./@Jby.*@Nby./@O	  O. Np,>,>,V/4:( *1H
@
,D
aJ+Y,>, X/ pnS.
GNXX
O@
6J
	D"by./@Oby./@Pby./@Rby./@Sby./@Uby./@Xby./@Y`
:@[`
:@[	(P\+i  N?@@?Z
 P ( HA,XZZ

"
.jZ

$

` Lp3,*d+g M,>h
,>

,N/	D"by./@\`
:@^`	D 
@^`
:@a`
:@b`
:@bby./@dby.*@fby./@g	 @ Eg pXP
+=S.GNR`+= P0N
+{7Hp+p e,>h
,>,f/	  p, Lp,>,>,V/4:0 (1P
@*DaH+z,>,
  x/	D"`
:@hby.*@nby./@oby./@pby./@qby./@rby./@sby./@uby./@x	  y 

plS,GLO@
 P
 Tp(5H7Lp+  P]@@] `"H *	(
 
 J_,6QX
7LP
+ P
0P
+O@p+@@p.4
+	@@p.4
 P
 TP 
01P+

,+ 
P0J
+7Np+ m,>h
,>,o/(	D"by./@y`
:@{by./@|by./@~`	D 
@by./@
by.*@by./@by./@	   Hp,>,>,V/`Z+* ,1J
@

.D

aL+,>, @/ ppS0
GPO@
.5N$7Hp+$ 

	D"by./@by./@by./@by./@by./@by./@`
:@by./@by./@	*
(  L@@ X"N 0 P
,6XV
6H
+9 

X2,`+* Z0h
Q0		 A (,>,>

,/  P @@ Z
 H * J",`XZZ

$

`"

.l	D"`	D 
@!`
:@$by.*@)by./@*by./@*`
:@,`	D 
@,`
:@/`
:@0	 
1X/`Z
8$ Pp30+7 ',>h
,>
pXJ
+:S, 9GLR`[

p,>,>p,/H[,>,>,</[
8QP
	D"`
:@2by./@4by.*@6by./@7`
:@8by./@<by./@?`
:@@`
:@A	" A.$
9/7H
+
,
 .1L
@ 01L@AaN+J,>
 `j+N,>,/,>,/XZ
,>	D"`
:@Bby./@Cby.*@Hby./@Iby./@Mby./@Nby./@O`
:@Oby./@P	("@"P,N/QZ 

J 0aP+X  N+@@+ (
 H * J-,+Y ;	 YXZ[
<7r+~/$
Z5H}[


 03LX@.M (1R@ DaGaP+e,>,P/	D"by./@Q`
:@Qby./@T`	D 
@V`
:@Y`
:@Yby./@_by./@cby./@d	"
AdXZ+}Z
 Jp7Lp+y Lp(1(
+w 
p6.(+w 

pZ0Z2H	(@ m+w pZ

8
Z 02L@[
8
 ,2J^@

AaP+wZ8 HpXH	 @u 
 
8
 J 
+} pZ 
 Np+f,>,c/ Zp 
pXJ , L(
=r[	 


~/$
S0BPS0GP+ 

 LT@@U  N 0 PW,QZ[

w,>"


,>w,?/	D"by./@h`
:@lby./@yby./@zby./@
`
:@`	D 
@`
:@by./@	 
[
(..
 QD
< XP
, .Z`ZeXHXTQ4
 Tp	 AE*4 p 
R,0L+6P
+ 

(
 LS. N,

 Zp pS(BH@ 
E (h
 *
j
	D"`
:@by./@`
:@by./@by./@	"
 XPP+R`P /
 aj
+$Z, 
Q,	,>,>,6/	(D#+& 

 al+),>Z. 
Q.	,>,>,"/+# 

wS.
GN0[
5N-
 D,XL
	D"by./@HXwby.*@"by./@#by.*@%by.*@'by./@(`
:@+`
:@,	"(,QL
+/ 
XL XL
@+)-0&. w[w.w Hp2tp+; 
P Jp	 *5 ( X 

0L+9(P:p+:0

6+@4=+8(*=+@@@@+D+Z.`
Q.	,>,>,>,(/	D"`
:@,`
:@-`
:@.
2NU0by./@0by./@9by.*@Bby.*@Bby./@C	(QD+>[`4N :10

+J,

+ : Zp+L,

+ :+I	 @PL[`7,X+aZX$p&.
XNX[X  H@@ 
p$
&*
 J 0 P	 

 U,QZX.<72+ (.Z  Hp 

 LQ@@Q 
p$
&*
	 @(] J 0 PT, pXZ8=2X+.<72+m (.70 +m (fZ  Hp 
	D"by./@Gby./@Jby./@P`	D 
@Sby./@Vby./@Z`	D 
@]by./@aby./@g	*g J[@@[ 

p$

&,
 L 0 P^, pXZ =2c*1*
+ Xan
	(@p+[X2H+ZX 

<
 J
6L
+vS(GHZ Hp7Pp+
 Pp	"
 x3P+ p(1(
+ p6,@+ pZ8Z
X2H+ 

pZ0
ZX
	" 
2N+ p[

@
2Lq+ pZ
  JpXJX (
8 P(
+ 

pZ0
 Np	(A	+w6H
+

S:BZ+,>,/ XDX 0 P
,>,>,/( 4:>S*
GJ` 
Ej8,>	D"`	D 
@jby./@mby./@zby./@

by./@by./@by./@by./@	"U,>,/4:>,>,/+8 @
 

<+@4+++@@@+!	(+',>,>,/++,>,>,y/4:>S(
GH`.hy./@'by./@(	(D)4:>,>,/4:>.0N
+. :z+/ *j 

 Jp,>X,& P@1/7$+> 

5QD0.(GaN+7,QZ
 

p L
	D"by./@*by./@+by./@-by./@/`
:@/by./@1by./@4by./@4`
:@8	 
@ 8[

p,>,>p,/93[w,>,>w,:/@/+-0[4XD	 @"
A 
w2J`+C +Z`
+@ w Nh  Pg,  +C-00.	D"by./@:by./@=by./@>
2]V?by./@E-MQ+by.,]MQ+
2OUjHby./@I	  P"I w ` Hp6J`+T6N+O,>,>,I+P,>,>,V/5:RO@p	(AR+e *QJp+e6N+W,>,>,I+X,>,>,V/4:h `
 X
 AZ,>	D"by.,@Lby./@Mby./@Oby./@Pby.,@Tby./@Uby./@Wby./@Xby./@Z	 
[,>,/ [
.
 Jp2rp+a HXVHZ`H9^,>p,>,/	"c Zp4ze .QNp[w,>,>w,[/ p/+?-0H.( Hp7J	 ld @@p w[w.w Np2rp+. H0P+6 
 JF H 

X Lp k"t0N
+v@@+5N@@u*	D"by./@\by./@cby./@gby./@h
\|D!iby./@jby./@jby./@qby./@w	 @x 00J@[0 (0N@AaP+Z*0
Q*	,>,>,C/ 
p	 D S, GL( 

(al+Z.(
Q.	,>,>+ * Jw6HX+ X[

X4L	"	 0
QPr :+@ Z
h,  

l6Np+XVpQVp+XV8XVp	  A (h,>H,/QZX5:Z`XO+0,0L+- 0BPX 0p "
[X Hp[
  Jp 

b`L+$7.(+#.	D"by.*@~by./@by.*@by./@( H , Lk,+5Z(+57.(+*  P@@Z

(&,
	 D((' L ( H!,+5  P%,

  pZ

 QL`
 
 J*@@& .
 N	"0 0 P(,XZ`
S(GH` (0XH`XV` XZX
+-@@p H X7JX+e D8[0N+;,>+P[.  
` Jp 

L.L"`	D 
@ by./@%`	D 
@'by./@*by./@-`	D 
@/by.*@:by./@=by./@?	*?XN>,+  0p,QZ`
 Zp p *
XJ 
QX 
 

p7N0+H,>+P	  DH 
p ( Hp Hp.0N+M01P+N,>+P p*
1J+R,>(TP,/+06Nt+U: 
p J@+W,>	D"by./@Aby.*@Gby./@Jby./@Kby.*@Mby./@Nby.*@Pby./@Qby./@U	"U,>p,I/4:0,>p,/aZ+] pZ0h
Q0	,>,>+ 0
QP?	 D^, Zp 
p  H(  N(QJ_ 

pXLa p P`[/(
Q,>,i	 Af/ Zp5:l Zp7PX+k,>p,/ p+07PX+),>p,j/ 
p 
"@o[(
 

pXX0XXp  N] N> XPq,@ [pXH`QXp *j	D"by./@Vby./@Xby.*@\by./@fby./@jby./@nby./@qby./@rby./@v	 w 

pXL`
[0 NpZ08XP0 (QHs Lp,^ 
pQZ(QXh pXNh[p	  Pp pXH@ X
[

,>,>,/ P6JR+00P+00P	(+ 

pQV0 P6J+

00P+01P+ pZ,h
Q,	,>+	  ( 

pQV06JP
+ XP0+  P
 `,>,>,/6P
+,0L
( (+,	D"by./@by./@by./@by./@by./@

by./@by./@by./@by./@	"@*1L+ pZ.h
Q.	,>,>,P/+0 pZXP86P+&7lS+&	 " pZh,>,>,>,/>![

,>,>,/6Jp++ p Zp( ++-[pXN(ZpXZp.2
+o 
pj p/+i	D"by.*@by./@by.*@$by./@%by./@(by./@/by./@0,Q
4by.,\Q
4	 A1(1H+6,>,>
,>,>,/,~ , L X N,  X
 9< PX
[,>,>,/ 
H
2J	D"a[1by./@1d"e;g@2d"e;g@3by.*@4by./@5`	D 
@7by./@<by./@=	(D">+C6N+@ V+M,>Z(H
Q(	,>,>+L H
2N+I6H+G V(
"F+M,>Z,H
Q,	,>+B,>	D"`
:@>`
:@?by.*@@by.*@Bby./@D`
:@E`
:@Fby.*@Gby.*@I	 @(JZ(H
Q(	,>,>,/,~@,~-0i. w 
 +@,Q+
@+S	*R+V+6L+ w @ H+
  , 5LX7P   *6PP@
  [(  ,1H@

G
aJ+
6N	D"by.*@Kby./@L
2NtNby./@O`
:@S`
:@Uby./@Wby./@[`
:@^	(_+( 0H
+g R 
0J
+e,>,>,I+f,>,>,V/+"g7J+~60H+z R,>!,>,V/	D"by./@_`
:@aby./@cby./@eby./@fby.,@g`
:@iby./@jby./@k	*l4: 

a1L
7  ZpZH NpZ8 Pp pZ

 [
 .

3lp+y p	 t @(!,>,> 
p,(/:

p+q w 8+,>Z(H
Q(	,>,>(@},L/+,>Z0H
Q0	,>+| P
 `,14:. 	D"by.*@mby.*@nby./@uby./@wby.*@zby.*@|by./@}by.*@~by./@	("5N
[,>,>,</+
7L+
,>,}/+O@@/+0(

-0N. w   ` 
`0J+."	D"by./@`
:@by.*@by./@	`
:@
by./@
2OQI

by./@

by./@	" 1N+,>,>+ T
+$ P Np0"1P+,>Z*8
Q*	,>,>(+" * J,>,/ Z
4:C[0N+$(#	D"by.*@by.*@`
:@by./@by.*@by.*@by./@`
:@by./@	"D0H
+$Z,h
Q,	,>,>,>,/+C7N`
++ `
 H
  *#4J- D',>,>,>,/ 
	D"by.*@!by.*@"by./@#`
:@%by./@&by./@(by./@(by./@)`
:@*	"* Z8+- ( H@@
[,>,>,/@@@@@@ 
w7L(+@ (
	   3 P [. Pp2rp+=d ,>H,/5::@@,+C[

H,>,>H(@@ ;,./95 P[,>,>,;/@@9[w,>,>w,?/	D"`
:@,by./@/`
:@/`
:@0`
:@0by./@8by./@<by./@?by./@B	 PC@/+-0

. w  [
w,>,>,/ `[

,>,>,H	  K/ [. Np2rp+V H,>PZ0PQ0	,>,/4:X[,>"T,>,K/9N[

,>,>,T//	D"by./@C
2OaDby./@Eby./@Hby./@Kby./@Rby./@Uby./@Xby./@X	*
@Y+D-0D.$@0r+b w~ 
HB2J 
+aZ.HBQ.	[8 PpZ
8 Jp+c	"  a.2
+[,>+	
 p7J@+h,> w~Z,h
Q,	,>,>+	= 

w 0 Np"E  j 0+@<k+	>,+n+	+	7@ 
pA*4Jt(	D"
2O]Yby./@Zby.1@\by.1@^by.*@bby.*@eby.*@gby./@oby.*@q	"qZ.`
+	 p X<d+	> pA(4H	.

` L,  p V<s+	>,> w~Z.h
Q.		"D	,>+	= 
pA*
4J	 p0H+	@@+	 . N	 `.1N+	

,>" A	Z0X
+x,>,/ Zp4:	>[0H+	.#0N
+	,>	D"by./@uby.*@w`	D 
@}by.*@	by./@		by.*@	
by./@	by.*@		 A @"	 w~Z(@
+	< p 
p J<+	> pA(4H	6 `.$0N
+	  p VD	 p	""	0H
+	,>,>,I+	,>,>,V/5:	>+	>7P+	36,X+	2 p	(	# V<	,>!,>,V/4:	> p1P
7  ZpZ

X LpZ0 Np 
pZ( 	+[(.3pp+	> p 8*!	D"by./@	by./@	by./@	by./@	by./@	#by./@	%by.*@	'by.*@	'by./@	.	 "	/,>,> p, /:p+	*,>+	
,> w~Z,h
Q,	,>+	=,>+	
 E
	7 
pA*4J	: pO@l	#+	>,> w~Z(h
Q(	,>,>,"//$+Y	D"by./@	1by.*@	2by.*@	3by.*@	6by.*@	:by.*@	=by./@	>by./@	>

1M{	?	((T	?-0Y. ( H 
w 

(+@4	C+	q,+	F+	G+	q@ ( N+	q (	" (	H6NX+	j X H0!0P
+	R T 
0J
+	O,>,>,I+	Q,>,>(Q(	P,V/5:	q+	q7J+	f6(P+	d T,>!	D"by./@	@`
:@	Fby./@	J`
:@	Kby./@	Mby./@	Oby./@	Q`
:@	Tby./@	U	"	U,>,V/4:	q 

	L1L
7  ZpZP NpZ8 Hp pZ

@[
@.

	"	^3lp+	q p  0 ,>,> 
p,(/:

p+	\,>Z0P
Q0	,>+	h 
	f,>Z(P
Q(	,>,>,	=/	D"by./@	Vby.*@	Xby.*@	Yby./@	`by./@	bby.*@	dby.*@	fby.*@	hby./@	i	(  	j+	q X,>P,>X
,/4:	q X
[

,>,>,/+	qO@/+	?   	r@	`


	D"by./@	lby./@	p`
:@	qby./@	qJy.%	s
y.*	sby.1@	sby.1@	tby.1@	u	 	u

*
,
.

	u
/
 	~
4
6	D"by.1@	vby.1@	wby.1@	wby.1@	xby.1@	xby.1@	y`
:@	|by.1@
by.1@
	 


7
9
:
I
V
< 


?
A
H
J	D"`
:@
by.1@
by.1@
	by.1@
	by.1@
by.1@
by.1@
by.1@
by.1@
 


K
M
O
R
S
U
V
Y	D"by.1@
by.1@
by.1@
by.1@
by.1@
by.1@
by.1@
by.1@

y./
	 

8

0(0,0
0 

(F(((D(

00	 
P

P@

@0  
 `(`((`

`4`X	 
$(X

X4XB$@0

(@$@X$@8< 
	 
,H00X  
` 

 H
 XK: KKF

H

P	 
5P8

hX8

Xin EXTERNAL statementas dummy parameterin ty	 
=pe statementin DATA statementin COMMONin EQUIVALENCEas an entry point name	 
Fas statement functionas COMMON blockas NAMELIST as an array or FUNCTION	 
Nas an arrayas a FUNCTIONPBPBPwPvPwP@PtpCpv 
W@pwP	





	


	D"
y.1
8by.1@
Yby.1@
Yby.1@
[by.1@
[by.1@
\by.1@
]by.1@
]by.1@
^	 
^


A VARIABLE OR ARRAYA SCALAR VARIABLEAN AR	 
gRAYA SUBPROGRAM NAMEi4r[r_rghr
DUMMY
VARIABLE
	 
oPARAMETER
PARAMETER
END OR ERR ARRAY OR NAMELIST NAME
ARRAY	 
x NAMEk:N@K: 0KK(M7  S?H:8
e
k:N@	
	 A KEYWORD INTEGER OR LABEL
A SCALARARRAY OR NAMELIST NA	 	ME
ARRAY NAME
ALLOWED
ALLOWEDARRAY OR NAMELIST NAME

 ARRAY NAME	D"by.1@
`by.1@
aby.1@
aJy.,b0K
c^}:3

`^5

`,
`^F
	D"`^
`2V
`^4
`2k
`3
`^o
`3
`.
`^E

	D"`3

`3%
`3%
`_	`2	`3'	~`2	~`^1	}`_	}	D"`_	|`3
	{`_
	{`^ 	z`^	z`_	v`^2	y`3	teK)-	o	D"b2O]	ldQ
4	R`<*o	W`L	CeMQ+	AdQ
4	 b2OUj	

eMQ+	dE4~	D"dYHz]|`Lk`
:	9b2O]QeK)-Wb2Nt7eK)-BdQ
4@bLCY{)	D"b2OUjeMQ+`<*oleK)-dU48dYHz]6c+`<*o b
pTbeK)-g	D"dSMOFge%HbLTB@gm!%?eK)-=c(Hk"6dQt(c^hM
o%`<*o`	xqA3dSMOedsQ	D"bh#medsQWc^hMzcqcXq
o(d"e0H$ba``#bM	yH `/83f,h :`{03	D"`	xqAedsQ`/83{ejn)	eK)-b2NU
~ge&	rdDdMO
r`<*o
n	D"cXq
o
kcXf2SrbM	yH
cdSMO
j`/83
j`	D
.eK)-
vf,h!?
Jgm!&	?	D"bNZMYge$/bNZMSeVVnLbJ6(Jgm!$ge%Hc