      PROGRAM TESTAR

      CALL ARTEST(0)

      END
