Subversion Repositories wimsdev

Rev

Rev 4501 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4501 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 
,[data]\
 6 
,[data]\
7 
0.5,p
 7 
0.5,p
Line 27... Line 27...
27 
 
 27 
 
28 
slib_cnt=!itemcnt $slib_data
 28 
slib_cnt=!itemcnt $slib_data
29 
!for slib_i=1 to $slib_cnt
 29 
!for slib_i=1 to $slib_cnt
30 
	slib_tmp=!item $slib_i of $slib_data
 30 
	slib_tmp=!item $slib_i of $slib_data
31 
	!if $[rint($slib_tmp)-$slib_tmp]<>0 or $slib_tmp < 0
 31 
	!if $[rint($slib_tmp)-$slib_tmp]<>0 or $slib_tmp < 0
32 
		slib_out=!replace internal item number $slib_i by 0 in $slib_out
 32 
	  slib_out=!replace internal item number $slib_i by 0 in $slib_out
33 
	!endif
 33 
	!endif
34 
!next slib_i
 34 
!next slib_i
35 
 
 35 
 
36 
slib_out=!trim $slib_out
 36 
slib_out=!trim $slib_out