- {
- int NumberOfElements = mySupport->getNumberOfElements ( (*Types)[i] ) ;
- //Temporarily commented to avoid compilation errors:int NumberOfGaussPoint = mySupport->getNumberOfGaussPoint ( (*Types)[i] ) ;
- int NumberOfGaussPoint = 1; //Temporary line instead of the above one
-
- MESSAGE( " " << field->getName() );
- MESSAGE( " " << NumberOfElements );
- //!!!tmp commented:MESSAGE( " " << NumberOfGaussPoint );
- MESSAGE( "Attention! NumberOfGaussPoint is invalid: " << NumberOfGaussPoint ); //tmp line!!!
- MESSAGE( " " << (int) (convertIdlEntToMedEnt(mySupport->getEntity())) );
- MESSAGE( " " << (int)(convertIdlEltToMedElt((*Types)[i])) );
- MESSAGE( " " << field->getIterationNumber() );
- MESSAGE( " " << field->getTime() );
- MESSAGE( " " << field->getOrderNumber() );
- MESSAGE( "MEDchampEcr :" << myMesh->getName() );
-
- SALOME_MED::double_array * value = field->getValue( SALOME_MED::MED_FULL_INTERLACE ) ;
- double *locvalue = new double[NumberOfElements];
- for (int k = 0; k < NumberOfElements; k++)
- locvalue[k] = (*value) [k];
-
- err=med_2_1::MEDchampEcr(_medIdt,
- const_cast <char*> (myMesh->getName()) ,
- const_cast <char*> (field->getName()),
- (unsigned char*)locvalue,
- med_2_1::MED_FULL_INTERLACE,
- NumberOfElements,
- NumberOfGaussPoint,
- MED_ALL,
- MED_NOPFL,
- med_2_1::MED_REMP,
- (med_2_1::med_entite_maillage)convertIdlEntToMedEnt(mySupport->getEntity()),
- (med_2_1::med_geometrie_element)(convertIdlEltToMedElt((*Types)[i])),
- field->getIterationNumber(),
- " ",
- field->getTime(),
- field->getOrderNumber()
- );
- delete locvalue;
-
- if (err < MED_VALID )
- throw MEDEXCEPTION(LOCALIZED( STRING(LOC)
- <<": Error in writing Field "<< field->getName() <<", type "<<(*Types)[i]
- )
- );
- }
+ {
+ int NumberOfElements = mySupport->getNumberOfElements ( (*Types)[i] ) ;
+ //Temporarily commented to avoid compilation errors:int NumberOfGaussPoint = mySupport->getNumberOfGaussPoint ( (*Types)[i] ) ;
+ int NumberOfGaussPoint = 1; //Temporary line instead of the above one
+
+ MESSAGE( " " << field->getName() );
+ MESSAGE( " " << NumberOfElements );
+ //!!!tmp commented:MESSAGE( " " << NumberOfGaussPoint );
+ MESSAGE( "Attention! NumberOfGaussPoint is invalid: " << NumberOfGaussPoint ); //tmp line!!!
+ MESSAGE( " " << (int) (convertIdlEntToMedEnt(mySupport->getEntity())) );
+ MESSAGE( " " << (int)(convertIdlEltToMedElt((*Types)[i])) );
+ MESSAGE( " " << field->getIterationNumber() );
+ MESSAGE( " " << field->getTime() );
+ MESSAGE( " " << field->getOrderNumber() );
+ MESSAGE( "MEDchampEcr :" << myMesh->getName() );
+
+ SALOME_TYPES::ListOfDouble * value = field->getValue( SALOME_MED::MED_FULL_INTERLACE ) ;
+ double *locvalue = new double[NumberOfElements];
+ for (int k = 0; k < NumberOfElements; k++)
+ locvalue[k] = (*value) [k];
+
+ err=med_2_3::MEDfieldValueWithProfileWr(_medIdt,
+ const_cast <char*> (field->getName()),
+ MED_NO_DT,
+ MED_NO_IT,
+ field->getTime(),
+ (med_2_3::med_entity_type)convertIdlEntToMedEnt(mySupport->getEntity()),
+ (med_2_3::med_geometry_type)(convertIdlEltToMedElt((*Types)[i])),
+ med_2_3::MED_COMPACT_PFLMODE,
+ MED_ALLENTITIES_PROFILE,
+ " ",
+ med_2_3::MED_FULL_INTERLACE,
+ SALOME_MED::MED_ALL_ELEMENTS,
+ 1,
+ (unsigned char*)locvalue
+ );
+
+ delete locvalue;
+
+ if (err < MED_VALID )
+ throw MEDEXCEPTION(LOCALIZED( STRING(LOC)
+ <<": Error in writing Field "<< field->getName() <<", type "<<(*Types)[i]
+ )
+ );
+ }