Subversion Repositories wimsdev

Rev

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

Rev 7692 Rev 13585
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_author=Gang, XIAO
 5 
slib_author=Gang, XIAO
6 
 
 6 
 
7 
slib_example=4,2,5;1,0,-3\
 7 
slib_example=4,2,5;1,0,-3\
Line 12... Line 12...
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
15 
slib_mat=!declosing $wims_read_parm
 15 
slib_mat=!declosing $wims_read_parm
16 
!if $slib_mat=$empty
 16 
!if $slib_mat=$empty
17 
 slib_out=
 17 
  slib_out=
18 
!else
 18 
!else
19 
 slib_out=!exec pari print(Mat([$slib_mat]~))
 19 
  slib_out=!exec pari print(Mat([$slib_mat]~))
20 
!endif
 20 
!endif