Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Molar Mass
slib_parms=1\
 , molecule 
slib_author=Bernadette PERRIN-RIOU
slib_out= molar mass
slib_comment=Multiple formats are possible. For example  H2, O  or H2 O or H,2;O
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