blob: 85cd96defdd77868910f4a21f580a5b4d4b73e43 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
include "fitsio.h"
procedure fsinit(funit,fname,block,status)
# open a new FITS file with write access
int funit # i file I/O pointer
char fname[ARB] # i file name
% character ffname*255
int block # i FITS blocking factor
int status # o error status
begin
call f77pak(fname ,ffname,255)
call ftinit(funit,ffname,block,status)
end
|
