// Copyright, 2001-2003, Astra Network Inc.  All Rights Reserved

// This source code has been published by Astra Network Inc. However, any
// use, reproduction, modification, distribution or transfer of this
// software, or any software which includes or is based upon any of this
// code, is only permitted if expressly authorized by a written license
// agreement from Astra. Contact your Astra representative directly for
// more information.

#include "quad.h"


int
quad_qtobool (a)
     ___quad_t a;
{
  union uu aa;
  aa.q = a;
  return (aa.ul[0] || aa.ul[1]);
}
