?p 0 @ 0
?h X + ?x "
<+ + K2 ` PE
?P+ K} 2 ?H ( PCH FORMAT FINISH PROBLM ( ('1BMD10S - TRANSPOSITION OF LARGE MATRICES - REVISED ','SEPTEMBER 19, 1968'/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA//) (2A6,4I5,2I3,17I2,A3) (/////18H PROGRAM EXPECTS ,A6,21H CARD HERE. INSTEAD29H IT FINDS THE CARD BEGINNING ,/6X,2A6/55H THIS CARD IS INCORRECTLY PUNCHED AND/OR OUT OF ORDER. 60H SEE BMD MANUAL, 2ND EDITION, FOR INSTRUCTIONS ON THE PROPER/58H PREPARATION AND ARRANGEMENT OF CONTROL CARDS FOR BMD10S.)(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) (/////16H PROBLEM CODED ,A6,//20H ENTERING MATRIX HASI7,9H ROWS OF,I7,35H ELEMENTS EACH. MATRIX IS READ IN18H FROM LOGICAL TAPE,I4,2H .)(52H EITHER THE INPUT OR OUTPUT FORMAT CONTROLS TOO MANY41H ROWS. THE MAXIMUM VALUES ALLOWABLE ARE ,I4,17H FOR OUTPUT AND ,I4,12H FOR INPUT.) (/////32H THIS PROGRAM READS LOGICAL TAPE,I4,15H. LOGICAL TAPE,I4,18H SHOULD BE SAVED.) (/////32H THIS PROGRAM READS LOGICAL TAPE,I4,50H. OUTPUT IS PUNCHED. OTHER TAPES MAY BE SCRATCHED.) (18H MATRIX IS READ IN,I7,27H ROWS AT A TIME, ACCORDING ,30H TO THE FOLLOWING INPUT FORMAT,3X/3X,A1,A3,17A4/(3X,18A4)) (A1,A3,17A4) (18A4) (39H1THIS PROGRAM WRITES ON LOGICAL TAPES ,29(I2,2H, )) (43H PUNCH OUTPUT ONLY. TAPES MAY BE SCRATCHED.) (15H LOGICAL TAPE ,I2,29H IS TO BE SAVED. ALL OTHERS18H CAN BE SCRATCHED.) (15H LOGICAL TAPES 29(I2,2H, )) (//11H A TOTAL OF,I3,27H TAPES WILL BE USED IN THE60H TRANSPOSITION (NOT COUNTING THE DATA INPUT TAPE). THEY ARE)(//26H THE TRANSPOSED MATRIX HAS,I7,9H ROWS OF ,I7,42H ELEMENTS EACH. THE MATRIX IS PUNCHED OUT ,I7,17H ROWS AT A TIME, /42H ACCORDING TO THE FOLLOWING OUTPUT FORMAT /3X,A1,A3,17A4/(3X,18A4)) (//26H THE TRANSPOSED MATRIX HAS,I7,9H ROWS OF,I7,59H ELEMENTS EACH. THE MATRIX IS WRITTEN OUT ON LOGICAL TAPE,I4,2H ./22H MATRIX IS WRITTEN OUT,I7,17H ROWS AT A TIME,,42H ACCORDING TO THE FOLLOWING OUTPUT FORMAT /3X,A1,A3,17A4/(3X,18A4)) (//49H NO EXTRA TAPES ARE NEEDED (EXCEPT DATA INPUT AND,57H OUTPUT TAPES) BECAUSE MATRIX IS SUFFICIENTLY SMALL TO BE/30H ENTIRELY CONTAINED IN MEMORY.) ~h h p BMD10S + -< Cr $ ' D ) < /f, Cr ) , D] D ) < /g, < /j,
+_D )ZD )0 )0 < /p,
: )0; )+ + < /q,
)& D ( )!3D ) 2F ) 7 + +!3D )2F )7 + // < /s, < /v,
< /x, + //6` (+ +# $ D ( ) & ( ( 2d D )0 < /{, , )20d 0d + +*+ +, < /~, , $ D )2 )0d 0d + +/+ +1 < 0, , $ D ) $ D )" (y3D )+ +5 $ D )" ( 3d )0+ ,o < 0, < 0,
) & ( D ) 2$ ( + +> < 0
, < 0
< 0, + // < /c, B7` )
+ +;" )%.D )0 < /`, B ) $D )
$ 3D (+ +M6b )"0b + +H++F4 +J4 +H < 0, < 0,
+ +L < 0, < 0,
< 0, "$ $ )2.$ D )2.$ $ ).$ ,D ) < /], BZ$ . ) D ), ($ ) D ) ($ )0 D )
: )0; )+ +], $ 2$ )2+ +i < 0", & / )2 $
F ) D )0 )0 < 0%,
: )0; )+ +f, )$ & )! ), D] D ) '9 & 3D )!2F )!7 + +s '9 & )! ': & )5+ + < 0&, < 0),
" )2 $ F ) D )0 )0 < 0+,
: )0; )+ +w, < 0,, +_D )ZD )0 )0 < 0/,
: )0; )+ +}, $ 2$ )+ , < 01, & / ) $
F ) D )0 )0 < 04,
: )0; )+ ,, ( & 3D )!2F )!7 + , ( & )! ( & )5+ + $ 2$ (+ -x" (. )4$ .94D .o"$ . ( D )/ < 05, " ( $ F ) D )0 )0 < 08,
: )0; )+ ,, 6b )"0b + , +, 4 , 4 , < 0:, , + ," < 0=, < 0@,
< 0A, < 0D,
< 0F, " ( $ F ). D )0 )0 < 0I,
: )0; ).+ ,', 6b )"0b + ,-+,,4 ,-4 ,5 < 0J, < 0M,
" ) $ F )% D )0 )0 < 0P,
: )0; )%+ ,1, + ,= < 0Q, < 0T,
" ) $ F )$ D )0 )0 < 0W,
: )0; )$+ ,9, "$ . ( D (~ D )1 < /Z, B (~2d ) + ,C"$ .D ) )/ D )1 ( )% D ) )/ )% D )
" )1 $ F )# D )0 $)% D + < /X, CQ: )0; )#+ ,H < /V, C" (~ $ )% H) .$ 8& ,N $ 2$ (}+ ,` & / (} $ F ) D )/ ) D ) ) D ( )
D ) ) D )
" (~ $ F ) D )0 $)% D + < /T, CQ: )0; ) + ,Z < /R, C: )/; ) + ,T" ) $ F ) D )0 $)% D + < /P, CQ: )0; ) + ,b $ .d ) $)% D + < /O, CQ ) D ) ) D ( ) )% F) ) F( )
F ) < /L, C+ /- < 0Y, < 0\,
$ 3D (+ ,v < 0_, < 0b,
6< 0d, + ($ ( 4D )z4 ,| < 0f, , + ,~ < 0i, < 0l,
< 0n, +_D (zZD )0 )0 < 0q,
: )0; (z+ -, )20d + - $ D )2 < 0r, +_D )6ZD )0 )0 < 0u,
: )0; )6+ - , )1D + -!$$ .$ D ) < 0w, " ).& $
F )4 D )0 )0 < 0z,
: )0; )4+ -, + -" $ $ )2.$ D )2 < 0{, " )2.& $
F )4 D )0 )0 < 0~,
: )0; )4+ - , + - $ D ) < 1 , < 1,
" )2 $ F )3 D )0 )0 < 1,
: )0; )3+ -&, 6b )"0b + -,+-+4 -,4 -4 < 1, < 1 ,
" ) $ F )3 D )0 )0 < 1 ,
: )0;< )3+ -0, + -< < 1
" ) $ F )2 D )0 )0 < 1,
: )0;D )2+ -8, < 1, , < 1, . ($ ) ,D ) " )
)-/, .
)6
)6 L ) J ). ). < 1 ,
:
).;# )+ -I, .$ 8& -C ( $ ( )D )#( ) )-6b )"0b + -X+-V4 -X4 -e < 1 , "* /
)-.
)6 )6 J ) H ({"
)
({&
(/* ({ J ( H ). ). < 1!,
(.h ).; (+ -_: ({; ) + -\, + -r < 1#, "* /
)-.
)6 )6 J (~ H ({"
)
({&
(/* ({ J (} H ). ). < 1&,
(.h ).; (}+ -m: ({; (~+ -i, .$ 8& -R6b )"0b + -v+-u4 +4 -v < 1', + + $ 2$ )+ .9 $ D )/ < 1*, + _D (|ZD )0 )0 < 1-,
: )0; (|+ -}, 6b )"0b + .+.4 .4 . < 1., , + . < 11, < 14,
< 16, < 19,
< 1:, " ( $ F (| D )0 )0 < 1=,
: )0; (|+ .
, 6b )"0b + .+.4 .4 . < 1?, < 1B,
" ) $ F ) D )0 )0 < 1D,
: )0; )+ ., + ." < 1F, < 1I,
" ) $ F ) D )0 )0 < 1L,
: )0; )+ . , )' D ) < /K, CQ ( D ) )0 D ) & / ) $ F ) D )0 ) F ) ) F (&$ .$ D ({ )% F ) < /I, CQ < /G, C: )0; )+ .) ) D )
) D ) ) D ( < /E, CQ ) D ( < /C, C )
D )+ /- $ . ) D ( < 1M, " ( $ F )
: )0; ) 6b )"0b + .D+.B4 .D4 .F < 1R, , + .H < 1U, < 1X,
< 1Y, < 1\,
< 1^, " ( $ F )
D )0 )0 < 1a, : )0; )
+ .M, 6b )"0b + .S+.R4 .S4 .[ < 1b, < 1e, " ) $ F )
D )0 )0 < 1h, : )0; )
+ .W, + .c < 1i, < 1l,
" ) $ F ) D )0 )0 < 1o,
: )0; ) + ._, " ) $ F ) D )0 $)% D + < /A, CQ: )0; ) + .e ) $)% D + < /@, CQ ) ) F( ( )% D ) < /=, C+ /- < 1q, " ( $ F ) D )0 )0 < 1t,
: )0; )+ .r, 6b )"0b + .y+.w4 .y4 .{ < 1u, , + .} < 1x, < 1{,
< 1}, < 2 ,
< 2, " ( $ F ) D )0 )0 < 2,
: )0; )+ /, 6b )"0b + /+/4 /4 / < 2, < 2 ,
" ) $ F ) D )0 )0 < 2 ,
: )0; )+ /
, + /,< 2 " ) $ F ) D )0 )0 < 2, : )0; )+ /, "& $ F ) D )0 )& F) $) D + < /<, CQ: )0; )+ / < /9, C & / ) $ F ) D )0 $)% D + < /8, CQ: )0; )+ /" ) $)% D + < /6, CQ ) ) F( ) D ( ( )% D ) < /4, C < /3, B) < 2, + + < /2, D
< /2,
x )` ) ) )& )p + )p + ) + ) )p ( )` ) + ) )p ( ) ( ( ( +X )0 ) ) )% +x + X )C 0 )! 0 )5 $ ( $ ( $ ) $ ( $ )2 $ ) $ ( $ ( $)% ( (y X )F ( ) 0 )! 0 )5 ` ( X )7
X )b X )b X )j 0 )5 $ ( $ ( $ ( X )x $ ) $ )0 ` ( X * $ ( $ ( X *
$ ( ` ( X *& ('9 X *' ('9 X *
$ )
('9 X *& (( X *' (( X *( $)% X *. X *3 $ ( X *? $ ( X *; $)% X *J $ ( $ ( $ ( (( X *^ $ ( $ ( $ ( $ ( (( X )j 0 )5 $ ( $ ( $ ( X * $ ( $ ( ` ( X *. X *3 $ ( X *& ('9 X *& (( X *' (( X *' ('9 X *
$ ) ('9 X *J $ ( $ ( $ ( (( X *^ $ ( $ ( $ ( $ ( (( X *v ` ( X ( '9 Z ( / X ( Z ( / X ( ( Z ( / ` ( X *( $)% X *. X *3 $ ( X *? $ ( X *; $)% X *J $ ( $ ( $ ( (( X *^ $ ( $ ( $ ( $ ( (( X *( $)% X *. X *3 $ ( X *? $ ( X *; $)% X *J $ ( $ ( $ ( (( X *^ $ ( $ ( $ ( $ ( (( X *( $)% X *. X *3 $ ( X *? $ ( X *; $)% X *J $ ( $ ( $ ( (( X *^ $ ( $ ( $ ( $ ( (( ` ( (20A4) E2}:7 \ A% p @ A# p @ 2& $ D A# 2& 2 D 2 6b A#0b + A0+A-4 AE4 AE4 A04 A04 A04 A0 2& 2 0D + A;7@ 2 + Ar < Av, " A# $ F 2) D 2* $ $ 2*. 2& < Ay,
: 2*; 2)+ A6, @d 2 6b A#0b + A@+A=4 A@4 A@4 A@4 AB4 AC4 Ar < A{, + Ar < A}, + Ar < B , + Ar 2& 2 3D A#+ AR 2& 2 0D + AQ7@ 2 + AR < B, " A# $ F 2) D 2' $ $ 2'. 2& < B,
: 2'; 2)+ AM, @d 2 '8/ '8& '9/& '86b A#0b + AW+AV4 AW4 Ae A#2h 2 + AZ@h 2 + A[6@ 2 + Ab < B, "
A# ( J 2( H 2' ( $ 2'. 2& < B
,
: 2'; 2(+ A^, : 2 $( . 2&
2" J /+ Aq: 2 $( . 2&
/ J 2" 2 3( A#+ Aq < B , "
A# ( J 2' H 2' ( $ 2'. 2& < B,
: 2'; 2'+ Al, @h 2 . '98& AT 2& A# F2 2 F2 A%,~ X 2& A$ (2" ` 2& ` 2& ` 2& X 2& A$ (2" X 2& A$ ( 2" X 2& A$ ( 2" I'4 p @ B p B B p B B p B B p B B @ B4b B"$ .D B B& B D B" $ B. B D B B Ap B Ap ,~ PCH _W \ B' p @ B% < Bm, A& $ D '9 < Bk, A&" ( $ F B% D B&@d '8" ( $ F B$ D B& $ . '8 D '8 ( .D '8 < Bj, A&: B&; B$+ B2 (y2D B!+ B@ < Bn, " '8 $ F B$ D B! B! < Bq,
: B!; B$+ B<, + BF < Bs, " '8 $ F B# D B! B! < Bv,
: B!; B#+ BC, : B&; B%+ B0@d '8" ( $ F B# D B& $ . '8 D '8 ( .D '8 < Bh, A&: B&; B#+ BJ (y2D B!+ BX < Bw, " '8 $ F B" D B! B! < Bz,
: B!; B"+ BT, + B^ < B|, " '8 $ F B" D B! B! < B,
: B!; B"+ B[, < Bg, A& < Be, A& < Bd, A& B' B% Ap ,~ p B( ( p B( B%p B( ( p B' B%p B' B%p B( ( p B( B%X ( Z ( / X ( ( Z ( / X ( Z ( / X ( ( Z ( / gR
:` \ C p @ C p @ C #p B C p B C $ D '9@d C " C $ F C D C
. C $ D C < CJ, A& C
& . C FC (.f C FC
: C
; C + C < CI, A&" ( $ F C D C
" C $ F C D C
C F '8 C
F '8. C $ D C < CG, A&: C
; C + C, $ D '8 < CF, A&: C
; C + C*" C $ F C D C
. C $ D C < CD, A&: C
; C + C8 < CC, A& < CA, A& C C Ap C Ap ,~ p C Cp C Cp C Cp C Cp C Cp C Cp C C iJv|Z \ CN p @ CL p @ CN < Cm, " CN $ F CM D CM CM < Cp, : CM; CM+ CW, ( D '9 CN D '8 < Ck, A&" '9 $ F CL D CM D '8 < Cj, A&: CM; CL+ C_ < Ch, A& < Cg, A& CN CL Ap ,~ p CP CLp CP CLp CO CLp CP CLX ( '9 Z ( / kN
y1,~ ` Z (X^ . > X.~ (3~ + Cw ~ + DZ . \x <x *<x .ez+ C~!" b + " C b + Z` .Z . h + gg M?}
& D b + Cr,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> DgO@ DG+ D @ 6 w+ D" DG0B + D!"A`X#p 5@ D/#p !" X#p + D\p + Da.9'1 ,> Dg,> ,> O@ DG+ D,>
6 + _ 4` D""` Q@ ,> < DH, ,^ ,> < DK,
,^ *b D + D-,> < DM, ,^ 7@ DG+ D(,> < DP,
,^ + D*,> < DQ,
,^ Z 5" D-,> < DS,
,^ , 7@ DG,
,> < DT, ,^ , ,> < DW, ,^ ,> < DZ, ,^ (@qd 1@ ,,
1@ #+ D;0@ *+ D-,> < D\, ,^ + D-,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X DC p X DD p DF p DF p X D= X ~ DC p x g:9d@4$ Da`f mD + De A Df ,~ $ `f mD + De" K Df ,~ " ,~ ` DgY\ DiQ< X\ Di* + 6 Dj 6`Dj S YVBG 9 DiG 9 Di
G J DgGK/K Dg 9jV De 9jV Da 9jU De 0 D] Y X <: D
Y]@ DG
Y? D
\! D {-^ D{-X D{-O D({-N D;{-N D-{-M D*{-M D"VBSo&BTE ) |D \6 . AwB P @ VK V4 PbXl VkBI
YPb K YY Yh[|gg MA
J TUR /}F
/|N @\: T(q5v X _<F
zR (TsT ` u6
(J" D
&*
R W J
> _Bb _2 v ^,6 RW ` K^ 2b 2 RYmt L (bIzCr ) G Cr [ Cr qG CqZzR CrZzR Cq
a C` 3 CX [ Cd o CT Cm CV + CW ? Cp S Ck
_ C_
s C_ qG CN /8# CN && '9 CM 0 (P4 CMP5 CL^\Qf (0K CNbe '8 go '9
AA '8 C CLQh04 C C C CJ + CI ? C* S C*
_ C,
s C, qG C ( ( ) C
C
] #) C 0 ( C P4 C P5 C ^\Qf (P5 C P6 C 0K C\
bn Cbe '8 &&) C go '9
UTo C
AA '8bn C bnzsC BX BB U B^ BC ' Bv
u BF ; BJ O BJ c Bh w Bw BS BT 3 Bz B| 3 BZ G B[ [ B o Bg Be Bd 3 B= G BD [ BU o B\ Ba + B+ ? Bm S Bk
_ B/
s B0 qG B' ( && '9 B& B&@ B%P5 B$^\Qf (P5 B$P6 B#P6 B#P7 B"P7 B"0K B' B!be '8 $M B! g[ ( go '9rWf` (y' (
AA '8 ! B) !vPB) 5 B G B [ B qG B l BmP? B m B e B n B f B aq8 Baq8 ~@B A$ B AT
a AE ' AV
u AG ; B c A^
B Al 3 Al B AR zA Ar 3 A9 G AO [ A` o Ao ! AW 5 AY Au I AZ + A) ] A[ ? A- q Ab S Av
_ A6
s A6 qG A$WUm] A# za A# 2* && '9 2* 0P4 2)P5 2)P5 2(P6 2(P6 2'0K A% 2'be '8b-D, 2&rWf` '9 &4A 2
AA '8 xU 2 WUkc 2 2dP( A&2dP(vPA&(R + h04 + ) *. V} ,= -E
E -e u .F ss +/ 97 , ; ,Z 1 3k -} o 1X G3 / aA + 5 ,o = ," 3 *; W *J
*' q , 3A *( >_ , ,b O -0 tS 11 ? .L ! /
.9 .y &/ 0 -0 tg 14 S .M ! 2 .o 8A ,A
1e &? / ' -n / ' 0 ?W 0@
.W &S 2$q% +5 0 ?k 0A 0d &G 1 us . 7 1h &{ / .N ,c +Y zg 0I S 0l ' -I { . , .- 'K /" 3 .Y ,w 0 z{ ,, ? 0n '+ -I {/ 1D s 1o ' /8 -# - ' .) .r 3 + y +@ }a -" ? /j 3 0& ,9 s - -7 1! ; /I 1t G + zU -,/q1 /. S + 3 0) 0W - -K 1# O /G .w { +H ! +Y [ +g zi -4/qE // ? + 3+ +v / /Z s 0z - -i c /E ' 1u/qY // {1 +J o +x A ,N z} -< S /p 3? +w C ,H 0{ -s -i w /C ; 1x {E * +~ ! -y { . g /q 3S 0+ W ,H - 2 -l 1M O 1{ {Y +L , {% . { /s 8? 0, k /X / - 2s -m .= c 1} + , {9 . I ./ /v 8S +| /V C 0~ 3 1& 3 .= w 2 ? ,( /- {M . # /x 8g +} ,N W 1 3 -u 1P 2 S ,3 {a . 7 /{ 8{ 0/ ,S k 1 3/ 1' 3 .B / , VU ,5
_ ,; {u ." K +* 9 , ,T -% 3C 1* G 1R 3 / , Vi ,-
s - a .D /~ 9# 01 ' ,Y -& 3W -| [ 1U 2 qG )7 (P] )6 8 )6 P? )5P] )4P^ )4P^ )3P )3s^H )2P )2 , ' )1P` )1 && '9 )0 S? )#PJ )")m )!PK ) PK ) 7C ) 0PL ) J~ ) (^yyB ( 8b ) , ) 0 ( ,A9 ) S&2 ) W= ) @[ )P4 ) )b ) )P5 )^\Qf (P5 )P6 )P6 )Q )P7 )Q )P7 )Q )P8 )Q )Q )Q )V#u )be '8\R' ) $M ) g[ ( Q )Q ) D~ )Q )Tm )Q )
Q )
Q ) Q ) +E3 ) &'~ ) M ) go '9rWf` (ySOcu ) Pp )Pq )
UTo ) Pq ) ' ( b-Bz (Pr (Pr (~+LBz (~\F (}Ps (}Ps (|Pt (| ({
AA '8 C ({P\ (zRM> 0ORM> 0 (R@p+ \B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0