Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou

slib_example= 10,-3,10,Z\
10,-3,10,R

!exit

:proc

!distribute item $wims_read_parm into slib_m,slib_N,slib_M,slib_ring
!default slib_ring=Z
!default slib_N=0
!default slib_M=1000

!if  $slib_ring=Z
        slib_out=!randint  $slib_N,$slib_M repeat $slib_m
!endif
!if  $slib_ring=R
        slib_out=!random  $slib_N,$slib_M repeat $slib_m
!endif

slib_out=!trim $slib_out