Actual source code: maij.c

petsc-3.14.6 2021-03-30
Report Typos and Errors

  2: /*
  3:     Defines the basic matrix operations for the MAIJ  matrix storage format.
  4:   This format is used for restriction and interpolation operations for
  5:   multicomponent problems. It interpolates each component the same way
  6:   independently.

  8:      We provide:
  9:          MatMult()
 10:          MatMultTranspose()
 11:          MatMultTransposeAdd()
 12:          MatMultAdd()
 13:           and
 14:          MatCreateMAIJ(Mat,dof,Mat*)

 16:      This single directory handles both the sequential and parallel codes
 17: */

 19: #include <../src/mat/impls/maij/maij.h>
 20: #include <../src/mat/utils/freespace.h>

 22: /*@
 23:    MatMAIJGetAIJ - Get the AIJ matrix describing the blockwise action of the MAIJ matrix

 25:    Not Collective, but if the MAIJ matrix is parallel, the AIJ matrix is also parallel

 27:    Input Parameter:
 28: .  A - the MAIJ matrix

 30:    Output Parameter:
 31: .  B - the AIJ matrix

 33:    Level: advanced

 35:    Notes:
 36:     The reference count on the AIJ matrix is not increased so you should not destroy it.

 38: .seealso: MatCreateMAIJ()
 39: @*/
 40: PetscErrorCode  MatMAIJGetAIJ(Mat A,Mat *B)
 41: {
 43:   PetscBool      ismpimaij,isseqmaij;

 46:   PetscObjectTypeCompare((PetscObject)A,MATMPIMAIJ,&ismpimaij);
 47:   PetscObjectTypeCompare((PetscObject)A,MATSEQMAIJ,&isseqmaij);
 48:   if (ismpimaij) {
 49:     Mat_MPIMAIJ *b = (Mat_MPIMAIJ*)A->data;

 51:     *B = b->A;
 52:   } else if (isseqmaij) {
 53:     Mat_SeqMAIJ *b = (Mat_SeqMAIJ*)A->data;

 55:     *B = b->AIJ;
 56:   } else {
 57:     *B = A;
 58:   }
 59:   return(0);
 60: }

 62: /*@
 63:    MatMAIJRedimension - Get an MAIJ matrix with the same action, but for a different block size

 65:    Logically Collective

 67:    Input Parameter:
 68: +  A - the MAIJ matrix
 69: -  dof - the block size for the new matrix

 71:    Output Parameter:
 72: .  B - the new MAIJ matrix

 74:    Level: advanced

 76: .seealso: MatCreateMAIJ()
 77: @*/
 78: PetscErrorCode  MatMAIJRedimension(Mat A,PetscInt dof,Mat *B)
 79: {
 81:   Mat            Aij = NULL;

 85:   MatMAIJGetAIJ(A,&Aij);
 86:   MatCreateMAIJ(Aij,dof,B);
 87:   return(0);
 88: }

 90: PetscErrorCode MatDestroy_SeqMAIJ(Mat A)
 91: {
 93:   Mat_SeqMAIJ    *b = (Mat_SeqMAIJ*)A->data;

 96:   MatDestroy(&b->AIJ);
 97:   PetscFree(A->data);
 98:   PetscObjectComposeFunction((PetscObject)A,"MatConvert_seqmaij_seqaij_C",NULL);
 99:   PetscObjectComposeFunction((PetscObject)A,"MatProductSetFromOptions_seqaij_seqmaij_C",NULL);
100:   return(0);
101: }

103: PetscErrorCode MatSetUp_MAIJ(Mat A)
104: {
106:   SETERRQ(PetscObjectComm((PetscObject)A),PETSC_ERR_SUP,"Must use MatCreateMAIJ() to create MAIJ matrices");
107: }

109: PetscErrorCode MatView_SeqMAIJ(Mat A,PetscViewer viewer)
110: {
112:   Mat            B;

115:   MatConvert(A,MATSEQAIJ,MAT_INITIAL_MATRIX,&B);
116:   MatView(B,viewer);
117:   MatDestroy(&B);
118:   return(0);
119: }

121: PetscErrorCode MatView_MPIMAIJ(Mat A,PetscViewer viewer)
122: {
124:   Mat            B;

127:   MatConvert(A,MATMPIAIJ,MAT_INITIAL_MATRIX,&B);
128:   MatView(B,viewer);
129:   MatDestroy(&B);
130:   return(0);
131: }

133: PetscErrorCode MatDestroy_MPIMAIJ(Mat A)
134: {
136:   Mat_MPIMAIJ    *b = (Mat_MPIMAIJ*)A->data;

139:   MatDestroy(&b->AIJ);
140:   MatDestroy(&b->OAIJ);
141:   MatDestroy(&b->A);
142:   VecScatterDestroy(&b->ctx);
143:   VecDestroy(&b->w);
144:   PetscFree(A->data);
145:   PetscObjectComposeFunction((PetscObject)A,"MatConvert_mpimaij_mpiaij_C",NULL);
146:   PetscObjectComposeFunction((PetscObject)A,"MatProductSetFromOptions_mpiaij_mpimaij_C",NULL);
147:   PetscObjectChangeTypeName((PetscObject)A,NULL);
148:   return(0);
149: }

151: /*MC
152:   MATMAIJ - MATMAIJ = "maij" - A matrix type to be used for restriction and interpolation operations for
153:   multicomponent problems, interpolating or restricting each component the same way independently.
154:   The matrix type is based on MATSEQAIJ for sequential matrices, and MATMPIAIJ for distributed matrices.

156:   Operations provided:
157: + MatMult
158: . MatMultTranspose
159: . MatMultAdd
160: - MatMultTransposeAdd

162:   Level: advanced

164: .seealso: MatMAIJGetAIJ(), MatMAIJRedimension(), MatCreateMAIJ()
165: M*/

167: PETSC_EXTERN PetscErrorCode MatCreate_MAIJ(Mat A)
168: {
170:   Mat_MPIMAIJ    *b;
171:   PetscMPIInt    size;

174:   PetscNewLog(A,&b);
175:   A->data  = (void*)b;

177:   PetscMemzero(A->ops,sizeof(struct _MatOps));

179:   A->ops->setup = MatSetUp_MAIJ;

181:   b->AIJ  = NULL;
182:   b->dof  = 0;
183:   b->OAIJ = NULL;
184:   b->ctx  = NULL;
185:   b->w    = NULL;
186:   MPI_Comm_size(PetscObjectComm((PetscObject)A),&size);
187:   if (size == 1) {
188:     PetscObjectChangeTypeName((PetscObject)A,MATSEQMAIJ);
189:   } else {
190:     PetscObjectChangeTypeName((PetscObject)A,MATMPIMAIJ);
191:   }
192:   A->preallocated  = PETSC_TRUE;
193:   A->assembled     = PETSC_TRUE;
194:   return(0);
195: }

197: /* --------------------------------------------------------------------------------------*/
198: PetscErrorCode MatMult_SeqMAIJ_2(Mat A,Vec xx,Vec yy)
199: {
200:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
201:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
202:   const PetscScalar *x,*v;
203:   PetscScalar       *y, sum1, sum2;
204:   PetscErrorCode    ierr;
205:   PetscInt          nonzerorow=0,n,i,jrow,j;
206:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;

209:   VecGetArrayRead(xx,&x);
210:   VecGetArray(yy,&y);
211:   idx  = a->j;
212:   v    = a->a;
213:   ii   = a->i;

215:   for (i=0; i<m; i++) {
216:     jrow  = ii[i];
217:     n     = ii[i+1] - jrow;
218:     sum1  = 0.0;
219:     sum2  = 0.0;

221:     nonzerorow += (n>0);
222:     for (j=0; j<n; j++) {
223:       sum1 += v[jrow]*x[2*idx[jrow]];
224:       sum2 += v[jrow]*x[2*idx[jrow]+1];
225:       jrow++;
226:     }
227:     y[2*i]   = sum1;
228:     y[2*i+1] = sum2;
229:   }

231:   PetscLogFlops(4.0*a->nz - 2.0*nonzerorow);
232:   VecRestoreArrayRead(xx,&x);
233:   VecRestoreArray(yy,&y);
234:   return(0);
235: }

237: PetscErrorCode MatMultTranspose_SeqMAIJ_2(Mat A,Vec xx,Vec yy)
238: {
239:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
240:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
241:   const PetscScalar *x,*v;
242:   PetscScalar       *y,alpha1,alpha2;
243:   PetscErrorCode    ierr;
244:   PetscInt          n,i;
245:   const PetscInt    m = b->AIJ->rmap->n,*idx;

248:   VecSet(yy,0.0);
249:   VecGetArrayRead(xx,&x);
250:   VecGetArray(yy,&y);

252:   for (i=0; i<m; i++) {
253:     idx    = a->j + a->i[i];
254:     v      = a->a + a->i[i];
255:     n      = a->i[i+1] - a->i[i];
256:     alpha1 = x[2*i];
257:     alpha2 = x[2*i+1];
258:     while (n-->0) {
259:       y[2*(*idx)]   += alpha1*(*v);
260:       y[2*(*idx)+1] += alpha2*(*v);
261:       idx++; v++;
262:     }
263:   }
264:   PetscLogFlops(4.0*a->nz);
265:   VecRestoreArrayRead(xx,&x);
266:   VecRestoreArray(yy,&y);
267:   return(0);
268: }

270: PetscErrorCode MatMultAdd_SeqMAIJ_2(Mat A,Vec xx,Vec yy,Vec zz)
271: {
272:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
273:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
274:   const PetscScalar *x,*v;
275:   PetscScalar       *y,sum1, sum2;
276:   PetscErrorCode    ierr;
277:   PetscInt          n,i,jrow,j;
278:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;

281:   if (yy != zz) {VecCopy(yy,zz);}
282:   VecGetArrayRead(xx,&x);
283:   VecGetArray(zz,&y);
284:   idx  = a->j;
285:   v    = a->a;
286:   ii   = a->i;

288:   for (i=0; i<m; i++) {
289:     jrow = ii[i];
290:     n    = ii[i+1] - jrow;
291:     sum1 = 0.0;
292:     sum2 = 0.0;
293:     for (j=0; j<n; j++) {
294:       sum1 += v[jrow]*x[2*idx[jrow]];
295:       sum2 += v[jrow]*x[2*idx[jrow]+1];
296:       jrow++;
297:     }
298:     y[2*i]   += sum1;
299:     y[2*i+1] += sum2;
300:   }

302:   PetscLogFlops(4.0*a->nz);
303:   VecRestoreArrayRead(xx,&x);
304:   VecRestoreArray(zz,&y);
305:   return(0);
306: }
307: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_2(Mat A,Vec xx,Vec yy,Vec zz)
308: {
309:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
310:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
311:   const PetscScalar *x,*v;
312:   PetscScalar       *y,alpha1,alpha2;
313:   PetscErrorCode    ierr;
314:   PetscInt          n,i;
315:   const PetscInt    m = b->AIJ->rmap->n,*idx;

318:   if (yy != zz) {VecCopy(yy,zz);}
319:   VecGetArrayRead(xx,&x);
320:   VecGetArray(zz,&y);

322:   for (i=0; i<m; i++) {
323:     idx    = a->j + a->i[i];
324:     v      = a->a + a->i[i];
325:     n      = a->i[i+1] - a->i[i];
326:     alpha1 = x[2*i];
327:     alpha2 = x[2*i+1];
328:     while (n-->0) {
329:       y[2*(*idx)]   += alpha1*(*v);
330:       y[2*(*idx)+1] += alpha2*(*v);
331:       idx++; v++;
332:     }
333:   }
334:   PetscLogFlops(4.0*a->nz);
335:   VecRestoreArrayRead(xx,&x);
336:   VecRestoreArray(zz,&y);
337:   return(0);
338: }
339: /* --------------------------------------------------------------------------------------*/
340: PetscErrorCode MatMult_SeqMAIJ_3(Mat A,Vec xx,Vec yy)
341: {
342:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
343:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
344:   const PetscScalar *x,*v;
345:   PetscScalar       *y,sum1, sum2, sum3;
346:   PetscErrorCode    ierr;
347:   PetscInt          nonzerorow=0,n,i,jrow,j;
348:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;

351:   VecGetArrayRead(xx,&x);
352:   VecGetArray(yy,&y);
353:   idx  = a->j;
354:   v    = a->a;
355:   ii   = a->i;

357:   for (i=0; i<m; i++) {
358:     jrow  = ii[i];
359:     n     = ii[i+1] - jrow;
360:     sum1  = 0.0;
361:     sum2  = 0.0;
362:     sum3  = 0.0;

364:     nonzerorow += (n>0);
365:     for (j=0; j<n; j++) {
366:       sum1 += v[jrow]*x[3*idx[jrow]];
367:       sum2 += v[jrow]*x[3*idx[jrow]+1];
368:       sum3 += v[jrow]*x[3*idx[jrow]+2];
369:       jrow++;
370:      }
371:     y[3*i]   = sum1;
372:     y[3*i+1] = sum2;
373:     y[3*i+2] = sum3;
374:   }

376:   PetscLogFlops(6.0*a->nz - 3.0*nonzerorow);
377:   VecRestoreArrayRead(xx,&x);
378:   VecRestoreArray(yy,&y);
379:   return(0);
380: }

382: PetscErrorCode MatMultTranspose_SeqMAIJ_3(Mat A,Vec xx,Vec yy)
383: {
384:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
385:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
386:   const PetscScalar *x,*v;
387:   PetscScalar       *y,alpha1,alpha2,alpha3;
388:   PetscErrorCode    ierr;
389:   PetscInt          n,i;
390:   const PetscInt    m = b->AIJ->rmap->n,*idx;

393:   VecSet(yy,0.0);
394:   VecGetArrayRead(xx,&x);
395:   VecGetArray(yy,&y);

397:   for (i=0; i<m; i++) {
398:     idx    = a->j + a->i[i];
399:     v      = a->a + a->i[i];
400:     n      = a->i[i+1] - a->i[i];
401:     alpha1 = x[3*i];
402:     alpha2 = x[3*i+1];
403:     alpha3 = x[3*i+2];
404:     while (n-->0) {
405:       y[3*(*idx)]   += alpha1*(*v);
406:       y[3*(*idx)+1] += alpha2*(*v);
407:       y[3*(*idx)+2] += alpha3*(*v);
408:       idx++; v++;
409:     }
410:   }
411:   PetscLogFlops(6.0*a->nz);
412:   VecRestoreArrayRead(xx,&x);
413:   VecRestoreArray(yy,&y);
414:   return(0);
415: }

417: PetscErrorCode MatMultAdd_SeqMAIJ_3(Mat A,Vec xx,Vec yy,Vec zz)
418: {
419:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
420:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
421:   const PetscScalar *x,*v;
422:   PetscScalar       *y,sum1, sum2, sum3;
423:   PetscErrorCode    ierr;
424:   PetscInt          n,i,jrow,j;
425:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;

428:   if (yy != zz) {VecCopy(yy,zz);}
429:   VecGetArrayRead(xx,&x);
430:   VecGetArray(zz,&y);
431:   idx  = a->j;
432:   v    = a->a;
433:   ii   = a->i;

435:   for (i=0; i<m; i++) {
436:     jrow = ii[i];
437:     n    = ii[i+1] - jrow;
438:     sum1 = 0.0;
439:     sum2 = 0.0;
440:     sum3 = 0.0;
441:     for (j=0; j<n; j++) {
442:       sum1 += v[jrow]*x[3*idx[jrow]];
443:       sum2 += v[jrow]*x[3*idx[jrow]+1];
444:       sum3 += v[jrow]*x[3*idx[jrow]+2];
445:       jrow++;
446:     }
447:     y[3*i]   += sum1;
448:     y[3*i+1] += sum2;
449:     y[3*i+2] += sum3;
450:   }

452:   PetscLogFlops(6.0*a->nz);
453:   VecRestoreArrayRead(xx,&x);
454:   VecRestoreArray(zz,&y);
455:   return(0);
456: }
457: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_3(Mat A,Vec xx,Vec yy,Vec zz)
458: {
459:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
460:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
461:   const PetscScalar *x,*v;
462:   PetscScalar       *y,alpha1,alpha2,alpha3;
463:   PetscErrorCode    ierr;
464:   PetscInt          n,i;
465:   const PetscInt    m = b->AIJ->rmap->n,*idx;

468:   if (yy != zz) {VecCopy(yy,zz);}
469:   VecGetArrayRead(xx,&x);
470:   VecGetArray(zz,&y);
471:   for (i=0; i<m; i++) {
472:     idx    = a->j + a->i[i];
473:     v      = a->a + a->i[i];
474:     n      = a->i[i+1] - a->i[i];
475:     alpha1 = x[3*i];
476:     alpha2 = x[3*i+1];
477:     alpha3 = x[3*i+2];
478:     while (n-->0) {
479:       y[3*(*idx)]   += alpha1*(*v);
480:       y[3*(*idx)+1] += alpha2*(*v);
481:       y[3*(*idx)+2] += alpha3*(*v);
482:       idx++; v++;
483:     }
484:   }
485:   PetscLogFlops(6.0*a->nz);
486:   VecRestoreArrayRead(xx,&x);
487:   VecRestoreArray(zz,&y);
488:   return(0);
489: }

491: /* ------------------------------------------------------------------------------*/
492: PetscErrorCode MatMult_SeqMAIJ_4(Mat A,Vec xx,Vec yy)
493: {
494:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
495:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
496:   const PetscScalar *x,*v;
497:   PetscScalar       *y,sum1, sum2, sum3, sum4;
498:   PetscErrorCode    ierr;
499:   PetscInt          nonzerorow=0,n,i,jrow,j;
500:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;

503:   VecGetArrayRead(xx,&x);
504:   VecGetArray(yy,&y);
505:   idx  = a->j;
506:   v    = a->a;
507:   ii   = a->i;

509:   for (i=0; i<m; i++) {
510:     jrow        = ii[i];
511:     n           = ii[i+1] - jrow;
512:     sum1        = 0.0;
513:     sum2        = 0.0;
514:     sum3        = 0.0;
515:     sum4        = 0.0;
516:     nonzerorow += (n>0);
517:     for (j=0; j<n; j++) {
518:       sum1 += v[jrow]*x[4*idx[jrow]];
519:       sum2 += v[jrow]*x[4*idx[jrow]+1];
520:       sum3 += v[jrow]*x[4*idx[jrow]+2];
521:       sum4 += v[jrow]*x[4*idx[jrow]+3];
522:       jrow++;
523:     }
524:     y[4*i]   = sum1;
525:     y[4*i+1] = sum2;
526:     y[4*i+2] = sum3;
527:     y[4*i+3] = sum4;
528:   }

530:   PetscLogFlops(8.0*a->nz - 4.0*nonzerorow);
531:   VecRestoreArrayRead(xx,&x);
532:   VecRestoreArray(yy,&y);
533:   return(0);
534: }

