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 |
||
| 4161 | bpr | 4 | |
| 20 | reyssat | 5 | slib_author=Adeline Grelot and 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 |
||
| 16 | slib_out=0 |
||
| 17 | !else |
||
| 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)] |
||
| 23 | !endif |
||
| 24 | |||
| 25 | slib_out=!trim $slib_out |