-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgeneric_qopmilc.h
84 lines (74 loc) · 3.59 KB
/
generic_qopmilc.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#ifndef _GENERIC_QOPMILC_H
#define _GENERIC_QOPMILC_H
/******************** generic_qopmilc.h *****************************
* MIMD version 7 *
*/
#include <qop.h>
#include "../include/su3.h"
/* map_milc_to_qopmilc.c */
fsu3_matrix ** create_raw4_F_G (void);
fsu3_matrix ** create_raw4_F_F (void);
fsu3_vector * create_raw_F_V(void);
fwilson_vector * create_raw_F_D(void);
void destroy_raw4_F_G (fsu3_matrix *raw[]);
void destroy_raw4_F_F (fsu3_matrix *raw[]);
void destroy_raw_F_V (fsu3_vector *raw);
void destroy_raw_F_D (fwilson_vector *raw);
fsu3_matrix ** create_raw4_F_G_from_site(field_offset src, int milc_parity);
fsu3_matrix ** create_raw4_F_F_from_site(field_offset src, int milc_parity);
fsu3_vector * create_raw_F_V_from_site(field_offset src, int milc_parity);
fwilson_vector * create_raw_F_D_from_site(field_offset src, int milc_parity);
fsu3_matrix ** create_raw4_F_G_from_field(su3_matrix *src, int milc_parity);
fsu3_matrix ** create_raw4_F_F_from_field(anti_hermitmat *src,
int milc_parity);
fsu3_vector * create_raw_F_V_from_field(su3_vector *src, int milc_parity);
fwilson_vector * create_raw_F_D_from_field(wilson_vector *src, int milc_parity);
void unload_raw4_F_G_to_site(field_offset dest, fsu3_matrix *raw[],
int milc_parity);
void unload_raw4_F_F_to_site(field_offset dest, fsu3_matrix *raw[],
int milc_parity);
void unload_raw_F_V_to_site(field_offset dest, fsu3_vector *raw,
int milc_parity);
void unload_raw_F_D_to_site(field_offset dest, fwilson_vector *raw,
int milc_parity);
void unload_raw4_F_G_to_field(su3_matrix *dest, fsu3_matrix *raw[],
int milc_parity);
void unload_raw4_F_F_to_field(anti_hermitmat *dest, fsu3_matrix *raw[],
int milc_parity);
void unload_raw_F_V_to_field(su3_vector *dest, fsu3_vector *raw,
int milc_parity);
void unload_raw_F_D_to_field(wilson_vector *dest, fwilson_vector *raw,
int milc_parity);
dsu3_matrix ** create_raw4_D_G (void);
void destroy_raw4_D_G (dsu3_matrix *raw[]);
dsu3_matrix ** create_raw4_D_F (void);
void destroy_raw4_D_F (dsu3_matrix *raw[]);
dsu3_vector * create_raw_D_V(void);
void destroy_raw_D_V (dsu3_vector *raw);
void destroy_raw_D_D (dwilson_vector *raw);
dsu3_matrix ** create_raw4_D_G_from_site(field_offset src, int milc_parity);
dsu3_matrix ** create_raw4_D_G_from_field(su3_matrix *src, int milc_parity);
dsu3_matrix ** create_raw4_D_F_from_site(field_offset src, int milc_parity);
dsu3_matrix ** create_raw4_D_F_from_field(anti_hermitmat *src,
int milc_parity);
dsu3_vector * create_raw_D_V_from_site(field_offset src, int milc_parity);
dsu3_vector * create_raw_D_V_from_field(su3_vector *src, int milc_parity);
dwilson_vector * create_raw_D_D_from_site(field_offset src, int milc_parity);
dwilson_vector * create_raw_D_D_from_field(wilson_vector *src, int milc_parity);
void unload_raw4_D_G_to_site(field_offset dest, dsu3_matrix *raw[],
int milc_parity);
void unload_raw4_D_G_to_field(su3_matrix *dest, dsu3_matrix *raw[],
int milc_parity);
void unload_raw4_D_F_to_site(field_offset dest, dsu3_matrix *raw[],
int milc_parity);
void unload_raw4_D_F_to_field(anti_hermitmat *dest, dsu3_matrix *raw[],
int milc_parity);
void unload_raw_D_V_to_site(field_offset dest, dsu3_vector *raw,
int milc_parity);
void unload_raw_D_V_to_field(su3_vector *dest, dsu3_vector *raw,
int milc_parity);
void unload_raw_D_D_to_site(field_offset dest, dwilson_vector *raw,
int milc_parity);
void unload_raw_D_D_to_field(wilson_vector *dest, dwilson_vector *raw,
int milc_parity);
#endif /* GENERIC_QOPMILC_H */