blob: c8ec5f8be5b9adda2a3248eeab0fde57ab8fe9d2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# IMOPEN -- Open an existing imagefile. Fortran callable version.
procedure imopen (f77nam, acmode, im, ier)
% character*(*) f77nam
int acmode # image access mode (RO, WO)
pointer im # receives image descriptor pointer
int ier # receives error status
char fname[SZ_PATHNAME]
begin
# Unpack character string into SPP string.
call f77upk (f77nam, fname, SZ_PATHNAME)
call imopnx (fname, acmode, im, ier)
end
|
