Subversion Repositories wimsdev

Rev

Rev 1043 | Rev 4349 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4158 bpr 4 
 
20 reyssat 5 
slib_author=Gang Xiao
6 
slib_example=9/br3close
7 
!exit
8 
 
9 
:proc
10 
slib_type=!item 1 of $wims_read_parm
11 
slib_c=!char 1 of $slib_type
12 
!if $slib_c isin 123456789
13 
 slib_prefix=data/circuits
14 
!else
15 
 slib_prefix=
16 
!endif
17 
slib_rec=$slib_prefix/$slib_type.data
18 
slib_out=!record 2 of $slib_rec