;
pro printhdr, frame,flnm,ifileframe
print,' '
print,format="('Frame ',i3,' from file ',a,':')",ifileframe,flnm
for i=0,3 do print,frame.hdr(i)
print,'nx=',frame.nx
print,'ny=',frame.ny
return
end