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=3\
 5 
slib_parms=3\
6 
,[data]\
 6 
,[data]\
7 
0.5,p\
 7 
0.5,p\
Line 26... Line 26...
26 
 
 26 
 
27 
slib_cnt= !itemcnt $slib_data
 27 
slib_cnt= !itemcnt $slib_data
28 
slib_p=$[$slib_p]
 28 
slib_p=$[$slib_p]
29 
slib_pp=$[1-$slib_p]
 29 
slib_pp=$[1-$slib_p]
30 
!for slib_i =1 to $slib_cnt
 30 
!for slib_i =1 to $slib_cnt
31 
	slib_di=!item $slib_i of $slib_data
 31 
  slib_di=!item $slib_i of $slib_data
32 
	slib_P=0
 32 
	slib_P=0
33 
	slib_a=$slib_p
 33 
	slib_a=$slib_p
34 
	!for slib_k=0 to $slib_N
 34 
	!for slib_k=0 to $slib_N
35 
		slib_P=$[$slib_P+$slib_a]
 35 
		slib_P=$[$slib_P+$slib_a]
36 
		!if $slib_P>= $slib_di
 36 
		!if $slib_P>= $slib_di