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