1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include "fitsio.h"
procedure fswldp(xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,coord,
xpos,ypos,status)
double xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,xpos,ypos
char coord[4]
% character fcoord*4
int status # o error status
begin
call f77pak(coord,fcoord,4)
call ftwldp(xpix,ypix,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,fcoord,
xpos,ypos,status)
end
|
