PDP-10 Archive: 43,50466/bmdx92.sav from decuslib10-09

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/bmdx92.sav

There are no other files named bmdx92.sav in the archive.

h'8 ;B-7Dx-8;x. @/ $D D#+-\6[4
 $ D#1@@#2@@#eO@#d@@#&@@Z : Z8!$ Dh#e1:96 : Z8@@h'1:99 $ D6$3D82F9+G "?b +E('1FINISH CARD ENCOUNTERED.  JOB TERMINATED'/ 1X)  /2D#$+G-\5^-\;& 24dY "Lb

8$4	 +N(A6,18A4,A2)    "dB

9### #':#(#(###$#$;#%#+'#%& +k "dB

9### #':#(#(###$#$;#%#+'#%& +i(2A6,I6,2I3,F6.0,4A3,I2,A3,A2,I1,2I2,I6,I4)  $3D82F97+>#3D82F97+y "pb

8 +y('0',A6,' CARD ENCOUNTERED WHEN A PROBLEM CARD WAS EXPECTED, CARD WILL BE IGNORED.') +Y@@; #$5d| $ D#$ / D#! < D#" < D#! &5D $ D& /2D#$+ $ D#$:2`"2@:gO "2D:gOG5 
 / D#! /3D#!+@@#* $ D#!@@#" / D: / D#" "L  ^X@8'B

8$4	  "Lb

8$4	 #3D82F97+s*3D82F97+`%3D82F97+r&3D82F97+13D82F97+03D82F97+g'3D82F97+.(3D82F97+F)3D82F97+N$3D82F97+s43D82F97+U #*1DgO #%1FgOG4$E ";b

8$4	 +C('0ERROR ON CARD FOUND'/5X,A6,18A4,A2/ ' WE CONTINUE WITH THE NEXT PROBLEM')     $ D;+ $ D4 $	$#% D#& #%4dN "OB : Z8 ?3:#&9J  $ D#.+Q $ D#.+Q(18A4)     $	$#* D#2 #*4d\ $.#& D= #2.#& D= #.X@X "OB = Z8 ?3:=9Y  $2D#$+@@2+s$8+s $ D3 "fB

8#!#"##"#*#* +i(A6,I3,I6,I2,A3,I2,I1)    "3D:+m #"5dm $$#! D#"+o #"5do $ D#" #" D< #! D<+ $2d5+ "ub +('0MORE THAN FOUR ''TITLES'' WERE FOUND. PROGRAM USES THE ' 'FIRST FOUR AND IGNORES THE OTHERS.')   + 55d : Z8-\;4- @h61:"9@@5 $$5 &. F= $.= D=:5 "B

8 = Z8 63:=9 +(A6,16A4,A2)   + $ D7 "B : Z8 (

#21:9  $2$#+ "B : Z8 (

#23:#9 + $ D7+ (6X,16A4)  "%B : Z8 (

#21:9" +'(6X,8A8)   $2$#+ "%B : Z8 (

#23:#9* + $ D6 ";B

8  !!""##$$%

&YY$4 +@(A6,I3,2I5,2I3,I5,3I3,2F7.0,I3,3I2,A6,2I3,A4,A2)   #' D% 5DC $ D 5DE $ D+ $ D3 "LB

8 : Z8 #1:9I +N(A6,11F6.0)    + $ D6 "LB

8 : Z8 #1:9Q + ";B

8  !!""##$$%

&YY$4  #' D% 5Dd $ D 5Df $ D-\5^+ "pB : Z8 #e3:#9h  $ D7 : Z8 h#e5Do!$ Dh#e3:#9m+r(6X,16F4.0)    + $3D;+; 30DgO /2F#!gOA4$, "2D:+ 60DgO 30FgOG4$ $2D6gO &2F3gOA4$ $3D6+ $2$#gO #0fgOG5$

 $ D#># # #4D

:# $2$#+
 $ D6 $3D3+ : Z8 h##' Dh#3:#9 #!5d!$ ## D-\9.44 @#! $ D3+; "b +,('1BOTH AN XVALUE AND YVALUE CARD WERE NOT PRESENT FOR ACASE SPECIFYING AN ORMSBY FILTER'/' THIS PROBLEM WILL BE SKIPPED')   +; ".b +;('1NO PREFILTER CARD WAS FOUND FOR A PROBLEM SPECIFYINGEITHER AN ORMSBY OR LOW PASS FILTER'/' THIS PROBLEM WILL BE SKIPPED') +;-\;"45 @>"> D5 75dL /2D#$+s "Bb +K('1NO NAMCHN CARD WAS PRESENT WHEN DPLTAPE WAS SPECIFIED'/' THIS PROBLEM WILL BE SKIPPED')+;-\9>4#S4# @#S $3D7+y $ D7@@#S@@#S@@#T : Z8- (3D #22F #2gO

.3L #22N #2g

,3L #22N #2g

+3L #22N #2g

