int main(int argc, char *argv[]){vsip_init((void*)0);
{ if(argc < 3){
printf("usage\nqrdex M N FileName\n");
} else {
/* matrix size */
vsip_length M = (vsip_length)atoi(argv[1]),
N = (vsip_length)atoi(argv[2]);
/* Create some space to hold the matrix */
vsip_cmview_d *A = vsip_cmcreate_d(M,N,VSIP_COL,VSIP_MEM_NONE),
*A0 = vsip_cmcreate_d(M,N,VSIP_COL,VSIP_MEM_NONE);
/* get data */
FILE *fptr = fopen(argv[3],"r");
VU_cmreadf_d(fptr,A);
fclose(fptr);
vsip_cmcopy_d_d(A,A0); /* will use A, original data in A0 */
{ /* test prodq for Q1 */
/* create a QRD object */
vsip_cqr_d *qrd = vsip_cqrd_create_d(M,N,VSIP_QRD_SAVEQ);
/* create a matrix to hold Q */
vsip_cmview_d *I = VU_cI_d(M);
vsip_cmview_d *Q = vsip_cmsubview_d(I,0,0,M,M);
vsip_cmview_d *Qt = vsip_cmtransview_d(Q);
/* create a matrix to hold R */
vsip_cmview_d *A1 = vsip_cmcreate_d(M,N,VSIP_ROW,VSIP_MEM_NONE);
vsip_cmview_d *R1 = vsip_cmsubview_d(A1,0,0,M,N);
vsip_cmview_d *R = vsip_cmcreate_d(M,N,VSIP_ROW,VSIP_MEM_NONE);
/* create a matrix to hold Q Q^h */
vsip_cmview_d *I1 = vsip_cmcreate_d(M,M,VSIP_ROW,VSIP_MEM_NONE);
/* create a matrix to hold Q^h Q */
vsip_cmview_d *I2 = vsip_cmcreate_d(M,M,VSIP_ROW,VSIP_MEM_NONE);
/* do decomposition */
vsip_cqrd_d(qrd,A);
printf("A decomposed = "); VU_cmprintm_d("6.4",A);
/* find Q */
vsip_cqrdprodq_d(qrd,VSIP_MAT_NTRANS,VSIP_MAT_RSIDE,I);
printf("A = "); VU_cmprintm_d("6.4",A0);
printf("Q = "); VU_cmprintm_d("6.4",Q);
/* find R */
vsip_cmcopy_d_d(A0,A1);
VU_cmconjIP_d(Qt);
vsip_cmprod_d(Qt,A1,R);
VU_cmconjIP_d(Qt);
printf("From mprod R = "); VU_cmprintm_d("6.4",R);
vsip_cqrdprodq_d(qrd,VSIP_MAT_HERM,VSIP_MAT_LSIDE,A1);
printf("From qrdprod R = "); VU_cmprintm_d("6.4",R1);
/* find A from Q and R */
vsip_cmprod_d(Q,R,A1);
printf("Q R = ");VU_cmprintm_d("6.4",A1);
/* find Q^h Q using mprod */
VU_cmfillz_d(I1); VU_cmfillz_d(I2);
vsip_cmherm_d(Q,I1);
vsip_cmprod_d(I1,Q,I2);
printf("directly using mprod Q^h Q = "); VU_cmprintm_d("6.4",I2);
/* find Q^h Q using matprod on Rside */
VU_cmfillz_d(I1);
vsip_cmherm_d(Q,I1);
vsip_cqrdprodq_d(qrd,VSIP_MAT_NTRANS,VSIP_MAT_RSIDE,I1);
printf("using qrdprodq Q^h Q Rside = "); VU_cmprintm_d("6.4",I1);
/* find Q^h Q using matprod on Lside */
VU_cmfillz_d(I2);
vsip_cmcopy_d_d(Q,I2);
vsip_cqrdprodq_d(qrd,VSIP_MAT_HERM,VSIP_MAT_LSIDE,I2);
printf("using qrdprodq Q^h Q Lside = "); VU_cmprintm_d("6.4",I2);
/* find Q Q^h using Mprod */
VU_cmfillz_d(I1); VU_cmfillz_d(I2);
vsip_cmherm_d(Q,I1);
vsip_cmprod_d(Q,I1,I2);
printf("directly using mprod Q Q^h = "); VU_cmprintm_d("6.4",I2);
/* find Q Q^h using matprod on Rside */
VU_cmfillz_d(I1);
vsip_cmcopy_d_d(Q,I1);
vsip_cqrdprodq_d(qrd,VSIP_MAT_HERM,VSIP_MAT_RSIDE,I1);
printf("using qrdprodq Q Q^h Rside = "); VU_cmprintm_d("6.4",I1);
/* find Q Q^h using matprod on Lside */
VU_cmfillz_d(I2);
vsip_cmherm_d(Q,I2);
vsip_cqrdprodq_d(qrd,VSIP_MAT_NTRANS,VSIP_MAT_LSIDE,I2);
printf("using qrdprodq Q Q^h Lside = "); VU_cmprintm_d("6.4",I2);
}
}
}vsip_finalize((void*)0);return 0;
}
static int qr_prodq(qr_type *qr, mat_op_type o, product_side_type s, matrix_type *m)
{ return vsip_cqrdprodq_d(qr, mat_op(o), product_side(s), m); }