536: PetscErrorCode MatMultTranspose_SeqMAIJ_4(Mat A,Vec xx,Vec yy)
537: {
538:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
539:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
540:   const PetscScalar *x,*v;
541:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4;
542:   PetscErrorCode    ierr;
543:   PetscInt          n,i;
544:   const PetscInt    m = b->AIJ->rmap->n,*idx;

547:   VecSet(yy,0.0);
548:   VecGetArrayRead(xx,&x);
549:   VecGetArray(yy,&y);
550:   for (i=0; i<m; i++) {
551:     idx    = a->j + a->i[i];
552:     v      = a->a + a->i[i];
553:     n      = a->i[i+1] - a->i[i];
554:     alpha1 = x[4*i];
555:     alpha2 = x[4*i+1];
556:     alpha3 = x[4*i+2];
557:     alpha4 = x[4*i+3];
558:     while (n-->0) {
559:       y[4*(*idx)]   += alpha1*(*v);
560:       y[4*(*idx)+1] += alpha2*(*v);
561:       y[4*(*idx)+2] += alpha3*(*v);
562:       y[4*(*idx)+3] += alpha4*(*v);
563:       idx++; v++;
564:     }
565:   }
566:   PetscLogFlops(8.0*a->nz);
567:   VecRestoreArrayRead(xx,&x);
568:   VecRestoreArray(yy,&y);
569:   return(0);
570: }

572: PetscErrorCode MatMultAdd_SeqMAIJ_4(Mat A,Vec xx,Vec yy,Vec zz)
573: {
574:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
575:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
576:   const PetscScalar *x,*v;
577:   PetscScalar       *y,sum1, sum2, sum3, sum4;
578:   PetscErrorCode    ierr;
579:   PetscInt          n,i,jrow,j;
580:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;

583:   if (yy != zz) {VecCopy(yy,zz);}
584:   VecGetArrayRead(xx,&x);
585:   VecGetArray(zz,&y);
586:   idx  = a->j;
587:   v    = a->a;
588:   ii   = a->i;

590:   for (i=0; i<m; i++) {
591:     jrow = ii[i];
592:     n    = ii[i+1] - jrow;
593:     sum1 = 0.0;
594:     sum2 = 0.0;
595:     sum3 = 0.0;
596:     sum4 = 0.0;
597:     for (j=0; j<n; j++) {
598:       sum1 += v[jrow]*x[4*idx[jrow]];
599:       sum2 += v[jrow]*x[4*idx[jrow]+1];
600:       sum3 += v[jrow]*x[4*idx[jrow]+2];
601:       sum4 += v[jrow]*x[4*idx[jrow]+3];
602:       jrow++;
603:     }
604:     y[4*i]   += sum1;
605:     y[4*i+1] += sum2;
606:     y[4*i+2] += sum3;
607:     y[4*i+3] += sum4;
608:   }

610:   PetscLogFlops(8.0*a->nz);
611:   VecRestoreArrayRead(xx,&x);
612:   VecRestoreArray(zz,&y);
613:   return(0);
614: }
615: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_4(Mat A,Vec xx,Vec yy,Vec zz)
616: {
617:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
618:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
619:   const PetscScalar *x,*v;
620:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4;
621:   PetscErrorCode    ierr;
622:   PetscInt          n,i;
623:   const PetscInt    m = b->AIJ->rmap->n,*idx;

626:   if (yy != zz) {VecCopy(yy,zz);}
627:   VecGetArrayRead(xx,&x);
628:   VecGetArray(zz,&y);

630:   for (i=0; i<m; i++) {
631:     idx    = a->j + a->i[i];
632:     v      = a->a + a->i[i];
633:     n      = a->i[i+1] - a->i[i];
634:     alpha1 = x[4*i];
635:     alpha2 = x[4*i+1];
636:     alpha3 = x[4*i+2];
637:     alpha4 = x[4*i+3];
638:     while (n-->0) {
639:       y[4*(*idx)]   += alpha1*(*v);
640:       y[4*(*idx)+1] += alpha2*(*v);
641:       y[4*(*idx)+2] += alpha3*(*v);
642:       y[4*(*idx)+3] += alpha4*(*v);
643:       idx++; v++;
644:     }
645:   }
646:   PetscLogFlops(8.0*a->nz);
647:   VecRestoreArrayRead(xx,&x);
648:   VecRestoreArray(zz,&y);
649:   return(0);
650: }
651: /* ------------------------------------------------------------------------------*/

653: PetscErrorCode MatMult_SeqMAIJ_5(Mat A,Vec xx,Vec yy)
654: {
655:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
656:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
657:   const PetscScalar *x,*v;
658:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5;
659:   PetscErrorCode    ierr;
660:   PetscInt          nonzerorow=0,n,i,jrow,j;
661:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;

664:   VecGetArrayRead(xx,&x);
665:   VecGetArray(yy,&y);
666:   idx  = a->j;
667:   v    = a->a;
668:   ii   = a->i;

670:   for (i=0; i<m; i++) {
671:     jrow  = ii[i];
672:     n     = ii[i+1] - jrow;
673:     sum1  = 0.0;
674:     sum2  = 0.0;
675:     sum3  = 0.0;
676:     sum4  = 0.0;
677:     sum5  = 0.0;

679:     nonzerorow += (n>0);
680:     for (j=0; j<n; j++) {
681:       sum1 += v[jrow]*x[5*idx[jrow]];
682:       sum2 += v[jrow]*x[5*idx[jrow]+1];
683:       sum3 += v[jrow]*x[5*idx[jrow]+2];
684:       sum4 += v[jrow]*x[5*idx[jrow]+3];
685:       sum5 += v[jrow]*x[5*idx[jrow]+4];
686:       jrow++;
687:     }
688:     y[5*i]   = sum1;
689:     y[5*i+1] = sum2;
690:     y[5*i+2] = sum3;
691:     y[5*i+3] = sum4;
692:     y[5*i+4] = sum5;
693:   }

695:   PetscLogFlops(10.0*a->nz - 5.0*nonzerorow);
696:   VecRestoreArrayRead(xx,&x);
697:   VecRestoreArray(yy,&y);
698:   return(0);
699: }

701: PetscErrorCode MatMultTranspose_SeqMAIJ_5(Mat A,Vec xx,Vec yy)
702: {
703:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
704:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
705:   const PetscScalar *x,*v;
706:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5;
707:   PetscErrorCode    ierr;
708:   PetscInt          n,i;
709:   const PetscInt    m = b->AIJ->rmap->n,*idx;

712:   VecSet(yy,0.0);
713:   VecGetArrayRead(xx,&x);
714:   VecGetArray(yy,&y);

716:   for (i=0; i<m; i++) {
717:     idx    = a->j + a->i[i];
718:     v      = a->a + a->i[i];
719:     n      = a->i[i+1] - a->i[i];
720:     alpha1 = x[5*i];
721:     alpha2 = x[5*i+1];
722:     alpha3 = x[5*i+2];
723:     alpha4 = x[5*i+3];
724:     alpha5 = x[5*i+4];
725:     while (n-->0) {
726:       y[5*(*idx)]   += alpha1*(*v);
727:       y[5*(*idx)+1] += alpha2*(*v);
728:       y[5*(*idx)+2] += alpha3*(*v);
729:       y[5*(*idx)+3] += alpha4*(*v);
730:       y[5*(*idx)+4] += alpha5*(*v);
731:       idx++; v++;
732:     }
733:   }
734:   PetscLogFlops(10.0*a->nz);
735:   VecRestoreArrayRead(xx,&x);
736:   VecRestoreArray(yy,&y);
737:   return(0);
738: }

740: PetscErrorCode MatMultAdd_SeqMAIJ_5(Mat A,Vec xx,Vec yy,Vec zz)
741: {
742:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
743:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
744:   const PetscScalar *x,*v;
745:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5;
746:   PetscErrorCode    ierr;
747:   PetscInt          n,i,jrow,j;
748:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;

751:   if (yy != zz) {VecCopy(yy,zz);}
752:   VecGetArrayRead(xx,&x);
753:   VecGetArray(zz,&y);
754:   idx  = a->j;
755:   v    = a->a;
756:   ii   = a->i;

758:   for (i=0; i<m; i++) {
759:     jrow = ii[i];
760:     n    = ii[i+1] - jrow;
761:     sum1 = 0.0;
762:     sum2 = 0.0;
763:     sum3 = 0.0;
764:     sum4 = 0.0;
765:     sum5 = 0.0;
766:     for (j=0; j<n; j++) {
767:       sum1 += v[jrow]*x[5*idx[jrow]];
768:       sum2 += v[jrow]*x[5*idx[jrow]+1];
769:       sum3 += v[jrow]*x[5*idx[jrow]+2];
770:       sum4 += v[jrow]*x[5*idx[jrow]+3];
771:       sum5 += v[jrow]*x[5*idx[jrow]+4];
772:       jrow++;
773:     }
774:     y[5*i]   += sum1;
775:     y[5*i+1] += sum2;
776:     y[5*i+2] += sum3;
777:     y[5*i+3] += sum4;
778:     y[5*i+4] += sum5;
779:   }

781:   PetscLogFlops(10.0*a->nz);
782:   VecRestoreArrayRead(xx,&x);
783:   VecRestoreArray(zz,&y);
784:   return(0);
785: }

787: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_5(Mat A,Vec xx,Vec yy,Vec zz)
788: {
789:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
790:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
791:   const PetscScalar *x,*v;
792:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5;
793:   PetscErrorCode    ierr;
794:   PetscInt          n,i;
795:   const PetscInt    m = b->AIJ->rmap->n,*idx;

798:   if (yy != zz) {VecCopy(yy,zz);}
799:   VecGetArrayRead(xx,&x);
800:   VecGetArray(zz,&y);

802:   for (i=0; i<m; i++) {
803:     idx    = a->j + a->i[i];
804:     v      = a->a + a->i[i];
805:     n      = a->i[i+1] - a->i[i];
806:     alpha1 = x[5*i];
807:     alpha2 = x[5*i+1];
808:     alpha3 = x[5*i+2];
809:     alpha4 = x[5*i+3];
810:     alpha5 = x[5*i+4];
811:     while (n-->0) {
812:       y[5*(*idx)]   += alpha1*(*v);
813:       y[5*(*idx)+1] += alpha2*(*v);
814:       y[5*(*idx)+2] += alpha3*(*v);
815:       y[5*(*idx)+3] += alpha4*(*v);
816:       y[5*(*idx)+4] += alpha5*(*v);
817:       idx++; v++;
818:     }
819:   }
820:   PetscLogFlops(10.0*a->nz);
821:   VecRestoreArrayRead(xx,&x);
822:   VecRestoreArray(zz,&y);
823:   return(0);
824: }

826: /* ------------------------------------------------------------------------------*/
827: PetscErrorCode MatMult_SeqMAIJ_6(Mat A,Vec xx,Vec yy)
828: {
829:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
830:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
831:   const PetscScalar *x,*v;
832:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6;
833:   PetscErrorCode    ierr;
834:   PetscInt          nonzerorow=0,n,i,jrow,j;
835:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;

838:   VecGetArrayRead(xx,&x);
839:   VecGetArray(yy,&y);
840:   idx  = a->j;
841:   v    = a->a;
842:   ii   = a->i;

844:   for (i=0; i<m; i++) {
845:     jrow  = ii[i];
846:     n     = ii[i+1] - jrow;
847:     sum1  = 0.0;
848:     sum2  = 0.0;
849:     sum3  = 0.0;
850:     sum4  = 0.0;
851:     sum5  = 0.0;
852:     sum6  = 0.0;

854:     nonzerorow += (n>0);
855:     for (j=0; j<n; j++) {
856:       sum1 += v[jrow]*x[6*idx[jrow]];
857:       sum2 += v[jrow]*x[6*idx[jrow]+1];
858:       sum3 += v[jrow]*x[6*idx[jrow]+2];
859:       sum4 += v[jrow]*x[6*idx[jrow]+3];
860:       sum5 += v[jrow]*x[6*idx[jrow]+4];
861:       sum6 += v[jrow]*x[6*idx[jrow]+5];
862:       jrow++;
863:     }
864:     y[6*i]   = sum1;
865:     y[6*i+1] = sum2;
866:     y[6*i+2] = sum3;
867:     y[6*i+3] = sum4;
868:     y[6*i+4] = sum5;
869:     y[6*i+5] = sum6;
870:   }

872:   PetscLogFlops(12.0*a->nz - 6.0*nonzerorow);
873:   VecRestoreArrayRead(xx,&x);
874:   VecRestoreArray(yy,&y);
875:   return(0);
876: }

878: PetscErrorCode MatMultTranspose_SeqMAIJ_6(Mat A,Vec xx,Vec yy)
879: {
880:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
881:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
882:   const PetscScalar *x,*v;
883:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6;
884:   PetscErrorCode    ierr;
885:   PetscInt          n,i;
886:   const PetscInt    m = b->AIJ->rmap->n,*idx;

889:   VecSet(yy,0.0);
890:   VecGetArrayRead(xx,&x);
891:   VecGetArray(yy,&y);

893:   for (i=0; i<m; i++) {
894:     idx    = a->j + a->i[i];
895:     v      = a->a + a->i[i];
896:     n      = a->i[i+1] - a->i[i];
897:     alpha1 = x[6*i];
898:     alpha2 = x[6*i+1];
899:     alpha3 = x[6*i+2];
900:     alpha4 = x[6*i+3];
901:     alpha5 = x[6*i+4];
902:     alpha6 = x[6*i+5];
903:     while (n-->0) {
904:       y[6*(*idx)]   += alpha1*(*v);
905:       y[6*(*idx)+1] += alpha2*(*v);
906:       y[6*(*idx)+2] += alpha3*(*v);
907:       y[6*(*idx)+3] += alpha4*(*v);
908:       y[6*(*idx)+4] += alpha5*(*v);
909:       y[6*(*idx)+5] += alpha6*(*v);
910:       idx++; v++;
911:     }
912:   }
913:   PetscLogFlops(12.0*a->nz);
914:   VecRestoreArrayRead(xx,&x);
915:   VecRestoreArray(yy,&y);
916:   return(0);
917: }

919: PetscErrorCode MatMultAdd_SeqMAIJ_6(Mat A,Vec xx,Vec yy,Vec zz)
920: {
921:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
922:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
923:   const PetscScalar *x,*v;
924:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6;
925:   PetscErrorCode    ierr;
926:   PetscInt          n,i,jrow,j;
927:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;

930:   if (yy != zz) {VecCopy(yy,zz);}
931:   VecGetArrayRead(xx,&x);
932:   VecGetArray(zz,&y);
933:   idx  = a->j;
934:   v    = a->a;
935:   ii   = a->i;

937:   for (i=0; i<m; i++) {
938:     jrow = ii[i];
939:     n    = ii[i+1] - jrow;
940:     sum1 = 0.0;
941:     sum2 = 0.0;
942:     sum3 = 0.0;
943:     sum4 = 0.0;
944:     sum5 = 0.0;
945:     sum6 = 0.0;
946:     for (j=0; j<n; j++) {
947:       sum1 += v[jrow]*x[6*idx[jrow]];
948:       sum2 += v[jrow]*x[6*idx[jrow]+1];
949:       sum3 += v[jrow]*x[6*idx[jrow]+2];
950:       sum4 += v[jrow]*x[6*idx[jrow]+3];
951:       sum5 += v[jrow]*x[6*idx[jrow]+4];
952:       sum6 += v[jrow]*x[6*idx[jrow]+5];
953:       jrow++;
954:     }
955:     y[6*i]   += sum1;
956:     y[6*i+1] += sum2;
957:     y[6*i+2] += sum3;
958:     y[6*i+3] += sum4;
959:     y[6*i+4] += sum5;
960:     y[6*i+5] += sum6;
961:   }

963:   PetscLogFlops(12.0*a->nz);
964:   VecRestoreArrayRead(xx,&x);
965:   VecRestoreArray(zz,&y);
966:   return(0);
967: }

969: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_6(Mat A,Vec xx,Vec yy,Vec zz)
970: {
971:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
972:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
973:   const PetscScalar *x,*v;
974:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6;
975:   PetscErrorCode    ierr;
976:   PetscInt          n,i;
977:   const PetscInt    m = b->AIJ->rmap->n,*idx;

980:   if (yy != zz) {VecCopy(yy,zz);}
981:   VecGetArrayRead(xx,&x);
982:   VecGetArray(zz,&y);

984:   for (i=0; i<m; i++) {
985:     idx    = a->j + a->i[i];
986:     v      = a->a + a->i[i];
987:     n      = a->i[i+1] - a->i[i];
988:     alpha1 = x[6*i];
989:     alpha2 = x[6*i+1];
990:     alpha3 = x[6*i+2];
991:     alpha4 = x[6*i+3];
992:     alpha5 = x[6*i+4];
993:     alpha6 = x[6*i+5];
994:     while (n-->0) {
995:       y[6*(*idx)]   += alpha1*(*v);
996:       y[6*(*idx)+1] += alpha2*(*v);
997:       y[6*(*idx)+2] += alpha3*(*v);
998:       y[6*(*idx)+3] += alpha4*(*v);
999:       y[6*(*idx)+4] += alpha5*(*v);
1000:       y[6*(*idx)+5] += alpha6*(*v);
1001:       idx++; v++;
1002:     }
1003:   }
1004:   PetscLogFlops(12.0*a->nz);
1005:   VecRestoreArrayRead(xx,&x);
1006:   VecRestoreArray(zz,&y);
1007:   return(0);
1008: }

1010: /* ------------------------------------------------------------------------------*/
1011: PetscErrorCode MatMult_SeqMAIJ_7(Mat A,Vec xx,Vec yy)
1012: {
1013:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1014:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1015:   const PetscScalar *x,*v;
1016:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7;
1017:   PetscErrorCode    ierr;
1018:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
1019:   PetscInt          nonzerorow=0,n,i,jrow,j;

1022:   VecGetArrayRead(xx,&x);
1023:   VecGetArray(yy,&y);
1024:   idx  = a->j;
1025:   v    = a->a;
1026:   ii   = a->i;

1028:   for (i=0; i<m; i++) {
1029:     jrow  = ii[i];
1030:     n     = ii[i+1] - jrow;
1031:     sum1  = 0.0;
1032:     sum2  = 0.0;
1033:     sum3  = 0.0;
1034:     sum4  = 0.0;
1035:     sum5  = 0.0;
1036:     sum6  = 0.0;
1037:     sum7  = 0.0;

1039:     nonzerorow += (n>0);
1040:     for (j=0; j<n; j++) {
1041:       sum1 += v[jrow]*x[7*idx[jrow]];
1042:       sum2 += v[jrow]*x[7*idx[jrow]+1];
1043:       sum3 += v[jrow]*x[7*idx[jrow]+2];
1044:       sum4 += v[jrow]*x[7*idx[jrow]+3];
1045:       sum5 += v[jrow]*x[7*idx[jrow]+4];
1046:       sum6 += v[jrow]*x[7*idx[jrow]+5];
1047:       sum7 += v[jrow]*x[7*idx[jrow]+6];
1048:       jrow++;
1049:     }
1050:     y[7*i]   = sum1;
1051:     y[7*i+1] = sum2;
1052:     y[7*i+2] = sum3;
1053:     y[7*i+3] = sum4;
1054:     y[7*i+4] = sum5;
1055:     y[7*i+5] = sum6;
1056:     y[7*i+6] = sum7;
1057:   }

1059:   PetscLogFlops(14.0*a->nz - 7.0*nonzerorow);
1060:   VecRestoreArrayRead(xx,&x);
1061:   VecRestoreArray(yy,&y);
1062:   return(0);
1063: }

