output_map*
call output_map*( map, header, filename[,extno] )
generates a simple map (made of 1s) and outputs it into the FITS file map.fits