Subversion Repositories wimsdev

Rev

Rev 4349 | Details | Compare with Previous | Last modification | View Log | RSS feed

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