blob: a83669ed1bb1f4be414dd6a551c3247cdac45d12 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include "fitsio.h"
procedure fsphis(ounit,histry,status)
# write a HISTORY record to the FITS header
int ounit # i output file pointer
char histry[SZ_FLONGCOMM] # i history keyword
% character fhistr*72
int status # o error status
begin
call f77pak(histry,fhistr,SZ_FLONGCOMM)
call ftphis(ounit,fhistr,status)
end
|
