1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Bernadette, Perrin-Riou
!exit
:proc
!distribute items $wims_read_parm into slib_matrix,slib_r,slib_c,slib_t
slib_matrix=!declosing $slib_matrix
slib_matrix1=!replace internal ; by $\
$ in $slib_matrix
slib_cnt=!itemcnt $(slib_matrix[;1])
!if $slib_r > $slib_cnt
!for slib_u=1 to $[$slib_r-$slib_cnt]
slib_matrix1=!append line vvvVVV to $slib_matrix1
!next
!endif
slib_row=$(slib_matrix[$slib_r;])
slib_row_cnt=!itemcnt $slib_row
!if $slib_c > $slib_row_cnt
slib_compl=!makelist vvvVVV for x = 1 to $[$slib_c-$slib_row_cnt]
slib_row=$slib_row,$slib_compl
!endif
slib_row=!replace internal item number $slib_c by $slib_t in $slib_row
slib_matrix1=!replace internal line number $slib_r by $slib_row in $slib_matrix1
slib_matrix1=!replace internal vvvVVV by in $slib_matrix1
slib_out=!lines2rows $slib_matrix1
|
