Subversion Repositories wimsdev

Rev

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

Rev 4482 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 
,m\
 6 
,m\
7 
,a\
 7 
,a\
Line 20... Line 20...
20 
 
 20 
 
21 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
 21 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
22 
slib_data=!declosing $slib_data
 22 
slib_data=!declosing $slib_data
23 
slib_cnt=!itemcnt $slib_data
 23 
slib_cnt=!itemcnt $slib_data
24 
!if $slib_cnt=1
 24 
!if $slib_cnt=1
25 
	slib_data=1,$slib_data
 25 
  slib_data=1,$slib_data
26 
!endif
26 
!endif
27 
!!deprecated syntax
 27 
!!deprecated syntax
28 
!!slib_out=!exec octave f_rnd($slib_a,$slib_b,$slib_data)
 28 
!!slib_out=!exec octave f_rnd($slib_a,$slib_b,$slib_data)
29 
slib_out=!exec octave frnd($slib_a,$slib_b,$slib_data)
 29 
slib_out=!exec octave frnd($slib_a,$slib_b,$slib_data)
30 
 
 30 
 
31 
slib_out=!trim $slib_out
 31 
slib_out=!trim $slib_out