FUNCTION FIX_STRLEN, str, length, prefix=prefix
;
   ON_ERROR, 2
   IF datatype(str) NE 'STR' THEN MESSAGE,'Argument has to be string type.'
   IF N_ELEMENTS(length) EQ 0 THEN BEGIN
      PRINT, 'FIX_STRLEN - Warning: Desired string length not specified.'
      RETURN, str
   ENDIF
   blank = '                                                              '
   aa = STRTRIM(str,2)
   IF STRLEN(aa) GE length THEN RETURN, str
   IF KEYWORD_SET(prefix) THEN BEGIN
      bb = STRMID(blank,0,length-STRLEN(aa))+aa
   ENDIF ELSE BEGIN
      bb = aa+STRMID(blank,0,length-STRLEN(aa))
   ENDELSE
   RETURN, bb
END

;---------------------------------------------------------------------------
; End of 'fix_strlen.pro'.
;---------------------------------------------------------------------------