Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/bmd/bmdx92.exe
There is 1 other file named bmdx92.exe in the archive. Click here to see a list.
?p0@0`0?hX?x " 
 
<++K2	`~; 	0xK2	0p(YVALUE    NAMCHN    YES   NO   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32   TITLES    NULL      XVALUE    FINISH    CODE      ORM            NAMES     PROBLM    PARAM     CALIB     NO   STIM      POSIT     LOW  PREFLT    OUTPUT     INPUT    ('1FINISH CARD ENCOUNTERED.  JOB TERMINATED'/1X)(A6,18A4,A2)(2A6,I6,2I3,F6.0,4A3,I2,A3,A2,I1,2I2,I6,I4)('0',A6,' CARD ENCOUNTERED WHEN A PROBLEM CARD WAS EXPECTED, CARD WILL BE IGNORED.')('0ERROR ON CARD FOUND'/5X,A6,18A4,A2/' WE CONTINUE WITH THE NEXT PROBLEM')(18A4)(A6,I3,I6,I2,A3,I2,I1)('0MORE THAN FOUR ''TITLES'' WERE FOUND. PROGRAM USES THE ''FIRST FOUR AND IGNORES THE OTHERS.')(A6,16A4,A2)(6X,16A4)(6X,8A8)(A6,I3,2I5,2I3,I5,3I3,2F7.0,I3,3I2,A6,2I3,A4,A2)(A6,11F6.0)(6X,16F4.0)('1BOTH AN XVALUE AND YVALUE CARD WERE NOT PRESENT FOR ACASE SPECIFYING AN ORMSBY FILTER'/' THIS PROBLEM WILL BE SKIPPED')('1NO PREFILTER CARD WAS FOUND FOR A PROBLEM SPECIFYINGEITHER AN ORMSBY OR LOW PASS FILTER'/' THIS PROBLEM WILL BE SKIPPED')('1NO NAMCHN CARD WAS PRESENT WHEN DPLTAPE WAS SPECIFIED'/' THIS PROBLEM WILL BE SKIPPED')('1NO PARAM CARD FOUND WHEN DPLTAPE WAS SPECIFIED'/' PROBLEM WILL BE SKIPPED')('1NO FORMAT CARDS FOUND WHEN BCD INPUT FROM CARDS OR TAPEWAS EXPECTED'/' THIS PROBLEM WILL BE SKIPPED')('0ON PARAMR CARD BOTH PEND AND TEND ARE EQUAL ZERO. '/' THIS PROBLEM POSITIONS THE BRI TAPE ONLY.')('1')(' BMDX92 - JET SPEED SPECTRUM ESTIMATION - REVISED ','JULY 29, 1968'/1X,5X,40HHEALTH SCIENCES COMPUTING FACILITY, UCLA//1H0,12HPROBLEM CODE,36X,A6,/1X,5X,16HNUMBER OF SERIES,27X,I6,/6X,'NUMBER OF SERIES TO BE ANALYZED'12X,I6,/1X,5X,25HNUMBER OF FREQUENCY BANDS,18X,I6)('0',5X,'NUMBER OF SCANS READ',23X,I6/6X,'NUMBER OF SCANS AFTER DECIMATION',11X,I6)(1H0//4(15X,17A4/))(1H0//)(1X,5X,13HSAMPLING RATE,24X,F12.5)(1H0,5X,27HPREFILTERING OF EACH SERIES,16X,3X,A3)(1X,10X,15HDECIMATION RATE,23X,I6/1X,10X,28HHALF LENGTH OF THE PREFILTER,10X,I6/1X,10X,31HGRAPH OF THE FREQUENCY RESPONSE/1X,10X,27H  FUNCTION OF THE PREFILTER,11X,3X,A3)('0THE ORMSBY FILTER SPECIFIED WAS'/5X,' Y VALUES'11F8.4)(5X,' X VALUES'11F8.4)(10X,'THE X VALUES HAVE BEEN DIVIDED BY THE SAMPLING RATE')(1H0,5X,36HGRAPHS OF POWER VERSUS FREQUENCY FOR/1X,5X,13H  AUTOSPECTRA,30X,3X,A3/1X,5X,35HGRAPHS OF LOGARITHM OF POWER VERSUS/1X,5X,27H  FREQUENCY FOR AUTOSPECTRA,16X,3X,A3/1X,5X,36HMATRICES OF CROSS SPECTRA IN COMPLEX/1X,5X,'  FORM WRITTEN ON FORTRAN TAPE',I3,/1X,5X,'  USING FORMAT (30A4)',23X,A3,/1X,5X,32HGRAPH OF THE FREQUENCY WINDOW OF/1X,5X,30H  THE POWER SPECTRUM ESTIMATES,13X,3X,A3)('0     THE ANALYZED SERIES NAMES ARE'/(15X,8A12))('0     THE SCALING FACTORS FOR EACH SERIES ARE'/(15X,12F7.3))(1H0,5X,19HINPUT IS FROM CARDS)(1X,10X,29HNUMBER OF SCANS TO BE SKIPPED/1X,10X,24H  BEFORE ANALYSIS BEGINS,14X,I6)(11X,'NUMBER OF VARIABLE FORMAT CARDS FOR INPUT',7X,I6)(1H0,5X,22HINPUT IS FROM BCD TAPE/1X,10X,27HINPUT TAPE (FORTRAN NUMBER),11X,I6/1X,10X,33HINPUT TAPE REWOUND BEFORE READING,5X,3X,A3)(1H0,5X,35HINPUT IS FROM TAPE DIGITIZED AT DPL)(1X,10X,40HDPL TAPE FORMAT IS ASSUMED FOR THE INPUT/1X,10X,35H  TAPE, SO NO FORMAT CARDS ARE READ)(11X,'LONG = ',I3,'  BCODE = ',I5,'  HCODE = ',I5,'  LENGTH = ',I3/11X,'BPULSE = ',I3,'  HPULSE = ',I5,'  EXPNO = ',I3,'  FILE = ',A4,A2/11X,'PSTART = ',I3,'  PEND = ',I3,'  TSTART = ',F7.3,'  TEND = ',F7.3/11X,'IDAY = ',I3,'  IHR = ',I2,'  IMIN = ',I2,'  ISEC = ',I2,'  LBUNIT = ',I2,'  LBTAPE = ',A6)('0VARIABLE',A6,' FORMAT IS'/(5X,18A4))(1X,10X,'LOGICAL TAPE FOR OUTPUT OF FILTERED DATA',7X,I3)(1X,10X,'NUMBER OF VARIABLE FORMAT CARDS FOR OUTPUT OF ''FILTERED DATA',5X,I3)('1THE SPACE TO STORE THE DATA IS GREATER THAN 'I8,'WORDS'/'0THE FIRST STORAGE LOCATION FOR THE DATA IS'I8,/'0THE NUMBER OF CHANNELS IS 'I4,5X,'  AND THE NUMBER OF SCANS IS'I6/'0THE NEXT PROBLEM WILL BE TRIED')('0ORMSBY FILTER SPECIFIED ON PROBLM CARD.BUT NUMBER OF ''POINTS TO SPECIFY FILTER IS ZERO.'/' PROBLEM OMITTED.')p1: 0~{`~(@|-1BMDX92    + -<82 $D D> <# ,81 $ DD@dE DxOfw D9 Dm 
!& Fx*d @f:*d $ DI3Do2Fo+! <#!,, 72D+  <#,7@ <#,8K7d}+) <#$, <#&, <#),
 <#,, <#/, <#2,
+- <#<, <#?,
3Do2Fo7+3Dt2Fu7+2 <#I, <#L,
+)@dy3$7+5 & F7 Z F4 ~ H5  H42D9+: ( H9 2H7+< * J7:
} 
3Jr+?l3L H4 43H+D D= ( H4 D5 F F5 <#M, <#P,
 <#S, <#V, <#Y,
 <#\,3Dt2Fu7+ u3D
2F
7+ 3Dl2Fl7+ 3D
2F7+ $3Ds2Ft7+ 53D{2F|7+ i3Dv2Fv7+ F3Dn2Fn7+ O3D	2F
7+ X3Do2Fo7+ u3D2F7+ ` (2H8+g (2H=+g <#^, <#a,
 ( Hy+D $ D $	$8 D97f8+s <#d,"9 $ Fz D	 	 <#g,
:	; z+n, $ DA+t $ DA $	$= DE7f=+  &.9 F	.9 D} <#i,/&/} 	 Fx D	 	 <#l,
:	; x+|, 70D+D@d}+ uo+ u $ D| <#m, <#p,
63Dr+6d5+4 D+D 1$+  <#u,,+D6d+  
r,:f HI*d @d (..$ D	.$ D}: <#x, <#{,
 	/&/} 	 Fw D	 	 <#|,
:	; w+  ,+D $ D~ <#~, _DwZD	 	( <$,
:	; w+ (, $2$2+D <$, &/2 $ Fu D	 	( <$,
:	; u+ 1,+D $ D~ <$, 
_DZD	 	( <$
,
:	; + 9, $2$2+D <$, &/2 $ F D	 	( <$,
:	; + B,+D $ DZ <$, <$,
 : D8 $2D1+ M & F12D2+ O & F2+D $ Dk <$, <$",
 
_DZD	 	 <$#,
:	; + T,+D $ Dk <$%, <$(,
 
_DZD	 	 <$),
:	; + \,+D <$+, <$.,
 : D8 $2D1+ f & F12D2+ h & F2 <#,7@+D <$:,"2 $ F D	 	 <$=,
:	; + l, $ Dp"2 $6Hx+ t!( Hx.$8& r+D $3Dy+ 42F+ z &3F|+! 2Fr+! &3Fk+! &3Fk+! &3Fk2Dk+!+! &3Fk+!
60+(3(0f+!+! & F0>07F*+!:01f+#,$,Dk+k1D+!"0+$#$:"H$.$8&!~+!  72F+!B <$D,,+ f2d2 2 Df $3D~+!H D~@df Df Dg"2 $ (
 E3Lq2Nq7+!6
 E3L2N7+!6
 E3Lm2Nm7+!6
 E3Lr2Ns7+!6 ( Hg.hf( 
(

0E
 E+!>@hg ( E3Hq2Jq+!; Df+!> ( E3H2J+!> Dg.$8&!'6Dg+!H f Dg+!H"2 $ Dg ( 
Z .
 E.$8&!C 2 Df 72D+!L Z1D+!L <$G,,6d+!Q 73D+!Q <$J,,+ $ Dy y( Dy3$3+!R D3 72D+!^ $2D5+!Z6D6+!Z <$M,,@d06D5+!^ 6:D D0d2D+!a 41$ $ D4 53D+!d Z D5 $3D0+!p"5(/&.0&4.& F< D: $ D<:: <( D<3$<+!j7 .$(2d3 3 D3 <$P,, <$S, <$V,
7D0+!w <$Y, <$\,
7dp+"(.p DY <$^,"Y $ F D	 	 <$a,
:	;$+!|,,<$c,, :2$
 <$j, <$m,
 42D+" <$o, <$r,
 2Dr+" <$t,"0 $ F D	 	 <$w,
:	; +", <$y,"0 $ F D	 	 <$|,
:	; +", <$},, Z D6 &2&>+"  H6 2H; D;3H;+"" Z D;3H6+"$ Z D6 <%, <%,
 81$ $ D82&~+"0 <%,"
f$J <%
,
:	; $2$p+"8 <%,"2 $ F
 D	 	 <%,
:	; 
+"5, 3D7+"Q $3$7+"< $ D7 81$ $ D8 70D+"F <%,, <%, <%,
 <%, <%,
+"W 3D+"H  D <%, <%,
 2D+"M <%!, <%#, <%&,
 <%(, <%+,
+"W@d8 <%,,, <%/,, <%2, <%5,
7d8+"_ <%@, <%C,
"9 $ F D	 	 <%E,
:	; +"\,7d=+"p <%F, <%I,
 <%K, <%N,
 $.9 D	 9.E F} <%O, <%R,
 	/&/} 	 F D	 	 <%T,
:	; +"l, <#,7O E2d>+#
 2$<.?2d>+#
 ? $ D @ $ D @ $ D ? $ D @ $ D B $ D <#,&Q7$m+5d C & F C & F D & F D & F <#,+ 62D+#
 <#,6++ <%U, <%X,
 $ Dy+ <%[,, $ Dy+D <#,
p<PB				(?				AA		p	x
`X00$0$2$3(:((;(;(6$7(7($8$>$:$8$9X00$0$2$3(:((;(;(6$7(7($8$>$:$8$9X0X 0@	
`X0@	
`X%0@	
X-(XA-(X.0$4$5$0(5$=$=X0
X:0(IX<0EX<0EX=0EX=0EX>0$1$1$2$2$3$3$4$4$5(5(6$6$7$7$809$l$l@0XC0($XC0(*X>0$1$1$2$2$3$3$4$4$5(5(6$6$7$7$809$l$l@0XD(xXF
XR
X_	XhXp
Xz
XX0$2$f$3X $0$<X((IX*X+(:X/(X4$4$5(5XE(*XK($XMXS'(;(;$>(6(6X{0EX(xXX
$8X$8X
$8X$8X%X*
X4$1$1$2$2$3$3$4@0$4$5(5(6$6$7$7$8$:09XS0(XW$=X]$=XS0
(Xe$>$?$2$<XzYES&h Y~k('0NUMBER OF SCANS READ FOR THIS PROBLEM WAS',I5)('0MAXIMUM NUMBER OF SCANS (',I5,') HAVE BEEN READ FOR THISPROBLEM BEFORE STOP CONDITION ENCOUNTERED.'/' REST OF DATA ARE IGNORED.')('1THE NO. OF BANDS SPECIFIED',I5,5X,'FOR THIS PROBLEM IS GREATER THAN',I5,'/4. THE RESULTS MAY BE IN ERROR')(35H0PROBLEM EXCEEDS AVAILABLE STORAGE.)('0FILTERED DATA WRITTEN ON UNIT',I3/' NUMBER OF SERIES ',I2,', NUMBER OF SCANS ',I5)('0READING TERMINATED. PICKUP SET ICODE = ',I8)('0END FILE FOUND ON POSITIONING INPUT TAPE. PROBLEM OMITTED.')('0ERROR ON INPUT TAPE. PROBLEM OMITTED.')S;] \&M p @%c !p @%k !p @& !p @%j !p @%a !p @& !p @& p @&
.
%_.
%a 
/J'.$8&&n52D%`+'"&.& J .$8&&u $.5 D%a"%a $ 5. H%l 
&.
&.
.%a 
'L(.$8&&}"5&$%&
.
%a 
/J(.$8&'%&.&&$&D&N&&(.&)$2D&N<),,0J7$&8+')3D%`+'$"8 $ D& <)=,"2 $ F%o D% 
&$
%.
&	 <)@,
:%; %o+',:&8('+') <)#,7@ $3$%i+) 2D5+')7F6+)"%c $ F%o D&"2 $ &$.&.&	@j .$8&',:&; %o+'+ 42D%`+'e $ D%c D%"1 $ F& D%l 73D%`+'D <)A,"2 $ F& D% %.& <)D,
:%; &+':,"f $ %q H%n 
.
&.& 
' L/.$8&'?+'H <)#,7@ $2Dm+)3$%b+'` %c D& % D&"f $ &$.&.&	 
&.
%a 
.
& 
7
/L .$8&'K:&2d<+'T"4.f&5f'J:%3d9+'W"4.F%:%c:%l; &+'6 f D27D0+'] <)F, <)I,
+( <)J, <)M,
+(0+'b"$.%c D<3f+D27`0+("2 $ F& D% %.& <)R,
:%; &+'m,"f $ %q H%n 
&$
.
&.
&	.& 
' L(.$8&'r+( <)#,7@ $2Dm+)3$%b+(
"f $ &$.&.&	 
.
& 
/ J .$8&'|:&; &+'h f D27D0+( <)S, <)V,
+( <)X, <)[,
+( D< f D26d0+(@d: $ D< <2$<+(::( D<+(7$<.$( D%b2$3+( <)\, <),
 32f%b %b F3.& 2(/($ H%h3h<+(+ 
3.* 2(/&$/<$ F%m 
3.,(
& F%m 3.( 2($.&.f%m3f1+(+ <)a,, <)#,8K7D=+(9 <)d,"< $ F& D&"2 $ F& D% &$%.&.&	 <)g,
:%; &+(1:&; &+(/, <)i, <)l,
 <3D<+(E.$ D&
"</&.&
 &
 F& D&"2 $ &$.&.&	@j .$8&(@:&; &+(?d< D&$D D%~ &F& &$&$@ D&
"2 $ F& D%@d%p D%`"< $ D& &$%.&.&	 D%p &$%.&.&	h&H%`:&8&(P %p& D%k &%~"

%~
&
"%` D%d"< $ D&d&%~%d%k D%j &$%.&.&	"D :&8&(`:%; &+(N <&$ D&d D&"& $ F%g D&d D%i$ D%n%g& D&N <)(,:H" @ @& $.</& D%l"2 $ &$.&.&	 
&J  &$.%l.&	J .$8&(v:&; %g+(l 23D2+)"< $ 2$&..&	@j .$8&) <)$,/	"&D&& D&d< D%lf3 F%fF D%m$3&!& F& $.3( D%} &.2$27 .&( F&$& D%^"%^ $ .%k 
&J'.$8&)+)  <)n, <)q,
+)  <)s,,Odm+)  <)v,,+) &M %c Ap %h Ap,~H	%k	&<%c23:x&NX	&N&	%f:&h	&N	&N%hP	&N5%*0&h45	%a@&O&
	&&	&O%c&&O@&O&	&&&O&7'`)	%j(X&$0X&
)	%j(X&$0X&=	%~(X&5$=$2$<X&=$mX&BX&IYES   Y~j     COH  PHA  SE   FREQ AMP  ('0CASE WILL BE WRITTEN IN MERGE FORMAT ON TAPE 'A6,' ON LOGICAL',I3,'.'/' ID VECTOR IS'/' ',22I4,I7,7I4)(1H1,20X,27HAUTOSPECTRA FOR EACH SERIES,10X,F9.2,1X,18HDEGREES OF FREEDOM)(1H0,/1X,57HTABLE OF THE POWER AT EACH FREQUENCY BAND FOR EACH SERIES)('0'/'    FREQ',3X,13A9)(1X,F8.3,13F9.2)(1H1,20X,32HCROSS SPECTRA BETWEEN THE SERIES,10X,F9.2,1X,18HDEGREES OF FREEDOM)(/10X,5(8X,A8,'/',6X))(10X,5(11X,A8,4X))(3X,A4,2X,5(5X,A3,3X,A3,A2,3X,A3,1X))(1X,F8.3,5(F10.3,1X,F6.1,1X,F5.3))(30A4)~x	~xW&
l J< 
l J<D D=.h=D: D> 2 D>Od? 4 D? 4 D@D5 DA 5 DA!$H6D DB 
3(
j 3"$.*dD DC 3(h 3$zD DC FD@dD DE 6 DE &2$7 $'$7..8 DF $ DF 4 DG <.', <.*,
 $d D*"* $ .*1 
*J'.$8&+: $/ D*
(
 
(E*J  *
(
 
(EJ'+(.H*.*1 I H*d+H $X D*
"* $ F* D*G *G.*1 <.3,
:*G;*++S,@d* $ D*
0<.9,,"2$F*,D*G *
:5; *++g,"* $ F* D5 3(h/$d3 D)y7f:++v 50&++v:E:*.*1 D"*
*".*$
*"7 .*(
 *"/($2.*". H*$*F 
5(
.
.
*F 
/ J*H 
*$
*F 5(..*F   H* 
*" 0x

 J+ <.!,9a @**7h:+, 50(+,:*.*1 
**J J'.$8&+w <.@, <.C,
"* F*D D* * <.E,
:*; *D+,,:5;$*++m $,D* <.H,
"* $ F*C D*G *G.*1 <.L,
:*G; *C+,!, )z ;3F+,) ;2F+,P"2 $ F*B D*G"* $ D5 (/*G$*G7 .(("$.*G$2.*G. D*$*F 5(..*F ' H*H 
*$
*F 5(..*F 
 J* 5.*
*H+*<.,9a*@:58&,,*;2D)z+,H"* $ D5 5.* 5.* (' H+ <.,: @:58&,B ;2D)z+,K $ D*L <.,2j ;2D)z+,O $ D*L <.,2j:*G; *B+,+ $3D2+-`@f; D*
"&/2.*
 *
 F*@ D*(*(
 E
)z**2*(E*1+*f:*
 <.R,"*5 5( <.U,
:5;F)y+,k,(<.V,"*
:5; *N+,r, <.[, <.^,
"* F*M D5 <.,
:5; *M+,z,@d* DE"* $ F*L D5 3(h/$d3 D)y 5 :0h1F+-
0&+-
:*.*1 D:E"*
*".*$
*"7 .*(
 *"/($2.*. H*"
*".,$
*"7 .,(
 
*"/*$
2.
*".
 J*"
*.,$
*7 .,(
 
*/*$
2.
*.
 J*$*F 
5(
.
.
*F 
/ J*H 
*$
*F 5(..*F   H*

 J+ <.,9a @**6H*+-*7H*H+-- <.,9/ 4* @*+--@h* 5( 
*F$
*.
.
*F 
*F$
*.
.
*F 
7
/ L+ <.,9a @*K5@-77H**+-9 ***K H*+-9@h* * 
*" 
(x
 xJ** 5 
:0j1H+-G0(+-G *.*1 
**J J  *.*1 
* J  *.*1 
* J  (.H*.$8&- <.c, <.f,
"* F*J D* * <.g,
:*;$*J+-L,:5;<*L+- *l,
"* $ F*J D5 5.*1 <.o,
:5; *J+-Y,:*; *@+,Z:*G; *A+,V 62D)z+. $.3( D*I &.2 F* 2( F*!"*I.&7 .&(/& $ F*I D)z"2 $ F* D*G@f*
/$1D*)+*G/2 F* */.h*
*
.
*?$*F.)z.*F 
  L/:*
.*? 
*
*F.
)z.
*F"
(J'.$8&-s"*G.*.D*
.*? 
*F$
*
)z.
*F 
( J':*
.*? 
*F$
*
)z.
*F 
(J':*.q,"*! $ F*
 D* *.*? <.t,
:*; *
+.:*G; *+-m $.d)z; *I+-k +,~x+p**Hx+X	**G*3*LX	**G*3*Lx	+x+x+@+*G	**F+*2*F+X*O
09$:@;h:$I@;$*(X*Y(*EX*aX*h0)zX*j()y(**h:$I@;$*(X*l(*EX*t0)zX*w0*1X*y(*H(*N@*C(*@X*}()y(**(*(*h:$I@;$*(X>+(iJ
/$
/../ 
.
.
/ 
0
  L.u /$/ 
.
.
/ .x../ 8( N/ /$/ 
.
.
/ .x../ @P( (./$/ 
.
.
/ .x../ @P( /$/..x./ L  (./$/..x./ N .$8&/' $.d/; /+/& .v( .w& D..$ D.w"../ D.z .( D.y $ D/".~ $ F. D/"&/.~./ / F.} D.{ /..y$/./ /$/./   H /..y@f &/.w $ (..w/ H.z 
/.
.y 
/$
/ /$.{../ .z../ @  ../ ../ @ PP/.$8&/\ $.D/ .w/.z&.y/& .w F.| D.~ /..y@h /..y H..y D/ .~/&// .~ (..w/ H.z 
/.
.y 
/$
/ /$.{ ../ ../ H@../ .z../ @ P/ /..y 
/$
/ 
/$
.{ .z../ ../ @8 ../ .z../"H8R .$8&/u $.D/ .y.d.~; .|+/o /..y /$.{././ /$/././   H /..y@f $.//. D/"&//./ / (..w/ H.z 
/.
.y 
/$
/ /$.{../ .z../ @  ../ ../ @ PP/.$8&0 $.D/:.{; .}+/T:/; .+/Q /,~h	/	/.z@//	.x//.v// y~jM@ \0G !p @0C !p @0< p @0> <1%,9t @0:"0> $ F0B D0D"0D.0> F0H <1$,9t @0@ 0@( F0Ef 0I H0A <1#,:H @0F <1",:K @0=!& F0C@f0="0@ $ F0B D0E 0E/0:&0E/& 0E 0@. H0;.0C 
.
0C 
/
' J0< 0;.0< 
.
0< 
7
' L0G 0;.0C .0C ?' N0: 0;.0< .0< G' P0D 0;.0C"0=0C N' 0;.0< 0:0= 0D0C N' .0C J' .0< L'.0E8&0a"0=0= 0F0C D0? 0=0C 0F0= F0= D0C:0E; 0B+0^:0D; 0B+0Q $ D0?7$0:.$( D0F"$.0: D0@"0@ $2$0?+1 0?.0C ' H0> 
0?.
0C 
.
0C 
7 L/ 
.
0C H/ 0?.0< ' H0; 
0?.
0< 
.
0< 
7 L/ 
.
0< H/ 0F H0; 0;2(0?+1".H0?7(0;.(( H0;+1 0;.H0?.$8&1
 0G,~x0Ax0Ap0I0Hp0I0> Y~kOv} \1. p @1* p @1- #p B1'4@1X 1-&1*/$d D1)$ D1)d1- D1'"1- $h H1* *.
1-.
 J1, 1'N1(1' H1. <1],:H  @1(.
1' 
1'L 1*1( H1. <1\,:K @ 1(1)1*1' H1/ <1[,:K 1( H/.$8&1:"1- $ (.1-/ H1, *.
1-.
 J1,.1'.
1' 
/ L'.$8&1N 1-.1' 1)1' F+1Z 1'!& F 1.,~x1/x1.x1. y~jOtk \1g !p @1` p @1a #p B1d #p B1` p B1e %p D1_ 1a.$ D1_ 1e.$ D1e"1e.& $ .1` 
.
1d 
.
1_ // '' N7.$8&1t 1_@f.1e F &/1_ $ F1c D1f/$d1a D1^1^ D1f 1f.1`@f &/1e $ 1f.1` 
.
1_ 
/
/ .1d ?1^ N1g <21,:H

1fL'.$8&2 1f.1` 1e.1` 1e.1d '1^ H1g <20,:K  1` 
1d 
(
1^ J1h <2/,:K"1^@ @:1f; 1c+2 1d 1`" 1e.1d 1e.1` 'H H1^ &/1e $ .1` 
.
1d //"
'
'
L1^.$8&2& 1` 1^ F 1g,~x1hx1gx1g(1H1,47HGRAPH OF THE POWER AT EACH FREQUENCY FOR SERIES,1X,A4//1H0,9HFREQUENCY,51X,5HPOWER)(1H1,61HGRAPH OF THE FREQUENCY WINDOW OF THE POWER SPECTRUM ESTIMATES//1H0,9HFREQUENCY,51X,5HPOWER)(1H1,64HGRAPH OF THE LOGARITHM OF THE POWER AT EACH FREQUENCY FOR SERIES,1X,A4//1H0,'FREQUENCY',41X,'LOGARITHM OF THE POWER')(1H1,57HGRAPH OF THE FREQUENCY RESPONSE FUNCTION OF THE PREFILTER//1H0,9HFREQUENCY,51X,5HPOWER)!T=8)9Lf3 23Ma2~D  \2g !p @23 p @2; p @27 p @27 p @2< <3>,:q 2:  F28 F2< &/27 $ 2:.  3h28+2y 2:.   H28 2:.  2(2<+2} 2:.   H2<.$8&2t 2<0D1D+3 <3<,3Vd232h D24@d2= 2<0D+3 <3B, 2;( <3E,
0D+3
 <3F,,0D+3
 & F2< <38,4U+3. 282<2i D29 <36,3Vd25 D25 2i2;25 D26 2<26F F22f F2222 D26 263$2<+3!$}d2226 D26+3 2i2522 D2= 2h25 D24#2=3d2h+3$ 2iD2=D24!$	 D2;+3 2<0D+3( <3I, 2;( <3L,
0D+3+ <3N,,0D+3- & F2< <32,4U 2g 27 Ap 27 Ap 2< Ap,~H	2327272=242;2<h292;25H	2327272=24242<h282423P2g2:	232:2g27X2=	0EX2G
X2Q
0EX2]	89Lf3e?-i p @3S p @3T p @3Q!$	  D3R!$ D3T 3S 3T3&2d3R+3^+3c2$3R+3a 3UF3RF3T+3[!$	 D3RD3T+3[ 3UZD3Tf3T F3Q3T F3S 3T H3Q3f3S*d3d 3T Ap 3Q Ap,~                           MU LTIP LY E ACH  POWE R BY       MUL TIPL Y EA CH L OGAR ITHM  OF  THE  POWE R BY      *    (1H0,45X,11A4,1X,1PE8.1)(1H0,45X,11A4,1X,F7.0)(1H0,45X,11A4,1X,F7.4)(1H0,3X,11F10.4)(1H0,9X,10(10H+.........),1H+)(1X,9X,1H.,99X,1H./1X,9X,1H.,99X,1H.)(1X)(1X,F8.3,1X,A1,100A1,2X,1PE10.2)y`$~B (0 Z8]OJ
 \4P !p @3m p @3p p @3r p @4; p @3m p @4 p @4: <5D,:q"$.3p D3l 4Q 3o F4*d4_ 3o D3l 4;4 D3n 3m4 D4: 42d4R+4h2d4S+4p2d4T+4x <5H, 4R_D3~ZD3 $$4:.3 <5K,
:3; 3~+4k <5L,
+5 <5N, 4R_D3sZD3 $$4:.3 <5Q,
:3; 3s+4s <5R,
+5 <5T, 4R_D3rZD3 $$4:.3 <5W,
:3; 3r+4{ <5X,
 4SZD48 48h48(	 3m4; H4*d5 <5Z, <5],
 <5`,, <5c,, <5f,,"3p $ 
3l(
j"&.f3r F3k 49. 3n4:&F F3n0&0f2+5 
4 J45F5 
4 J3l <5i, 
49.
 <5l,
0&0f2+5 
3o J4 
3o J3l.$8(5
 <5p,, <5s,, <5v,, <5y,, <5|, <5,
 42d4R+5+2d4S+532d4T+5; <6, 4R_D3pZD3 $$4:.3 <6,
:3; 3p+5. <6,
+5C <6, 4R_D3oZD3 $$4:.3 <6,
:3; 3o+56 <6
,
+5C <6, 4R_D4ZD3 $$4:.3 <6,
:3; 4+5> <6,
 4P,~P4P49	3m494P3pX4;(3m(4X4>(3m(4X4@(3m(4X4C(4;@4X4EX4HX4LX4L(3k(3l@24((X4LX4HX4EX4LX4C(4;@4X4;(3m(4X4>(3m(4X4@(3m(4 Yto:& \6( p @6( !p @6& <7',:q"< $ 6"(..6#@j .$8&60 <&$ D6'd D6!"6' $ (.</ H6j J6* J6 
6#.
6".

6
6! J6) <7&,:H" @ @0 
6#.
6". 
.
 
0 L .$8&67 <3D<+6M.$ D6%"</&.6% 6% 6#.6".@j .$8&6J $.6' D6  </6' F6 6 /&/6 6  6#.6".!* J .$8&6R 6#.6" $ D6) 6"(.6# $ D6) <7$,0J"< $ 6#.6". 
6"(
.
.
6# 
(
 
 

 J .$8&6\"< $ 6"(..6#@j .$8&6d 3( <& D4(.4 D67&<.&( F62d6 6 D6 3( <& F67 .&( F6 6.& F6 &.</6 F6"6 $ F6 D6# 6 D6"6 $ 6"(.6#.6# 
6#.
6".
6 
(J :6 (.<2H6+7 ( H6.$8&6{:6 $.<2D6+7 $ D6:6#; 6+6yd< D6&"6!D6!6& D6"d< D6f3 F6F D6$36"!& F6%"6 $ 6"(..6# 
6%J7.$8&7f6d63 D6$$D6'6"(.6#$&D6)<7!,2j6(,~X	6)6$666'h	6)	6):x6)@6*6$	6&6#6*6(6"6*('0INPUTKTAPE?WASSPECIFIED7ASUCLADBRI/DPL0DIGITIZED7TAPE.'/'7FORINFORMATION2ONTHISKINDOF.INPUT,PLEASEWRITE$TOTHEUCLAHEALTHSCIENCESCOMPUTINGFACILITY.''$THEPROGRAMHASBEENTERMINATED.')a?\7?<7F,,D<7E,8K7?,~X7+YESE.E DA 52D7I+8 5( D7M@dA A( DA:A3$7M+8 $.3( DB &.f$f7 .&( F7M$7M D7I.$ DC 7I.$ DC ;2D7I+8 &.3.FC &2&:+8 (.3.C HD 7I.( HD F7L F7L2D7I+8" &.3.F7L 7I2F;+8% (.3.H7L7h:+8* *3*3 
3(
 (d3( .h7L2F6+8- 2( H7L 7L3(7L 7L.7I HE 7N,~kN
y1,~	`Z(X^. >X.~(3~+86	~+8BZ. \x <x*<x .ez+8=!"	b+  "8?	b+Z`.Z. h+ggM?}
&8D	b+82,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>:}O@9+8MgR~@1,>:}@@9,>,>@6 w+8Y"90B+8U!"A`X#p5@8R/#p!"X#p+8Y\p+8Ya.9'1,>:},>,>O@9+8Y,>
6+ _4`8b"`Q@,> <9,,^,> <9,
,^*b8_+8l,> <9
,,^7@9+8g,> <9,
,^+8i,> <9,
,^Z5"8l,> <9,
,^,7@9,
,> <9,,^,,> <9,,^,> <9,
,^(@qd1@,,
1@#+8{0@*+8m,>9<9,,^+8m,^,^,^,~(',Type6Gto,Continue,Xto,Exit,T9To~trace.'/2H*,$)(A1)(1H14A5/)(1H`A5,1X,O6)PAUSESTOP.pX9pX9p9pj9p}X8}X~9pxC61,>:},9',~[B1,>:},9',~[B1,>:},9'@,~C61,>:},9'`,~,>e|Pw+9)3!p p*|9)a|+9- ph" ab~+9),^,~CR
9o#p+9c  ,~>attempt to take SQRT of negative argKc@ p p+9KcK  ,9 @,~KcJ  ,9 @,~KcI  ,9 @,~KcH4B:5@:5":+D8C0
:U ,~4":,> $ D:5`:aB+:L@:+:$+":
(BdB$+":
5b: ,^,~,:6 :+:"`/ +:  ,~aB#`0@3@:,~  ,~C2|t(1,>:} p4@:1 @:,> <:<,:,^:,~{e^bC2|p1,>:} p5`: 4@:1+P8C0:<#p3@:4+:32 :9+:%3`:9+:%@@:: :4:4+:+)r. !:::8 @::(|h":5 :5 B:; :6:6:7:7:;::,~+D8C0
:2::8,~,~0i/X36P'Ms!hhyI^:*VhP:`@:6P'MP'M]oxx:Attempt to:takelog*ofnegativesargG?@1,>:}p:c:d++:Mg&t@1,>:}p:d+ +:MG?1,>:} p:d+:Mg&p1,>:} p B:c#`3b:b+: D:e:d3b:e+:W%"(D?d$ "@($)B
A:o,~(`jmH+:n"
K:p,~",~`CR@1,>:},>,> p  p  Ep<b:y $Ep$ E. .&+:u".!p Ap $Ep,^,^,~:~Y\:Q<X\;*+6;6`;S	YVBG9;G9:
GJ:}GK/K:}UexhUc*4ZYYX:o	0:f:d7):a7(:a7':`7&:`J:e5u::5b:^E:WE:M
f:K|:YXpX2:
~dK:k.J:YFG:k.J:
k.I:k.I:	S	YVBSo&B.'9v.&9y.%9|.$9	WFz9tRMSQ,X:~I| 9sG
9nae9cTvF9kaZ9gaY9faj9aP3?K~9`B9899^DA9GDR9FI;9YI:9W]9Z]9ZDR|p9E%9z9=;-99DpX29CpX19C
4N9/4N}P9.9-%9)%9)-@9'P)yP)GS	YVBPU7
cz9
cf9$-@}P9koYUlrBKYX<:8K
Y]@9
Y?8M
\!88{-^8Y{-X8U{-O8g{-N8{{-N8l{-M8i{-M8bVBSo&BTE)|8H\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"8C
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz82)	G81[81	qG81ZzR81ZzR 81WM8&17\&E7^`BU7a`Bi7c`B}7{G8/[7Oo7k88+8"7f?8%VA7wS8*
_8-Vi8	qG7N
]9@K
L:H=R,N2XH7MxJyC"RZ7M{A
&rD9vr6IcsC+]C7L%vYBh7S;J0&a@5fY)7[kJN<+]C7L^<+&9zJA7KTG5a,|qB7 rTo9aoA-ETRD;p2R3Hiz4
=0K7NmP?f(P@N:%]9DT~6QzF+]A7K E4be? u:h8X;9l+]A7Jf(Q%Ah>zJ+]B7J0C90/C>zJN?f3n<S>C6JN1X9#9l+]B1)&gpgT9<;]7IW6S(8aoA97IG.N7OG.Nu7N
a7+37EG7C[7Ao7F	qG7+0K7?!B+7@!B+~p7@h056)h046)	iM6J
_7$	i96M
s6\	qG6([kK6(K
L:H=
6'R,N2l[$6'gn6&1P{D6&9vr66%Q#8@6%w046$J0	6$w056#}6#4DSb6"w056"5PH6!6!&A	6 fY)7[kJN<^<+&9TG57TRD;P46 P56yc6P56P66p2R3Hiz4
=P66P76P760K6((P@N:,G6~6CJN64h80'96f}6QG6~69Q66gf60C96f3n<S>C6JN1rI6+]B1T9<;W6S(84DR6+4DRs6+u4;
5R&64H'5T'5=)4L;4z+5>O4{,6c5W,'6w5X5535Z5]35`G5c[5fo5
5Q55e4h+5y4p34m?5i8g5p54`5@{5sI5 5v]5+?5C #5yq53S4\ 75|5;
_5D K55C
s4pP86	qG4;+4;l[$4:pmz!4:w0449w0549}488m4:*4PH4sJ49N74}3P43P53~N,3sP53sP63rR3rP63qP73qP73p0K4P,
g0q4U
g0qqP4T3[)3c=3aQ3he3hG3h[3Yo3^3d3d	qG3UP9$3T}3T"[3S9N73SP8Q3RP43R
~73Qf}3Q=oG3V=oG}03V
I3
383I3L2Q3+'3N;3-+2}?3S3<
_3a2=
s3B	qG2=+2=l[$2<fh2<P9$2;	2;w042:w052:}29"[29P428eM28R270K2g,
N725
~725	L24f7z!24Qs23%V923d}v22b}v22)&gpg<y2j<ywp2jh051hh041g51tI2]2q2&G2-[1po1t12+2?21S20
_2/
s2&	qG1gg1f	1f1e91e1dP41dP51cP51cP61b0K1g
1bp1a1`	1`1/41.1X)1B=1RG1Z[14o1:1]1\+1[?1N	qG1.1-
1-^^	1,^^	1,P41+P51+0K1.1*1*J1)g.1)1(v1(K1'S1'(I310(I3| 10h040H
I0y]1q11G1 [0No1%0Q0Q+1$?1#S1"
_0^
s0^	qG0GF0Go0F0F
6M'0E	0E0DF0D0C0CP40BP50BP50AI0AP60@&M0@0K0G{0?
0?70>0>0=0=0<20<
0;K0;
0:20:i30Ji3yp0Jh05/h04///+03?/%S/&
_/'
s/P	qG/o/Y/*M/w04/	/w05/w05//PH/P4/*h/P5/P5/g.P6..~p.~P6.}P7.}P7.|0K/(P@N.|P8.{
.{.zrOM.z[u?y.y
.xrPh.w
.wzJN.vf.vY.uN/	Nwp/	h04+u*t8i.+L&k. ?/->.-&,B?C.c
a,'./',B?W.f
u+d9%-})+;+R+.?k-K99-xO+S,.?-L%a+Wc.3,'.@.g4+:23,k{-m.?2G,k{s-sQ+N+m2[.U.e--++m2o.Vs.q3+Uy--?+t3,r.
zU*YG+ir.+.Y/.to,#5-`S,
3?.[{*j,m{E-
g.@3S.^5,H,t{.C8?,z,A*OI,B+,{ ,8S,z?-M #,8g._S-[ 7.E8{-
_. K.F9- _.H9#-	qG*OK
L:H=P]*NR,N2H9*NXH*MP]*MP^*Ll[$*LP^*K*KP0*JP*J9vr6 *EPH*E&ER8PI*D"QO2}+*CPI*CPJ*BPJ*BfY)7[kJN<	WJ,4PK*APK*APL*@U*@^<+&9M?.*?nJe5yV7
Ix3*2TG5a,|q*27D?1TRD; rTo9P4*1eq=*1g**P5**z-*)5(t3P5*)p?2*"P6*"*!p2R3Hiz4
=*P6**P7*Gft3P7*0K+(P@N:mP?f,
*QzFUJ*kG**4M*
)9h8*,1*0<	*X;9lf& h7SxQs**/6* 03EG5h>zJ*Pp*Pq*
*q*

*
0C9%*f31EzFzi*
X9#9l*
ve4+]B1T9<;{h3){)&gpg])zC)zN)yW6S(8%g-6P\)y
u^c;+u^c;ZP+h05&Nh04&NV}&w&12q(E

&53U(|e(8A({&W)\
a&c9')')d+(.l6a'@O',(/c)@,'(0w'',;(1'),O)gtU','*,c)i&1(3'+,w)lt}'J&E(',-(>u'Kxo(3'!?'K3(`G'<{	'bS)F3(ln*A']['oa&=?)I3+(ln*U&o(5S)J3?)(	)n*i&&(4g)M3S(v&B)#{'h8?)1)+)  'h8S)$?&\ #)O8g)VA&nY)S)8 7'l8{)nVU&s2I'#m&I
_)4 K'm9)q
s&a _)R9#)s	qG&
]9&K
L:H=P]&
&R,N2P]&XH& '&P^&l[$&P^&P&gn&P&
P`&
1P{D&&;-G6Q#8@&
J0w04&
	&	N8w05&	}&4DSb&5w05&w06&PH&&ER8w06&PI&"QO2w07&PI&;-9&PJ&&PJ&sJN&fY)7[kJN<	WJ,4PK&PK&%PL&^<+&9^^	&nJe5yV7^^	%TG5}%;j%~ 49%~a,|q%}7D?1TRD;P4%}P5%|5(t3P5%|p?2b5t%rP6%qp2R3Hiz4
=P6%q:%pP7%pGft3P7%o0K&M(P@N:mP?fP8%o O%nT~6
%nQzF+]A%mG%m~%lCJN%l4
UH%k
)9ZO0h8 Q4%jg[%j*,1f}%ifY:{%i
^3%h&Jh7(Q%%hg?m03EG5%gPp%ggf%f&A1%fPq%ePq%e=%dPr%d0C9
ve4%`+]B1T9<;)&gpg]%`C%tW6S(8%g-6P\%aoA9%^|G;&Q|G;[ &P(Rh07h06h06h05h05h04C#A `2qs  a>E1!
wz&/|>s$#!Zc%tg%K8AE&#m?$(
uK"l"'Ip&a!w;+#u?k$+#$,?$.$S&G%us#%aE h+$Y&o"5zs#tA u#,,O  zS$:?$\'%{%U&>a #/,c  zg lS$^'"<{%XXa03#2,w#|z{ l?!|'+%{/%[?	 #<-#~{$=S!|'?%
[#L2${Kz",S%'!),-v+A!p
<2[%1G!K$j-%F,)2za!+@2o$s![$m-#"MF)zA!$3ozu"-??3$!t-%&o *u!T{1"WA4S#S3?$
C$>"-s%(hu0"u 5U i 3 3AD	!Rg#V3S$W$A"2_%+ ;i t{Y!nCA"_{#Y8? Ak$D/$w2s%,+ D}+-q{nCUW #\8S B!'C$y3%/2!D? U|! q	z.nCi] #d8g$!2W"3%2L!:S ^|!"F% 7#^8{$!/k"3/%52Ig
_ nE	!
!"RuE K#a9$!-$|3C%@a FLI%"! 
s!~	K _#d9# M'!H$}3W%C	qGK
L:H=
]9@P]P?R,N2P] 'P^KxJyCP^
P_
P_QoT9vr6{A
&rDP`&w
IcsC;-G6%vYBh7S;J0		N8&a@}	5
<]D(FK%k"PH&ER8:GPI"QO2PIPJ+B[QoXPJ	WJ,4fY)7[kJN<PK 
PK%
;[PL*8^<+&9
4d(~"~nJe5yV7TG5
Fz}}}a,|qBD?17
:Z'| rTo9TRD;aoA-EB{P4{QpZP5z5(t3P5zyp?2%$yP6xp2R3Hiz4
=P6xP7wGft3P7w$*v(P@N:mP?fP8u4ztQmm%]9DiPsT~6^hK'xQzF EUJr [r4Qpxqp2Bp
)9 u:be?0.KpgoZO0h8
Fow,1*QmnYEnX;9lf05#m>Kl& h7QqSxw||5kw||5k(Q%A3EG5 0g?mh>zJQnt/83[NlZ'W9ZG=Y0C9
C6JN1X9#9lQn=
ve4+]B1T9<;])&gpg$(
_e	%g-6W6S(8P\	z!xHz!x
vXIxLvXIx
HEv7FJHEv7HF`044%H448%
RX2M
RX2(T63K(T630Ht ?8T
Onl?=JOnl?p==l?`n|=mH|=0mac9Hac89O90HO90(R>\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0