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