blob: c31f832bb5fb3ff8f2a306c37024e50cd33e4b2c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include "fitsio.h"
procedure fsopen(funit,fname,rwmode,block,status)
# open an existing FITS file with readonly or read/write access
int funit # i file I/O pointer
char fname[ARB] # i file name
% character ffname*255
int rwmode # i file read/write mode
int block # i FITS blocking factor
int status # o error status
begin
call f77pak(fname ,ffname,255)
call ftopen(funit,ffname,rwmode,block,status)
end
|
