Subversion Repositories wimsdev

Rev

Rev 4330 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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