/[escript]/trunk/esys2/finley/src/finleyC/System_setValues.c
ViewVC logotype

Annotation of /trunk/esys2/finley/src/finleyC/System_setValues.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 123 - (hide annotations)
Fri Jul 8 04:08:13 2005 UTC (14 years, 10 months ago) by jgs
File MIME type: text/plain
File size: 1477 byte(s)
Merge of development branch back to main trunk on 2005-07-08

1 jgs 82 /* $Id$ */
2    
3     /**************************************************************/
4    
5     /* Finley: SystemMatrix : */
6     /* sets the values of the system matrix to a value */
7    
8     /**************************************************************/
9    
10     /* Copyrights by ACcESS Australia 2003 */
11     /* Author: gross@access.edu.au */
12    
13     /**************************************************************/
14    
15     #include "Finley.h"
16     #include "System.h"
17    
18    
19     /**************************************************************/
20    
21     void Finley_SystemMatrix_setValues(Finley_SystemMatrix* in,double value) {
22 jgs 123 dim_t i,j;
23     index_t iptr;
24 jgs 82 #pragma omp parallel for private(i,iptr,j) schedule(static)
25 jgs 102 for (i=0;i< in->pattern->n_ptr;++i) {
26     for (iptr=(in->pattern->ptr[i])-PTR_OFFSET;iptr<(in->pattern->ptr[i+1])-PTR_OFFSET;++iptr) {
27     for (j=0;j<(in->block_size);++j) in->val[iptr*(in->block_size)+j]=value;
28 jgs 82 }
29     }
30     }
31     /*
32     * $Log$
33 jgs 123 * Revision 1.5 2005/07/08 04:07:59 jgs
34     * Merge of development branch back to main trunk on 2005-07-08
35     *
36 jgs 102 * Revision 1.4 2004/12/15 07:08:34 jgs
37 jgs 97 * *** empty log message ***
38 jgs 123 * Revision 1.1.1.1.2.2 2005/06/29 02:34:57 gross
39     * some changes towards 64 integers in finley
40 jgs 82 *
41 jgs 123 * Revision 1.1.1.1.2.1 2004/11/12 06:58:19 gross
42     * a lot of changes to get the linearPDE class running: most important change is that there is no matrix format exposed to the user anymore. the format is chosen by the Domain according to the solver and symmetry
43 jgs 97 *
44 jgs 82 *
45 jgs 123 *
46 jgs 82 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26