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 $\