pkg/tbtables/fitsio/fitssppb/fsgics.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

include "fitsio.h"

procedure fsgics(iunit,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,coord,status)

int     iunit          
double  xrval,yrval,xrpix,yrpix,xinc,yinc,rot
char    coord[4]
%       character fcoord*4
int     status          # o error status

begin

call ftgics(iunit,xrval,yrval,xrpix,yrpix,xinc,yinc,rot,fcoord,status)
call f77upk(fcoord,coord,4)

end