/[escript]/branches/domexper/dudley/src/ElementFile.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/ElementFile.c

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

revision 776 by gross, Wed Jul 12 00:07:31 2006 UTC revision 777 by gross, Wed Jul 12 08:54:45 2006 UTC
# Line 58  Finley_ElementFile* Finley_ElementFile_a Line 58  Finley_ElementFile* Finley_ElementFile_a
58    out->minColor=0;    out->minColor=0;
59    out->maxColor=-1;    out->maxColor=-1;
60    out->order = order;    out->order = order;
61    out->jacobeans=Finley_ElementFile_Jacobeans_alloc();    out->jacobeans=NULL;
62    out->jacobeans_reducedS=Finley_ElementFile_Jacobeans_alloc();    out->jacobeans_reducedQ=NULL;
63    out->jacobeans_reducedQ=Finley_ElementFile_Jacobeans_alloc();    out->jacobeans_reducedS=NULL;
64    out->jacobeans_reducedS_reducedQ=Finley_ElementFile_Jacobeans_alloc();    out->jacobeans_reducedS_reducedQ=NULL;
65    
66  #ifdef PASO_MPI  #ifdef PASO_MPI
67    out->MPIInfo = Paso_MPIInfo_getReference( MPIInfo );    out->MPIInfo = Paso_MPIInfo_getReference( MPIInfo );
# Line 71  Finley_ElementFile* Finley_ElementFile_a Line 71  Finley_ElementFile* Finley_ElementFile_a
71    /*  allocate the reference element: */    /*  allocate the reference element: */
72        
73    out->ReferenceElement=Finley_RefElement_alloc(id,NQ);    out->ReferenceElement=Finley_RefElement_alloc(id,NQ);
74    if (! Finley_noError()) {    out->jacobeans=Finley_ElementFile_Jacobeans_alloc(out->ReferenceElement);
75       Finley_ElementFile_dealloc(out);    out->jacobeans_reducedQ=Finley_ElementFile_Jacobeans_alloc(out->ReferenceElement);
76       return NULL;  
   }  
77    out->LinearReferenceElement=Finley_RefElement_alloc(Finley_RefElement_InfoList[id].LinearTypeId,NQ);    out->LinearReferenceElement=Finley_RefElement_alloc(Finley_RefElement_InfoList[id].LinearTypeId,NQ);
78      out->jacobeans_reducedS=Finley_ElementFile_Jacobeans_alloc(out->LinearReferenceElement);
79      out->jacobeans_reducedS_reducedQ=Finley_ElementFile_Jacobeans_alloc(out->LinearReferenceElement);
80    if (! Finley_noError()) {    if (! Finley_noError()) {
81       Finley_ElementFile_dealloc(out);       Finley_ElementFile_dealloc(out);
82       return NULL;       return NULL;
Legend:
Removed from v.776  
changed lines
  Added in v.777
  ViewVC Help
Powered by ViewVC 1.1.26