User: rhaas Date: 2013/03/27 08:49 PM

Modified: /trunk/src/ GRHydro_BondiM.c

Log: GRHydro_Init_Data: remove sincos from Bondi ID routine

From: Roland Haas rhaas@tapir.caltech.edu

File Changes:

Directory: /trunk/src/ ======================

File [modified]: GRHydro_BondiM.c Delta lines: +5 -11 =================================================================== --- trunk/src/GRHydro_BondiM.c 2013-03-28 01:49:05 UTC (rev 205) +++ trunk/src/GRHydro_BondiM.c 2013-03-28 01:49:08 UTC (rev 206) @@ -67,13 +67,12 @@ #define DLOOP1 for(i=0 ;i<NDIM ;i++) #define DLOOP2 for(i=0 ;i<NDIM ;i++) for(j=0 ;j<NDIM ;j++)

+static inline void sincos(double theta, CCTK_REAL *sth, CCTK_REAL *cth) +{ + *sth = sin(theta); + *cth = cos(theta); +}

-#if !defined(__INTEL_COMPILER) -# define LOCAL_SINCOS -# define sincos( theta_ , sth_ , cth_ ) { *(sth_) = sin((theta_)) ; *(cth_) = cos((theta_)) ; } -#endif - - //Newton-Raphson parameters: #define NEWT_DIM_B (1 ) #define MAX_NEWT_ITER_B (30 ) /* Max. # of Newton-Raphson iterations for find_root_2D(); */ @@ -1349,8 +1348,3 @@ #undef COORD_ISOTROPIC #undef DLOOP1 #undef DLOOP2 - -#ifdef LOCAL_SINCOS -# undef sincos -# undef LOCAL_SINCOS -#endif