blob: 9748b92420dd0520a7aabcb0f11eb5a894b1f0ba (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
include "fitsio.h"
procedure fsghdn(iunit,hdunum)
# return the number of the current header data unit. The
# first HDU (the primary array) is number 1.
int iunit # i input file pointer
int hdunum # o returned number of the current HDU
begin
call ftghdn(iunit,hdunum)
end
|
