Subversion Repositories wimsdev

Rev

Rev 4330 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
13586 bpr 2 
  !goto proc
20 reyssat 3 
!endif
4161 bpr 4 
 
4330 bpr 5 
slib_author=Adeline, Grelot; Bernadette, PERRIN-RIOU
4161 bpr 6 
 
20 reyssat 7 
slib_example=1,3,5,0,10,-4\
8 
1 3 5 0 10 -4\
9 
1;3;5;0;10;-4
10 
!exit
11 
 
12 
:proc
13 
!readproc slib/stat/dataproc $wims_read_parm
14 
 
15 
!if $slib_data=$empty
13586 bpr 16 
  slib_out=0
20 reyssat 17 
!else
13586 bpr 18 
  slib_data=!line 1 of $slib_data
19 
  slib_data=!sort numeric item $slib_data
20 
  slib_min=!item 1 of $slib_data
21 
  slib_max=!item -1 of $slib_data
22 
  slib_out=$[$slib_max-($slib_min)]
20 reyssat 23 
!endif
24 
 
25 
slib_out=!trim $slib_out