blob: ee91cead118209b95ee1b94a0ca51cc8145ef197 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include "fitsio.h"
procedure fsprec(ounit,record,status)
# write a 80 character record to the FITS header
int ounit # i output file pointer
char record[SZ_FCARD] # i 80-char header record
% character frecor*80
int status # o error status
begin
call f77pak(record,frecor,SZ_FCARD)
call ftprec(ounit,frecor,status)
end
|
