path: root/pkg/tbtables/fitsio/fitssppb/fsesum.x

include "fitsio.h"

procedure fsesum(sum,comp,chksum)

double  sum          
bool    comp
char    chksum[16]
%       character fsum*16

begin

call ftesum(sum,comp,fsum)
call f77upk(fsum,chksum,16)
end