1065: PetscErrorCode MatMultTranspose_SeqMAIJ_7(Mat A,Vec xx,Vec yy)
1066: {
1067:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1068:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1069:   const PetscScalar *x,*v;
1070:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7;
1071:   PetscErrorCode    ierr;
1072:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1073:   PetscInt          n,i;

1076:   VecSet(yy,0.0);
1077:   VecGetArrayRead(xx,&x);
1078:   VecGetArray(yy,&y);

1080:   for (i=0; i<m; i++) {
1081:     idx    = a->j + a->i[i];
1082:     v      = a->a + a->i[i];
1083:     n      = a->i[i+1] - a->i[i];
1084:     alpha1 = x[7*i];
1085:     alpha2 = x[7*i+1];
1086:     alpha3 = x[7*i+2];
1087:     alpha4 = x[7*i+3];
1088:     alpha5 = x[7*i+4];
1089:     alpha6 = x[7*i+5];
1090:     alpha7 = x[7*i+6];
1091:     while (n-->0) {
1092:       y[7*(*idx)]   += alpha1*(*v);
1093:       y[7*(*idx)+1] += alpha2*(*v);
1094:       y[7*(*idx)+2] += alpha3*(*v);
1095:       y[7*(*idx)+3] += alpha4*(*v);
1096:       y[7*(*idx)+4] += alpha5*(*v);
1097:       y[7*(*idx)+5] += alpha6*(*v);
1098:       y[7*(*idx)+6] += alpha7*(*v);
1099:       idx++; v++;
1100:     }
1101:   }
1102:   PetscLogFlops(14.0*a->nz);
1103:   VecRestoreArrayRead(xx,&x);
1104:   VecRestoreArray(yy,&y);
1105:   return(0);
1106: }

1108: PetscErrorCode MatMultAdd_SeqMAIJ_7(Mat A,Vec xx,Vec yy,Vec zz)
1109: {
1110:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1111:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1112:   const PetscScalar *x,*v;
1113:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7;
1114:   PetscErrorCode    ierr;
1115:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
1116:   PetscInt          n,i,jrow,j;

1119:   if (yy != zz) {VecCopy(yy,zz);}
1120:   VecGetArrayRead(xx,&x);
1121:   VecGetArray(zz,&y);
1122:   idx  = a->j;
1123:   v    = a->a;
1124:   ii   = a->i;

1126:   for (i=0; i<m; i++) {
1127:     jrow = ii[i];
1128:     n    = ii[i+1] - jrow;
1129:     sum1 = 0.0;
1130:     sum2 = 0.0;
1131:     sum3 = 0.0;
1132:     sum4 = 0.0;
1133:     sum5 = 0.0;
1134:     sum6 = 0.0;
1135:     sum7 = 0.0;
1136:     for (j=0; j<n; j++) {
1137:       sum1 += v[jrow]*x[7*idx[jrow]];
1138:       sum2 += v[jrow]*x[7*idx[jrow]+1];
1139:       sum3 += v[jrow]*x[7*idx[jrow]+2];
1140:       sum4 += v[jrow]*x[7*idx[jrow]+3];
1141:       sum5 += v[jrow]*x[7*idx[jrow]+4];
1142:       sum6 += v[jrow]*x[7*idx[jrow]+5];
1143:       sum7 += v[jrow]*x[7*idx[jrow]+6];
1144:       jrow++;
1145:     }
1146:     y[7*i]   += sum1;
1147:     y[7*i+1] += sum2;
1148:     y[7*i+2] += sum3;
1149:     y[7*i+3] += sum4;
1150:     y[7*i+4] += sum5;
1151:     y[7*i+5] += sum6;
1152:     y[7*i+6] += sum7;
1153:   }

1155:   PetscLogFlops(14.0*a->nz);
1156:   VecRestoreArrayRead(xx,&x);
1157:   VecRestoreArray(zz,&y);
1158:   return(0);
1159: }

1161: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_7(Mat A,Vec xx,Vec yy,Vec zz)
1162: {
1163:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1164:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1165:   const PetscScalar *x,*v;
1166:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7;
1167:   PetscErrorCode    ierr;
1168:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1169:   PetscInt          n,i;

1172:   if (yy != zz) {VecCopy(yy,zz);}
1173:   VecGetArrayRead(xx,&x);
1174:   VecGetArray(zz,&y);
1175:   for (i=0; i<m; i++) {
1176:     idx    = a->j + a->i[i];
1177:     v      = a->a + a->i[i];
1178:     n      = a->i[i+1] - a->i[i];
1179:     alpha1 = x[7*i];
1180:     alpha2 = x[7*i+1];
1181:     alpha3 = x[7*i+2];
1182:     alpha4 = x[7*i+3];
1183:     alpha5 = x[7*i+4];
1184:     alpha6 = x[7*i+5];
1185:     alpha7 = x[7*i+6];
1186:     while (n-->0) {
1187:       y[7*(*idx)]   += alpha1*(*v);
1188:       y[7*(*idx)+1] += alpha2*(*v);
1189:       y[7*(*idx)+2] += alpha3*(*v);
1190:       y[7*(*idx)+3] += alpha4*(*v);
1191:       y[7*(*idx)+4] += alpha5*(*v);
1192:       y[7*(*idx)+5] += alpha6*(*v);
1193:       y[7*(*idx)+6] += alpha7*(*v);
1194:       idx++; v++;
1195:     }
1196:   }
1197:   PetscLogFlops(14.0*a->nz);
1198:   VecRestoreArrayRead(xx,&x);
1199:   VecRestoreArray(zz,&y);
1200:   return(0);
1201: }

1203: PetscErrorCode MatMult_SeqMAIJ_8(Mat A,Vec xx,Vec yy)
1204: {
1205:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1206:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1207:   const PetscScalar *x,*v;
1208:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8;
1209:   PetscErrorCode    ierr;
1210:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
1211:   PetscInt          nonzerorow=0,n,i,jrow,j;

1214:   VecGetArrayRead(xx,&x);
1215:   VecGetArray(yy,&y);
1216:   idx  = a->j;
1217:   v    = a->a;
1218:   ii   = a->i;

1220:   for (i=0; i<m; i++) {
1221:     jrow  = ii[i];
1222:     n     = ii[i+1] - jrow;
1223:     sum1  = 0.0;
1224:     sum2  = 0.0;
1225:     sum3  = 0.0;
1226:     sum4  = 0.0;
1227:     sum5  = 0.0;
1228:     sum6  = 0.0;
1229:     sum7  = 0.0;
1230:     sum8  = 0.0;

1232:     nonzerorow += (n>0);
1233:     for (j=0; j<n; j++) {
1234:       sum1 += v[jrow]*x[8*idx[jrow]];
1235:       sum2 += v[jrow]*x[8*idx[jrow]+1];
1236:       sum3 += v[jrow]*x[8*idx[jrow]+2];
1237:       sum4 += v[jrow]*x[8*idx[jrow]+3];
1238:       sum5 += v[jrow]*x[8*idx[jrow]+4];
1239:       sum6 += v[jrow]*x[8*idx[jrow]+5];
1240:       sum7 += v[jrow]*x[8*idx[jrow]+6];
1241:       sum8 += v[jrow]*x[8*idx[jrow]+7];
1242:       jrow++;
1243:     }
1244:     y[8*i]   = sum1;
1245:     y[8*i+1] = sum2;
1246:     y[8*i+2] = sum3;
1247:     y[8*i+3] = sum4;
1248:     y[8*i+4] = sum5;
1249:     y[8*i+5] = sum6;
1250:     y[8*i+6] = sum7;
1251:     y[8*i+7] = sum8;
1252:   }

1254:   PetscLogFlops(16.0*a->nz - 8.0*nonzerorow);
1255:   VecRestoreArrayRead(xx,&x);
1256:   VecRestoreArray(yy,&y);
1257:   return(0);
1258: }

1260: PetscErrorCode MatMultTranspose_SeqMAIJ_8(Mat A,Vec xx,Vec yy)
1261: {
1262:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1263:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1264:   const PetscScalar *x,*v;
1265:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8;
1266:   PetscErrorCode    ierr;
1267:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1268:   PetscInt          n,i;

1271:   VecSet(yy,0.0);
1272:   VecGetArrayRead(xx,&x);
1273:   VecGetArray(yy,&y);

1275:   for (i=0; i<m; i++) {
1276:     idx    = a->j + a->i[i];
1277:     v      = a->a + a->i[i];
1278:     n      = a->i[i+1] - a->i[i];
1279:     alpha1 = x[8*i];
1280:     alpha2 = x[8*i+1];
1281:     alpha3 = x[8*i+2];
1282:     alpha4 = x[8*i+3];
1283:     alpha5 = x[8*i+4];
1284:     alpha6 = x[8*i+5];
1285:     alpha7 = x[8*i+6];
1286:     alpha8 = x[8*i+7];
1287:     while (n-->0) {
1288:       y[8*(*idx)]   += alpha1*(*v);
1289:       y[8*(*idx)+1] += alpha2*(*v);
1290:       y[8*(*idx)+2] += alpha3*(*v);
1291:       y[8*(*idx)+3] += alpha4*(*v);
1292:       y[8*(*idx)+4] += alpha5*(*v);
1293:       y[8*(*idx)+5] += alpha6*(*v);
1294:       y[8*(*idx)+6] += alpha7*(*v);
1295:       y[8*(*idx)+7] += alpha8*(*v);
1296:       idx++; v++;
1297:     }
1298:   }
1299:   PetscLogFlops(16.0*a->nz);
1300:   VecRestoreArrayRead(xx,&x);
1301:   VecRestoreArray(yy,&y);
1302:   return(0);
1303: }

1305: PetscErrorCode MatMultAdd_SeqMAIJ_8(Mat A,Vec xx,Vec yy,Vec zz)
1306: {
1307:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1308:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1309:   const PetscScalar *x,*v;
1310:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8;
1311:   PetscErrorCode    ierr;
1312:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
1313:   PetscInt          n,i,jrow,j;

1316:   if (yy != zz) {VecCopy(yy,zz);}
1317:   VecGetArrayRead(xx,&x);
1318:   VecGetArray(zz,&y);
1319:   idx  = a->j;
1320:   v    = a->a;
1321:   ii   = a->i;

1323:   for (i=0; i<m; i++) {
1324:     jrow = ii[i];
1325:     n    = ii[i+1] - jrow;
1326:     sum1 = 0.0;
1327:     sum2 = 0.0;
1328:     sum3 = 0.0;
1329:     sum4 = 0.0;
1330:     sum5 = 0.0;
1331:     sum6 = 0.0;
1332:     sum7 = 0.0;
1333:     sum8 = 0.0;
1334:     for (j=0; j<n; j++) {
1335:       sum1 += v[jrow]*x[8*idx[jrow]];
1336:       sum2 += v[jrow]*x[8*idx[jrow]+1];
1337:       sum3 += v[jrow]*x[8*idx[jrow]+2];
1338:       sum4 += v[jrow]*x[8*idx[jrow]+3];
1339:       sum5 += v[jrow]*x[8*idx[jrow]+4];
1340:       sum6 += v[jrow]*x[8*idx[jrow]+5];
1341:       sum7 += v[jrow]*x[8*idx[jrow]+6];
1342:       sum8 += v[jrow]*x[8*idx[jrow]+7];
1343:       jrow++;
1344:     }
1345:     y[8*i]   += sum1;
1346:     y[8*i+1] += sum2;
1347:     y[8*i+2] += sum3;
1348:     y[8*i+3] += sum4;
1349:     y[8*i+4] += sum5;
1350:     y[8*i+5] += sum6;
1351:     y[8*i+6] += sum7;
1352:     y[8*i+7] += sum8;
1353:   }

1355:   PetscLogFlops(16.0*a->nz);
1356:   VecRestoreArrayRead(xx,&x);
1357:   VecRestoreArray(zz,&y);
1358:   return(0);
1359: }

1361: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_8(Mat A,Vec xx,Vec yy,Vec zz)
1362: {
1363:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1364:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1365:   const PetscScalar *x,*v;
1366:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8;
1367:   PetscErrorCode    ierr;
1368:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1369:   PetscInt          n,i;

1372:   if (yy != zz) {VecCopy(yy,zz);}
1373:   VecGetArrayRead(xx,&x);
1374:   VecGetArray(zz,&y);
1375:   for (i=0; i<m; i++) {
1376:     idx    = a->j + a->i[i];
1377:     v      = a->a + a->i[i];
1378:     n      = a->i[i+1] - a->i[i];
1379:     alpha1 = x[8*i];
1380:     alpha2 = x[8*i+1];
1381:     alpha3 = x[8*i+2];
1382:     alpha4 = x[8*i+3];
1383:     alpha5 = x[8*i+4];
1384:     alpha6 = x[8*i+5];
1385:     alpha7 = x[8*i+6];
1386:     alpha8 = x[8*i+7];
1387:     while (n-->0) {
1388:       y[8*(*idx)]   += alpha1*(*v);
1389:       y[8*(*idx)+1] += alpha2*(*v);
1390:       y[8*(*idx)+2] += alpha3*(*v);
1391:       y[8*(*idx)+3] += alpha4*(*v);
1392:       y[8*(*idx)+4] += alpha5*(*v);
1393:       y[8*(*idx)+5] += alpha6*(*v);
1394:       y[8*(*idx)+6] += alpha7*(*v);
1395:       y[8*(*idx)+7] += alpha8*(*v);
1396:       idx++; v++;
1397:     }
1398:   }
1399:   PetscLogFlops(16.0*a->nz);
1400:   VecRestoreArrayRead(xx,&x);
1401:   VecRestoreArray(zz,&y);
1402:   return(0);
1403: }

1405: /* ------------------------------------------------------------------------------*/
1406: PetscErrorCode MatMult_SeqMAIJ_9(Mat A,Vec xx,Vec yy)
1407: {
1408:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1409:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1410:   const PetscScalar *x,*v;
1411:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9;
1412:   PetscErrorCode    ierr;
1413:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
1414:   PetscInt          nonzerorow=0,n,i,jrow,j;

1417:   VecGetArrayRead(xx,&x);
1418:   VecGetArray(yy,&y);
1419:   idx  = a->j;
1420:   v    = a->a;
1421:   ii   = a->i;

1423:   for (i=0; i<m; i++) {
1424:     jrow  = ii[i];
1425:     n     = ii[i+1] - jrow;
1426:     sum1  = 0.0;
1427:     sum2  = 0.0;
1428:     sum3  = 0.0;
1429:     sum4  = 0.0;
1430:     sum5  = 0.0;
1431:     sum6  = 0.0;
1432:     sum7  = 0.0;
1433:     sum8  = 0.0;
1434:     sum9  = 0.0;

1436:     nonzerorow += (n>0);
1437:     for (j=0; j<n; j++) {
1438:       sum1 += v[jrow]*x[9*idx[jrow]];
1439:       sum2 += v[jrow]*x[9*idx[jrow]+1];
1440:       sum3 += v[jrow]*x[9*idx[jrow]+2];
1441:       sum4 += v[jrow]*x[9*idx[jrow]+3];
1442:       sum5 += v[jrow]*x[9*idx[jrow]+4];
1443:       sum6 += v[jrow]*x[9*idx[jrow]+5];
1444:       sum7 += v[jrow]*x[9*idx[jrow]+6];
1445:       sum8 += v[jrow]*x[9*idx[jrow]+7];
1446:       sum9 += v[jrow]*x[9*idx[jrow]+8];
1447:       jrow++;
1448:     }
1449:     y[9*i]   = sum1;
1450:     y[9*i+1] = sum2;
1451:     y[9*i+2] = sum3;
1452:     y[9*i+3] = sum4;
1453:     y[9*i+4] = sum5;
1454:     y[9*i+5] = sum6;
1455:     y[9*i+6] = sum7;
1456:     y[9*i+7] = sum8;
1457:     y[9*i+8] = sum9;
1458:   }

1460:   PetscLogFlops(18.0*a->nz - 9*nonzerorow);
1461:   VecRestoreArrayRead(xx,&x);
1462:   VecRestoreArray(yy,&y);
1463:   return(0);
1464: }

1466: /* ------------------------------------------------------------------------------*/

1468: PetscErrorCode MatMultTranspose_SeqMAIJ_9(Mat A,Vec xx,Vec yy)
1469: {
1470:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1471:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1472:   const PetscScalar *x,*v;
1473:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8,alpha9;
1474:   PetscErrorCode    ierr;
1475:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1476:   PetscInt          n,i;

1479:   VecSet(yy,0.0);
1480:   VecGetArrayRead(xx,&x);
1481:   VecGetArray(yy,&y);

1483:   for (i=0; i<m; i++) {
1484:     idx    = a->j + a->i[i];
1485:     v      = a->a + a->i[i];
1486:     n      = a->i[i+1] - a->i[i];
1487:     alpha1 = x[9*i];
1488:     alpha2 = x[9*i+1];
1489:     alpha3 = x[9*i+2];
1490:     alpha4 = x[9*i+3];
1491:     alpha5 = x[9*i+4];
1492:     alpha6 = x[9*i+5];
1493:     alpha7 = x[9*i+6];
1494:     alpha8 = x[9*i+7];
1495:     alpha9 = x[9*i+8];
1496:     while (n-->0) {
1497:       y[9*(*idx)]   += alpha1*(*v);
1498:       y[9*(*idx)+1] += alpha2*(*v);
1499:       y[9*(*idx)+2] += alpha3*(*v);
1500:       y[9*(*idx)+3] += alpha4*(*v);
1501:       y[9*(*idx)+4] += alpha5*(*v);
1502:       y[9*(*idx)+5] += alpha6*(*v);
1503:       y[9*(*idx)+6] += alpha7*(*v);
1504:       y[9*(*idx)+7] += alpha8*(*v);
1505:       y[9*(*idx)+8] += alpha9*(*v);
1506:       idx++; v++;
1507:     }
1508:   }
1509:   PetscLogFlops(18.0*a->nz);
1510:   VecRestoreArrayRead(xx,&x);
1511:   VecRestoreArray(yy,&y);
1512:   return(0);
1513: }

1515: PetscErrorCode MatMultAdd_SeqMAIJ_9(Mat A,Vec xx,Vec yy,Vec zz)
1516: {
1517:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1518:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1519:   const PetscScalar *x,*v;
1520:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9;
1521:   PetscErrorCode    ierr;
1522:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
1523:   PetscInt          n,i,jrow,j;

1526:   if (yy != zz) {VecCopy(yy,zz);}
1527:   VecGetArrayRead(xx,&x);
1528:   VecGetArray(zz,&y);
1529:   idx  = a->j;
1530:   v    = a->a;
1531:   ii   = a->i;

1533:   for (i=0; i<m; i++) {
1534:     jrow = ii[i];
1535:     n    = ii[i+1] - jrow;
1536:     sum1 = 0.0;
1537:     sum2 = 0.0;
1538:     sum3 = 0.0;
1539:     sum4 = 0.0;
1540:     sum5 = 0.0;
1541:     sum6 = 0.0;
1542:     sum7 = 0.0;
1543:     sum8 = 0.0;
1544:     sum9 = 0.0;
1545:     for (j=0; j<n; j++) {
1546:       sum1 += v[jrow]*x[9*idx[jrow]];
1547:       sum2 += v[jrow]*x[9*idx[jrow]+1];
1548:       sum3 += v[jrow]*x[9*idx[jrow]+2];
1549:       sum4 += v[jrow]*x[9*idx[jrow]+3];
1550:       sum5 += v[jrow]*x[9*idx[jrow]+4];
1551:       sum6 += v[jrow]*x[9*idx[jrow]+5];
1552:       sum7 += v[jrow]*x[9*idx[jrow]+6];
1553:       sum8 += v[jrow]*x[9*idx[jrow]+7];
1554:       sum9 += v[jrow]*x[9*idx[jrow]+8];
1555:       jrow++;
1556:     }
1557:     y[9*i]   += sum1;
1558:     y[9*i+1] += sum2;
1559:     y[9*i+2] += sum3;
1560:     y[9*i+3] += sum4;
1561:     y[9*i+4] += sum5;
1562:     y[9*i+5] += sum6;
1563:     y[9*i+6] += sum7;
1564:     y[9*i+7] += sum8;
1565:     y[9*i+8] += sum9;
1566:   }

1568:   PetscLogFlops(18.0*a->nz);
1569:   VecRestoreArrayRead(xx,&x);
1570:   VecRestoreArray(zz,&y);
1571:   return(0);
1572: }

