portelli/Grid
1
0
Fork 0
mirror of https://github.com/paboyle/Grid.git synced 2025-04-28 06:35:55 +01:00
Code Releases Activity

Format emacs style

Browse Source
This commit is contained in:
paboyle 2018-01-12 23:11:22 +00:00
parent 63865e4232
commit 0a6168eef0
1 changed files with 478 additions and 478 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
lib/simd/BGQQPX.h
View File

@ -1,4 +1,4 @@
/************************************************************************************* /*************************************************************************************
Grid physics library, www.github.com/paboyle/Grid Grid physics library, www.github.com/paboyle/Grid
@ -23,8 +23,8 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
See the full license in the file "LICENSE" in the top level distribution directory See the full license in the file "LICENSE" in the top level distribution directory
*************************************************************************************/ *************************************************************************************/
/* END LEGAL */ /* END LEGAL */
#ifndef GRID_ASM_BGQ_QPX_H #ifndef GRID_ASM_BGQ_QPX_H
#define GRID_ASM_BGQ_QPX_H #define GRID_ASM_BGQ_QPX_H
@ -214,7 +214,7 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
: : "r" (32*2), "r" (32*5), "r" (32*8), "r" (ub )); \ : : "r" (32*2), "r" (32*5), "r" (32*8), "r" (ub )); \
} }
#define SAVE_RESULT(base,basep) {\ #define SAVE_RESULT(base,basep) { \
uint64_t ub = ((uint64_t)base) - 32; \ uint64_t ub = ((uint64_t)base) - 32; \
asm("mr %0,"REP";\n\t" \ asm("mr %0,"REP";\n\t" \
"li " IMM ",32;\n\t" \ "li " IMM ",32;\n\t" \
@ -231,7 +231,7 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
VSTORE(IMM,REP,psi_31) \ VSTORE(IMM,REP,psi_31) \
VSTORE(IMM,REP,psi_32) \ VSTORE(IMM,REP,psi_32) \
); \ ); \
} }
/* /*
*Annoying BG/Q loads with no immediat indexing and big performance hit *Annoying BG/Q loads with no immediat indexing and big performance hit
@ -327,7 +327,7 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
); \ ); \
} }
/*Gz /*Gz
* 0 0 i 0 [0]+-i[2] * 0 0 i 0 [0]+-i[2]
* 0 0 0 -i [1]-+i[3] * 0 0 0 -i [1]-+i[3]
* -i 0 0 0 * -i 0 0 0
@ -358,7 +358,7 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
VMADD_MII_IR(one,Chimu_32,Chimu_12,Chi_12) \ VMADD_MII_IR(one,Chimu_32,Chimu_12,Chi_12) \
); \ ); \
} }
/*Gt /*Gt
* 0 0 1 0 [0]+-[2] * 0 0 1 0 [0]+-[2]
* 0 0 0 1 [1]+-[3] * 0 0 0 1 [1]+-[3]
* 1 0 0 0 * 1 0 0 0
@ -398,12 +398,12 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
fspin(1)+=hspin(1); fspin(1)+=hspin(1);
fspin(2)-=timesI(hspin(1)); fspin(2)-=timesI(hspin(1));
fspin(3)-=timesI(hspin(0)); fspin(3)-=timesI(hspin(0));
*/ */
#define XP_RECON { \ #define XP_RECON { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VMOV(psi_00,UChi_00) VMOV(psi_01,UChi_01) VMOV(psi_02,UChi_02)\ VMOV(psi_00,UChi_00) VMOV(psi_01,UChi_01) VMOV(psi_02,UChi_02) \
VMOV(psi_10,UChi_10) VMOV(psi_11,UChi_11) VMOV(psi_12,UChi_12)\ VMOV(psi_10,UChi_10) VMOV(psi_11,UChi_11) VMOV(psi_12,UChi_12) \
VZERO(psi_20) VZERO(psi_21) VZERO(psi_22) \ VZERO(psi_20) VZERO(psi_21) VZERO(psi_22) \
VZERO(psi_30) VZERO(psi_31) VZERO(psi_32) \ VZERO(psi_30) VZERO(psi_31) VZERO(psi_32) \
VMADD_II_MIR(one,UChi_10,psi_20,psi_20) \ VMADD_II_MIR(one,UChi_10,psi_20,psi_20) \
@ -416,10 +416,10 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
} }
#define XM_RECON { \ #define XM_RECON { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VMOV(psi_00,UChi_00) VMOV(psi_01,UChi_01) VMOV(psi_02,UChi_02)\ VMOV(psi_00,UChi_00) VMOV(psi_01,UChi_01) VMOV(psi_02,UChi_02) \
VMOV(psi_10,UChi_10) VMOV(psi_11,UChi_11) VMOV(psi_12,UChi_12)\ VMOV(psi_10,UChi_10) VMOV(psi_11,UChi_11) VMOV(psi_12,UChi_12) \
VZERO(psi_20) VZERO(psi_21) VZERO(psi_22) \ VZERO(psi_20) VZERO(psi_21) VZERO(psi_22) \
VZERO(psi_30) VZERO(psi_31) VZERO(psi_32) \ VZERO(psi_30) VZERO(psi_31) VZERO(psi_32) \
VMADD_MII_IR(one,UChi_10,psi_20,psi_20) \ VMADD_MII_IR(one,UChi_10,psi_20,psi_20) \
@ -432,8 +432,8 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
} }
#define XP_RECON_ACCUM { \ #define XP_RECON_ACCUM { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VMADD_II_MIR(one,UChi_10,psi_20,psi_20) \ VMADD_II_MIR(one,UChi_10,psi_20,psi_20) \
@ -446,8 +446,8 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
} }
#define XM_RECON_ACCUM { \ #define XM_RECON_ACCUM { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VMADD_MII_IR(one,UChi_10,psi_20,psi_20) \ VMADD_MII_IR(one,UChi_10,psi_20,psi_20) \
@ -461,28 +461,28 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
// fspin(2)+=hspin(1); // fspin(2)+=hspin(1);
// fspin(3)-=hspin(0); // fspin(3)-=hspin(0);
#define YP_RECON_ACCUM {\ #define YP_RECON_ACCUM { \
asm(\ asm( \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VADD(psi_20,UChi_10,psi_20) VADD(psi_21,UChi_11,psi_21) VADD(psi_22,UChi_12,psi_22) \ VADD(psi_20,UChi_10,psi_20) VADD(psi_21,UChi_11,psi_21) VADD(psi_22,UChi_12,psi_22) \
VSUB(psi_30,UChi_00,psi_30) VSUB(psi_31,UChi_01,psi_31) VSUB(psi_32,UChi_02,psi_32) \ VSUB(psi_30,UChi_00,psi_30) VSUB(psi_31,UChi_01,psi_31) VSUB(psi_32,UChi_02,psi_32) \
);\ ); \
} }
#define YM_RECON_ACCUM {\ #define YM_RECON_ACCUM { \
asm(\ asm( \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VSUB(psi_20,UChi_10,psi_20) VSUB(psi_21,UChi_11,psi_21) VSUB(psi_22,UChi_12,psi_22) \ VSUB(psi_20,UChi_10,psi_20) VSUB(psi_21,UChi_11,psi_21) VSUB(psi_22,UChi_12,psi_22) \
VADD(psi_30,UChi_00,psi_30) VADD(psi_31,UChi_01,psi_31) VADD(psi_32,UChi_02,psi_32) \ VADD(psi_30,UChi_00,psi_30) VADD(psi_31,UChi_01,psi_31) VADD(psi_32,UChi_02,psi_32) \
);\ ); \
} }
// fspin(2)-=timesI(hspin(0)); // fspin(2)-=timesI(hspin(0));
// fspin(3)+=timesI(hspin(1)); // fspin(3)+=timesI(hspin(1));
#define ZP_RECON_ACCUM {\ #define ZP_RECON_ACCUM { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VMADD_II_MIR(one,UChi_00,psi_20,psi_20) \ VMADD_II_MIR(one,UChi_00,psi_20,psi_20) \
@ -491,12 +491,12 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
VMADD_MII_IR(one,UChi_10,psi_30,psi_30) \ VMADD_MII_IR(one,UChi_10,psi_30,psi_30) \
VMADD_MII_IR(one,UChi_11,psi_31,psi_31) \ VMADD_MII_IR(one,UChi_11,psi_31,psi_31) \
VMADD_MII_IR(one,UChi_12,psi_32,psi_32) \ VMADD_MII_IR(one,UChi_12,psi_32,psi_32) \
);\ ); \
} }
#define ZM_RECON_ACCUM {\ #define ZM_RECON_ACCUM { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VMADD_MII_IR(one,UChi_00,psi_20,psi_20) \ VMADD_MII_IR(one,UChi_00,psi_20,psi_20) \
@ -505,28 +505,28 @@ Author: paboyle <paboyle@ph.ed.ac.uk>
VMADD_II_MIR(one,UChi_10,psi_30,psi_30) \ VMADD_II_MIR(one,UChi_10,psi_30,psi_30) \
VMADD_II_MIR(one,UChi_11,psi_31,psi_31) \ VMADD_II_MIR(one,UChi_11,psi_31,psi_31) \
VMADD_II_MIR(one,UChi_12,psi_32,psi_32) \ VMADD_II_MIR(one,UChi_12,psi_32,psi_32) \
);\ ); \
} }
// fspin(2)+=hspin(0); // fspin(2)+=hspin(0);
// fspin(3)+=hspin(1); // fspin(3)+=hspin(1);
#define TP_RECON_ACCUM {\ #define TP_RECON_ACCUM { \
asm(\ asm( \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VADD(psi_20,UChi_00,psi_20) VADD(psi_21,UChi_01,psi_21) VADD(psi_22,UChi_02,psi_22) \ VADD(psi_20,UChi_00,psi_20) VADD(psi_21,UChi_01,psi_21) VADD(psi_22,UChi_02,psi_22) \
VADD(psi_30,UChi_10,psi_30) VADD(psi_31,UChi_11,psi_31) VADD(psi_32,UChi_12,psi_32) \ VADD(psi_30,UChi_10,psi_30) VADD(psi_31,UChi_11,psi_31) VADD(psi_32,UChi_12,psi_32) \
);\ ); \
} }
#define TM_RECON_ACCUM {\ #define TM_RECON_ACCUM { \
asm(\ asm( \
VONE(one)\ VONE(one) \
VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \ VADD(psi_00,UChi_00,psi_00) VADD(psi_01,UChi_01,psi_01) VADD(psi_02,UChi_02,psi_02) \
VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \ VADD(psi_10,UChi_10,psi_10) VADD(psi_11,UChi_11,psi_11) VADD(psi_12,UChi_12,psi_12) \
VSUB(psi_20,UChi_00,psi_20) VSUB(psi_21,UChi_01,psi_21) VSUB(psi_22,UChi_02,psi_22) \ VSUB(psi_20,UChi_00,psi_20) VSUB(psi_21,UChi_01,psi_21) VSUB(psi_22,UChi_02,psi_22) \
VSUB(psi_30,UChi_10,psi_30) VSUB(psi_31,UChi_11,psi_31) VSUB(psi_32,UChi_12,psi_32) \ VSUB(psi_30,UChi_10,psi_30) VSUB(psi_31,UChi_11,psi_31) VSUB(psi_32,UChi_12,psi_32) \
);\ ); \
} }
uint64_t GetPFInfo(int nent,int plocal); uint64_t GetPFInfo(int nent,int plocal);