Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Fabrice, Guerimand

slib_example=2012,0,1

!exit

:proc

slib_input=$wims_read_parm

slib_n=!item 1 of $wims_read_parm

slib_s=!item 2 to -1 of $wims_read_parm

slib_s=!nospace $slib_s

slib_p=!itemcnt $slib_s

slib_n=$[$slib_n]

!if NaN isin $slib_n

  slib_out=NaN

  !exit

!endif

!if e isin $slib_n or E isin $slib_n

  slib_out=NaN

  !exit

!endif

slib_out=$empty

slib_m=$[floor(log($slib_n)/log($slib_p))]

!for slib_e=$slib_m to 0 step -1

  slib_t=$[floor($slib_n/($slib_p^$slib_e))]

  slib_out=$slib_out$(slib_s[$slib_t+1])

  slib_n=$[$slib_n-$slib_t*$slib_p^$slib_e]

!next slib_e