P99_DEFINE_UNION P99_ENC P99_ENC_INIT P99_ENCP P99_MACRO_END P99_MACRO_END P99_STD_ARITHMETIC_EXTS P99_STD_ARITHMETIC_TYPES P99_STD_BASIC_EXTS P99_STD_BASIC_TYPES P99_STD_CHARACTER_EXTS P99_STD_CHARACTER_TYPES P99_STD_COMPLEX_EXTS P99_STD_COMPLEX_TYPES P99_STD_FLOATING_EXTS P99_STD_FLOATING_TYPES P99_STD_INTEGER_EXTS P99_STD_INTEGER_TYPES P99_STD_REAL_EXTS P99_STD_REAL_FLOATING_EXTS P99_STD_REAL_FLOATING_TYPES P99_STD_REAL_TYPES P99_STD_SIGNED_EXTS P99_STD_SIGNED_TYPES P99_STD_UNSIGNED_EXTS P99_STD_UNSIGNED_TYPES T_cptr_destroy T_cptr_init T_destroy T_init T_ptr_destroy T_ptr_init

#define P99_ENC (   OBJ )    ((OBJ).p00_val)