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=1,0;6,1 |
7 | slib_example=1,0;6,1 |
Line 9... | Line 9... | ||
9 | !exit |
9 | !exit |
10 | 10 | ||
11 | :proc |
11 | :proc |
12 | slib_mat=!declosing $wims_read_parm |
12 | slib_mat=!declosing $wims_read_parm |
13 | !if $slib_mat=$empty |
13 | !if $slib_mat=$empty |
14 | slib_out= |
14 | slib_out= |
15 | !else |
15 | !else |
16 | slib_out=!exec pari print([$slib_mat]^-1) |
16 | slib_out=!exec pari print([$slib_mat]^-1) |
17 | !endif |
17 | !endif |