include "fitsio.h"

procedure fsarch(machid)

int     machid          # machine ID code

begin
call ftarch(machid)
end