1574: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_9(Mat A,Vec xx,Vec yy,Vec zz)
1575: {
1576:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1577:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1578:   const PetscScalar *x,*v;
1579:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8,alpha9;
1580:   PetscErrorCode    ierr;
1581:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1582:   PetscInt          n,i;

1585:   if (yy != zz) {VecCopy(yy,zz);}
1586:   VecGetArrayRead(xx,&x);
1587:   VecGetArray(zz,&y);
1588:   for (i=0; i<m; i++) {
1589:     idx    = a->j + a->i[i];
1590:     v      = a->a + a->i[i];
1591:     n      = a->i[i+1] - a->i[i];
1592:     alpha1 = x[9*i];
1593:     alpha2 = x[9*i+1];
1594:     alpha3 = x[9*i+2];
1595:     alpha4 = x[9*i+3];
1596:     alpha5 = x[9*i+4];
1597:     alpha6 = x[9*i+5];
1598:     alpha7 = x[9*i+6];
1599:     alpha8 = x[9*i+7];
1600:     alpha9 = x[9*i+8];
1601:     while (n-->0) {
1602:       y[9*(*idx)]   += alpha1*(*v);
1603:       y[9*(*idx)+1] += alpha2*(*v);
1604:       y[9*(*idx)+2] += alpha3*(*v);
1605:       y[9*(*idx)+3] += alpha4*(*v);
1606:       y[9*(*idx)+4] += alpha5*(*v);
1607:       y[9*(*idx)+5] += alpha6*(*v);
1608:       y[9*(*idx)+6] += alpha7*(*v);
1609:       y[9*(*idx)+7] += alpha8*(*v);
1610:       y[9*(*idx)+8] += alpha9*(*v);
1611:       idx++; v++;
1612:     }
1613:   }
1614:   PetscLogFlops(18.0*a->nz);
1615:   VecRestoreArrayRead(xx,&x);
1616:   VecRestoreArray(zz,&y);
1617:   return(0);
1618: }
1619: PetscErrorCode MatMult_SeqMAIJ_10(Mat A,Vec xx,Vec yy)
1620: {
1621:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1622:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1623:   const PetscScalar *x,*v;
1624:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum10;
1625:   PetscErrorCode    ierr;
1626:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
1627:   PetscInt          nonzerorow=0,n,i,jrow,j;

1630:   VecGetArrayRead(xx,&x);
1631:   VecGetArray(yy,&y);
1632:   idx  = a->j;
1633:   v    = a->a;
1634:   ii   = a->i;

1636:   for (i=0; i<m; i++) {
1637:     jrow  = ii[i];
1638:     n     = ii[i+1] - jrow;
1639:     sum1  = 0.0;
1640:     sum2  = 0.0;
1641:     sum3  = 0.0;
1642:     sum4  = 0.0;
1643:     sum5  = 0.0;
1644:     sum6  = 0.0;
1645:     sum7  = 0.0;
1646:     sum8  = 0.0;
1647:     sum9  = 0.0;
1648:     sum10 = 0.0;

1650:     nonzerorow += (n>0);
1651:     for (j=0; j<n; j++) {
1652:       sum1  += v[jrow]*x[10*idx[jrow]];
1653:       sum2  += v[jrow]*x[10*idx[jrow]+1];
1654:       sum3  += v[jrow]*x[10*idx[jrow]+2];
1655:       sum4  += v[jrow]*x[10*idx[jrow]+3];
1656:       sum5  += v[jrow]*x[10*idx[jrow]+4];
1657:       sum6  += v[jrow]*x[10*idx[jrow]+5];
1658:       sum7  += v[jrow]*x[10*idx[jrow]+6];
1659:       sum8  += v[jrow]*x[10*idx[jrow]+7];
1660:       sum9  += v[jrow]*x[10*idx[jrow]+8];
1661:       sum10 += v[jrow]*x[10*idx[jrow]+9];
1662:       jrow++;
1663:     }
1664:     y[10*i]   = sum1;
1665:     y[10*i+1] = sum2;
1666:     y[10*i+2] = sum3;
1667:     y[10*i+3] = sum4;
1668:     y[10*i+4] = sum5;
1669:     y[10*i+5] = sum6;
1670:     y[10*i+6] = sum7;
1671:     y[10*i+7] = sum8;
1672:     y[10*i+8] = sum9;
1673:     y[10*i+9] = sum10;
1674:   }

1676:   PetscLogFlops(20.0*a->nz - 10.0*nonzerorow);
1677:   VecRestoreArrayRead(xx,&x);
1678:   VecRestoreArray(yy,&y);
1679:   return(0);
1680: }

1682: PetscErrorCode MatMultAdd_SeqMAIJ_10(Mat A,Vec xx,Vec yy,Vec zz)
1683: {
1684:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1685:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1686:   const PetscScalar *x,*v;
1687:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum10;
1688:   PetscErrorCode    ierr;
1689:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
1690:   PetscInt          n,i,jrow,j;

1693:   if (yy != zz) {VecCopy(yy,zz);}
1694:   VecGetArrayRead(xx,&x);
1695:   VecGetArray(zz,&y);
1696:   idx  = a->j;
1697:   v    = a->a;
1698:   ii   = a->i;

1700:   for (i=0; i<m; i++) {
1701:     jrow  = ii[i];
1702:     n     = ii[i+1] - jrow;
1703:     sum1  = 0.0;
1704:     sum2  = 0.0;
1705:     sum3  = 0.0;
1706:     sum4  = 0.0;
1707:     sum5  = 0.0;
1708:     sum6  = 0.0;
1709:     sum7  = 0.0;
1710:     sum8  = 0.0;
1711:     sum9  = 0.0;
1712:     sum10 = 0.0;
1713:     for (j=0; j<n; j++) {
1714:       sum1  += v[jrow]*x[10*idx[jrow]];
1715:       sum2  += v[jrow]*x[10*idx[jrow]+1];
1716:       sum3  += v[jrow]*x[10*idx[jrow]+2];
1717:       sum4  += v[jrow]*x[10*idx[jrow]+3];
1718:       sum5  += v[jrow]*x[10*idx[jrow]+4];
1719:       sum6  += v[jrow]*x[10*idx[jrow]+5];
1720:       sum7  += v[jrow]*x[10*idx[jrow]+6];
1721:       sum8  += v[jrow]*x[10*idx[jrow]+7];
1722:       sum9  += v[jrow]*x[10*idx[jrow]+8];
1723:       sum10 += v[jrow]*x[10*idx[jrow]+9];
1724:       jrow++;
1725:     }
1726:     y[10*i]   += sum1;
1727:     y[10*i+1] += sum2;
1728:     y[10*i+2] += sum3;
1729:     y[10*i+3] += sum4;
1730:     y[10*i+4] += sum5;
1731:     y[10*i+5] += sum6;
1732:     y[10*i+6] += sum7;
1733:     y[10*i+7] += sum8;
1734:     y[10*i+8] += sum9;
1735:     y[10*i+9] += sum10;
1736:   }

1738:   PetscLogFlops(20.0*a->nz);
1739:   VecRestoreArrayRead(xx,&x);
1740:   VecRestoreArray(yy,&y);
1741:   return(0);
1742: }

1744: PetscErrorCode MatMultTranspose_SeqMAIJ_10(Mat A,Vec xx,Vec yy)
1745: {
1746:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1747:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1748:   const PetscScalar *x,*v;
1749:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8,alpha9,alpha10;
1750:   PetscErrorCode    ierr;
1751:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1752:   PetscInt          n,i;

1755:   VecSet(yy,0.0);
1756:   VecGetArrayRead(xx,&x);
1757:   VecGetArray(yy,&y);

1759:   for (i=0; i<m; i++) {
1760:     idx     = a->j + a->i[i];
1761:     v       = a->a + a->i[i];
1762:     n       = a->i[i+1] - a->i[i];
1763:     alpha1  = x[10*i];
1764:     alpha2  = x[10*i+1];
1765:     alpha3  = x[10*i+2];
1766:     alpha4  = x[10*i+3];
1767:     alpha5  = x[10*i+4];
1768:     alpha6  = x[10*i+5];
1769:     alpha7  = x[10*i+6];
1770:     alpha8  = x[10*i+7];
1771:     alpha9  = x[10*i+8];
1772:     alpha10 = x[10*i+9];
1773:     while (n-->0) {
1774:       y[10*(*idx)]   += alpha1*(*v);
1775:       y[10*(*idx)+1] += alpha2*(*v);
1776:       y[10*(*idx)+2] += alpha3*(*v);
1777:       y[10*(*idx)+3] += alpha4*(*v);
1778:       y[10*(*idx)+4] += alpha5*(*v);
1779:       y[10*(*idx)+5] += alpha6*(*v);
1780:       y[10*(*idx)+6] += alpha7*(*v);
1781:       y[10*(*idx)+7] += alpha8*(*v);
1782:       y[10*(*idx)+8] += alpha9*(*v);
1783:       y[10*(*idx)+9] += alpha10*(*v);
1784:       idx++; v++;
1785:     }
1786:   }
1787:   PetscLogFlops(20.0*a->nz);
1788:   VecRestoreArrayRead(xx,&x);
1789:   VecRestoreArray(yy,&y);
1790:   return(0);
1791: }

1793: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_10(Mat A,Vec xx,Vec yy,Vec zz)
1794: {
1795:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1796:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1797:   const PetscScalar *x,*v;
1798:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8,alpha9,alpha10;
1799:   PetscErrorCode    ierr;
1800:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1801:   PetscInt          n,i;

1804:   if (yy != zz) {VecCopy(yy,zz);}
1805:   VecGetArrayRead(xx,&x);
1806:   VecGetArray(zz,&y);
1807:   for (i=0; i<m; i++) {
1808:     idx     = a->j + a->i[i];
1809:     v       = a->a + a->i[i];
1810:     n       = a->i[i+1] - a->i[i];
1811:     alpha1  = x[10*i];
1812:     alpha2  = x[10*i+1];
1813:     alpha3  = x[10*i+2];
1814:     alpha4  = x[10*i+3];
1815:     alpha5  = x[10*i+4];
1816:     alpha6  = x[10*i+5];
1817:     alpha7  = x[10*i+6];
1818:     alpha8  = x[10*i+7];
1819:     alpha9  = x[10*i+8];
1820:     alpha10 = x[10*i+9];
1821:     while (n-->0) {
1822:       y[10*(*idx)]   += alpha1*(*v);
1823:       y[10*(*idx)+1] += alpha2*(*v);
1824:       y[10*(*idx)+2] += alpha3*(*v);
1825:       y[10*(*idx)+3] += alpha4*(*v);
1826:       y[10*(*idx)+4] += alpha5*(*v);
1827:       y[10*(*idx)+5] += alpha6*(*v);
1828:       y[10*(*idx)+6] += alpha7*(*v);
1829:       y[10*(*idx)+7] += alpha8*(*v);
1830:       y[10*(*idx)+8] += alpha9*(*v);
1831:       y[10*(*idx)+9] += alpha10*(*v);
1832:       idx++; v++;
1833:     }
1834:   }
1835:   PetscLogFlops(20.0*a->nz);
1836:   VecRestoreArrayRead(xx,&x);
1837:   VecRestoreArray(zz,&y);
1838:   return(0);
1839: }


1842: /*--------------------------------------------------------------------------------------------*/
1843: PetscErrorCode MatMult_SeqMAIJ_11(Mat A,Vec xx,Vec yy)
1844: {
1845:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1846:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1847:   const PetscScalar *x,*v;
1848:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum10, sum11;
1849:   PetscErrorCode    ierr;
1850:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
1851:   PetscInt          nonzerorow=0,n,i,jrow,j;

1854:   VecGetArrayRead(xx,&x);
1855:   VecGetArray(yy,&y);
1856:   idx  = a->j;
1857:   v    = a->a;
1858:   ii   = a->i;

1860:   for (i=0; i<m; i++) {
1861:     jrow  = ii[i];
1862:     n     = ii[i+1] - jrow;
1863:     sum1  = 0.0;
1864:     sum2  = 0.0;
1865:     sum3  = 0.0;
1866:     sum4  = 0.0;
1867:     sum5  = 0.0;
1868:     sum6  = 0.0;
1869:     sum7  = 0.0;
1870:     sum8  = 0.0;
1871:     sum9  = 0.0;
1872:     sum10 = 0.0;
1873:     sum11 = 0.0;

1875:     nonzerorow += (n>0);
1876:     for (j=0; j<n; j++) {
1877:       sum1  += v[jrow]*x[11*idx[jrow]];
1878:       sum2  += v[jrow]*x[11*idx[jrow]+1];
1879:       sum3  += v[jrow]*x[11*idx[jrow]+2];
1880:       sum4  += v[jrow]*x[11*idx[jrow]+3];
1881:       sum5  += v[jrow]*x[11*idx[jrow]+4];
1882:       sum6  += v[jrow]*x[11*idx[jrow]+5];
1883:       sum7  += v[jrow]*x[11*idx[jrow]+6];
1884:       sum8  += v[jrow]*x[11*idx[jrow]+7];
1885:       sum9  += v[jrow]*x[11*idx[jrow]+8];
1886:       sum10 += v[jrow]*x[11*idx[jrow]+9];
1887:       sum11 += v[jrow]*x[11*idx[jrow]+10];
1888:       jrow++;
1889:     }
1890:     y[11*i]    = sum1;
1891:     y[11*i+1]  = sum2;
1892:     y[11*i+2]  = sum3;
1893:     y[11*i+3]  = sum4;
1894:     y[11*i+4]  = sum5;
1895:     y[11*i+5]  = sum6;
1896:     y[11*i+6]  = sum7;
1897:     y[11*i+7]  = sum8;
1898:     y[11*i+8]  = sum9;
1899:     y[11*i+9]  = sum10;
1900:     y[11*i+10] = sum11;
1901:   }

1903:   PetscLogFlops(22.0*a->nz - 11*nonzerorow);
1904:   VecRestoreArrayRead(xx,&x);
1905:   VecRestoreArray(yy,&y);
1906:   return(0);
1907: }

1909: PetscErrorCode MatMultAdd_SeqMAIJ_11(Mat A,Vec xx,Vec yy,Vec zz)
1910: {
1911:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1912:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1913:   const PetscScalar *x,*v;
1914:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8, sum9, sum10, sum11;
1915:   PetscErrorCode    ierr;
1916:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
1917:   PetscInt          n,i,jrow,j;

1920:   if (yy != zz) {VecCopy(yy,zz);}
1921:   VecGetArrayRead(xx,&x);
1922:   VecGetArray(zz,&y);
1923:   idx  = a->j;
1924:   v    = a->a;
1925:   ii   = a->i;

1927:   for (i=0; i<m; i++) {
1928:     jrow  = ii[i];
1929:     n     = ii[i+1] - jrow;
1930:     sum1  = 0.0;
1931:     sum2  = 0.0;
1932:     sum3  = 0.0;
1933:     sum4  = 0.0;
1934:     sum5  = 0.0;
1935:     sum6  = 0.0;
1936:     sum7  = 0.0;
1937:     sum8  = 0.0;
1938:     sum9  = 0.0;
1939:     sum10 = 0.0;
1940:     sum11 = 0.0;
1941:     for (j=0; j<n; j++) {
1942:       sum1  += v[jrow]*x[11*idx[jrow]];
1943:       sum2  += v[jrow]*x[11*idx[jrow]+1];
1944:       sum3  += v[jrow]*x[11*idx[jrow]+2];
1945:       sum4  += v[jrow]*x[11*idx[jrow]+3];
1946:       sum5  += v[jrow]*x[11*idx[jrow]+4];
1947:       sum6  += v[jrow]*x[11*idx[jrow]+5];
1948:       sum7  += v[jrow]*x[11*idx[jrow]+6];
1949:       sum8  += v[jrow]*x[11*idx[jrow]+7];
1950:       sum9  += v[jrow]*x[11*idx[jrow]+8];
1951:       sum10 += v[jrow]*x[11*idx[jrow]+9];
1952:       sum11 += v[jrow]*x[11*idx[jrow]+10];
1953:       jrow++;
1954:     }
1955:     y[11*i]    += sum1;
1956:     y[11*i+1]  += sum2;
1957:     y[11*i+2]  += sum3;
1958:     y[11*i+3]  += sum4;
1959:     y[11*i+4]  += sum5;
1960:     y[11*i+5]  += sum6;
1961:     y[11*i+6]  += sum7;
1962:     y[11*i+7]  += sum8;
1963:     y[11*i+8]  += sum9;
1964:     y[11*i+9]  += sum10;
1965:     y[11*i+10] += sum11;
1966:   }

1968:   PetscLogFlops(22.0*a->nz);
1969:   VecRestoreArrayRead(xx,&x);
1970:   VecRestoreArray(yy,&y);
1971:   return(0);
1972: }

1974: PetscErrorCode MatMultTranspose_SeqMAIJ_11(Mat A,Vec xx,Vec yy)
1975: {
1976:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
1977:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
1978:   const PetscScalar *x,*v;
1979:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8,alpha9,alpha10,alpha11;
1980:   PetscErrorCode    ierr;
1981:   const PetscInt    m = b->AIJ->rmap->n,*idx;
1982:   PetscInt          n,i;

1985:   VecSet(yy,0.0);
1986:   VecGetArrayRead(xx,&x);
1987:   VecGetArray(yy,&y);

1989:   for (i=0; i<m; i++) {
1990:     idx     = a->j + a->i[i];
1991:     v       = a->a + a->i[i];
1992:     n       = a->i[i+1] - a->i[i];
1993:     alpha1  = x[11*i];
1994:     alpha2  = x[11*i+1];
1995:     alpha3  = x[11*i+2];
1996:     alpha4  = x[11*i+3];
1997:     alpha5  = x[11*i+4];
1998:     alpha6  = x[11*i+5];
1999:     alpha7  = x[11*i+6];
2000:     alpha8  = x[11*i+7];
2001:     alpha9  = x[11*i+8];
2002:     alpha10 = x[11*i+9];
2003:     alpha11 = x[11*i+10];
2004:     while (n-->0) {
2005:       y[11*(*idx)]    += alpha1*(*v);
2006:       y[11*(*idx)+1]  += alpha2*(*v);
2007:       y[11*(*idx)+2]  += alpha3*(*v);
2008:       y[11*(*idx)+3]  += alpha4*(*v);
2009:       y[11*(*idx)+4]  += alpha5*(*v);
2010:       y[11*(*idx)+5]  += alpha6*(*v);
2011:       y[11*(*idx)+6]  += alpha7*(*v);
2012:       y[11*(*idx)+7]  += alpha8*(*v);
2013:       y[11*(*idx)+8]  += alpha9*(*v);
2014:       y[11*(*idx)+9]  += alpha10*(*v);
2015:       y[11*(*idx)+10] += alpha11*(*v);
2016:       idx++; v++;
2017:     }
2018:   }
2019:   PetscLogFlops(22.0*a->nz);
2020:   VecRestoreArrayRead(xx,&x);
2021:   VecRestoreArray(yy,&y);
2022:   return(0);
2023: }

