Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Bernadette, Perrin-Riou

slib_example= H2\
C H4

!exit

:proc

!readproc slib/chemistry/molecule $wims_read_parm
slib_molecule= $slib_out
slib_cnt=!linecnt $slib_molecule
slib_out=0
!for slib_i=1 to $slib_cnt
  slib_line=!line $slib_i of $slib_molecule

  !distribute item $slib_line into slib_number, slib_name, slib_Z, slib_symbol, slib_masse
  slib_out=$[$slib_out+$slib_number*$slib_masse]
!next slib_i