G4$f $ Dh#T:#S #S( (#2#2+o 8@@#T+ 8(3D #22F #2+k 8 D#S+o, 8(3D #22F #2+o 8 D#T 83:#9R #T5Ds #S D#T+y : Z8 Zh#T ( h F#2@H#23:#9t # D#S $2D6gO /3F#$gOG4$ "b +('1NO PARAM CARD FOUND WHEN DPLTAPE WAS SPECIFIED'/' PROBLEM WILL BE SKIPPED')   /2D#$gO 41fgOG4$ "b +('1NO FORMAT CARDS FOUND WHEN BCD INPUT FROM CARDS OR TAPEWAS EXPECTED'/' THIS PROBLEM WILL BE SKIPPED') +; $ D> $$D> # 2d>+ > D#  /2D#$+5 #0DgO "0FgOA5$' "'b +2('0ON PARAMR CARD BOTH PEND AND TEND ARE EQUAL ZERO. ' /' THIS PROBLEM POSITIONS THE BRI TAPE ONLY.')    @@# "5D5 #'#@ @#`"2@:+9-\9+4#!4 @#! /3D#"+; / D#" #4DJ #"( &. #/&#! ,.

 L#)@@#' $ D#):#' $$D#) #)2d#)+C #)7 .$( D-\9>44#  @#  "Lb +M('1') "Pb

9##S#  +o(' 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 )   #4D| "sb##) +|('0',5X,'NUMBER OF SCANS READ', 23X,I6/6X, 'NUMBER OF SCANS AFTER DECIMATION' ,11X,I6)     >4d	 $$> D? "b : Z8 63:?9 +(1H0 / / 4(15X,17A4 /))   "b +	(1H0 / / ) 3d#'+

!$0D#',"b#'O+(1X,R5X,E13HSAMPLING RATE,524X,3F12.5)OSP"b: +(1H0,X5X,527HPREFILTERINGROFHEACH SERIES,E16X, 3X, A3), /2D#!+PE"b#!#"#" +4(   1X, 10X,315HDECIMATION RATE, 23X,TI6 I/ CO1X,E10X, 28HHALFXLENGTHOOF THETPREFILTER,T10X,TI6E'/I3,1X, 10X,,31HGRAPHUOFNTHEOFREQUENCY4RESPONSE3,/ / 1X,X10X,,27HHGFUNCTIONTOF THEQPREFILTER,O11X, 3X, A3X) 5"2D:+PW">bU:TZ8E#3:#97\4"Eb : Z84#3:#9;Z+E('0THE ORMSBY FILTER SPECIFIED WAS'/5X, ' Y VALUES' 11F8.4) +H(5X,' X VALUES' 11F8.4)   "Ib +P(10X,'THE X VALUES HAVE BEEN DIVIDED BY THE SAMPLING RATE')  / D## #+4dS / D## /3D#(+U / D#( /3D#(+X / D#( /3D##+Z / D## "^b#(#(#+#### +

#23:#S9 +('0     THE ANALYZED SERIES NAMES ARE'/(15X,8A12)) 74d  " b : Z8 #e3:#9 +'('0     THE SCALING FACTORS FOR EACH SERIES ARE'/(15X,12F7.3))    /3D#$+f #$5d+ $ D#$-\9+4#%4 @#% $2D#$+I "0b +4(1H0, 5X, 19HINPUT IS FROM CARDS)   "6b#% +@(   1X, 10X, 29HNUMBER OF SCANS TO BE SKIPPED  /   1X, 10X, 24H  BEFORE ANALYSIS BEGINS, 14X, I6 )   "Bb#% +H(11X,'NUMBER OF VARIABLE FORMAT CARDS FOR INPUT',7X,I6)+% 03D;+K / D; "Nb#$; +^(  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 )     /2D;+a #$X@a "6b#%  "Bb#% +%@@#% "hb +n(  1H0, 5X, 35HINPUT IS FROM TAPE DIGITIZED AT DPL )    "ob +{(   1X, 10X, 40HDPL TAPE FORMAT IS ASSUMED FOR THE INPUT  /   1X, 10X, 35H  TAPE, SO NO FORMAT CARDS ARE READ) "b  !$4!""##$$%'

& +%(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)    #%4d0 "+b

  : Z8 ?3:#&9( +0('0VARIABLE',A6,' FORMAT IS' / (5X,18A4))     #*4dL "3b#* +9(1X,10X,'LOGICAL TAPE FOR OUTPUT OF FILTERED DATA',7X,I3)    ";b#* +D(1X,10X,'NUMBER OF VARIABLE FORMAT CARDS FOR OUTPUT OF ' 'FILTERED DATA',5X,I3)  $.#& D= #2.#& D= "+b

! = Z8 ?3:=9I -\6O #+3$#2+n #)$# #,.2f#++n #, $?XDZ #- $ ?XD[ #- $ ?XD\ $?XD\ $ ?XD^ #/ $?XD^-\'L4#,4?4Z4?4[4\4\4#.4#.4^4^ Z4$; Z5dE #0 $?XDh #0 $?XDi #1 $?XDi #1 $?XDj-\,4?4#/4h4i4i4j /2D##+m-\5.4#)4?+; "qb#+#,##) +('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'     )    $ D;+; "b +('0ORMSBY FILTER SPECIFIED ON PROBLM CARD.BUT NUMBER OF ' 'POINTS TO SPECIFY FILTER IS ZERO.'/' PROBLEM OMITTED.')  $ D;+-\;&+  +0BMDX92    Xp1: 0|-1}X INPUT    OUTPUT    LOW  ORM  PROBLM    FINISH    TITLES    NAMCHN    PARAM     XVALUE    YVALUE    PREFLT    CODE      STIM                NULL      YES   NO  NO   CALIB     NAMES     p4POSIT     ~ 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   C8#u-\;44'[4'_4'X4'X4'X-\;44']4'c4'X4'X4'X 'f3D#$+$@@'g : Z'g h#T4d$:'g 'g Z'z3:#9# 'f2D#!+$Q #5d$	 'aXD$-\/|4#!4#"4$+$ #".'a $XD$

 'dXD$-\0J4$