2025: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_11(Mat A,Vec xx,Vec yy,Vec zz)
2026: {
2027:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2028:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2029:   const PetscScalar *x,*v;
2030:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8,alpha9,alpha10,alpha11;
2031:   PetscErrorCode    ierr;
2032:   const PetscInt    m = b->AIJ->rmap->n,*idx;
2033:   PetscInt          n,i;

2036:   if (yy != zz) {VecCopy(yy,zz);}
2037:   VecGetArrayRead(xx,&x);
2038:   VecGetArray(zz,&y);
2039:   for (i=0; i<m; i++) {
2040:     idx     = a->j + a->i[i];
2041:     v       = a->a + a->i[i];
2042:     n       = a->i[i+1] - a->i[i];
2043:     alpha1  = x[11*i];
2044:     alpha2  = x[11*i+1];
2045:     alpha3  = x[11*i+2];
2046:     alpha4  = x[11*i+3];
2047:     alpha5  = x[11*i+4];
2048:     alpha6  = x[11*i+5];
2049:     alpha7  = x[11*i+6];
2050:     alpha8  = x[11*i+7];
2051:     alpha9  = x[11*i+8];
2052:     alpha10 = x[11*i+9];
2053:     alpha11 = x[11*i+10];
2054:     while (n-->0) {
2055:       y[11*(*idx)]    += alpha1*(*v);
2056:       y[11*(*idx)+1]  += alpha2*(*v);
2057:       y[11*(*idx)+2]  += alpha3*(*v);
2058:       y[11*(*idx)+3]  += alpha4*(*v);
2059:       y[11*(*idx)+4]  += alpha5*(*v);
2060:       y[11*(*idx)+5]  += alpha6*(*v);
2061:       y[11*(*idx)+6]  += alpha7*(*v);
2062:       y[11*(*idx)+7]  += alpha8*(*v);
2063:       y[11*(*idx)+8]  += alpha9*(*v);
2064:       y[11*(*idx)+9]  += alpha10*(*v);
2065:       y[11*(*idx)+10] += alpha11*(*v);
2066:       idx++; v++;
2067:     }
2068:   }
2069:   PetscLogFlops(22.0*a->nz);
2070:   VecRestoreArrayRead(xx,&x);
2071:   VecRestoreArray(zz,&y);
2072:   return(0);
2073: }


2076: /*--------------------------------------------------------------------------------------------*/
2077: PetscErrorCode MatMult_SeqMAIJ_16(Mat A,Vec xx,Vec yy)
2078: {
2079:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2080:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2081:   const PetscScalar *x,*v;
2082:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8;
2083:   PetscScalar       sum9, sum10, sum11, sum12, sum13, sum14, sum15, sum16;
2084:   PetscErrorCode    ierr;
2085:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
2086:   PetscInt          nonzerorow=0,n,i,jrow,j;

2089:   VecGetArrayRead(xx,&x);
2090:   VecGetArray(yy,&y);
2091:   idx  = a->j;
2092:   v    = a->a;
2093:   ii   = a->i;

2095:   for (i=0; i<m; i++) {
2096:     jrow  = ii[i];
2097:     n     = ii[i+1] - jrow;
2098:     sum1  = 0.0;
2099:     sum2  = 0.0;
2100:     sum3  = 0.0;
2101:     sum4  = 0.0;
2102:     sum5  = 0.0;
2103:     sum6  = 0.0;
2104:     sum7  = 0.0;
2105:     sum8  = 0.0;
2106:     sum9  = 0.0;
2107:     sum10 = 0.0;
2108:     sum11 = 0.0;
2109:     sum12 = 0.0;
2110:     sum13 = 0.0;
2111:     sum14 = 0.0;
2112:     sum15 = 0.0;
2113:     sum16 = 0.0;

2115:     nonzerorow += (n>0);
2116:     for (j=0; j<n; j++) {
2117:       sum1  += v[jrow]*x[16*idx[jrow]];
2118:       sum2  += v[jrow]*x[16*idx[jrow]+1];
2119:       sum3  += v[jrow]*x[16*idx[jrow]+2];
2120:       sum4  += v[jrow]*x[16*idx[jrow]+3];
2121:       sum5  += v[jrow]*x[16*idx[jrow]+4];
2122:       sum6  += v[jrow]*x[16*idx[jrow]+5];
2123:       sum7  += v[jrow]*x[16*idx[jrow]+6];
2124:       sum8  += v[jrow]*x[16*idx[jrow]+7];
2125:       sum9  += v[jrow]*x[16*idx[jrow]+8];
2126:       sum10 += v[jrow]*x[16*idx[jrow]+9];
2127:       sum11 += v[jrow]*x[16*idx[jrow]+10];
2128:       sum12 += v[jrow]*x[16*idx[jrow]+11];
2129:       sum13 += v[jrow]*x[16*idx[jrow]+12];
2130:       sum14 += v[jrow]*x[16*idx[jrow]+13];
2131:       sum15 += v[jrow]*x[16*idx[jrow]+14];
2132:       sum16 += v[jrow]*x[16*idx[jrow]+15];
2133:       jrow++;
2134:     }
2135:     y[16*i]    = sum1;
2136:     y[16*i+1]  = sum2;
2137:     y[16*i+2]  = sum3;
2138:     y[16*i+3]  = sum4;
2139:     y[16*i+4]  = sum5;
2140:     y[16*i+5]  = sum6;
2141:     y[16*i+6]  = sum7;
2142:     y[16*i+7]  = sum8;
2143:     y[16*i+8]  = sum9;
2144:     y[16*i+9]  = sum10;
2145:     y[16*i+10] = sum11;
2146:     y[16*i+11] = sum12;
2147:     y[16*i+12] = sum13;
2148:     y[16*i+13] = sum14;
2149:     y[16*i+14] = sum15;
2150:     y[16*i+15] = sum16;
2151:   }

2153:   PetscLogFlops(32.0*a->nz - 16.0*nonzerorow);
2154:   VecRestoreArrayRead(xx,&x);
2155:   VecRestoreArray(yy,&y);
2156:   return(0);
2157: }

2159: PetscErrorCode MatMultTranspose_SeqMAIJ_16(Mat A,Vec xx,Vec yy)
2160: {
2161:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2162:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2163:   const PetscScalar *x,*v;
2164:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8;
2165:   PetscScalar       alpha9,alpha10,alpha11,alpha12,alpha13,alpha14,alpha15,alpha16;
2166:   PetscErrorCode    ierr;
2167:   const PetscInt    m = b->AIJ->rmap->n,*idx;
2168:   PetscInt          n,i;

2171:   VecSet(yy,0.0);
2172:   VecGetArrayRead(xx,&x);
2173:   VecGetArray(yy,&y);

2175:   for (i=0; i<m; i++) {
2176:     idx     = a->j + a->i[i];
2177:     v       = a->a + a->i[i];
2178:     n       = a->i[i+1] - a->i[i];
2179:     alpha1  = x[16*i];
2180:     alpha2  = x[16*i+1];
2181:     alpha3  = x[16*i+2];
2182:     alpha4  = x[16*i+3];
2183:     alpha5  = x[16*i+4];
2184:     alpha6  = x[16*i+5];
2185:     alpha7  = x[16*i+6];
2186:     alpha8  = x[16*i+7];
2187:     alpha9  = x[16*i+8];
2188:     alpha10 = x[16*i+9];
2189:     alpha11 = x[16*i+10];
2190:     alpha12 = x[16*i+11];
2191:     alpha13 = x[16*i+12];
2192:     alpha14 = x[16*i+13];
2193:     alpha15 = x[16*i+14];
2194:     alpha16 = x[16*i+15];
2195:     while (n-->0) {
2196:       y[16*(*idx)]    += alpha1*(*v);
2197:       y[16*(*idx)+1]  += alpha2*(*v);
2198:       y[16*(*idx)+2]  += alpha3*(*v);
2199:       y[16*(*idx)+3]  += alpha4*(*v);
2200:       y[16*(*idx)+4]  += alpha5*(*v);
2201:       y[16*(*idx)+5]  += alpha6*(*v);
2202:       y[16*(*idx)+6]  += alpha7*(*v);
2203:       y[16*(*idx)+7]  += alpha8*(*v);
2204:       y[16*(*idx)+8]  += alpha9*(*v);
2205:       y[16*(*idx)+9]  += alpha10*(*v);
2206:       y[16*(*idx)+10] += alpha11*(*v);
2207:       y[16*(*idx)+11] += alpha12*(*v);
2208:       y[16*(*idx)+12] += alpha13*(*v);
2209:       y[16*(*idx)+13] += alpha14*(*v);
2210:       y[16*(*idx)+14] += alpha15*(*v);
2211:       y[16*(*idx)+15] += alpha16*(*v);
2212:       idx++; v++;
2213:     }
2214:   }
2215:   PetscLogFlops(32.0*a->nz);
2216:   VecRestoreArrayRead(xx,&x);
2217:   VecRestoreArray(yy,&y);
2218:   return(0);
2219: }

2221: PetscErrorCode MatMultAdd_SeqMAIJ_16(Mat A,Vec xx,Vec yy,Vec zz)
2222: {
2223:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2224:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2225:   const PetscScalar *x,*v;
2226:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8;
2227:   PetscScalar       sum9, sum10, sum11, sum12, sum13, sum14, sum15, sum16;
2228:   PetscErrorCode    ierr;
2229:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
2230:   PetscInt          n,i,jrow,j;

2233:   if (yy != zz) {VecCopy(yy,zz);}
2234:   VecGetArrayRead(xx,&x);
2235:   VecGetArray(zz,&y);
2236:   idx  = a->j;
2237:   v    = a->a;
2238:   ii   = a->i;

2240:   for (i=0; i<m; i++) {
2241:     jrow  = ii[i];
2242:     n     = ii[i+1] - jrow;
2243:     sum1  = 0.0;
2244:     sum2  = 0.0;
2245:     sum3  = 0.0;
2246:     sum4  = 0.0;
2247:     sum5  = 0.0;
2248:     sum6  = 0.0;
2249:     sum7  = 0.0;
2250:     sum8  = 0.0;
2251:     sum9  = 0.0;
2252:     sum10 = 0.0;
2253:     sum11 = 0.0;
2254:     sum12 = 0.0;
2255:     sum13 = 0.0;
2256:     sum14 = 0.0;
2257:     sum15 = 0.0;
2258:     sum16 = 0.0;
2259:     for (j=0; j<n; j++) {
2260:       sum1  += v[jrow]*x[16*idx[jrow]];
2261:       sum2  += v[jrow]*x[16*idx[jrow]+1];
2262:       sum3  += v[jrow]*x[16*idx[jrow]+2];
2263:       sum4  += v[jrow]*x[16*idx[jrow]+3];
2264:       sum5  += v[jrow]*x[16*idx[jrow]+4];
2265:       sum6  += v[jrow]*x[16*idx[jrow]+5];
2266:       sum7  += v[jrow]*x[16*idx[jrow]+6];
2267:       sum8  += v[jrow]*x[16*idx[jrow]+7];
2268:       sum9  += v[jrow]*x[16*idx[jrow]+8];
2269:       sum10 += v[jrow]*x[16*idx[jrow]+9];
2270:       sum11 += v[jrow]*x[16*idx[jrow]+10];
2271:       sum12 += v[jrow]*x[16*idx[jrow]+11];
2272:       sum13 += v[jrow]*x[16*idx[jrow]+12];
2273:       sum14 += v[jrow]*x[16*idx[jrow]+13];
2274:       sum15 += v[jrow]*x[16*idx[jrow]+14];
2275:       sum16 += v[jrow]*x[16*idx[jrow]+15];
2276:       jrow++;
2277:     }
2278:     y[16*i]    += sum1;
2279:     y[16*i+1]  += sum2;
2280:     y[16*i+2]  += sum3;
2281:     y[16*i+3]  += sum4;
2282:     y[16*i+4]  += sum5;
2283:     y[16*i+5]  += sum6;
2284:     y[16*i+6]  += sum7;
2285:     y[16*i+7]  += sum8;
2286:     y[16*i+8]  += sum9;
2287:     y[16*i+9]  += sum10;
2288:     y[16*i+10] += sum11;
2289:     y[16*i+11] += sum12;
2290:     y[16*i+12] += sum13;
2291:     y[16*i+13] += sum14;
2292:     y[16*i+14] += sum15;
2293:     y[16*i+15] += sum16;
2294:   }

2296:   PetscLogFlops(32.0*a->nz);
2297:   VecRestoreArrayRead(xx,&x);
2298:   VecRestoreArray(zz,&y);
2299:   return(0);
2300: }

2302: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_16(Mat A,Vec xx,Vec yy,Vec zz)
2303: {
2304:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2305:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2306:   const PetscScalar *x,*v;
2307:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8;
2308:   PetscScalar       alpha9,alpha10,alpha11,alpha12,alpha13,alpha14,alpha15,alpha16;
2309:   PetscErrorCode    ierr;
2310:   const PetscInt    m = b->AIJ->rmap->n,*idx;
2311:   PetscInt          n,i;

2314:   if (yy != zz) {VecCopy(yy,zz);}
2315:   VecGetArrayRead(xx,&x);
2316:   VecGetArray(zz,&y);
2317:   for (i=0; i<m; i++) {
2318:     idx     = a->j + a->i[i];
2319:     v       = a->a + a->i[i];
2320:     n       = a->i[i+1] - a->i[i];
2321:     alpha1  = x[16*i];
2322:     alpha2  = x[16*i+1];
2323:     alpha3  = x[16*i+2];
2324:     alpha4  = x[16*i+3];
2325:     alpha5  = x[16*i+4];
2326:     alpha6  = x[16*i+5];
2327:     alpha7  = x[16*i+6];
2328:     alpha8  = x[16*i+7];
2329:     alpha9  = x[16*i+8];
2330:     alpha10 = x[16*i+9];
2331:     alpha11 = x[16*i+10];
2332:     alpha12 = x[16*i+11];
2333:     alpha13 = x[16*i+12];
2334:     alpha14 = x[16*i+13];
2335:     alpha15 = x[16*i+14];
2336:     alpha16 = x[16*i+15];
2337:     while (n-->0) {
2338:       y[16*(*idx)]    += alpha1*(*v);
2339:       y[16*(*idx)+1]  += alpha2*(*v);
2340:       y[16*(*idx)+2]  += alpha3*(*v);
2341:       y[16*(*idx)+3]  += alpha4*(*v);
2342:       y[16*(*idx)+4]  += alpha5*(*v);
2343:       y[16*(*idx)+5]  += alpha6*(*v);
2344:       y[16*(*idx)+6]  += alpha7*(*v);
2345:       y[16*(*idx)+7]  += alpha8*(*v);
2346:       y[16*(*idx)+8]  += alpha9*(*v);
2347:       y[16*(*idx)+9]  += alpha10*(*v);
2348:       y[16*(*idx)+10] += alpha11*(*v);
2349:       y[16*(*idx)+11] += alpha12*(*v);
2350:       y[16*(*idx)+12] += alpha13*(*v);
2351:       y[16*(*idx)+13] += alpha14*(*v);
2352:       y[16*(*idx)+14] += alpha15*(*v);
2353:       y[16*(*idx)+15] += alpha16*(*v);
2354:       idx++; v++;
2355:     }
2356:   }
2357:   PetscLogFlops(32.0*a->nz);
2358:   VecRestoreArrayRead(xx,&x);
2359:   VecRestoreArray(zz,&y);
2360:   return(0);
2361: }

2363: /*--------------------------------------------------------------------------------------------*/
2364: PetscErrorCode MatMult_SeqMAIJ_18(Mat A,Vec xx,Vec yy)
2365: {
2366:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2367:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2368:   const PetscScalar *x,*v;
2369:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8;
2370:   PetscScalar       sum9, sum10, sum11, sum12, sum13, sum14, sum15, sum16, sum17, sum18;
2371:   PetscErrorCode    ierr;
2372:   const PetscInt    m         = b->AIJ->rmap->n,*idx,*ii;
2373:   PetscInt          nonzerorow=0,n,i,jrow,j;

2376:   VecGetArrayRead(xx,&x);
2377:   VecGetArray(yy,&y);
2378:   idx  = a->j;
2379:   v    = a->a;
2380:   ii   = a->i;

2382:   for (i=0; i<m; i++) {
2383:     jrow  = ii[i];
2384:     n     = ii[i+1] - jrow;
2385:     sum1  = 0.0;
2386:     sum2  = 0.0;
2387:     sum3  = 0.0;
2388:     sum4  = 0.0;
2389:     sum5  = 0.0;
2390:     sum6  = 0.0;
2391:     sum7  = 0.0;
2392:     sum8  = 0.0;
2393:     sum9  = 0.0;
2394:     sum10 = 0.0;
2395:     sum11 = 0.0;
2396:     sum12 = 0.0;
2397:     sum13 = 0.0;
2398:     sum14 = 0.0;
2399:     sum15 = 0.0;
2400:     sum16 = 0.0;
2401:     sum17 = 0.0;
2402:     sum18 = 0.0;

2404:     nonzerorow += (n>0);
2405:     for (j=0; j<n; j++) {
2406:       sum1  += v[jrow]*x[18*idx[jrow]];
2407:       sum2  += v[jrow]*x[18*idx[jrow]+1];
2408:       sum3  += v[jrow]*x[18*idx[jrow]+2];
2409:       sum4  += v[jrow]*x[18*idx[jrow]+3];
2410:       sum5  += v[jrow]*x[18*idx[jrow]+4];
2411:       sum6  += v[jrow]*x[18*idx[jrow]+5];
2412:       sum7  += v[jrow]*x[18*idx[jrow]+6];
2413:       sum8  += v[jrow]*x[18*idx[jrow]+7];
2414:       sum9  += v[jrow]*x[18*idx[jrow]+8];
2415:       sum10 += v[jrow]*x[18*idx[jrow]+9];
2416:       sum11 += v[jrow]*x[18*idx[jrow]+10];
2417:       sum12 += v[jrow]*x[18*idx[jrow]+11];
2418:       sum13 += v[jrow]*x[18*idx[jrow]+12];
2419:       sum14 += v[jrow]*x[18*idx[jrow]+13];
2420:       sum15 += v[jrow]*x[18*idx[jrow]+14];
2421:       sum16 += v[jrow]*x[18*idx[jrow]+15];
2422:       sum17 += v[jrow]*x[18*idx[jrow]+16];
2423:       sum18 += v[jrow]*x[18*idx[jrow]+17];
2424:       jrow++;
2425:     }
2426:     y[18*i]    = sum1;
2427:     y[18*i+1]  = sum2;
2428:     y[18*i+2]  = sum3;
2429:     y[18*i+3]  = sum4;
2430:     y[18*i+4]  = sum5;
2431:     y[18*i+5]  = sum6;
2432:     y[18*i+6]  = sum7;
2433:     y[18*i+7]  = sum8;
2434:     y[18*i+8]  = sum9;
2435:     y[18*i+9]  = sum10;
2436:     y[18*i+10] = sum11;
2437:     y[18*i+11] = sum12;
2438:     y[18*i+12] = sum13;
2439:     y[18*i+13] = sum14;
2440:     y[18*i+14] = sum15;
2441:     y[18*i+15] = sum16;
2442:     y[18*i+16] = sum17;
2443:     y[18*i+17] = sum18;
2444:   }

2446:   PetscLogFlops(36.0*a->nz - 18.0*nonzerorow);
2447:   VecRestoreArrayRead(xx,&x);
2448:   VecRestoreArray(yy,&y);
2449:   return(0);
2450: }

