FUNCTION value2string,value

;Returns a string corresponding to the type of value
  
vv=value
sst=size(value,/str)
  
;si=size(value)
;IF n_elements(si) NE 3 THEN vv=value(0)
;si=size(vv)

numb = 1
;CASE si(1) OF
CASE sst.type OF
  1:BEGIN
    string='0B'
  END
  2:BEGIN
    string='0'
  END
  3:BEGIN
    string='0L'
  END
  4:BEGIN
;    string='0.'
    string=''
  END
   5:BEGIN
;    string='0.D0'
    string='0D0'
  END
  6:BEGIN
    string='complex(0,0)'
    numb=0
  END
  7:BEGIN
    string="'"
    numb=2
  END
  8:BEGIN
    string='{aa:0}'
    numb=0
  END  
  9:BEGIN
    string='dcomplex(0,0)'
    numb=0
  END
  10:BEGIN
    string='ptr_new()'
    numb=0
  END
  11:BEGIN
    string='obj_new()'
    numb=0
  END
  12:BEGIN
    string='0U'
  END
  13:BEGIN
    string='0UL'
  END
  14:BEGIN
    string='0LL'
  END
  15:BEGIN
    string='0ULL'
  END
ENDCASE

;RETURN,string
CASE numb OF
  0: BEGIN
    RETURN,string
  END
  1: BEGIN
    RETURN,strtrim(value,2)+strmid(string,1,1000)
  END
  2: BEGIN
    RETURN,string+strtrim(value,2)+string
  END
ENDCASE

END