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 17... Line 17...
17
:proc
17
:proc
18
 
18
 
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
!default slib_n= 5
20
!default slib_n= 5
21
!default slib_p=0.5
21
!default slib_p=0.5
22
!if $slib_p>=1 or $slib_p<=0 
22
!if $slib_p>=1 or $slib_p<=0
23
	slib_out=0
23
	slib_out=0
24
	!exit
24
	!exit
25
!endif
25
!endif
26
slib_out=
26
slib_out=
27
!!slib_data=!declosing $slib_data
27
!!slib_data=!declosing $slib_data