2452: PetscErrorCode MatMultTranspose_SeqMAIJ_18(Mat A,Vec xx,Vec yy)
2453: {
2454:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2455:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2456:   const PetscScalar *x,*v;
2457:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8;
2458:   PetscScalar       alpha9,alpha10,alpha11,alpha12,alpha13,alpha14,alpha15,alpha16,alpha17,alpha18;
2459:   PetscErrorCode    ierr;
2460:   const PetscInt    m = b->AIJ->rmap->n,*idx;
2461:   PetscInt          n,i;

2464:   VecSet(yy,0.0);
2465:   VecGetArrayRead(xx,&x);
2466:   VecGetArray(yy,&y);

2468:   for (i=0; i<m; i++) {
2469:     idx     = a->j + a->i[i];
2470:     v       = a->a + a->i[i];
2471:     n       = a->i[i+1] - a->i[i];
2472:     alpha1  = x[18*i];
2473:     alpha2  = x[18*i+1];
2474:     alpha3  = x[18*i+2];
2475:     alpha4  = x[18*i+3];
2476:     alpha5  = x[18*i+4];
2477:     alpha6  = x[18*i+5];
2478:     alpha7  = x[18*i+6];
2479:     alpha8  = x[18*i+7];
2480:     alpha9  = x[18*i+8];
2481:     alpha10 = x[18*i+9];
2482:     alpha11 = x[18*i+10];
2483:     alpha12 = x[18*i+11];
2484:     alpha13 = x[18*i+12];
2485:     alpha14 = x[18*i+13];
2486:     alpha15 = x[18*i+14];
2487:     alpha16 = x[18*i+15];
2488:     alpha17 = x[18*i+16];
2489:     alpha18 = x[18*i+17];
2490:     while (n-->0) {
2491:       y[18*(*idx)]    += alpha1*(*v);
2492:       y[18*(*idx)+1]  += alpha2*(*v);
2493:       y[18*(*idx)+2]  += alpha3*(*v);
2494:       y[18*(*idx)+3]  += alpha4*(*v);
2495:       y[18*(*idx)+4]  += alpha5*(*v);
2496:       y[18*(*idx)+5]  += alpha6*(*v);
2497:       y[18*(*idx)+6]  += alpha7*(*v);
2498:       y[18*(*idx)+7]  += alpha8*(*v);
2499:       y[18*(*idx)+8]  += alpha9*(*v);
2500:       y[18*(*idx)+9]  += alpha10*(*v);
2501:       y[18*(*idx)+10] += alpha11*(*v);
2502:       y[18*(*idx)+11] += alpha12*(*v);
2503:       y[18*(*idx)+12] += alpha13*(*v);
2504:       y[18*(*idx)+13] += alpha14*(*v);
2505:       y[18*(*idx)+14] += alpha15*(*v);
2506:       y[18*(*idx)+15] += alpha16*(*v);
2507:       y[18*(*idx)+16] += alpha17*(*v);
2508:       y[18*(*idx)+17] += alpha18*(*v);
2509:       idx++; v++;
2510:     }
2511:   }
2512:   PetscLogFlops(36.0*a->nz);
2513:   VecRestoreArrayRead(xx,&x);
2514:   VecRestoreArray(yy,&y);
2515:   return(0);
2516: }

2518: PetscErrorCode MatMultAdd_SeqMAIJ_18(Mat A,Vec xx,Vec yy,Vec zz)
2519: {
2520:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2521:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2522:   const PetscScalar *x,*v;
2523:   PetscScalar       *y,sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8;
2524:   PetscScalar       sum9, sum10, sum11, sum12, sum13, sum14, sum15, sum16, sum17, sum18;
2525:   PetscErrorCode    ierr;
2526:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
2527:   PetscInt          n,i,jrow,j;

2530:   if (yy != zz) {VecCopy(yy,zz);}
2531:   VecGetArrayRead(xx,&x);
2532:   VecGetArray(zz,&y);
2533:   idx  = a->j;
2534:   v    = a->a;
2535:   ii   = a->i;

2537:   for (i=0; i<m; i++) {
2538:     jrow  = ii[i];
2539:     n     = ii[i+1] - jrow;
2540:     sum1  = 0.0;
2541:     sum2  = 0.0;
2542:     sum3  = 0.0;
2543:     sum4  = 0.0;
2544:     sum5  = 0.0;
2545:     sum6  = 0.0;
2546:     sum7  = 0.0;
2547:     sum8  = 0.0;
2548:     sum9  = 0.0;
2549:     sum10 = 0.0;
2550:     sum11 = 0.0;
2551:     sum12 = 0.0;
2552:     sum13 = 0.0;
2553:     sum14 = 0.0;
2554:     sum15 = 0.0;
2555:     sum16 = 0.0;
2556:     sum17 = 0.0;
2557:     sum18 = 0.0;
2558:     for (j=0; j<n; j++) {
2559:       sum1  += v[jrow]*x[18*idx[jrow]];
2560:       sum2  += v[jrow]*x[18*idx[jrow]+1];
2561:       sum3  += v[jrow]*x[18*idx[jrow]+2];
2562:       sum4  += v[jrow]*x[18*idx[jrow]+3];
2563:       sum5  += v[jrow]*x[18*idx[jrow]+4];
2564:       sum6  += v[jrow]*x[18*idx[jrow]+5];
2565:       sum7  += v[jrow]*x[18*idx[jrow]+6];
2566:       sum8  += v[jrow]*x[18*idx[jrow]+7];
2567:       sum9  += v[jrow]*x[18*idx[jrow]+8];
2568:       sum10 += v[jrow]*x[18*idx[jrow]+9];
2569:       sum11 += v[jrow]*x[18*idx[jrow]+10];
2570:       sum12 += v[jrow]*x[18*idx[jrow]+11];
2571:       sum13 += v[jrow]*x[18*idx[jrow]+12];
2572:       sum14 += v[jrow]*x[18*idx[jrow]+13];
2573:       sum15 += v[jrow]*x[18*idx[jrow]+14];
2574:       sum16 += v[jrow]*x[18*idx[jrow]+15];
2575:       sum17 += v[jrow]*x[18*idx[jrow]+16];
2576:       sum18 += v[jrow]*x[18*idx[jrow]+17];
2577:       jrow++;
2578:     }
2579:     y[18*i]    += sum1;
2580:     y[18*i+1]  += sum2;
2581:     y[18*i+2]  += sum3;
2582:     y[18*i+3]  += sum4;
2583:     y[18*i+4]  += sum5;
2584:     y[18*i+5]  += sum6;
2585:     y[18*i+6]  += sum7;
2586:     y[18*i+7]  += sum8;
2587:     y[18*i+8]  += sum9;
2588:     y[18*i+9]  += sum10;
2589:     y[18*i+10] += sum11;
2590:     y[18*i+11] += sum12;
2591:     y[18*i+12] += sum13;
2592:     y[18*i+13] += sum14;
2593:     y[18*i+14] += sum15;
2594:     y[18*i+15] += sum16;
2595:     y[18*i+16] += sum17;
2596:     y[18*i+17] += sum18;
2597:   }

2599:   PetscLogFlops(36.0*a->nz);
2600:   VecRestoreArrayRead(xx,&x);
2601:   VecRestoreArray(zz,&y);
2602:   return(0);
2603: }

2605: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_18(Mat A,Vec xx,Vec yy,Vec zz)
2606: {
2607:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2608:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2609:   const PetscScalar *x,*v;
2610:   PetscScalar       *y,alpha1,alpha2,alpha3,alpha4,alpha5,alpha6,alpha7,alpha8;
2611:   PetscScalar       alpha9,alpha10,alpha11,alpha12,alpha13,alpha14,alpha15,alpha16,alpha17,alpha18;
2612:   PetscErrorCode    ierr;
2613:   const PetscInt    m = b->AIJ->rmap->n,*idx;
2614:   PetscInt          n,i;

2617:   if (yy != zz) {VecCopy(yy,zz);}
2618:   VecGetArrayRead(xx,&x);
2619:   VecGetArray(zz,&y);
2620:   for (i=0; i<m; i++) {
2621:     idx     = a->j + a->i[i];
2622:     v       = a->a + a->i[i];
2623:     n       = a->i[i+1] - a->i[i];
2624:     alpha1  = x[18*i];
2625:     alpha2  = x[18*i+1];
2626:     alpha3  = x[18*i+2];
2627:     alpha4  = x[18*i+3];
2628:     alpha5  = x[18*i+4];
2629:     alpha6  = x[18*i+5];
2630:     alpha7  = x[18*i+6];
2631:     alpha8  = x[18*i+7];
2632:     alpha9  = x[18*i+8];
2633:     alpha10 = x[18*i+9];
2634:     alpha11 = x[18*i+10];
2635:     alpha12 = x[18*i+11];
2636:     alpha13 = x[18*i+12];
2637:     alpha14 = x[18*i+13];
2638:     alpha15 = x[18*i+14];
2639:     alpha16 = x[18*i+15];
2640:     alpha17 = x[18*i+16];
2641:     alpha18 = x[18*i+17];
2642:     while (n-->0) {
2643:       y[18*(*idx)]    += alpha1*(*v);
2644:       y[18*(*idx)+1]  += alpha2*(*v);
2645:       y[18*(*idx)+2]  += alpha3*(*v);
2646:       y[18*(*idx)+3]  += alpha4*(*v);
2647:       y[18*(*idx)+4]  += alpha5*(*v);
2648:       y[18*(*idx)+5]  += alpha6*(*v);
2649:       y[18*(*idx)+6]  += alpha7*(*v);
2650:       y[18*(*idx)+7]  += alpha8*(*v);
2651:       y[18*(*idx)+8]  += alpha9*(*v);
2652:       y[18*(*idx)+9]  += alpha10*(*v);
2653:       y[18*(*idx)+10] += alpha11*(*v);
2654:       y[18*(*idx)+11] += alpha12*(*v);
2655:       y[18*(*idx)+12] += alpha13*(*v);
2656:       y[18*(*idx)+13] += alpha14*(*v);
2657:       y[18*(*idx)+14] += alpha15*(*v);
2658:       y[18*(*idx)+15] += alpha16*(*v);
2659:       y[18*(*idx)+16] += alpha17*(*v);
2660:       y[18*(*idx)+17] += alpha18*(*v);
2661:       idx++; v++;
2662:     }
2663:   }
2664:   PetscLogFlops(36.0*a->nz);
2665:   VecRestoreArrayRead(xx,&x);
2666:   VecRestoreArray(zz,&y);
2667:   return(0);
2668: }

2670: PetscErrorCode MatMult_SeqMAIJ_N(Mat A,Vec xx,Vec yy)
2671: {
2672:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2673:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2674:   const PetscScalar *x,*v;
2675:   PetscScalar       *y,*sums;
2676:   PetscErrorCode    ierr;
2677:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
2678:   PetscInt          n,i,jrow,j,dof = b->dof,k;

2681:   VecGetArrayRead(xx,&x);
2682:   VecSet(yy,0.0);
2683:   VecGetArray(yy,&y);
2684:   idx  = a->j;
2685:   v    = a->a;
2686:   ii   = a->i;

2688:   for (i=0; i<m; i++) {
2689:     jrow = ii[i];
2690:     n    = ii[i+1] - jrow;
2691:     sums = y + dof*i;
2692:     for (j=0; j<n; j++) {
2693:       for (k=0; k<dof; k++) {
2694:         sums[k] += v[jrow]*x[dof*idx[jrow]+k];
2695:       }
2696:       jrow++;
2697:     }
2698:   }

2700:   PetscLogFlops(2.0*dof*a->nz);
2701:   VecRestoreArrayRead(xx,&x);
2702:   VecRestoreArray(yy,&y);
2703:   return(0);
2704: }

2706: PetscErrorCode MatMultAdd_SeqMAIJ_N(Mat A,Vec xx,Vec yy,Vec zz)
2707: {
2708:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2709:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2710:   const PetscScalar *x,*v;
2711:   PetscScalar       *y,*sums;
2712:   PetscErrorCode    ierr;
2713:   const PetscInt    m = b->AIJ->rmap->n,*idx,*ii;
2714:   PetscInt          n,i,jrow,j,dof = b->dof,k;

2717:   if (yy != zz) {VecCopy(yy,zz);}
2718:   VecGetArrayRead(xx,&x);
2719:   VecGetArray(zz,&y);
2720:   idx  = a->j;
2721:   v    = a->a;
2722:   ii   = a->i;

2724:   for (i=0; i<m; i++) {
2725:     jrow = ii[i];
2726:     n    = ii[i+1] - jrow;
2727:     sums = y + dof*i;
2728:     for (j=0; j<n; j++) {
2729:       for (k=0; k<dof; k++) {
2730:         sums[k] += v[jrow]*x[dof*idx[jrow]+k];
2731:       }
2732:       jrow++;
2733:     }
2734:   }

2736:   PetscLogFlops(2.0*dof*a->nz);
2737:   VecRestoreArrayRead(xx,&x);
2738:   VecRestoreArray(zz,&y);
2739:   return(0);
2740: }

2742: PetscErrorCode MatMultTranspose_SeqMAIJ_N(Mat A,Vec xx,Vec yy)
2743: {
2744:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2745:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2746:   const PetscScalar *x,*v,*alpha;
2747:   PetscScalar       *y;
2748:   PetscErrorCode    ierr;
2749:   const PetscInt    m = b->AIJ->rmap->n,*idx,dof = b->dof;
2750:   PetscInt          n,i,k;

2753:   VecGetArrayRead(xx,&x);
2754:   VecSet(yy,0.0);
2755:   VecGetArray(yy,&y);
2756:   for (i=0; i<m; i++) {
2757:     idx   = a->j + a->i[i];
2758:     v     = a->a + a->i[i];
2759:     n     = a->i[i+1] - a->i[i];
2760:     alpha = x + dof*i;
2761:     while (n-->0) {
2762:       for (k=0; k<dof; k++) {
2763:         y[dof*(*idx)+k] += alpha[k]*(*v);
2764:       }
2765:       idx++; v++;
2766:     }
2767:   }
2768:   PetscLogFlops(2.0*dof*a->nz);
2769:   VecRestoreArrayRead(xx,&x);
2770:   VecRestoreArray(yy,&y);
2771:   return(0);
2772: }

2774: PetscErrorCode MatMultTransposeAdd_SeqMAIJ_N(Mat A,Vec xx,Vec yy,Vec zz)
2775: {
2776:   Mat_SeqMAIJ       *b = (Mat_SeqMAIJ*)A->data;
2777:   Mat_SeqAIJ        *a = (Mat_SeqAIJ*)b->AIJ->data;
2778:   const PetscScalar *x,*v,*alpha;
2779:   PetscScalar       *y;
2780:   PetscErrorCode    ierr;
2781:   const PetscInt    m = b->AIJ->rmap->n,*idx,dof = b->dof;
2782:   PetscInt          n,i,k;

2785:   if (yy != zz) {VecCopy(yy,zz);}
2786:   VecGetArrayRead(xx,&x);
2787:   VecGetArray(zz,&y);
2788:   for (i=0; i<m; i++) {
2789:     idx   = a->j + a->i[i];
2790:     v     = a->a + a->i[i];
2791:     n     = a->i[i+1] - a->i[i];
2792:     alpha = x + dof*i;
2793:     while (n-->0) {
2794:       for (k=0; k<dof; k++) {
2795:         y[dof*(*idx)+k] += alpha[k]*(*v);
2796:       }
2797:       idx++; v++;
2798:     }
2799:   }
2800:   PetscLogFlops(2.0*dof*a->nz);
2801:   VecRestoreArrayRead(xx,&x);
2802:   VecRestoreArray(zz,&y);
2803:   return(0);
2804: }

2806: /*===================================================================================*/
2807: PetscErrorCode MatMult_MPIMAIJ_dof(Mat A,Vec xx,Vec yy)
2808: {
2809:   Mat_MPIMAIJ    *b = (Mat_MPIMAIJ*)A->data;

2813:   /* start the scatter */
2814:   VecScatterBegin(b->ctx,xx,b->w,INSERT_VALUES,SCATTER_FORWARD);
2815:   (*b->AIJ->ops->mult)(b->AIJ,xx,yy);
2816:   VecScatterEnd(b->ctx,xx,b->w,INSERT_VALUES,SCATTER_FORWARD);
2817:   (*b->OAIJ->ops->multadd)(b->OAIJ,b->w,yy,yy);
2818:   return(0);
2819: }

2821: PetscErrorCode MatMultTranspose_MPIMAIJ_dof(Mat A,Vec xx,Vec yy)
2822: {
2823:   Mat_MPIMAIJ    *b = (Mat_MPIMAIJ*)A->data;

2827:   (*b->OAIJ->ops->multtranspose)(b->OAIJ,xx,b->w);
2828:   (*b->AIJ->ops->multtranspose)(b->AIJ,xx,yy);
2829:   VecScatterBegin(b->ctx,b->w,yy,ADD_VALUES,SCATTER_REVERSE);
2830:   VecScatterEnd(b->ctx,b->w,yy,ADD_VALUES,SCATTER_REVERSE);
2831:   return(0);
2832: }

2834: PetscErrorCode MatMultAdd_MPIMAIJ_dof(Mat A,Vec xx,Vec yy,Vec zz)
2835: {
2836:   Mat_MPIMAIJ    *b = (Mat_MPIMAIJ*)A->data;

2840:   /* start the scatter */
2841:   VecScatterBegin(b->ctx,xx,b->w,INSERT_VALUES,SCATTER_FORWARD);
2842:   (*b->AIJ->ops->multadd)(b->AIJ,xx,yy,zz);
2843:   VecScatterEnd(b->ctx,xx,b->w,INSERT_VALUES,SCATTER_FORWARD);
2844:   (*b->OAIJ->ops->multadd)(b->OAIJ,b->w,zz,zz);
2845:   return(0);
2846: }

2848: PetscErrorCode MatMultTransposeAdd_MPIMAIJ_dof(Mat A,Vec xx,Vec yy,Vec zz)
2849: {
2850:   Mat_MPIMAIJ    *b = (Mat_MPIMAIJ*)A->data;

2854:   (*b->OAIJ->ops->multtranspose)(b->OAIJ,xx,b->w);
2855:   (*b->AIJ->ops->multtransposeadd)(b->AIJ,xx,yy,zz);
2856:   VecScatterBegin(b->ctx,b->w,zz,ADD_VALUES,SCATTER_REVERSE);
2857:   VecScatterEnd(b->ctx,b->w,zz,ADD_VALUES,SCATTER_REVERSE);
2858:   return(0);
2859: }

