Changeset 17070


Ignore:
Timestamp:
01/08/14 13:14:20 (11 years ago)
Author:
Mathieu Morlighem
Message:

CHG: minor cosmetics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/classes/Elements/PentaRef.cpp

    r17065 r17070  
    14011401                        basis[29]=-(32./3.)*gauss->coord1*gauss->coord2*(zeta-1.0)*zeta*(zeta+0.5)*(zeta+1.);
    14021402                        return;
    1403                                         case P1xP3Enum :
     1403                case P1xP3Enum :
    14041404                        /*Corner nodes*/
    14051405                        basis[ 0]=-(9.)/(16.)*gauss->coord1*(zeta-1)*(zeta-1./3.)*(zeta+1./3.);
     
    18341834                        dbasis[NUMNODESP2*2+14] = 2.*gauss->coord1*gauss->coord2*(2.*zeta+1.);
    18351835                        return;
    1836 
    18371836                case P2xP4Enum :
    18381837                        /*Nodal function 1*/
     
    19561955                        dbasis[NUMNODESP2xP4*1+29] = -(32./3.)*(- (SQRT3/6.)*gauss->coord2- (SQRT3/6.)*gauss->coord1 ) *(zeta - 1.)*(zeta)*(zeta+0.5)*(zeta +1. ) ;
    19571956                        dbasis[NUMNODESP2xP4*2+29] = -(32./3.)* gauss->coord1*gauss->coord2 *((2.*zeta -1. )*(zeta+0.5)*(zeta +1) +   zeta*(zeta -1.)*( 2.*zeta + (3./2.)));
    1958                         return;                 return;
     1957                        return;
    19591958                case P1xP3Enum :
    19601959                        /*Nodal function 1*/
Note: See TracChangeset for help on using the changeset viewer.