00001 /*============================================================================= * 00002 * File : jma_aca_macros.c 00003 * Module : ACA kernel 00004 * Author : Juan Manuel AHUACTZIN 00005 * Creation : Tue Jun 8 17:01:28 PDT 1999 00006 * 00007 *============================================================================= * 00008 (c) Copyright 1999, J.M. Ahuactzin all rights reserved 00009 *============================================================================= * 00010 *------------------------- Description --------------------------------------- 00011 * 00012 *------------------------- Modifications ------------------------------------- * 00013 * 00014 * 00015 */ 00016 00017 00018 #define SMALL_ZERO 1.0e-3 00019 #define ABS_VALUE(x) (((x) <0.0 )? -(x) : (x)) 00020 #define IS_ZERO(x) (ABS_VALUE(x) <= SMALL_ZERO) 00021 #define ARE_EQUALS(x,y) IS_ZERO(x-y) 00022 #define NIL -1 00023 #define TRUE 1 00024 #define FALSE 0
1.4.6-NO