Subversion Repositories wimsdev

Rev

Rev 20 | Rev 4330 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4 
 
5 
slib_author=Bernadette PERRIN-RIOU
4161 bpr 6 
 
20 reyssat 7 
slib_example= 10,-3,10,Z\
8 
10,-3,10,R
9 
 
10 
!exit
11 
 
12 
:proc
13 
 
14 
!distribute item $wims_read_parm into slib_m,slib_N,slib_M,slib_ring
15 
!default slib_ring=Z
16 
!default slib_N=0
17 
!default slib_M=1000
18 
 
19 
!if  $slib_ring=Z
20 
	slib_out=!randint  $slib_N,$slib_M repeat $slib_m
21 
!endif
22 
!if  $slib_ring=R
23 
	slib_out=!random  $slib_N,$slib_M repeat $slib_m
24 
!endif
25 
 
26 
slib_out=!trim $slib_out