include "fitsio.h"

procedure fsucks(iunit,status)

int     iunit          
int     status          # o error status

begin

call ftucks(iunit,status)
end