Ignore:
Timestamp:
04/16/12 14:57:18 (13 years ago)
Author:
Mathieu Morlighem
Message:

merged trunk-jpl and trunk for revision 11994M

Location:
issm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk

  • issm/trunk/src/c/objects/Loads/Pengrid.cpp

    r10576 r11995  
    295295/*}}}1*/
    296296/*FUNCTION Pengrid::CreateKMatrix {{{1*/
    297 void  Pengrid::CreateKMatrix(Mat Kff, Mat Kfs){
     297void  Pengrid::CreateKMatrix(Matrix* Kff, Matrix* Kfs){
    298298
    299299        /*No loads applied, do nothing: */
    … …  
    303303/*}}}1*/
    304304/*FUNCTION Pengrid::CreatePVector {{{1*/
    305 void  Pengrid::CreatePVector(Vec pf){
     305void  Pengrid::CreatePVector(Vector* pf){
    306306
    307307        /*No loads applied, do nothing: */
    … …  
    311311/*}}}1*/
    312312/*FUNCTION Pengrid::PenaltyCreateMatrix {{{1*/
    313 void  Pengrid::PenaltyCreateKMatrix(Mat Kff, Mat Kfs,double kmax){
     313void  Pengrid::PenaltyCreateKMatrix(Matrix* Kff, Matrix* Kfs,double kmax){
    314314
    315315        /*Retrieve parameters: */
    … …  
    319319
    320320        switch(analysis_type){
     321                #ifdef _HAVE_DIAGNOSTIC_
    321322                case DiagnosticHorizAnalysisEnum: case AdjointHorizAnalysisEnum:
    322323                        Ke=PenaltyCreateKMatrixDiagnosticStokes(kmax);
    323324                        break;
     325                #endif
     326                #ifdef _HAVE_THERMAL_
    324327                case ThermalAnalysisEnum:
    325328                        Ke=PenaltyCreateKMatrixThermal(kmax);
    … …  
    328331                        Ke=PenaltyCreateKMatrixMelting(kmax);
    329332                        break;
     333                #endif
    330334                default:
    331335                        _error_("analysis %i (%s) not supported yet",analysis_type,EnumToStringx(analysis_type));
    … …  
    340344/*}}}1*/
    341345/*FUNCTION Pengrid::PenaltyCreatePVector {{{1*/
    342 void  Pengrid::PenaltyCreatePVector(Vec pf,double kmax){
     346void  Pengrid::PenaltyCreatePVector(Vector* pf,double kmax){
    343347
    344348        /*Retrieve parameters: */
    … …  
    348352
    349353        switch(analysis_type){
     354                #ifdef _HAVE_DIAGNOSTIC_
    350355                case ThermalAnalysisEnum:
    351356                        pe=PenaltyCreatePVectorThermal(kmax);
    352357                        break;
     358                #endif
     359                #ifdef _HAVE_THERMAL_
    353360                case MeltingAnalysisEnum:
    354361                        pe=PenaltyCreatePVectorMelting(kmax);
    … …  
    356363                case DiagnosticHorizAnalysisEnum: case AdjointHorizAnalysisEnum:
    357364                        break;
     365                #endif
    358366                default:
    359367                        _error_("analysis %i (%s) not supported yet",analysis_type,EnumToStringx(analysis_type));
    … …  
    539547}
    540548/*}}}1*/
     549#ifdef _HAVE_DIAGNOSTIC_
    541550/*FUNCTION Pengrid::PenaltyCreateKMatrixDiagnosticStokes {{{1*/
    542551ElementMatrix* Pengrid::PenaltyCreateKMatrixDiagnosticStokes(double kmax){
    … …  
    571580}
    572581/*}}}1*/
     582#endif
     583#ifdef _HAVE_THERMAL_
    573584/*FUNCTION Pengrid::PenaltyCreateKMatrixMelting {{{1*/
    574585ElementMatrix* Pengrid::PenaltyCreateKMatrixMelting(double kmax){
    … …  
    690701}
    691702/*}}}1*/
     703#endif
    692704/*FUNCTION Pengrid::ResetConstraint {{{1*/
    693705void  Pengrid::ResetConstraint(void){
Note: See TracChangeset for help on using the changeset viewer.