Subversion Repositories wimsdev

Rev

Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 13594
Line 1... Line 1...
1 
!if  $wims_read_parm!=slib_header
 1 
!if  $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Georges, Khaznadar
 5 
slib_author=Georges, Khaznadar
6 
 
 6 
 
7 
slib_example= ,,,,,,,,,0,0,1.2,1.5,2.4,3.2\
 7 
slib_example= ,,,,,,,,,0,0,1.2,1.5,2.4,3.2\
Line 41... Line 41...
41 
  !! of 1, 2 or 5.
 41 
  !! of 1, 2 or 5.
42 
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
 42 
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
43 
  slib_logint=$[floor($slib_log)]
 43 
  slib_logint=$[floor($slib_log)]
44 
  slib_logmant=$[$slib_log-$slib_logint]
 44 
  slib_logmant=$[$slib_log-$slib_logint]
45 
  !if $slib_logmant > $[log10(5)]
 45 
  !if $slib_logmant > $[log10(5)]
46 
     slib_xs=1e$[$slib_logint+1]
 46 
    slib_xs=1e$[$slib_logint+1]
47 
  !else
 47 
  !else
48 
    !if $slib_logmant > $[log10(2)]
 48 
    !if $slib_logmant > $[log10(2)]
49 
      slib_xs=5e$slib_logint
 49 
      slib_xs=5e$slib_logint
50 
    !else
 50 
    !else
51 
      slib_xs=2e$slib_logint
 51 
      slib_xs=2e$slib_logint
Line 66... Line 66...
66 
  !! of 1, 2 or 5.
 66 
  !! of 1, 2 or 5.
67 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
 67 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
68 
  slib_logint=$[floor($slib_log)]
 68 
  slib_logint=$[floor($slib_log)]
69 
  slib_logmant=$[$slib_log-$slib_logint]
 69 
  slib_logmant=$[$slib_log-$slib_logint]
70 
  !if $slib_logmant > $[log10(5)]
 70 
  !if $slib_logmant > $[log10(5)]
71 
     slib_ys=1e$[$slib_logint+1]
 71 
    slib_ys=1e$[$slib_logint+1]
72 
  !else
 72 
  !else
73 
    !if $slib_logmant > $[log10(2)]
 73 
    !if $slib_logmant > $[log10(2)]
74 
      slib_ys=5e$slib_logint
 74 
      slib_ys=5e$slib_logint
75 
    !else
 75 
    !else
76 
      slib_ys=2e$slib_logint
 76 
      slib_ys=2e$slib_logint