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