Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
13594 bpr 2 
  !goto proc
20 reyssat 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 
!readproc slib/chemistry/molecule $wims_read_parm
15 
slib_molecule= $slib_out
16 
slib_cnt=!linecnt $slib_molecule
17 
slib_out=0
18 
!for slib_i=1 to $slib_cnt
13594 bpr 19 
  slib_line=!line $slib_i of $slib_molecule
20 reyssat 20 
 
13594 bpr 21 
  !distribute item $slib_line into slib_number, slib_name, slib_Z, slib_symbol, slib_masse
22 
  slib_out=$[$slib_out+$slib_number*$slib_masse]
20 reyssat 23 
!next slib_i