| version 1.1, 1999/12/03 07:39:08 |
version 1.2, 2000/02/04 09:27:31 |
|
|
| /* $OpenXM: OpenXM/src/asir99/engine/real.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/real.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $ */ |
| #include "ca.h" |
#include "ca.h" |
| #include "base.h" |
#include "base.h" |
| #include <math.h> |
#include <math.h> |
|
|
| #ifdef vax |
#ifdef vax |
| t = m[0]; m[0] = m[1]; m[1] = t; itod(m); |
t = m[0]; m[0] = m[1]; m[1] = t; itod(m); |
| #endif |
#endif |
| #if defined(i386) || defined(MIPSEL) || defined(VISUAL) || defined(linux) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) |
#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) |
| t = m[0]; m[0] = m[1]; m[1] = t; |
t = m[0]; m[0] = m[1]; m[1] = t; |
| #endif |
#endif |
| return *((double *)m); |
return *((double *)m); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to real.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine