Subversion Repositories wimsdev

Rev

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=2\
 5 
slib_parms=2\
6 
,m\
 6 
,m\
7 
,p
 7 
,p
Line 18... Line 18...
18 
 
 18 
 
19 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
 19 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
20 
slib_data=!declosing $slib_data
 20 
slib_data=!declosing $slib_data
21 
slib_cnt=!itemcnt $slib_data
 21 
slib_cnt=!itemcnt $slib_data
22 
!if $slib_cnt=1
 22 
!if $slib_cnt=1
23 
	slib_data=1,$slib_data
 23 
  slib_data=1,$slib_data
24 
!endif
24 
!endif
25 
!!deprecated syntax
 25 
!!deprecated syntax
26 
!!slib_out=!exec octave 1+geometric_rnd($slib_a,$slib_data)
 26 
!!slib_out=!exec octave 1+geometric_rnd($slib_a,$slib_data)
27 
slib_out=!exec octave 1+geornd($slib_a,$slib_data)
 27 
slib_out=!exec octave 1+geornd($slib_a,$slib_data)
28 
slib_out=!trim $slib_out
 28 
slib_out=!trim $slib_out
29 
slib_out=!replace internal $\
 29 
slib_out=!replace internal $\