Subversion Repositories wimsdev

Rev

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

Rev 4330 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
1,p
7
1,p
Line 14... Line 14...
14
:proc
14
:proc
15
 
15
 
16
!distribute item $wims_read_parm into slib_data,slib_p
16
!distribute item $wims_read_parm into slib_data,slib_p
17
 
17
 
18
!if  $slib_p<=0
18
!if  $slib_p<=0
19
slib_out=0
19
  slib_out=0
20
!exit
20
  !exit
21
!endif
21
!endif
22
 
22
 
23
slib_data=!declosing $slib_data
23
slib_data=!declosing $slib_data
24
slib_out=!values -log(1-x)/$slib_p for x in $slib_data
24
slib_out=!values -log(1-x)/$slib_p for x in $slib_data
25
 
25