Subversion Repositories wimsdev

Rev

Rev 4500 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4500 Rev 7692
Line 19... Line 19...
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 
 
 20 
 
21 
!default slib_n= 5
 21 
!default slib_n= 5
22 
!default slib_p=0.5
 22 
!default slib_p=0.5
23 
 
 23 
 
24 
!if $slib_p>=1 or $slib_p<=0
24 
!if $slib_p>=1 or $slib_p<=0
25 
	slib_out=0
 25 
	slib_out=0
26 
	!exit
 26 
	!exit
27 
!endif
 27 
!endif
28 
slib_out=
 28 
slib_out=
29 
slib_data=!declosing $slib_data
 29 
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
 42 
	!if $[rint($slib_tmp)-$slib_tmp]<>0
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