Skip to content

Commit 34adaba

Browse files
grisuthedragongrisuthedragon
committed
Add tests for cblas_s/d/zgemmtr
1 parent 8571780 commit 34adaba

File tree

3 files changed

+695
-6
lines changed

3 files changed

+695
-6
lines changed

‎CBLAS/testing/c_d3chke.c‎

Lines changed: 232 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -53,7 +53,237 @@ void F77_d3chke(char *rout
5353
cblas_ok = TRUE ;
5454
cblas_lerr = PASSED ;
5555

56-
if (strncmp( sf,"cblas_dgemm" ,11)==0) {
56+
if (strncmp( sf,"cblas_dgemmtr" ,13)==0) {
57+
cblas_rout = "cblas_dgemmtr" ;
58+
59+
cblas_info = 1;
60+
cblas_dgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0,
61+
ALPHA, A, 1, B, 1, BETA, C, 1 );
62+
chkxer();
63+
cblas_info = 1;
64+
cblas_dgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0,
65+
ALPHA, A, 1, B, 1, BETA, C, 1 );
66+
chkxer();
67+
cblas_info = 1;
68+
cblas_dgemmtr( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0,
69+
ALPHA, A, 1, B, 1, BETA, C, 1 );
70+
chkxer();
71+
cblas_info = 1;
72+
cblas_dgemmtr( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0,
73+
ALPHA, A, 1, B, 1, BETA, C, 1 );
74+
chkxer();
75+
76+
cblas_info = 1;
77+
cblas_dgemmtr( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0,
78+
ALPHA, A, 1, B, 1, BETA, C, 1 );
79+
chkxer();
80+
cblas_info = 1;
81+
cblas_dgemmtr( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0,
82+
ALPHA, A, 1, B, 1, BETA, C, 1 );
83+
chkxer();
84+
cblas_info = 1;
85+
cblas_dgemmtr( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0,
86+
ALPHA, A, 1, B, 1, BETA, C, 1 );
87+
chkxer();
88+
cblas_info = 1;
89+
cblas_dgemmtr( INVALID, CblasLower, CblasTrans, CblasTrans, 0, 0,
90+
ALPHA, A, 1, B, 1, BETA, C, 1 );
91+
chkxer();
92+
93+
cblas_info = 2; RowMajorStrg = FALSE;
94+
cblas_dgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasNoTrans, 0, 0,
95+
ALPHA, A, 1, B, 1, BETA, C, 1 );
96+
chkxer();
97+
cblas_info = 2; RowMajorStrg = FALSE;
98+
cblas_dgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasTrans, 0, 0,
99+
ALPHA, A, 1, B, 1, BETA, C, 1 );
100+
chkxer();
101+
102+
cblas_info = 3; RowMajorStrg = FALSE;
103+
cblas_dgemmtr( CblasColMajor, CblasUpper, INVALID, CblasNoTrans, 0, 0,
104+
ALPHA, A, 1, B, 1, BETA, C, 1 );
105+
chkxer();
106+
cblas_info = 3; RowMajorStrg = FALSE;
107+
cblas_dgemmtr( CblasColMajor, CblasUpper, INVALID, CblasTrans, 0, 0,
108+
ALPHA, A, 1, B, 1, BETA, C, 1 );
109+
chkxer();
110+
111+
cblas_info = 4; RowMajorStrg = FALSE;
112+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0,
113+
ALPHA, A, 1, B, 1, BETA, C, 1 );
114+
chkxer();
115+
cblas_info = 4; RowMajorStrg = FALSE;
116+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 0,
117+
ALPHA, A, 1, B, 1, BETA, C, 1 );
118+
chkxer();
119+
120+
121+
cblas_info = 5; RowMajorStrg = FALSE;
122+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
123+
ALPHA, A, 1, B, 1, BETA, C, 1 );
124+
chkxer();
125+
cblas_info = 5; RowMajorStrg = FALSE;
126+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0,
127+
ALPHA, A, 1, B, 1, BETA, C, 1 );
128+
chkxer();
129+
cblas_info = 5; RowMajorStrg = FALSE;
130+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0,
131+
ALPHA, A, 1, B, 1, BETA, C, 1 );
132+
chkxer();
133+
cblas_info = 5; RowMajorStrg = FALSE;
134+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0,
135+
ALPHA, A, 1, B, 1, BETA, C, 1 );
136+
chkxer();
137+
138+
cblas_info = 6; RowMajorStrg = FALSE;
139+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID,
140+
ALPHA, A, 1, B, 1, BETA, C, 1 );
141+
chkxer();
142+
cblas_info = 6; RowMajorStrg = FALSE;
143+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID,
144+
ALPHA, A, 1, B, 1, BETA, C, 1 );
145+
chkxer();
146+
cblas_info = 6; RowMajorStrg = FALSE;
147+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID,
148+
ALPHA, A, 1, B, 1, BETA, C, 1 );
149+
chkxer();
150+
cblas_info = 6; RowMajorStrg = FALSE;
151+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID,
152+
ALPHA, A, 1, B, 1, BETA, C, 1 );
153+
chkxer();
154+
155+
156+
cblas_info = 9; RowMajorStrg = FALSE;
157+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
158+
ALPHA, A, 1, B, 1, BETA, C, 2 );
159+
chkxer();
160+
cblas_info = 9; RowMajorStrg = FALSE;
161+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0,
162+
ALPHA, A, 1, B, 1, BETA, C, 2 );
163+
chkxer();
164+
cblas_info = 9; RowMajorStrg = FALSE;
165+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
166+
ALPHA, A, 1, B, 2, BETA, C, 1 );
167+
chkxer();
168+
cblas_info = 9; RowMajorStrg = FALSE;
169+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2,
170+
ALPHA, A, 1, B, 1, BETA, C, 1 );
171+
chkxer();
172+
173+
cblas_info = 11; RowMajorStrg = FALSE;
174+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
175+
ALPHA, A, 1, B, 1, BETA, C, 1 );
176+
chkxer();
177+
cblas_info = 11; RowMajorStrg = FALSE;
178+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
179+
ALPHA, A, 2, B, 1, BETA, C, 1 );
180+
chkxer();
181+
cblas_info = 11; RowMajorStrg = FALSE;
182+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
183+
ALPHA, A, 1, B, 1, BETA, C, 1 );
184+
chkxer();
185+
186+
cblas_info = 14; RowMajorStrg = FALSE;
187+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
188+
ALPHA, A, 2, B, 1, BETA, C, 1 );
189+
chkxer();
190+
cblas_info = 14; RowMajorStrg = FALSE;
191+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0,
192+
ALPHA, A, 2, B, 2, BETA, C, 1 );
193+
chkxer();
194+
195+
cblas_info = 14; RowMajorStrg = FALSE;
196+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
197+
ALPHA, A, 2, B, 1, BETA, C, 1 );
198+
chkxer();
199+
cblas_info = 14; RowMajorStrg = FALSE;
200+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
201+
ALPHA, A, 2, B, 2, BETA, C, 1 );
202+
chkxer();
203+
204+
/* Row Major */
205+
cblas_info = 5; RowMajorStrg = TRUE;
206+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0,
207+
ALPHA, A, 1, B, 1, BETA, C, 1 );
208+
chkxer();
209+
cblas_info = 5; RowMajorStrg = TRUE;
210+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0,
211+
ALPHA, A, 1, B, 1, BETA, C, 1 );
212+
chkxer();
213+
cblas_info = 5; RowMajorStrg = TRUE;
214+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0,
215+
ALPHA, A, 1, B, 1, BETA, C, 1 );
216+
chkxer();
217+
cblas_info = 5; RowMajorStrg = TRUE;
218+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0,
219+
ALPHA, A, 1, B, 1, BETA, C, 1 );
220+
chkxer();
221+
222+
cblas_info = 6; RowMajorStrg = TRUE;
223+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID,
224+
ALPHA, A, 1, B, 1, BETA, C, 1 );
225+
chkxer();
226+
cblas_info = 6; RowMajorStrg = TRUE;
227+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID,
228+
ALPHA, A, 1, B, 1, BETA, C, 1 );
229+
chkxer();
230+
cblas_info = 6; RowMajorStrg = TRUE;
231+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID,
232+
ALPHA, A, 1, B, 1, BETA, C, 1 );
233+
chkxer();
234+
cblas_info = 6; RowMajorStrg = TRUE;
235+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID,
236+
ALPHA, A, 1, B, 1, BETA, C, 1 );
237+
chkxer();
238+
239+
cblas_info = 9; RowMajorStrg = TRUE;
240+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
241+
ALPHA, A, 1, B, 1, BETA, C, 2 );
242+
chkxer();
243+
cblas_info = 9; RowMajorStrg = TRUE;
244+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2,
245+
ALPHA, A, 1, B, 2, BETA, C, 2 );
246+
chkxer();
247+
cblas_info = 9; RowMajorStrg = TRUE;
248+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
249+
ALPHA, A, 1, B, 2, BETA, C, 1 );
250+
chkxer();
251+
cblas_info = 9; RowMajorStrg = TRUE;
252+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
253+
ALPHA, A, 1, B, 1, BETA, C, 1 );
254+
chkxer();
255+
256+
cblas_info = 11; RowMajorStrg = TRUE;
257+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2,
258+
ALPHA, A, 1, B, 1, BETA, C, 1 );
259+
chkxer();
260+
cblas_info = 11; RowMajorStrg = TRUE;
261+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2,
262+
ALPHA, A, 2, B, 1, BETA, C, 1 );
263+
chkxer();
264+
cblas_info = 11; RowMajorStrg = TRUE;
265+
cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
266+
ALPHA, A, 1, B, 1, BETA, C, 1 );
267+
chkxer();
268+
269+
cblas_info = 14; RowMajorStrg = TRUE;
270+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0,
271+
ALPHA, A, 2, B, 2, BETA, C, 1 );
272+
chkxer();
273+
cblas_info = 14; RowMajorStrg = TRUE;
274+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0,
275+
ALPHA, A, 2, B, 1, BETA, C, 1 );
276+
chkxer();
277+
cblas_info = 14; RowMajorStrg = TRUE;
278+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0,
279+
ALPHA, A, 2, B, 2, BETA, C, 1 );
280+
chkxer();
281+
cblas_info = 14; RowMajorStrg = TRUE;
282+
cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0,
283+
ALPHA, A, 2, B, 2, BETA, C, 1 );
284+
chkxer();
285+
286+
} else if (strncmp( sf,"cblas_dgemm" ,11)==0) {
57287
cblas_rout = "cblas_dgemm" ;
58288

59289
cblas_info = 1;
@@ -1275,7 +1505,7 @@ void F77_d3chke(char *rout
12751505
chkxer();
12761506
}
12771507
if (cblas_ok == TRUE )
1278-
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
1508+
printf(" %-13s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
12791509
else
12801510
printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
12811511
}

0 commit comments

Comments
 (0)