2861: /* ----------------------------------------------------------------*/
2862: PetscErrorCode MatProductSetFromOptions_SeqAIJ_SeqMAIJ(Mat C)
2863: {
2864:   Mat_Product    *product = C->product;

2867:   if (product->type == MATPRODUCT_PtAP) {
2868:     C->ops->productsymbolic = MatProductSymbolic_PtAP_SeqAIJ_SeqMAIJ;
2869:   } else SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"Mat Product type %s is not supported for SeqAIJ and SeqMAIJ matrices",MatProductTypes[product->type]);
2870:   return(0);
2871: }

2873: PetscErrorCode MatProductSetFromOptions_MPIAIJ_MPIMAIJ(Mat C)
2874: {
2876:   Mat_Product    *product = C->product;
2877:   PetscBool      flg = PETSC_FALSE;
2878:   Mat            A=product->A,P=product->B;
2879:   PetscInt       alg=1; /* set default algorithm */
2880: #if !defined(PETSC_HAVE_HYPRE)
2881:   const char     *algTypes[4] = {"scalable","nonscalable","allatonce","allatonce_merged"};
2882:   PetscInt       nalg=4;
2883: #else
2884:   const char     *algTypes[5] = {"scalable","nonscalable","allatonce","allatonce_merged","hypre"};
2885:   PetscInt       nalg=5;
2886: #endif

2889:   if (product->type != MATPRODUCT_PtAP) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"Mat Product type %s is not supported for MPIAIJ and MPIMAIJ matrices",MatProductTypes[product->type]);

2891:   /* PtAP */
2892:   /* Check matrix local sizes */
2893:   if (A->rmap->rstart != P->rmap->rstart || A->rmap->rend != P->rmap->rend) SETERRQ4(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Matrix local dimensions are incompatible, Arow (%D, %D) != Prow (%D,%D)",A->rmap->rstart,A->rmap->rend,P->rmap->rstart,P->rmap->rend);
2894:   if (A->cmap->rstart != P->rmap->rstart || A->cmap->rend != P->rmap->rend) SETERRQ4(PETSC_COMM_SELF,PETSC_ERR_ARG_SIZ,"Matrix local dimensions are incompatible, Acol (%D, %D) != Prow (%D,%D)",A->cmap->rstart,A->cmap->rend,P->rmap->rstart,P->rmap->rend);

2896:   /* Set the default algorithm */
2897:   PetscStrcmp(C->product->alg,"default",&flg);
2898:   if (flg) {
2899:     MatProductSetAlgorithm(C,(MatProductAlgorithm)algTypes[alg]);
2900:   }

2902:   /* Get runtime option */
2903:   PetscOptionsBegin(PetscObjectComm((PetscObject)C),((PetscObject)C)->prefix,"MatProduct_PtAP","Mat");
2904:   PetscOptionsEList("-matproduct_ptap_via","Algorithmic approach","MatPtAP",algTypes,nalg,algTypes[alg],&alg,&flg);
2905:   if (flg) {
2906:     MatProductSetAlgorithm(C,(MatProductAlgorithm)algTypes[alg]);
2907:   }
2908:   PetscOptionsEnd();

2910:   PetscStrcmp(C->product->alg,"allatonce",&flg);
2911:   if (flg) {
2912:     C->ops->productsymbolic = MatProductSymbolic_PtAP_MPIAIJ_MPIMAIJ;
2913:     return(0);
2914:   }

2916:   PetscStrcmp(C->product->alg,"allatonce_merged",&flg);
2917:   if (flg) {
2918:     C->ops->productsymbolic = MatProductSymbolic_PtAP_MPIAIJ_MPIMAIJ;
2919:     return(0);
2920:   }

2922:   /* Convert P from MAIJ to AIJ matrix since implementation not available for MAIJ */
2923:   PetscInfo((PetscObject)A,"Converting from MAIJ to AIJ matrix since implementation not available for MAIJ\n");
2924:   MatConvert(P,MATMPIAIJ,MAT_INPLACE_MATRIX,&P);
2925:   MatProductSetFromOptions(C);
2926:   return(0);
2927: }

2929: /* ----------------------------------------------------------------*/
2930: PetscErrorCode MatPtAPSymbolic_SeqAIJ_SeqMAIJ(Mat A,Mat PP,PetscReal fill,Mat C)
2931: {
2932:   PetscErrorCode     ierr;
2933:   PetscFreeSpaceList free_space=NULL,current_space=NULL;
2934:   Mat_SeqMAIJ        *pp       =(Mat_SeqMAIJ*)PP->data;
2935:   Mat                P         =pp->AIJ;
2936:   Mat_SeqAIJ         *a        =(Mat_SeqAIJ*)A->data,*p=(Mat_SeqAIJ*)P->data,*c;
2937:   PetscInt           *pti,*ptj,*ptJ;
2938:   PetscInt           *ci,*cj,*ptadenserow,*ptasparserow,*denserow,*sparserow,*ptaj;
2939:   const PetscInt     an=A->cmap->N,am=A->rmap->N,pn=P->cmap->N,pm=P->rmap->N,ppdof=pp->dof;
2940:   PetscInt           i,j,k,dof,pshift,ptnzi,arow,anzj,ptanzi,prow,pnzj,cnzi,cn;
2941:   MatScalar          *ca;
2942:   const PetscInt     *pi = p->i,*pj = p->j,*pjj,*ai=a->i,*aj=a->j,*ajj;

2945:   /* Get ij structure of P^T */
2946:   MatGetSymbolicTranspose_SeqAIJ(P,&pti,&ptj);

2948:   cn = pn*ppdof;
2949:   /* Allocate ci array, arrays for fill computation and */
2950:   /* free space for accumulating nonzero column info */
2951:   PetscMalloc1(cn+1,&ci);
2952:   ci[0] = 0;

2954:   /* Work arrays for rows of P^T*A */
2955:   PetscMalloc4(an,&ptadenserow,an,&ptasparserow,cn,&denserow,cn,&sparserow);
2956:   PetscArrayzero(ptadenserow,an);
2957:   PetscArrayzero(denserow,cn);

2959:   /* Set initial free space to be nnz(A) scaled by aspect ratio of P. */
2960:   /* This should be reasonable if sparsity of PtAP is similar to that of A. */
2961:   /* Note, aspect ratio of P is the same as the aspect ratio of SeqAIJ inside P */
2962:   PetscFreeSpaceGet(PetscIntMultTruncate(ai[am]/pm,pn),&free_space);
2963:   current_space = free_space;

2965:   /* Determine symbolic info for each row of C: */
2966:   for (i=0; i<pn; i++) {
2967:     ptnzi = pti[i+1] - pti[i];
2968:     ptJ   = ptj + pti[i];
2969:     for (dof=0; dof<ppdof; dof++) {
2970:       ptanzi = 0;
2971:       /* Determine symbolic row of PtA: */
2972:       for (j=0; j<ptnzi; j++) {
2973:         /* Expand ptJ[j] by block size and shift by dof to get the right row of A */
2974:         arow = ptJ[j]*ppdof + dof;
2975:         /* Nonzeros of P^T*A will be in same locations as any element of A in that row */
2976:         anzj = ai[arow+1] - ai[arow];
2977:         ajj  = aj + ai[arow];
2978:         for (k=0; k<anzj; k++) {
2979:           if (!ptadenserow[ajj[k]]) {
2980:             ptadenserow[ajj[k]]    = -1;
2981:             ptasparserow[ptanzi++] = ajj[k];
2982:           }
2983:         }
2984:       }
2985:       /* Using symbolic info for row of PtA, determine symbolic info for row of C: */
2986:       ptaj = ptasparserow;
2987:       cnzi = 0;
2988:       for (j=0; j<ptanzi; j++) {
2989:         /* Get offset within block of P */
2990:         pshift = *ptaj%ppdof;
2991:         /* Get block row of P */
2992:         prow = (*ptaj++)/ppdof; /* integer division */
2993:         /* P has same number of nonzeros per row as the compressed form */
2994:         pnzj = pi[prow+1] - pi[prow];
2995:         pjj  = pj + pi[prow];
2996:         for (k=0;k<pnzj;k++) {
2997:           /* Locations in C are shifted by the offset within the block */
2998:           /* Note: we cannot use PetscLLAdd here because of the additional offset for the write location */
2999:           if (!denserow[pjj[k]*ppdof+pshift]) {
3000:             denserow[pjj[k]*ppdof+pshift] = -1;
3001:             sparserow[cnzi++]             = pjj[k]*ppdof+pshift;
3002:           }
3003:         }
3004:       }

3006:       /* sort sparserow */
3007:       PetscSortInt(cnzi,sparserow);

3009:       /* If free space is not available, make more free space */
3010:       /* Double the amount of total space in the list */
3011:       if (current_space->local_remaining<cnzi) {
3012:         PetscFreeSpaceGet(PetscIntSumTruncate(cnzi,current_space->total_array_size),&current_space);
3013:       }

3015:       /* Copy data into free space, and zero out denserows */
3016:       PetscArraycpy(current_space->array,sparserow,cnzi);

3018:       current_space->array           += cnzi;
3019:       current_space->local_used      += cnzi;
3020:       current_space->local_remaining -= cnzi;

3022:       for (j=0; j<ptanzi; j++) ptadenserow[ptasparserow[j]] = 0;
3023:       for (j=0; j<cnzi; j++) denserow[sparserow[j]] = 0;

3025:       /* Aside: Perhaps we should save the pta info for the numerical factorization. */
3026:       /*        For now, we will recompute what is needed. */
3027:       ci[i*ppdof+1+dof] = ci[i*ppdof+dof] + cnzi;
3028:     }
3029:   }
3030:   /* nnz is now stored in ci[ptm], column indices are in the list of free space */
3031:   /* Allocate space for cj, initialize cj, and */
3032:   /* destroy list of free space and other temporary array(s) */
3033:   PetscMalloc1(ci[cn]+1,&cj);
3034:   PetscFreeSpaceContiguous(&free_space,cj);
3035:   PetscFree4(ptadenserow,ptasparserow,denserow,sparserow);

3037:   /* Allocate space for ca */
3038:   PetscCalloc1(ci[cn]+1,&ca);

3040:   /* put together the new matrix */
3041:   MatSetSeqAIJWithArrays_private(PetscObjectComm((PetscObject)A),cn,cn,ci,cj,ca,NULL,C);
3042:   MatSetBlockSize(C,pp->dof);

3044:   /* MatCreateSeqAIJWithArrays flags matrix so PETSc doesn't free the user's arrays. */
3045:   /* Since these are PETSc arrays, change flags to free them as necessary. */
3046:   c          = (Mat_SeqAIJ*)(C->data);
3047:   c->free_a  = PETSC_TRUE;
3048:   c->free_ij = PETSC_TRUE;
3049:   c->nonew   = 0;

3051:   C->ops->ptapnumeric    = MatPtAPNumeric_SeqAIJ_SeqMAIJ;
3052:   C->ops->productnumeric = MatProductNumeric_PtAP;

3054:   /* Clean up. */
3055:   MatRestoreSymbolicTranspose_SeqAIJ(P,&pti,&ptj);
3056:   return(0);
3057: }

3059: PetscErrorCode MatPtAPNumeric_SeqAIJ_SeqMAIJ(Mat A,Mat PP,Mat C)
3060: {
3061:   /* This routine requires testing -- first draft only */
3062:   PetscErrorCode  ierr;
3063:   Mat_SeqMAIJ     *pp=(Mat_SeqMAIJ*)PP->data;
3064:   Mat             P  =pp->AIJ;
3065:   Mat_SeqAIJ      *a = (Mat_SeqAIJ*) A->data;
3066:   Mat_SeqAIJ      *p = (Mat_SeqAIJ*) P->data;
3067:   Mat_SeqAIJ      *c = (Mat_SeqAIJ*) C->data;
3068:   const PetscInt  *ai=a->i,*aj=a->j,*pi=p->i,*pj=p->j,*pJ,*pjj;
3069:   const PetscInt  *ci=c->i,*cj=c->j,*cjj;
3070:   const PetscInt  am =A->rmap->N,cn=C->cmap->N,cm=C->rmap->N,ppdof=pp->dof;
3071:   PetscInt        i,j,k,pshift,poffset,anzi,pnzi,apnzj,nextap,pnzj,prow,crow,*apj,*apjdense;
3072:   const MatScalar *aa=a->a,*pa=p->a,*pA,*paj;
3073:   MatScalar       *ca=c->a,*caj,*apa;

3076:   /* Allocate temporary array for storage of one row of A*P */
3077:   PetscCalloc3(cn,&apa,cn,&apj,cn,&apjdense);

3079:   /* Clear old values in C */
3080:   PetscArrayzero(ca,ci[cm]);

3082:   for (i=0; i<am; i++) {
3083:     /* Form sparse row of A*P */
3084:     anzi  = ai[i+1] - ai[i];
3085:     apnzj = 0;
3086:     for (j=0; j<anzi; j++) {
3087:       /* Get offset within block of P */
3088:       pshift = *aj%ppdof;
3089:       /* Get block row of P */
3090:       prow = *aj++/ppdof;   /* integer division */
3091:       pnzj = pi[prow+1] - pi[prow];
3092:       pjj  = pj + pi[prow];
3093:       paj  = pa + pi[prow];
3094:       for (k=0; k<pnzj; k++) {
3095:         poffset = pjj[k]*ppdof+pshift;
3096:         if (!apjdense[poffset]) {
3097:           apjdense[poffset] = -1;
3098:           apj[apnzj++]      = poffset;
3099:         }
3100:         apa[poffset] += (*aa)*paj[k];
3101:       }
3102:       PetscLogFlops(2.0*pnzj);
3103:       aa++;
3104:     }

3106:     /* Sort the j index array for quick sparse axpy. */
3107:     /* Note: a array does not need sorting as it is in dense storage locations. */
3108:     PetscSortInt(apnzj,apj);

3110:     /* Compute P^T*A*P using outer product (P^T)[:,j]*(A*P)[j,:]. */
3111:     prow    = i/ppdof; /* integer division */
3112:     pshift  = i%ppdof;
3113:     poffset = pi[prow];
3114:     pnzi    = pi[prow+1] - poffset;
3115:     /* Reset pJ and pA so we can traverse the same row of P 'dof' times. */
3116:     pJ = pj+poffset;
3117:     pA = pa+poffset;
3118:     for (j=0; j<pnzi; j++) {
3119:       crow = (*pJ)*ppdof+pshift;
3120:       cjj  = cj + ci[crow];
3121:       caj  = ca + ci[crow];
3122:       pJ++;
3123:       /* Perform sparse axpy operation.  Note cjj includes apj. */
3124:       for (k=0,nextap=0; nextap<apnzj; k++) {
3125:         if (cjj[k] == apj[nextap]) caj[k] += (*pA)*apa[apj[nextap++]];
3126:       }
3127:       PetscLogFlops(2.0*apnzj);
3128:       pA++;
3129:     }

3131:     /* Zero the current row info for A*P */
3132:     for (j=0; j<apnzj; j++) {
3133:       apa[apj[j]]      = 0.;
3134:       apjdense[apj[j]] = 0;
3135:     }
3136:   }

3138:   /* Assemble the final matrix and clean up */
3139:   MatAssemblyBegin(C,MAT_FINAL_ASSEMBLY);
3140:   MatAssemblyEnd(C,MAT_FINAL_ASSEMBLY);
3141:   PetscFree3(apa,apj,apjdense);
3142:   return(0);
3143: }

3145: PETSC_INTERN PetscErrorCode MatProductSymbolic_PtAP_SeqAIJ_SeqMAIJ(Mat C)
3146: {
3147:   PetscErrorCode      ierr;
3148:   Mat_Product         *product = C->product;
3149:   Mat                 A=product->A,P=product->B;

3152:   MatPtAPSymbolic_SeqAIJ_SeqMAIJ(A,P,product->fill,C);
3153:   return(0);
3154: }

3156: PetscErrorCode MatPtAPSymbolic_MPIAIJ_MPIMAIJ(Mat A,Mat PP,PetscReal fill,Mat *C)
3157: {
3159:   SETERRQ(PetscObjectComm((PetscObject)A),PETSC_ERR_SUP,"MatPtAPSymbolic is not implemented for MPIMAIJ matrix yet");
3160: }

3162: PetscErrorCode MatPtAPNumeric_MPIAIJ_MPIMAIJ(Mat A,Mat PP,Mat C)
3163: {
3165:   SETERRQ(PetscObjectComm((PetscObject)A),PETSC_ERR_SUP,"MatPtAPNumeric is not implemented for MPIMAIJ matrix yet");
3166: }

3168: PetscErrorCode MatPtAPNumeric_MPIAIJ_MPIXAIJ_allatonce(Mat,Mat,PetscInt,Mat);

3170: PETSC_INTERN PetscErrorCode MatPtAPNumeric_MPIAIJ_MPIMAIJ_allatonce(Mat A,Mat P,Mat C)
3171: {
3172:   Mat_MPIMAIJ     *maij = (Mat_MPIMAIJ*)P->data;
3173:   PetscErrorCode  ierr;


3177:   MatPtAPNumeric_MPIAIJ_MPIXAIJ_allatonce(A,maij->A,maij->dof,C);
3178:   return(0);
3179: }

3181: PetscErrorCode MatPtAPSymbolic_MPIAIJ_MPIXAIJ_allatonce(Mat,Mat,PetscInt,PetscReal,Mat);

3183: PETSC_INTERN PetscErrorCode MatPtAPSymbolic_MPIAIJ_MPIMAIJ_allatonce(Mat A,Mat P,PetscReal fill,Mat C)
3184: {
3185:   Mat_MPIMAIJ     *maij = (Mat_MPIMAIJ*)P->data;
3186:   PetscErrorCode  ierr;

3189:   MatPtAPSymbolic_MPIAIJ_MPIXAIJ_allatonce(A,maij->A,maij->dof,fill,C);
3190:   C->ops->ptapnumeric = MatPtAPNumeric_MPIAIJ_MPIMAIJ_allatonce;
3191:   return(0);
3192: }

3194: PetscErrorCode MatPtAPNumeric_MPIAIJ_MPIXAIJ_allatonce_merged(Mat,Mat,PetscInt,Mat);

3196: PETSC_INTERN PetscErrorCode MatPtAPNumeric_MPIAIJ_MPIMAIJ_allatonce_merged(Mat A,Mat P,Mat C)
3197: {
3198:   Mat_MPIMAIJ     *maij = (Mat_MPIMAIJ*)P->data;
3199:   PetscErrorCode  ierr;


3203:   MatPtAPNumeric_MPIAIJ_MPIXAIJ_allatonce_merged(A,maij->A,maij->dof,C);
3204:   return(0);
3205: }

3207: PetscErrorCode MatPtAPSymbolic_MPIAIJ_MPIXAIJ_allatonce_merged(Mat,Mat,PetscInt,PetscReal,Mat);

3209: PETSC_INTERN PetscErrorCode MatPtAPSymbolic_MPIAIJ_MPIMAIJ_allatonce_merged(Mat A,Mat P,PetscReal fill,Mat C)
3210: {
3211:   Mat_MPIMAIJ     *maij = (Mat_MPIMAIJ*)P->data;
3212:   PetscErrorCode  ierr;


3216:   MatPtAPSymbolic_MPIAIJ_MPIXAIJ_allatonce_merged(A,maij->A,maij->dof,fill,C);
3217:   C->ops->ptapnumeric = MatPtAPNumeric_MPIAIJ_MPIMAIJ_allatonce_merged;
3218:   return(0);
3219: }

