Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/slib/stat/nbininv – Rev 4986 → 7692



:proc
 
!distribute  item $wims_read_parm into slib_data,slib_n,slib_p
!default slib_n= 5
!default slib_p=0.5
!if $slib_p>=1 or $slib_p<=0
	slib_out=0
	!exit
!endif
slib_out=
!!slib_data=!declosing $slib_data

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