Subversion Repositories wimsdev

Rev

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

Rev 4349 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=9/br3close
 7 
slib_example=9/br3close
Line 10... Line 10...
10 
 
 10 
 
11 
:proc
 11 
:proc
12 
slib_type=!item 1 of $wims_read_parm
 12 
slib_type=!item 1 of $wims_read_parm
13 
slib_c=!char 1 of $slib_type
 13 
slib_c=!char 1 of $slib_type
14 
!if $slib_c isin 123456789
 14 
!if $slib_c isin 123456789
15 
 slib_prefix=data/circuits
 15 
  slib_prefix=data/circuits
16 
!else
 16 
!else
17 
 slib_prefix=
 17 
  slib_prefix=
18 
!endif
 18 
!endif
19 
slib_rec=$slib_prefix/$slib_type.data
 19 
slib_rec=$slib_prefix/$slib_type.data
20 
slib_out=!record 3 of $slib_rec
 20 
slib_out=!record 3 of $slib_rec