Subversion Repositories wimsdev

Rev

Rev 4351 | 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
 
4351 bpr 5
slib_author=Bernadette, Perrin-Riou
4158 bpr 6
 
20 reyssat 7
slib_example= H2\
8
C H4
9
 
10
!exit
11
 
12
:proc
13
 
14
 
15
!readproc slib/chemistry/molecule $wims_read_parm
16
slib_molecule= $slib_out
17
slib_cnt=!linecnt $slib_molecule
18
slib_out=0
19
!for slib_i=1 to $slib_cnt
20
slib_line=!line $slib_i of $slib_molecule
21
 
22
!distribute item $slib_line into slib_number, slib_name, slib_Z, slib_symbol, slib_masse
23
slib_out=$[$slib_out+$slib_number*$slib_masse]
24
!next slib_i