Subversion Repositories wimsdev

Rev

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 18... Line 18...
18 
!distribute item $wims_read_parm into slib_data,slib_n,slib_p
 18 
!distribute item $wims_read_parm into slib_data,slib_n,slib_p
19 
 
 19 
 
20 
!default slib_n= 5
 20 
!default slib_n= 5
21 
!default slib_p=0.5
 21 
!default slib_p=0.5
22 
 
 22 
 
23 
!if $slib_p>=1 or $slib_p<=0
23 
!if $slib_p>=1 or $slib_p<=0
24 
	slib_out=0
 24 
	slib_out=0
25 
	!exit
 25 
	!exit
26 
!endif
 26 
!endif
27 
slib_out=
 27 
slib_out=
28 
slib_data=!declosing $slib_data
 28 
slib_data=!declosing $slib_data
Line 40... Line 40...
40 
!for slib_i=1 to $slib_cnt
 40 
!for slib_i=1 to $slib_cnt
41 
	slib_tmp=!item $slib_i of $slib_data
 41 
	slib_tmp=!item $slib_i of $slib_data
42 
	!if $[rint($slib_tmp)-$slib_tmp]<>0 or $slib_tmp<$slib_n
 42 
	!if $[rint($slib_tmp)-$slib_tmp]<>0 or $slib_tmp<$slib_n
43 
		slib_out=!replace internal item number $slib_i by 0 in $slib_out
 43 
		slib_out=!replace internal item number $slib_i by 0 in $slib_out
44 
	!endif
 44 
	!endif
45 
!next slib_i
45 
!next slib_i
46 
slib_out=!trim $slib_out
 46 
slib_out=!trim $slib_out