/[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 148 - (hide annotations)
Tue Aug 23 01:24:31 2005 UTC (14 years, 9 months ago) by jgs
File MIME type: text/plain
File size: 1746 byte(s)
Merge of development branch dev-02 back to main trunk on 2005-08-23

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 jgs 148 in->normalizer_is_valid=FALSE;
31 jgs 82 }
32     /*
33     * $Log$
34 jgs 148 * Revision 1.6 2005/08/23 01:24:30 jgs
35     * Merge of development branch dev-02 back to main trunk on 2005-08-23
36     *
37     * Revision 1.5.2.1 2005/08/19 02:44:09 gross
38     * stopping criterion modified to cope with badly balanced equations
39     *
40 jgs 123 * Revision 1.5 2005/07/08 04:07:59 jgs
41     * Merge of development branch back to main trunk on 2005-07-08
42     *
43 jgs 102 * Revision 1.4 2004/12/15 07:08:34 jgs
44 jgs 97 * *** empty log message ***
45 jgs 123 * Revision 1.1.1.1.2.2 2005/06/29 02:34:57 gross
46     * some changes towards 64 integers in finley
47 jgs 82 *
48 jgs 123 * Revision 1.1.1.1.2.1 2004/11/12 06:58:19 gross
49     * 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
50 jgs 97 *
51 jgs 82 *
52 jgs 123 *
53 jgs 82 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26