func show_array(x)
; Returns a string showing the dimensions of an array
 if symclass(x) eq 4 then {
   ncase symdtype(x)
    s='I*1'
    s='I*2'
    s='I*4'
    s='F*4'
    s='F*8'
    else: s='illegal'
    endcase
   n=num_dim(x)
   s=s+' ('
   if n ge 2 then for i=0,n-2 s=s+istring(dimen(x,i),1)+', '
   s=s+istring(dimen(x,n-1),1)+')'
 } else s='not an array'
 return, s
endfunc