Subversion Repositories wimsdev

Rev

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  slib_range=4
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
 
-