Rev 4986 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4986 | Rev 7692 | ||
---|---|---|---|
Line 17... | Line 17... | ||
17 | :proc |
17 | :proc |
18 | 18 | ||
19 | !distribute item $wims_read_parm into slib_data,slib_n,slib_p |
19 | !distribute item $wims_read_parm into slib_data,slib_n,slib_p |
20 | !default slib_n= 5 |
20 | !default slib_n= 5 |
21 | !default slib_p=0.5 |
21 | !default slib_p=0.5 |
22 | !if $slib_p>=1 or $slib_p<=0 |
22 | !if $slib_p>=1 or $slib_p<=0 |
23 | slib_out=0 |
23 | slib_out=0 |
24 | !exit |
24 | !exit |
25 | !endif |
25 | !endif |
26 | slib_out= |
26 | slib_out= |
27 | !!slib_data=!declosing $slib_data |
27 | !!slib_data=!declosing $slib_data |