Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Data range
slib_parms=1\
 ,data as items, words or lines
slib_author=Adeline Grelot  and Bernadette PERRIN-RIOU
slib_out=data range
slib_example=1,3,5,0,10,-4\
1 3 5 0 10 -4\
1;3;5;0;10;-4
!exit

:proc
!readproc slib/stat/dataproc $wims_read_parm

!if $slib_data=$empty
slib_out=0
!else
slib_data=!line 1 of $slib_data
slib_data=!sort numeric item $slib_data
slib_min=!item 1 of $slib_data
slib_max=!item -1 of $slib_data
slib_out=$[$slib_max-($slib_min)]
!endif

slib_out=!trim $slib_out