Commit de93881b authored by Carl Schaffer's avatar Carl Schaffer
Browse files

bugfix to fits_write.pro

parent 7648f3f0
...@@ -242,6 +242,7 @@ pro fits_write,file_or_fcb,data,header_in,extname=extname,extver=extver, $ ...@@ -242,6 +242,7 @@ pro fits_write,file_or_fcb,data,header_in,extname=extname,extver=extver, $
print,'FITS_WRITE: END missing from input header and was added' print,'FITS_WRITE: END missing from input header and was added'
header = [header,'END '] header = [header,'END ']
hpos2 = n_elements(header)-1 hpos2 = n_elements(header)-1
hpos2 = where(keywords eq 'BEGIN EX') & hpos2 = hpos2[0] ;begin ext.
end end
; ;
; determine if a extension was supplied and no primary data unit (PDU) ; determine if a extension was supplied and no primary data unit (PDU)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment