Rev 4351 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4351 | Rev 7692 | ||
---|---|---|---|
Line 10... | Line 10... | ||
10 | :proc |
10 | :proc |
11 | !distribute items $wims_read_parm into slib_size,slib_range,slib_n, slib_ring |
11 | !distribute items $wims_read_parm into slib_size,slib_range,slib_n, slib_ring |
12 | !default slib_ring=Q |
12 | !default slib_ring=Q |
13 | !bound slib_size between integer 2 and 20 default 2 |
13 | !bound slib_size between integer 2 and 20 default 2 |
14 | !bound slib_n between integer 1 and $slib_size default 2 |
14 | !bound slib_n between integer 1 and $slib_size default 2 |
15 | !bound slib_range between integer 1 and 1000000 |
15 | !bound slib_range between integer 1 and 1000000 |
16 | !default |
16 | !default slib_range=4 |
17 | 17 | ||
18 | 18 | ||
19 | !if $slib_ring=Q |
19 | !if $slib_ring=Q |
20 | !readproc slib/matrix/givenrank $slib_n,$slib_size,$slib_n,$slib_range |
20 | !readproc slib/matrix/givenrank $slib_n,$slib_size,$slib_n,$slib_range |
21 | !!slib_matrix=!translate internal ; to $\ |
21 | !!slib_matrix=!translate internal ; to $\ |
Line 29... | Line 29... | ||
29 | 29 | ||
30 | slib_out= !trim $slib_out |
30 | slib_out= !trim $slib_out |
31 | slib_out=!line -1 of $slib_out |
31 | slib_out=!line -1 of $slib_out |
32 | 32 | ||
33 | !endif |
33 | !endif |
34 | - |