;
pro printhdr, frame,flnm,ifileframe
; frame = {		$
;   fname:hdr(0),		$
;   sname:'',		$
;   nx:nx,		$
;   xx:xx,		$
;   xlab:xlab,		$
;   ny:ny,		$
;   yy:yy,		$
;   ylab:ylab,		$
;   zz:zz,		$
;   glat:glat,		$
;   glon:glon,		$
;   locname:locname	$
; }
print,' '
print,format="('Frame ',i3,' from file ',a,':')",ifileframe,flnm
print,'  fname = ',frame.fname
print,'  sname = ',frame.sname
print,'  nx    = ',frame.nx,' xlab = ',frame.xlab
print,'  ny    = ',frame.ny,' ylab = ',frame.ylab
print,'  glat,glon = ',frame.glat,frame.glon
print,'  locname   = ',frame.locname
print,'  log10     = ',frame.log10
return
end