Aquila-Consortium/libsharp2
0
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

better code re-use

Browse source
This commit is contained in:
Martin Reinecke 2012-12-26 00:31:51 +01:00
parent 78173bd83e
commit 782d13d843
4 changed files with 100 additions and 890 deletions
Download patch file Download diff file Expand all files Collapse all files

26
libsharp/sharp_inchelper1.inc.c
View file

@ -3,13 +3,22 @@
#include "sharp_core_inc.c"
#if (SHARP_MAXTRANS>MAXJOB_SPECIAL)
#include "sharp_core_inc3.c"
#define NJ1 ,int njobs
#define NJ2 , njobs
#define Z(arg) CONCAT2(arg,nvec)
#include "sharp_core_inc4.c"
#undef Z
#undef NJ1
#undef NJ2
#endif
#define NJ1
#define NJ2
#if ((MAXJOB_SPECIAL>=1)&&(SHARP_MAXTRANS>=1))
#define njobs 1
#define Z(arg) CONCAT3(arg,nvec,njobs)
#include "sharp_core_inc2.c"
#include "sharp_core_inc4.c"
#undef Z
#undef njobs
#endif
@ -17,7 +26,7 @@
#if ((MAXJOB_SPECIAL>=2)&&(SHARP_MAXTRANS>=2))
#define njobs 2
#define Z(arg) CONCAT3(arg,nvec,njobs)
#include "sharp_core_inc2.c"
#include "sharp_core_inc4.c"
#undef Z
#undef njobs
#endif
@ -25,7 +34,7 @@
#if ((MAXJOB_SPECIAL>=3)&&(SHARP_MAXTRANS>=3))
#define njobs 3
#define Z(arg) CONCAT3(arg,nvec,njobs)
#include "sharp_core_inc2.c"
#include "sharp_core_inc4.c"
#undef Z
#undef njobs
#endif
@ -33,7 +42,7 @@
#if ((MAXJOB_SPECIAL>=4)&&(SHARP_MAXTRANS>=4))
#define njobs 4
#define Z(arg) CONCAT3(arg,nvec,njobs)
#include "sharp_core_inc2.c"
#include "sharp_core_inc4.c"
#undef Z
#undef njobs
#endif
@ -41,7 +50,7 @@
#if ((MAXJOB_SPECIAL>=5)&&(SHARP_MAXTRANS>=5))
#define njobs 5
#define Z(arg) CONCAT3(arg,nvec,njobs)
#include "sharp_core_inc2.c"
#include "sharp_core_inc4.c"
#undef Z
#undef njobs
#endif
@ -49,10 +58,13 @@
#if ((MAXJOB_SPECIAL>=6)&&(SHARP_MAXTRANS>=6))
#define njobs 6
#define Z(arg) CONCAT3(arg,nvec,njobs)
#include "sharp_core_inc2.c"
#include "sharp_core_inc4.c"
#undef Z
#undef njobs
#endif
#undef NJ1
#undef NJ2
#undef Y
#undef Tb