3221: PETSC_INTERN PetscErrorCode MatProductSymbolic_PtAP_MPIAIJ_MPIMAIJ(Mat C)
3222: {
3223:   PetscErrorCode      ierr;
3224:   Mat_Product         *product = C->product;
3225:   Mat                 A=product->A,P=product->B;
3226:   PetscBool           flg;

3229:   PetscStrcmp(product->alg,"allatonce",&flg);
3230:   if (flg) {
3231:     MatPtAPSymbolic_MPIAIJ_MPIMAIJ_allatonce(A,P,product->fill,C);
3232:     C->ops->productnumeric = MatProductNumeric_PtAP;
3233:     return(0);
3234:   }

3236:   PetscStrcmp(product->alg,"allatonce_merged",&flg);
3237:   if (flg) {
3238:     MatPtAPSymbolic_MPIAIJ_MPIMAIJ_allatonce_merged(A,P,product->fill,C);
3239:     C->ops->productnumeric = MatProductNumeric_PtAP;
3240:     return(0);
3241:   }

3243:   SETERRQ(PetscObjectComm((PetscObject)C),PETSC_ERR_SUP,"Mat Product Algorithm is not supported");
3244: }

3246: PETSC_INTERN PetscErrorCode MatConvert_SeqMAIJ_SeqAIJ(Mat A, MatType newtype,MatReuse reuse,Mat *newmat)
3247: {
3248:   Mat_SeqMAIJ    *b   = (Mat_SeqMAIJ*)A->data;
3249:   Mat            a    = b->AIJ,B;
3250:   Mat_SeqAIJ     *aij = (Mat_SeqAIJ*)a->data;
3252:   PetscInt       m,n,i,ncols,*ilen,nmax = 0,*icols,j,k,ii,dof = b->dof;
3253:   PetscInt       *cols;
3254:   PetscScalar    *vals;

3257:   MatGetSize(a,&m,&n);
3258:   PetscMalloc1(dof*m,&ilen);
3259:   for (i=0; i<m; i++) {
3260:     nmax = PetscMax(nmax,aij->ilen[i]);
3261:     for (j=0; j<dof; j++) ilen[dof*i+j] = aij->ilen[i];
3262:   }
3263:   MatCreate(PETSC_COMM_SELF,&B);
3264:   MatSetSizes(B,dof*m,dof*n,dof*m,dof*n);
3265:   MatSetType(B,newtype);
3266:   MatSeqAIJSetPreallocation(B,0,ilen);
3267:   PetscFree(ilen);
3268:   PetscMalloc1(nmax,&icols);
3269:   ii   = 0;
3270:   for (i=0; i<m; i++) {
3271:     MatGetRow_SeqAIJ(a,i,&ncols,&cols,&vals);
3272:     for (j=0; j<dof; j++) {
3273:       for (k=0; k<ncols; k++) icols[k] = dof*cols[k]+j;
3274:       MatSetValues_SeqAIJ(B,1,&ii,ncols,icols,vals,INSERT_VALUES);
3275:       ii++;
3276:     }
3277:     MatRestoreRow_SeqAIJ(a,i,&ncols,&cols,&vals);
3278:   }
3279:   PetscFree(icols);
3280:   MatAssemblyBegin(B,MAT_FINAL_ASSEMBLY);
3281:   MatAssemblyEnd(B,MAT_FINAL_ASSEMBLY);

3283:   if (reuse == MAT_INPLACE_MATRIX) {
3284:     MatHeaderReplace(A,&B);
3285:   } else {
3286:     *newmat = B;
3287:   }
3288:   return(0);
3289: }

3291: #include <../src/mat/impls/aij/mpi/mpiaij.h>

3293: PETSC_INTERN PetscErrorCode MatConvert_MPIMAIJ_MPIAIJ(Mat A, MatType newtype,MatReuse reuse,Mat *newmat)
3294: {
3295:   Mat_MPIMAIJ    *maij   = (Mat_MPIMAIJ*)A->data;
3296:   Mat            MatAIJ  = ((Mat_SeqMAIJ*)maij->AIJ->data)->AIJ,B;
3297:   Mat            MatOAIJ = ((Mat_SeqMAIJ*)maij->OAIJ->data)->AIJ;
3298:   Mat_SeqAIJ     *AIJ    = (Mat_SeqAIJ*) MatAIJ->data;
3299:   Mat_SeqAIJ     *OAIJ   =(Mat_SeqAIJ*) MatOAIJ->data;
3300:   Mat_MPIAIJ     *mpiaij = (Mat_MPIAIJ*) maij->A->data;
3301:   PetscInt       dof     = maij->dof,i,j,*dnz = NULL,*onz = NULL,nmax = 0,onmax = 0;
3302:   PetscInt       *oicols = NULL,*icols = NULL,ncols,*cols = NULL,oncols,*ocols = NULL;
3303:   PetscInt       rstart,cstart,*garray,ii,k;
3305:   PetscScalar    *vals,*ovals;

3308:   PetscMalloc2(A->rmap->n,&dnz,A->rmap->n,&onz);
3309:   for (i=0; i<A->rmap->n/dof; i++) {
3310:     nmax  = PetscMax(nmax,AIJ->ilen[i]);
3311:     onmax = PetscMax(onmax,OAIJ->ilen[i]);
3312:     for (j=0; j<dof; j++) {
3313:       dnz[dof*i+j] = AIJ->ilen[i];
3314:       onz[dof*i+j] = OAIJ->ilen[i];
3315:     }
3316:   }
3317:   MatCreate(PetscObjectComm((PetscObject)A),&B);
3318:   MatSetSizes(B,A->rmap->n,A->cmap->n,A->rmap->N,A->cmap->N);
3319:   MatSetType(B,newtype);
3320:   MatMPIAIJSetPreallocation(B,0,dnz,0,onz);
3321:   MatSetBlockSize(B,dof);
3322:   PetscFree2(dnz,onz);

3324:   PetscMalloc2(nmax,&icols,onmax,&oicols);
3325:   rstart = dof*maij->A->rmap->rstart;
3326:   cstart = dof*maij->A->cmap->rstart;
3327:   garray = mpiaij->garray;

3329:   ii = rstart;
3330:   for (i=0; i<A->rmap->n/dof; i++) {
3331:     MatGetRow_SeqAIJ(MatAIJ,i,&ncols,&cols,&vals);
3332:     MatGetRow_SeqAIJ(MatOAIJ,i,&oncols,&ocols,&ovals);
3333:     for (j=0; j<dof; j++) {
3334:       for (k=0; k<ncols; k++) {
3335:         icols[k] = cstart + dof*cols[k]+j;
3336:       }
3337:       for (k=0; k<oncols; k++) {
3338:         oicols[k] = dof*garray[ocols[k]]+j;
3339:       }
3340:       MatSetValues_MPIAIJ(B,1,&ii,ncols,icols,vals,INSERT_VALUES);
3341:       MatSetValues_MPIAIJ(B,1,&ii,oncols,oicols,ovals,INSERT_VALUES);
3342:       ii++;
3343:     }
3344:     MatRestoreRow_SeqAIJ(MatAIJ,i,&ncols,&cols,&vals);
3345:     MatRestoreRow_SeqAIJ(MatOAIJ,i,&oncols,&ocols,&ovals);
3346:   }
3347:   PetscFree2(icols,oicols);

3349:   MatAssemblyBegin(B,MAT_FINAL_ASSEMBLY);
3350:   MatAssemblyEnd(B,MAT_FINAL_ASSEMBLY);

3352:   if (reuse == MAT_INPLACE_MATRIX) {
3353:     PetscInt refct = ((PetscObject)A)->refct; /* save ((PetscObject)A)->refct */
3354:     ((PetscObject)A)->refct = 1;

3356:     MatHeaderReplace(A,&B);

3358:     ((PetscObject)A)->refct = refct; /* restore ((PetscObject)A)->refct */
3359:   } else {
3360:     *newmat = B;
3361:   }
3362:   return(0);
3363: }

3365: PetscErrorCode MatCreateSubMatrix_MAIJ(Mat mat,IS isrow,IS iscol,MatReuse cll,Mat *newmat)
3366: {
3368:   Mat            A;

3371:   MatConvert(mat,MATAIJ,MAT_INITIAL_MATRIX,&A);
3372:   MatCreateSubMatrix(A,isrow,iscol,cll,newmat);
3373:   MatDestroy(&A);
3374:   return(0);
3375: }

3377: PetscErrorCode MatCreateSubMatrices_MAIJ(Mat mat,PetscInt n,const IS irow[],const IS icol[],MatReuse scall,Mat *submat[])
3378: {
3380:   Mat            A;

3383:   MatConvert(mat,MATAIJ,MAT_INITIAL_MATRIX,&A);
3384:   MatCreateSubMatrices(A,n,irow,icol,scall,submat);
3385:   MatDestroy(&A);
3386:   return(0);
3387: }

3389: /* ---------------------------------------------------------------------------------- */
3390: /*@
3391:   MatCreateMAIJ - Creates a matrix type providing restriction and interpolation
3392:   operations for multicomponent problems.  It interpolates each component the same
3393:   way independently.  The matrix type is based on MATSEQAIJ for sequential matrices,
3394:   and MATMPIAIJ for distributed matrices.

3396:   Collective

3398:   Input Parameters:
3399: + A - the AIJ matrix describing the action on blocks
3400: - dof - the block size (number of components per node)

3402:   Output Parameter:
3403: . maij - the new MAIJ matrix

3405:   Operations provided:
3406: + MatMult
3407: . MatMultTranspose
3408: . MatMultAdd
3409: . MatMultTransposeAdd
3410: - MatView

3412:   Level: advanced

3414: .seealso: MatMAIJGetAIJ(), MatMAIJRedimension(), MATMAIJ
3415: @*/
3416: PetscErrorCode  MatCreateMAIJ(Mat A,PetscInt dof,Mat *maij)
3417: {
3419:   PetscMPIInt    size;
3420:   PetscInt       n;
3421:   Mat            B;
3422: #if defined(PETSC_HAVE_CUDA)
3423:   /* hack to prevent conversion to AIJ format for CUDA when used inside a parallel MAIJ */
3424:   PetscBool      convert = dof < 0 ? PETSC_FALSE : PETSC_TRUE;
3425: #endif

3428:   dof  = PetscAbs(dof);
3429:   PetscObjectReference((PetscObject)A);

3431:   if (dof == 1) *maij = A;
3432:   else {
3433:     MatCreate(PetscObjectComm((PetscObject)A),&B);
3434:     /* propagate vec type */
3435:     MatSetVecType(B,A->defaultvectype);
3436:     MatSetSizes(B,dof*A->rmap->n,dof*A->cmap->n,dof*A->rmap->N,dof*A->cmap->N);
3437:     PetscLayoutSetBlockSize(B->rmap,dof);
3438:     PetscLayoutSetBlockSize(B->cmap,dof);
3439:     PetscLayoutSetUp(B->rmap);
3440:     PetscLayoutSetUp(B->cmap);

3442:     B->assembled = PETSC_TRUE;

3444:     MPI_Comm_size(PetscObjectComm((PetscObject)A),&size);
3445:     if (size == 1) {
3446:       Mat_SeqMAIJ *b;

3448:       MatSetType(B,MATSEQMAIJ);

3450:       B->ops->setup   = NULL;
3451:       B->ops->destroy = MatDestroy_SeqMAIJ;
3452:       B->ops->view    = MatView_SeqMAIJ;

3454:       b               = (Mat_SeqMAIJ*)B->data;
3455:       b->dof          = dof;
3456:       b->AIJ          = A;

3458:       if (dof == 2) {
3459:         B->ops->mult             = MatMult_SeqMAIJ_2;
3460:         B->ops->multadd          = MatMultAdd_SeqMAIJ_2;
3461:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_2;
3462:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_2;
3463:       } else if (dof == 3) {
3464:         B->ops->mult             = MatMult_SeqMAIJ_3;
3465:         B->ops->multadd          = MatMultAdd_SeqMAIJ_3;
3466:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_3;
3467:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_3;
3468:       } else if (dof == 4) {
3469:         B->ops->mult             = MatMult_SeqMAIJ_4;
3470:         B->ops->multadd          = MatMultAdd_SeqMAIJ_4;
3471:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_4;
3472:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_4;
3473:       } else if (dof == 5) {
3474:         B->ops->mult             = MatMult_SeqMAIJ_5;
3475:         B->ops->multadd          = MatMultAdd_SeqMAIJ_5;
3476:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_5;
3477:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_5;
3478:       } else if (dof == 6) {
3479:         B->ops->mult             = MatMult_SeqMAIJ_6;
3480:         B->ops->multadd          = MatMultAdd_SeqMAIJ_6;
3481:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_6;
3482:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_6;
3483:       } else if (dof == 7) {
3484:         B->ops->mult             = MatMult_SeqMAIJ_7;
3485:         B->ops->multadd          = MatMultAdd_SeqMAIJ_7;
3486:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_7;
3487:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_7;
3488:       } else if (dof == 8) {
3489:         B->ops->mult             = MatMult_SeqMAIJ_8;
3490:         B->ops->multadd          = MatMultAdd_SeqMAIJ_8;
3491:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_8;
3492:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_8;
3493:       } else if (dof == 9) {
3494:         B->ops->mult             = MatMult_SeqMAIJ_9;
3495:         B->ops->multadd          = MatMultAdd_SeqMAIJ_9;
3496:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_9;
3497:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_9;
3498:       } else if (dof == 10) {
3499:         B->ops->mult             = MatMult_SeqMAIJ_10;
3500:         B->ops->multadd          = MatMultAdd_SeqMAIJ_10;
3501:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_10;
3502:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_10;
3503:       } else if (dof == 11) {
3504:         B->ops->mult             = MatMult_SeqMAIJ_11;
3505:         B->ops->multadd          = MatMultAdd_SeqMAIJ_11;
3506:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_11;
3507:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_11;
3508:       } else if (dof == 16) {
3509:         B->ops->mult             = MatMult_SeqMAIJ_16;
3510:         B->ops->multadd          = MatMultAdd_SeqMAIJ_16;
3511:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_16;
3512:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_16;
3513:       } else if (dof == 18) {
3514:         B->ops->mult             = MatMult_SeqMAIJ_18;
3515:         B->ops->multadd          = MatMultAdd_SeqMAIJ_18;
3516:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_18;
3517:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_18;
3518:       } else {
3519:         B->ops->mult             = MatMult_SeqMAIJ_N;
3520:         B->ops->multadd          = MatMultAdd_SeqMAIJ_N;
3521:         B->ops->multtranspose    = MatMultTranspose_SeqMAIJ_N;
3522:         B->ops->multtransposeadd = MatMultTransposeAdd_SeqMAIJ_N;
3523:       }
3524: #if defined(PETSC_HAVE_CUDA)
3525:       PetscObjectComposeFunction((PetscObject)B,"MatConvert_seqmaij_seqaijcusparse_C",MatConvert_SeqMAIJ_SeqAIJ);
3526: #endif
3527:       PetscObjectComposeFunction((PetscObject)B,"MatConvert_seqmaij_seqaij_C",MatConvert_SeqMAIJ_SeqAIJ);
3528:       PetscObjectComposeFunction((PetscObject)B,"MatProductSetFromOptions_seqaij_seqmaij_C",MatProductSetFromOptions_SeqAIJ_SeqMAIJ);
3529:     } else {
3530:       Mat_MPIAIJ  *mpiaij = (Mat_MPIAIJ*)A->data;
3531:       Mat_MPIMAIJ *b;
3532:       IS          from,to;
3533:       Vec         gvec;

3535:       MatSetType(B,MATMPIMAIJ);

3537:       B->ops->setup            = NULL;
3538:       B->ops->destroy          = MatDestroy_MPIMAIJ;
3539:       B->ops->view             = MatView_MPIMAIJ;

3541:       b      = (Mat_MPIMAIJ*)B->data;
3542:       b->dof = dof;
3543:       b->A   = A;

3545:       MatCreateMAIJ(mpiaij->A,-dof,&b->AIJ);
3546:       MatCreateMAIJ(mpiaij->B,-dof,&b->OAIJ);

3548:       VecGetSize(mpiaij->lvec,&n);
3549:       VecCreate(PETSC_COMM_SELF,&b->w);
3550:       VecSetSizes(b->w,n*dof,n*dof);
3551:       VecSetBlockSize(b->w,dof);
3552:       VecSetType(b->w,VECSEQ);

3554:       /* create two temporary Index sets for build scatter gather */
3555:       ISCreateBlock(PetscObjectComm((PetscObject)A),dof,n,mpiaij->garray,PETSC_COPY_VALUES,&from);
3556:       ISCreateStride(PETSC_COMM_SELF,n*dof,0,1,&to);

3558:       /* create temporary global vector to generate scatter context */
3559:       VecCreateMPIWithArray(PetscObjectComm((PetscObject)A),dof,dof*A->cmap->n,dof*A->cmap->N,NULL,&gvec);

3561:       /* generate the scatter context */
3562:       VecScatterCreate(gvec,from,b->w,to,&b->ctx);

3564:       ISDestroy(&from);
3565:       ISDestroy(&to);
3566:       VecDestroy(&gvec);

3568:       B->ops->mult             = MatMult_MPIMAIJ_dof;
3569:       B->ops->multtranspose    = MatMultTranspose_MPIMAIJ_dof;
3570:       B->ops->multadd          = MatMultAdd_MPIMAIJ_dof;
3571:       B->ops->multtransposeadd = MatMultTransposeAdd_MPIMAIJ_dof;

3573: #if defined(PETSC_HAVE_CUDA)
3574:       PetscObjectComposeFunction((PetscObject)B,"MatConvert_mpimaij_mpiaijcusparse_C",MatConvert_MPIMAIJ_MPIAIJ);
3575: #endif
3576:       PetscObjectComposeFunction((PetscObject)B,"MatConvert_mpimaij_mpiaij_C",MatConvert_MPIMAIJ_MPIAIJ);
3577:       PetscObjectComposeFunction((PetscObject)B,"MatProductSetFromOptions_mpiaij_mpimaij_C",MatProductSetFromOptions_MPIAIJ_MPIMAIJ);
3578:     }
3579:     B->ops->createsubmatrix   = MatCreateSubMatrix_MAIJ;
3580:     B->ops->createsubmatrices = MatCreateSubMatrices_MAIJ;
3581:     MatSetFromOptions(B);
3582:     MatSetUp(B);
3583: #if defined(PETSC_HAVE_CUDA)
3584:     /* temporary until we have CUDA implementation of MAIJ */
3585:     {
3586:       PetscBool flg;
3587:       if (convert) {
3588:         PetscObjectTypeCompareAny((PetscObject)A,&flg,MATSEQAIJCUSPARSE,MATMPIAIJCUSPARSE,MATAIJCUSPARSE,"");
3589:         if (flg) {
3590:           MatConvert(B,((PetscObject)A)->type_name,MAT_INPLACE_MATRIX,&B);
3591:         }
3592:       }
3593:     }
3594: #endif
3595:     *maij = B;
3596:     MatViewFromOptions(B,NULL,"-mat_view");
3597:   }
3598:   return(0);
3599: }