/*
                  
               (c) Copyright 1992 by G & A Technical Software, Inc.,
                    28 Research Drive, Hampton, Virginia, 23666.

        All Rights Reserved. No part of this software or publication may be
        reproduced, stored in a retrieval system, or transmitted, in any form
        or by any means, electronic, mechanical, photocopying, recording, or
        otherwise without the prior written permission of G & A Technical
        Software, Inc.
   
*/


/* $Log: s3_xalloc.h,v $
 * Revision 2.1  1994/07/08  18:07:24  jcburt
 * No changes since last commit. Just bringing everything up to the same
 * revision number
 *
 * Revision 2.0.0.1  1994/06/28  18:48:27  jcburt
 * S3 Version 2.0 Initial Source
 *
 * Revision 1.3  1992/12/01  20:13:07  jcburt
 * Misc. bug fixes for succesful compilation under XLC
 *
 * Revision 1.2  1992/12/01  18:43:56  jcburt
 * added RCS ID character string (rcsid) and RCS Log
 *
 */
static char RCSIDX[] = "$Id: s3_xalloc.h,v 2.1 1994/07/08 18:07:24 jcburt Exp $";


extern char *ymalloc();
extern char *ycalloc();
extern char *yrealloc();
extern void  yfree();

#define xmalloc(N)       ymalloc(__FILE__,__LINE__,N)
#define xcalloc(N,S)     ycalloc(__FILE__,__LINE__,N,S)
#define xrealloc(P,N)    yrealloc(__FILE__,__LINE__,P,N)
#define xfree(P)         yfree(__FILE__,__LINE__,P)


#define s3_check_bounds(ds,str)  \
{\
  if(*(ds->start_check) != START)\
    s3_error(LOC,"dataset lower bounds violation for %s - %s",ds->name,str); \
  if(*(ds->stop_check) != STOP) \
    s3_error(LOC,"dataset upper bounds violation for %s - %s",ds->name,str);\
}