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

include "fitsio.h"

procedure fsarch(machid)

int     machid          # machine ID code

begin
call ftarch(machid)
end