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 
 
 -