/[escript]/trunk/finley/src/finley/Assemble_RobinCondition.c
ViewVC logotype

Diff of /trunk/finley/src/finley/Assemble_RobinCondition.c

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

revision 123 by jgs, Fri Jul 8 04:08:13 2005 UTC revision 147 by jgs, Fri Aug 12 01:45:47 2005 UTC
# Line 63  void Finley_Assemble_RobinCondition(Finl Line 63  void Finley_Assemble_RobinCondition(Finl
63    
64    if (! functionSpaceTypeEqual(funcspace,d) ) {    if (! functionSpaceTypeEqual(funcspace,d) ) {
65          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
66          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient d");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient d");
67    }    }
68    if (! functionSpaceTypeEqual(funcspace,y) ) {    if (! functionSpaceTypeEqual(funcspace,y) ) {
69          Finley_ErrorCode=TYPE_ERROR;          Finley_ErrorCode=TYPE_ERROR;
70          sprintf(Finley_ErrorMsg,"unexpected function space typ for coefficient y");          sprintf(Finley_ErrorMsg,"unexpected function space type for coefficient y");
71    }    }
72    
73    /* check if all function spaces are the same */    /* check if all function spaces are the same */
# Line 104  void Finley_Assemble_RobinCondition(Finl Line 104  void Finley_Assemble_RobinCondition(Finl
104        dimensions[1]=p.numComp;        dimensions[1]=p.numComp;
105        if (! isDataPointShapeEqual(d,2,dimensions)) {        if (! isDataPointShapeEqual(d,2,dimensions)) {
106            Finley_ErrorCode=TYPE_ERROR;            Finley_ErrorCode=TYPE_ERROR;
107            sprintf(Finley_ErrorMsg,"coefficient D, expected shape (%d,%d)",dimensions[0],dimensions[1]);            sprintf(Finley_ErrorMsg,"coefficient d, expected shape (%d,%d)",dimensions[0],dimensions[1]);
108        }        }
109      }      }
110      if (!isEmpty(y)) {      if (!isEmpty(y)) {
111        dimensions[0]=p.numEqu;        dimensions[0]=p.numEqu;
112        if (! isDataPointShapeEqual(y,1,dimensions)) {        if (! isDataPointShapeEqual(y,1,dimensions)) {
113            Finley_ErrorCode=TYPE_ERROR;            Finley_ErrorCode=TYPE_ERROR;
114            sprintf(Finley_ErrorMsg,"coefficient D, expected shape (%d,)",dimensions[0]);            sprintf(Finley_ErrorMsg,"coefficient y, expected shape (%d,)",dimensions[0]);
115        }        }
116      }      }
117    }    }
# Line 223  void Finley_Assemble_RobinCondition(Finl Line 223  void Finley_Assemble_RobinCondition(Finl
223  }  }
224  /*  /*
225   * $Log$   * $Log$
226     * Revision 1.6  2005/08/12 01:45:43  jgs
227     * erge of development branch dev-02 back to main trunk on 2005-08-12
228     *
229     * Revision 1.5.2.2  2005/08/04 22:41:11  gross
230     * some extra routines for finley that might speed-up RHS assembling in some cases (not actived right now)
231     *
232     * Revision 1.5.2.1  2005/08/03 08:55:46  gross
233     * typo fixed
234     *
235   * Revision 1.5  2005/07/08 04:07:46  jgs   * Revision 1.5  2005/07/08 04:07:46  jgs
236   * Merge of development branch back to main trunk on 2005-07-08   * Merge of development branch back to main trunk on 2005-07-08
237   *   *

Legend:
Removed from v.123  
changed lines
  Added in v.147

  ViewVC Help
Powered by ViewVC 1.1.26