blob: 1d431117668dad59fa02460a5f8e72ac37cd9b2a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
include "fitsio.h"
procedure fsghps(ounit,nexist,keyno,status)
# return the current position in the header
int ounit # i output file pointer
int nexist # o how many exist?
int keyno # o position of the last keyword that was read + 1
int status # o error status
begin
call ftghps(ounit,nexist,keyno,status)
end
|
