; formats data and creates a .map file for use by pe module
pro mapout, fn=fn, in=in, out=out, rows=rows, cols=cols, lat=lat, lon=lon

close, 1
openw, 1, (fn+'.map')
printf, 1, "p=project a=t \"
printf, 1, "      in="+in+" \"
printf, 1, "      out="+out+" \"
printf, 1, "      rows="+strcompress(string(rows),/remove_all)+" \"
printf, 1, "      cols="+strcompress(string(cols),/remove_all)+" \"
printf, 1, "      lat="+strcompress(string(lat),/remove_all)+" \"
printf, 1, "      lon="+strcompress(string(lon),/remove_all)+" \"
printf, 1, "      map=Postels \"
printf, 1, "      n=0  z=0  v=0"
close, 1

end