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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 97 by jgs, Tue Dec 14 05:39:33 2004 UTC revision 148 by jgs, Tue Aug 23 01:24:31 2005 UTC
# Line 19  Line 19 
19  /**************************************************************/  /**************************************************************/
20    
21  void  Finley_SystemMatrix_setValues(Finley_SystemMatrix* in,double value) {  void  Finley_SystemMatrix_setValues(Finley_SystemMatrix* in,double value) {
22    maybelong i,j,iptr;    dim_t i,j;
23      index_t iptr;
24    #pragma omp parallel for private(i,iptr,j) schedule(static)    #pragma omp parallel for private(i,iptr,j) schedule(static)
25    for (i=0;i< in->pattern->n_ptr;++i) {    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) {       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;           for (j=0;j<(in->block_size);++j) in->val[iptr*(in->block_size)+j]=value;
28       }       }
29    }    }
30      in->normalizer_is_valid=FALSE;
31  }  }
32  /*  /*
33   * $Log$   * $Log$
34   * Revision 1.2  2004/12/14 05:39:31  jgs   * 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     * 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     * Revision 1.4  2004/12/15 07:08:34  jgs
44   * *** empty log message ***   * *** empty log message ***
45     * Revision 1.1.1.1.2.2  2005/06/29 02:34:57  gross
46     * some changes towards 64 integers in finley
47   *   *
48   * Revision 1.1.1.1.2.1  2004/11/12 06:58:19  gross   * 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   * 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   *   *
  * Revision 1.1.1.1  2004/10/26 06:53:57  jgs  
  * initial import of project esys2  
  *  
  * Revision 1.1  2004/07/02 04:21:13  gross  
  * Finley C code has been included  
51   *   *
52   *   *
53   */   */

Legend:
Removed from v.97  
changed lines
  Added in v.148

  ViewVC Help
Powered by ViewVC 1.1.26