;+
; @file_comments
;
;
; @categories
;
;
; @param TYPEIN
;
;
; @returns
;
;
; @uses
;
;
; @restrictions
;
;
; @examples
;
;
; @history
;
;
; @version
; $Id$
;
; @todo seb
;
;-
function completetype, typein
;
  compile_opt idl2, strictarrsubs
;
   type=typein
   case type of
      'x':type=type+'yzt'
      'y':type=type+'xzt'
      'z':type=type+'zyt'
      't':type=type+'xyz'
      'xy':type=type+'zt'
      'xz':type=type+'yt'
      'yz':type=type+'xt'
      'xt':type=type+'yz'
      'yt':type=type+'xz'
      'zt':type=type+'xy'
      'xyz':type=type+'t'
      'xyt':type=type+'z'
      'yzt':type=type+'x'
      'xyzt':
   endcase
   return, type

end
;