# Contents of /trunk/paso/src/Solver_applyBlockDiagonalMatrix.c

Revision 1388 - (show annotations)
Fri Jan 11 07:45:58 2008 UTC (11 years, 8 months ago) by trankine
File MIME type: text/plain
File size: 2889 byte(s)
```And get the *(&(*&(* name right
```
 1 2 /* \$Id\$ */ 3 4 /******************************************************* 5 * 6 * Copyright 2003-2007 by ACceSS MNRF 7 * Copyright 2007 by University of Queensland 8 * 9 * http://esscc.uq.edu.au 10 * Primary Business: Queensland, Australia 11 * Licensed under the Open Software License version 3.0 12 * http://www.opensource.org/licenses/osl-3.0.php 13 * 14 *******************************************************/ 15 16 /**************************************************************/ 17 18 /* Paso: apply block diagonal matrix D: x=D*b */ 19 20 /* should be called within a parallel region */ 21 /* barrier synconization should be performed to make sure that the input vector available */ 22 23 /**************************************************************/ 24 25 /* Copyrights by ACcESS Australia 2003, 2004, 2005 */ 26 /* Author: gross@access.edu.au */ 27 28 /**************************************************************/ 29 30 #include "Paso.h" 31 32 /**************************************************************/ 33 34 35 void Paso_Solver_applyBlockDiagonalMatrix(dim_t n_block,dim_t n,double* D,index_t* pivot,double* x,double* b) { 36 dim_t i; 37 register dim_t i3,i9; 38 register double b0,b1,b2,D00,D10,D20,D01,D11,D21,D02,D12,D22; 39 40 if (n_block==1) { 41 #pragma omp for private(i) schedule(static) 42 for (i=0;i

## Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision