pkg/tbtables/fitsio/fitssppb/fspdat.x


1
2
3
4
5
6
7
8
9
10
11
12
13

include "fitsio.h"

procedure fspdat(ounit,status)

# write the current date to the DATE keyword in the ounit CHU

int     ounit           # i output file pointer
int     status          # o error status

begin

call ftpdat(ounit,status)
end