Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
475 georgesk 1
!! -*- coding: iso-8859-1 -*-
20 reyssat 2
!if $wims_read_parm!=slib_header
3
 !goto proc
4
!endif
4351 bpr 5
slib_author=Georges, Khaznadar
20 reyssat 6
slib_example=1.2345A,2\
7
1.2V,5\
8
12,3\
9
12,3,4\
10
0.50A.h\
475 georgesk 11
1800C,3,,A.h\
12
1.8°,5,,rad
3265 bpr 13
slib_require=units-filter
20 reyssat 14
!exit
15
 
16
:proc
17
slib_data=$wims_read_parm
18
!distribute items $slib_data  into slib_qty, slib_sig, slib_order, slib_wanted_unit
19
 
20
!default slib_qty=1m
21
!default slib_sig=3
22
!default slib_order=
23
!default slib_wanted_unit=
24
 
25
units_option=o
26
slib_u= !charcnt $slib_wanted_unit
27
!if $slib_u > 0
28
  slib_out= !exec units-filter $(slib_qty)#$(slib_sig):$(slib_wanted_unit)
29
!else
30
  slib_out= !exec units-filter $(slib_qty)#$(slib_sig)
31
!endif
32
slib_n= !charcnt $slib_order
33
!if $slib_n > 0
34
 slib_test= !eval $slib_out/1e$slib_order
35
 !if $slib_test <> NaN
835 georgesk 36
  !if $slib_order <> 0
37
    slib_out=$(slib_test)e$slib_order
38
  !else
39
    slib_out=$slib_test
40
  !endif
20 reyssat 41
 !endif
42
!endif
43
 
44