blob: 69ae8b9d392722998fb3a96734bf79c2a951cae4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
include "fitsio.h"
procedure fscrhd(iunit,status)
# 'CReate Header Data unit'
# create, initialize, and move the i/o pointer to a new extension at
# the end of the FITS file.
int iunit # i input file pointer
int status # o error status
begin
call ftcrhd(iunit,status)
end
|