4#"4#4#4#4$ #"( &. F'h : Z'g .'a".'h 
'a.
 / F3:#"9$ 'f2D#"+$Q : Z'h '\ $'\. 'b."
'].
@@( '\( $'\. 'b."
'].
@@(3:'c9$ $.#" D'i : Z'h #". D'i '\ $'\. 'b."
'].
 'i.'a

? L(3:'i9$' : Z'h 'c/#". D'i '\ 'i$'\. 'b."
'].
 .'a

? L(3:#"9$1 '\ '\. 
'b.
"

'].

 $0XD$C

'\(

 'b."']. $@XD$D-\/>4$C4$D4'c 'c7 .$( &. F'j $ D'j '\ '\. 
'b.
"

'].

 $0XD$N-\1h4$N4'g4'j4#'4'j 'f3D#$+$c #%4D$j 'f3D#$+$c : Z'h #$X@$Z 'aQ"  'EX@8'  ';X@8'B : Z'k $'Z 'Z. '`."
'[.
(3:#9$[ 'h 3:#%9$U+$j-\5^ 'k4d$e+'T #0DgO "0FgOA4$'D : Z'h : Z'k $'Z 'h$'Z. '`."
'[.
@@(3:#9$l 'h3:'_9$k 'f2D#!+%A $ D'l $ D'l : Z'i 'f3D#$+%	 #$X@$~ 'aQ"  %<X@8'  'EX@8'B : Z'k .'b3:#9$ 'i  : Z'g h'z D'g .'b 'g.'b ' F3:#S9%+%

-\5^ Z5D'3 'm5d%< 'l D'h 'l D'm : Z'k .'b  'm.'a $'Z 'h$'Z H'e. 
'`.
"

'[.

D03:#S9%:'h 'h2d#)+%"#!.D'm 'm5d%:'l 'l3d#&+% "#!.D'l:'l 'i3:#9$x #S D# #4D%+ "%%b# +%+('0NUMBER OF SCANS READ FOR THIS PROBLEM WAS',I5) +%s "%-b# +%;('0MAXIMUM NUMBER OF SCANS (',I5,') HAVE BEEN READ FOR THISPROBLEM BEFORE STOP CONDITION ENCOUNTERED.'/' REST OF DATA ARE IGNORED.')   +%n #5D%>"$.'l D#) #S D# #4d%n+%s 'f3D#!+%n : Z'h 'f3D#$+%X #$X@%I 'aQ"  %kX@8'  'EX@8'B : Z'k .'b3:#9%J 'h  : Z'k h'z D'g $'Z 'h$'Z. '`."
'[.
 'g.'b

? L(3:#S9%O+%c-\5^ Z5D'3 'm5d%k : Z'k $'Z 'h$'Z. '`."
'[.
 .'b

? L(3:#S9%[ 'h3:#9%C #S D# #4D%i "%%b# +%s "%-b'_ +%n 'h D#) #S D# #5d%s@@#' $ D#) #)3d#)+%s:#' $$D#)+%p #)7 .$( D'n 'n2$# +%z "%zb# #) +&('1THE NO. OF BANDS SPECIFIED',I5,5X,'FOR THIS PROBLEM IS GREATER THAN',I5,'/4. THE RESULTS MAY BE IN ERROR') -\9>4# 4'n @#  $.#  #("(.$ D'n #)2$'n+&" $.#  #("(.$"#).$ H'o $.# ( 'o& F'o $.'o &.#  #($. D'o 'o3d#+&" "&b +&!(35H0PROBLEM EXCEEDS AVAILABLE STORAGE.)-\;& #*4D&< #*X@&% 'dQ"b : Z'h : Z'k $'Z 'h$'Z. '`."
'[.
(3:#9&' 'h3:#)9&&  "&2b#*##) +&<('0FILTERED DATA WRITTEN ON UNIT',I3 /  ' NUMBER OF SERIES ', I2, ', NUMBER OF SCANS ',I5) #)3D#)+&H $.#) D'o 'o Z'h : Z'k $'Z 'h$'Z. '`."
'[.
@@(3:#9&A 'h3:#)9&?`#) @'p!$'pD D'p 'pD$!&'p'p'Y D'q : Z'k@@'q@@'r : Z'h 'k$'Z $'Z. 
'`.
"

'[.

 0D'q Z'e-\;4'e 'k$'Z $'Z. '`."
'[.
(@'r3:#)9&R 'q'p D'r 'p'p 'p'q'r'r D's : Z'h Z'e-\;4'e'p's'r @'s"'s 'k$'Z $'Z H'e. 
'`.
"

'[.

D03:#)9&g 'k3:#9&P #)&$ D't`'t @'t : Z'h` @'u"'Y'u D'u 'f'u't D'e-\:d4'e @"@'v $/.#) D'i : Z'k 'v $'Z 'h$'Z H'e. 
'`.
"

'[.

D0 'v $'Z 'i$'Z H'e. 
'`.
"

'[.

D03:#9' 'h3:'t9&v #3D#+' : Z'h #$'Z $'Z. '`."
'[.
@@(3:#)9' '`XD' '`XD'-\.N4'4'4#)4'_4#4# 4#'!$ 't'p"D'v`#) @'w`#  @'w 'wD 'w F'x!$'x# 'v!& F'x $.# ( D'y $.#$#7 .$( D'y 'y$'y D'z : Z'h 'x .'`D3:'z9'0+'T "'5bZ +';('0READING TERMINATED. PICKUP SET ICODE = ' , I8) +'T "'=b +'D('0END FILE FOUND ON POSITIONING INPUT TAPE. PROBLEM OMITTED.')  O@Z+'T "'Fb +'K('0ERROR ON INPUT TAPE. PROBLEM OMITTED.')   +'D+'T4 Z'^ \'^  '_,!p, p, p, p, p, p, p,!p,!p, p, p+#u '^ '^\ 'd/ ,Ap/ ,Ap-|p x p'eYES   Y~k<X(-\;44, 4,#4,4,4, $.#$#7 .$( D,*-\;4#  @,%-\;4#),% @,+-\9>4# 4, @,+ $.#  D,, '4d(g $ D6+( ('0CASE WILL BE WRITTEN IN MERGE FORMAT ON TAPE ' A6,' ON LOGICAL',I3,'.'/' ID VECTOR IS'/' ',22I4,I7,7I4)     $ D( $ D( Y D) Y D)@,+ @*:*@#' @+ # D+O@, ! D, ! D-@" @. " D.!$H#@ @/"$.,,` @,% # ( F,&-\;4,& # ,%@ @0 # ( D,%-\;4,% # &z@ @0 ' D1@@1@@2 # D2 $'$$ %. (2$$. F3 $ D3 #! D4 "(b

&'(4$d D,, : Z,- .,% ,) F3:,,9(H $/ D,- : Z,- ,-.,% (  #2 F ,-.,% (  #2 F $.D,-3:#9(M : Z,- .,% h6 F1:9(V $X D,- :	 Z,- ,-.,% h6 F:,-1:9([ 'X@(``6 (4,, : Z,- .,%3:,,9(c @@,, $ D,- "(jb,+ +(s(1H1, 20X, 27HAUTOSPECTRA FOR EACH SERIES, 10X, F9.2,        1X, 18HDEGREES OF FREEDOM )   "(ub +(}(1H0, / 1X, 57HTABLE OF THE POWER AT EACH FREQUENCY BAND FOR EACH SERIES )  : Z,- ,- Z,F ,-( (#2,P #2DgO &2F,-gOG4$):,-+)M ")

,P3:,-9)	 +)('0'/'    FREQ',3X,13A9)  : Z#" # ( D,%-\;4,% @,&"&. F,&-\;4,&# ,& @,. $2dgO '0fgOG4$) :2:,, ,,.,% ,. F : Z,."$.h,F #$ h,F.$h,F7 .$(/ H,/ ,/$, #"("*.
$
,.

,".

", . 8 D,/ ,/$, #"($,. 
,".
"

, .

 0 D,0 h,F #e ,/ ,0 F,%-\:4,% @h,7 $2d#"gO '0fgOG4$)B:,, h,7D ,,.,% D3:,-9)  ")Hb,. : Z,0 ,73:,-9)E +)K(1X,F8.3,13F9.2)     #"3:,,9) $ D,- ,-3:#9(} '4d)X $ D( 'X@)R`6 (4,, : Z,- .,%3:,,9)U  ,)3D#(gO ,)3F#(gOA4$* : Z,- : Z#""$.,- #$ ,-.$,-7 .$(/ H,/ ,/$, ("*.
$
,.

,".

", . 8 D,/ ,/$, ($,. 
,".
"

, .

 0 D,0 ,/ ,0 D,%-\:4,% .,# @3:,,9)_ ,)2D#(+* : Z#" .,# $XD)~-\:?4)~ .,$ @3:,,9){ ,)2D#(+* $ D,1 ,#XD*-\1h4*4,-4,,4# 4,1 ,)2D#(+* $ D,1 ,$XD*-\1h4*4,-4,,4# 4,1 ,-3:#9)^ $3D#++X@@( $ D,-"$.# D,1 : Z,- $. D,2 ,2 Z,2 ,- ,- F,F ,-( ,-(#2,P ,- Z,M ,-( (#2,] ,-2D,1gO #2FgOA &2F,-gOG4$*(:,-++U "**b,+ +*3(1H1,20X,32HCROSS SPECTRA BETWEEN THE SERIES,10X,F9.2,1X,  18HDEGREES OF FREEDOM)     "*8b : Z#" (

,P3:,-9*5 +*;(/10X,5(8X,A8,'/',6X))    "*@b : Z#" (

,]3:,-9*= +*C(10X,5(11X,A8,4X))   "*Ib,' : Z#",($,P4,(3:,-9*E +*N( 3X, A4, 2X, 5(5X, A3, 3X, A3, A2, 3X, A3, 1X) ) @@,,@@2 : Z#" # ( D,%-\;4,% @,&"&. F,&-\;4,&# ,& @,. $2dgO &2FgO '0hgOGG4$*b:,, ,,.,% ,. F:2 : Z,."$.h,F #$ h,M.$h,F7 .$(/ H,/"$.h,F #$ h,F.$h,F7 .$(/ H,3"$.h,M #$ h,M.$h,M7 .$(/ H,3 ,/$, #"("*.
$
,.

,".

", . 8 D,/ ,/$, #"($,. 
,".
"

, .

 0 D,0 ,/ ,0 D,%-\:4,% @h,7 ,/0DgO ,00FgOA4$+-\9N4,04,/ 4,* @h,D++ ,.@@,D ,3$, #"("*.

,$

. ,".", . @ ,3$,. ,".", .P D,%-\:4,% @,4 ,. ,70DgO ,40FgOA4$+% ,. ,7,4 D,=++& ,.@@,= ,. ,7 ,M #e ,F #e D,7 $2d#"gO &2F#"gO '0hgOGG4$+: ,. ,7D ,,.,% D ,,.,% ,.  ,D F ,,.,% ,.  ,= F $.D,, ,.3:,-9*b "+Db,. : Z,. ,7 ,D ,=3:,-9+=  #"3:,,9*P++I(1X, F8.3, 5(F10.3, 1X, F6.1, 1X, F5.3) )     ,- D1 $ D,- '4d+U $ D(:( 'X@+N`6 (4,, : Z#" .,%3:,,9+Q  ,23:#9* ,-3:,19* ,)2D##+, $.# ( D,4 $.# D,5 #( D,5 : Z,6 : Z,-@@,6"$. D,7"#. D,- $3D++x : Z,2 ,-/.,5 D,-:,6 ,6.,$ ,-$, 
,6$
,.

,".

", . 8 F:,6 ,6.,$ ,-$, *.
,6$
,.

,".

", ."8 F3:,79+f",-.,-.,5 D,- ,- Z,2:,6 ,6.,$ ,-$, 
,6$
,.

,".

", . 8 F:,6 ,6.,$ ,-$, *.
,6$
,.

,".

", . 8 F:,-3:#9+{ #+X@,

",b(:4Z,2 .,$3:,59,3z,4+++,4 Z,! \,!  ,", p,!p, p, p, p, p+( ,! ,!\ ,%-|pX,'FREQ AMP  COH  YES       x,* Y~jp,OPHA  SE   bP,j-\;44.W4.[4.U4.U4.U .\ D. : Z. $.V .V. 
.Z.
"

.W.

 $0XD,{ ,.

.V.

 .Z.".W. $@XD,{-\/>4,{4,{4._.:3z.[+,p .Z7 .$( D.` : Z._ : Z.` $..Z/ D.a .a$.V (.._ 
.V$
 J.].

.Z.

".W."8 $.V N.]..] .Z.".W.H D.a ._$.V .a$.V H.]. 
.Z.
"

.W.

.V. .Z.".W.@ D.b .a$.V ._$.V H.]. 
.Z.
"

.W.

.V L.].

.] .Z.".W.D@ .a$.V (.._ 
.V$
 J.].

.Z.

".W. 8 $.V N.]..] .Z.".W.DH ._$.V .a$.V. .Z."
.W.

.a L( $.._$.V .a$.V. .Z."
.W.

.b L(3:.`9- ._.:3z.[+- .\( .Z& F.b $..b D.c .`/.b D.c .b( D.d $ D.d : Z._  Z.` $.V .V. 
.Z.
"

.W.

._$

.V.

 .Z.".W.@ .d..Y DG .d..Y@@ : Z.a $..Z/ D._ .`$.V $.V H.]. 
.Z.
"

.W.

._$

.V .]. .Z.".W.H ._$.V.

 .Z.".W. `. .Z. X.]".W..]`D .d..YDO3:.c9-T $.D.d .c Z.e .d..Y@@ .d..Y@@ .d. D.e  Z.a $..Z/ D._ .`$.V $.V H.]. 
.Z.
"

.W.

._$

.V .]. .Z.".W.H .d..YO ._$.V.

 .Z. X.]".W..] `. .Z. X.^".W..^` DO ._$.V $.V H.]. 
.Z.
"

.W.

.`$

.V ._$.V N.]. .Z.".W.H .d..YH..] .Z.".W. `.

.] .Z. X.^".W..^` DH3:.e9-r $.D.d .e..d .c/Z7 .d"4f-l .`$.V (..` 
.V$
.

.Z.

".W. 8 ._$.V. .Z.".W.H .d..Y DO .d..Y@@ $..`/.b D.f .f Z.a $..Z/ D._ .`$.V $.V H.]. 
.Z.
"

.W.

._$

.V .]. .Z.".W.H ._$.V.

 .Z.".W. `. .Z. X.]".W..]`D .d..YDO3:.`9.2 $.D.d .`3:.[9-G ._3:.[9-F+.T4 Z.X \.X  .Y, p, p,!p,!p,!p,!p,!p+,k .X .X-|pt .f $ /G,: D/H : Z/H /G/ ( 
,: H/I /I( D/I-\;4/I /D D/J-\:d4/J @/J-\:g4/J @/K!$ D/K@@/L : Z/L  Z/M /I. D/M ./F  /M./F D/N ./F  /M./F D/N ./F  /M./F D/O ./F  /M./F D/O /K/O /L/O /M./F D /K/O /L/O /M./F D ./F /N F ./F /N F./I /H/Z7 /I"4d.w /J/K /K/L D/P /J/L /K/K D/L /P D/K /L3:/I9.u /H3:/G9.i $ D/M /H7 .$( D/P"$./H D/I : Z/L 2$/M+/5 /M./F  D/Q /M./F ./F ' F ./F /Q F /M./F  D/Q /M./F ./F ' F ./F /Q F /P D/M /M3d/M+/;"/M.D/M /M7 .$( D/M+/6 /M.D/M /L3:/I9/%+/B4 Z/D \/E  /E, p, p,!p+.f /D /E-|p y~jyp/Q 04D/z 0&0"(.` @0!$0 D0	`0 @0	 : Z0
` @0
 $.0 . F0 0	D 00
0	 F0-\:d40  @0 0	D 00
 F0-\:g40 @0 00	0
0	 D0-\:g4000 0.0 @'3:09/Y : Z0
 $.0/ D0 $.0. D0

 0.0 0

.0 ' F3:09/o 0	0	 0.0 D+0 0!& F+04 Z0 \0  0,!p,!p, p+/R 0 0\ 0/ ,Ap-|px0 Y~kw00

 $.0S D0X $.0U D0Y : Z0Y .0T  .0T '' .0U F3:0U90 0U@@ 0Y.0U@@ : Z0Y"$. D0V-\;40V0X @0Z 0Z0Z D0Z .0S@@ : Z0[ .0U  0Z .0T' F0V-\:d40V0Z 0Y.0S@3:0Y90" 0Z 0U.0T D0V-\:g40V 0U.0T @0V 0Z 0T  F0W-\:g40W 0T 0V0Z 0Y.0S'@"@' 0Y3:0X90 0U.0T  0U.0T 0T   0T D D0Z : Z0[ .0T  .0T ''D0Z"`0Z3:0U90A 0S 0Z F+0O4 Z0Q \0R  0R, p,!p, p, p,!p, p+0

 0Q 0R\ 0U-|px0W y~jm0[-\;441t41w41p 1s 1v."
1t.
 ( D1y 1s 1v."
1t.
 ( D1z : Z1z 1y $1s 1v."
1t.
2$(+0n $1s 1v."
1t.
 ( D1y 1z $1s 1v."
1t.
3d(+0w $1s 1v."
1t.
 ( D1z3:1w90f $2D1xgO &2F1xgOG4$1'-\241y41{41{-\;41{1q @1|@@1| $2D1x+1 "1b 1w(

#2 +1(1H1, 47HGRAPH OF THE POWER AT EACH FREQUENCY FOR SERIES,     1X,A4// 1H0,9HFREQUENCY,51X,5HPOWER)   $2D1x+1 "1b +1(1H1, 61HGRAPH OF THE FREQUENCY WINDOW OF THE POWER SPECTRUM ESTIMATES / / 1H0, 9HFREQUENCY, 51X, 5HPOWER )    $2D1x+1! $ D1x 1vXD1#-\3541#41w41x41|41|41{41x+1m 1y1z1q D1}-\241}41}41~`1~ @1~ 1r1~1} D1 1z1@ @1`1 @2 12 D2 1z2d2+17"1rD2 12 D2+12 1r21~ D1| 1q1~ D1|-\;41|3`1s+1@ 1rD1| 1rD1|!$	 D1}+1:+1M(1H1, 64HGRAPH OF THE LOGARITHM OF THE POWER AT EACH FREQUENCY FOR SERIES,1X,A4//1H0,'FREQUENCY',41X,'LOGARITHM OF THE POWER')     $2D1x+1R "1@b 1w(

#2  $2D1x+1U "1Ub +1`(1H1, 57HGRAPH OF THE FREQUENCY RESPONSE FUNCTION OF THE PREFILTER / / 1H0, 9HFREQUENCY, 51X, 5HPOWER )   $2D1x+1b $ D1x 1vXD1d-\3541d41w41x41|41|41}41x+1m4 Z1u \1u  1v, p,!p,!p,!p,!p+0[ 1u 1u\ 1x,Ap,Ap,Ap-|pT=8( 23L9Lf3 0!|@2!$	  D2 !$ D2 2 3$2gO 22&2gOA4$2 2 3d2+2

 2D2  2D2+2!$	 D2 !$	 D2+2 : Z2!` @2! 22! D2" Z2 23$2"+21:92+24 Z2 \2  2,!p,!p,!p+2 2 2\ 2,Ap,Ap-|p9Lf3lH2"-\;443?43A43<"$.3A D3G : Z3H 3F Dh3K1:292' 3F D3H 3B3C D3I 3C3C D3I 3=3$3C+22!$3$3C+2< 3=3$3C+2F "28b : Z3J $$3D.3|1:9233C +2;(1H0, 45X, 11A4, 1X, 1PE8.1 ) +2O "2Bb : Z3J $$3D.3|1:92=3C +2E(1H0, 45X, 11A4, 1X, F7.0 )   +2O "2Lb : Z3J $$3D.3|1:92G3C +2O(1H0, 45X, 11A4, 1X, F7.4 )    : Z3H Z3D-\;43D 	 3C3B @h3}1:92P "2Xb3B$3}4 +2Z(1H0, 3X, 11F10.4 )  "2\b +2_(1H0,9X,10(10H+.........),1H+) "2ab +2f(1X, 9X, 1H., 99X, 1H. / 1X, 9X, 1H., 99X, 1H. )   "2hb +2i(1X)  : Z3H 3G( D3D-\;43D @3E"&. F3E-\;43E3B3E @3J"3I $3> 3A."
3>.
(3I$@ @3K $23$3KgO &2f3KgOA5$2} 3K 3G F3K 3K5D2 3G D3H "3b3J3H$3K42 $3> 3A."3>.  +3(1X, F8.3, 1X, A1, 100A1, 2X, 1PE10.2 )  $23$3KgO &2f3KgOA5$3 3K 3F F3K 3F D3H 3H3:3A92i "2hb  "2ab  "2\b  "2hb  "2Xb3B$3}4  3=3$3C+3!!$3$3C+3( 3=3$3C+3. "28b : Z3J $$3D.3|1:93#3C +34 "2Bb : Z3J $$3D.3|1:93)3C +34 "2Lb : Z3J $$3D.3|1:9303C +3;4 Z3? \3@  3@, p,!p,!p,!p,!p,!p,!p+2" 3? 3@-|p$~B Z8]p3F     *    i`4                      MU LTIP LY E ACH  POWE R BY       MUL TIPL Y EA CH L OGAR ITHM  OF  THE  POWE R BY      -\;4456458453453453 : Z5: 55( $54. 58."
55.
@@(3:#)94 #)&$ D5;`5; @5; : Z5: $/.#) D5<` @5<"545< D5= 5:5=5; D59-\:d459 @ 55 $54. 
58.
"

55.

"@0 55 5<$54 F59. 58."
55.
 $54. 58."55.

H L(3:5;94 #)3D#)+4< $.#) D5= 5= Z5: 55 $54. 58."
55.
@@(3:#)946 $.5; D5>"5;.#) D5> 5> Z5: 55 $54. 58."
55.
!, L(3:5>94@ 55 54. 
58.
"

55.

 $0XD4O

55(

 58."55. $@XD4P-\/>44O44P4#' : Z5: 55 $54 H59. 
58.
"

55.

 0 55(.59 58."55. P D03:#)94R : Z5: 55( $54. 58."
55.
@@(3:#)94_ # ( #)& F#! $$#! D5? #)7 .$( D5?-\9>45?45? @5@ # ( #)& F5@ 5@7 .$( D5A $.5@ D5A $.#)/5A D5B : Z5: 5B D5B : Z5< 55 5B$54. 
58.
"

55.

55(

 5:$54 N59. 58."55.DH:5B $.#) 5B2F+5 $ D5B3:5A94y:5B $.#) 5B2F+5

 $ D5B 5:3:5@94v`#) @5C!$ 5;5C"D5C`#) @5D`#  @5D 5DD 5D F5E!$5E# 5C!& F5E : Z5: 5E 55( $54 H59. 
58.
"

55.

D03:5@95-\;45? @59-\;45@# 59 @5F $ D5F 55( 54. 
58.
"

55.

5$0XD5+-\1h45+45G45@45F45F+514Z56\575]57,!p,Tp+4 SPECIFIED AS UCLA BRI/DPL DIGITIZED TAPE.'/' FOR INFORMATION ON THIS KIND OF INPUT, PLEASE WRITE TO THE UCLA HEALTH SCIENCES COMPUTING FACILITY.' ' THE PROGRAM HAS BEEN TERMINATED.')-\;&+5`4 Z5b \5b+5G 5b 5b-|pr5c-\;4#! #' D#  $.#S7 .$(( D# #5d5} $.#  #S($ D6V"6V.#+&# D6W $ D#, $$D#, 6W2d#,+5q #,7 .$( D#, #$#, D6W #!$#, D# #+/6W D6V #, D#) #, D#)+6 #) D#, # D# 6V2D#$+6 $.# D# #$#, D6W@@6V $.#  #S("(.$3$#)+6 $.#  #S("(.$"#).$ H6V $.# ( 6V& F6V $.6V &.#  #S($. D6V $.#& D#/ $.#&.#2 D#- #"( &. F#& #-.#& D#- #S.#&.#2.#& D6X-\9+46V46X @# # D#, $ D#. 6V2D#"+6* #"( D6X@@#. $$D#.:#. #.3$6X+6' $.# ( D#/ $.#S$#S7 .$( D6Y #/$6Y D6Y $.6Y D#0 $.6Y D#0 6V2D#(+67 $.# .D#0 '4d6: $.#  #0. F#1 $.6Y D#1@@6Z@@6Z 6V2D#(+6@ $.# .D6Z 6V2D#(+6C $.# .D6Z '4d6H-\9+46R4# ( @6U-\9+46S46U.@6Z 6V2D##+6K #( D6Z-\9+46Z46Z 6Y. D#2+6Q4 Z6S \6T+5d 6S 6T-|pdx6UYES   6Z4O@7B+6^4@@7BO"$ D7C $:INX|H6a+6v 
6{6@7B J6| 
6{~J6}Z6|+6v J6}z6|+7?

z@+6v #p &>

3L6~+6q7@6~ /&5f6j7 +6v@@ 6: 6 L 6~

PL6+6uRd.R6d$2N+6l:6:kN

y1kN

y CB`x6}x6~H7>Z6|0B+6v	d

:`7C+6v+6ex7C4}X7D \8) @8)<810<0|+1\+7R,>p7CZp7C+p@h7u@p7u@(8@08@x7|@7|@88@(8@P8@P8@h7u@7Z@ 7Z@7t@7tx8[(/<0"`S<pX<0 p3@82+7X*|7T-<8>wx7WZ`7D+8!  @w+7V<82 p7 p+7u,>,>,> &w p,7p,&.<7@p+7m p,7p"83 8!.< p`83 w,&,&5 7_.< pd84:." Q,& p,&>`97j.<97`@@,^,^,^+7ud @@& 0b.".")B}5@7q,~m<!<P\8%<82 p[pl<0@X+7{Zp.</ pQ \8&+7}@@8&!<P\8%7@8(+8 <8( \8&@@8(!<P\8%XX\8% 847@8'D<7@8'A< \8% <8%[`x 8),x,^x 8)+7D 7DQ< \8%:7D  \8&<85 p8!|85 < \8%@@8&+8@@8% Q< \8%<85 p8!|86+8787 89 \8% @8XQ< \8% 89 \8&+8~x8[`x 8),x+8Z \8%@@8%@@8&<82 \8&+878' 8'X\7D@@8'@@8'+8P8!~08)>x! Z @
&8:U`eB+80@)@G 
"+8,
&8>+8c6$1,>;(.@

p.46$`8.

.48&.8%SEQIN}087@86SEQOUT@88@8
%5 Source level error at user's loc	
	`Z(X^. >S.~(3~+8C	~+8NZ. \x <x*<x .->;+ez+8J!"	b+  "8K	b+Z. h+ggM?} 8N
&8P	b+8>,
?NO CORE AVAILABLE - CAN NOT PROCEED
x 8Ta.3@1,>;(O@9+8YgR~@1,>;(@@9,>,>@6 w+8f"90B+8a!"A`X#p5@8^/#p!"X#p+8f\p+8fa.9'1,>;(,>,>O@9+8f,>
6+ _4`8n"`Q@,> <9,,^,> <9,
,^*b8k+8y,> <9,,^7@9+8t,> <9,
,^+8v,> <9,
,^Z5"8y,> <9,
,^,7@9,

,> <9 ,,^,,> <9#,,^,> <9&,
,^(@qd1@,,

1@#+90@*+8y,>9<9(,,^+8y,^,^,^,~(',Type6Gto,Continue,Xto,Exit,T9To~trace.'/2H*,$)(A1)(1H14A5/)(1H`A5,1X,O6)PAUSESTOPh9.pX`99pjp9X`99p09p9pj9p9p(p9X`9!9	X~P9$9p xxh9(C6 1,>;(,93,~[B1,>;(,93,~[B1,>;(,93@,~C61,>;(,93`,~,>e|Pw+963!p p*|95a|+9: ph" ab~+95,^,~C6Md 1,>;(,9F,~[&r1,>;(,9F,~[&r1,>;(,9F@,~C6Md1,>;(,9F`,~,>e|Pw+9H2ap p*|9Ha|+9L ph" ab~+9H,^,~CR

B? B:"P" :B :@,~B@ B:""X+:4B:+P8P0

:#p+:  ,~|:attempt to take SQRT of negative argKc@ p p+:"KcK  ,:" @,~KcJ  ,:" @,~KcI  ,:" @,~KcH4B:25@:%5":.+D8P0
:$U ,~4":4,> $ D:25`:+aB+:+L@:2+:+$+":/(BdB$+":/5b:* ,^,~,:#6 :2+:."`/ +:.~H:2  ,~aB#`0@3@:3,~  ,~C2|t(1,>;( p4@:O @:>,> <:W,:?,^:=,~{e^b}:>C2|p1,>;( p5`:C4@:O+P8P0:X#p3@:R+:Q)r. !@:V! n@:V(|h":R :S B:V :S:T:T:V:V:U,~+D8P0
:P :U,~  ,~ 0_i/X3 6P'M 5( bB W
R`@8:Vx:>ATTEMPTTOTAKELOGBOF~NEGATIVE:ARG{`:[G?@1,>;(p::+;+:hg&t@1,>;(*p:+L+:hG?1,>;(Rp;+:hg&p1,>;(ppB:~#`3b:}+:zD;;3b;+:s%"(D?d$ "@($)B
;@4~;	l,~?M2|1,>;( p+; #p."Q  @@; @.< $p.D; p/p$ *b; ;7@;( D @ ;,~}@;0

pC1,>;(#p,~S01,>;(#p+";$,~U ,~KbN@1,>;(,

,~;(Y\;*Q<X\;**+!$hX$h@@h*% ";2 BhL " BhM+xeX2GiSHYC aSiSH~;2INXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@Gx;AiSH+