blob: 9dd67ea6c64a2a11ef9c65a37d645d902e74770e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# QPF_UPDHDR -- Update the image header. This is a no-op for QPF since the
# datafiles can only be accessed READ_ONLY via IMIO.
procedure qpf_updhdr (im, status)
pointer im #I image descriptor
int status #O output status
begin
status = OK
end
|
