Rev 4482 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4482 | 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_parms=1\ |
5 | slib_parms=1\ |
6 | ,m |
6 | ,m |
7 | 7 | ||
Line 18... | Line 18... | ||
18 | !distribute item $wims_read_parm into slib_data |
18 | !distribute item $wims_read_parm into slib_data |
19 | slib_data=!declosing $slib_data |
19 | slib_data=!declosing $slib_data |
20 | slib_cnt=!itemcnt $slib_data |
20 | slib_cnt=!itemcnt $slib_data |
21 | !if $slib_cnt=1 |
21 | !if $slib_cnt=1 |
22 | slib_data=1,$slib_data |
22 | slib_data=1,$slib_data |
23 | !endif |
23 | !endif |
24 | slib_out=!exec octave logistic_rnd($slib_data) |
24 | slib_out=!exec octave logistic_rnd($slib_data) |
25 | 25 | ||
26 | slib_out=!trim $slib_out |
26 | slib_out=!trim $slib_out |
27 | slib_out=!replace internal $\ |
27 | slib_out=!replace internal $\ |
28 | $ by ; in $slib_out |
28 | $ by ; in $slib_out |