pro pslandfix,filename
;+
; NAME:
;   PSLANDFIX
;
; PURPOSE:
;   Fix the upside-down landscape that IDL generates.  Probably only works
;   with the output of setps,/land
;
; CALLING SEQEUNCE:
;   pro pslandfix,[filename]
;
; INPUT:
;   FILENAME   Name the idl PostScript file to fix.  Default is 'idl.ps'
;
; OUTPUT:
;   Fixed PostScript file
; NOTES:
;   none
; HISTORY:
;   10-AUG-95 Version 1 written    E. Deutsch
;-

  if (n_elements(filename) eq 0) then filename='idl.ps'

  openr,1,filename
  lin=''
  replinz=strarr(100)
  linno=lonarr(100)
  ctr=0 & linctr=0L

  while not EOF(1) do begin
    readf,1,lin
    if (strmid(lin,0,20) eq 'save $IDL_DICT begin') then begin
      print,lin
      strput,lin,'576 20',21
      strput,lin,' 90',58
      print,lin
      print,'---'
      replinz(ctr)=lin
      linno(ctr)=linctr
      ctr=ctr+1
      endif
    linctr=linctr+1
    endwhile
  close,1


  openu,1,filename
  lin=''
  ctr=0 & linctr=0L

  while not EOF(1) do begin
    if (linctr ne linno(ctr)) then begin
      readf,1,lin
    endif else begin
      printf,1,replinz(ctr)
      ctr=ctr+1
      endelse
    linctr=linctr+1
    endwhile
  close,1

  return
end