src/MEDLoader/MEDFileField.cxx

   1 // Copyright (C) 2007-2016  CEA/DEN, EDF R&D
   2 //
   3 // This library is free software; you can redistribute it and/or
   4 // modify it under the terms of the GNU Lesser General Public
   5 // License as published by the Free Software Foundation; either
   6 // version 2.1 of the License, or (at your option) any later version.
   7 //
   8 // This library is distributed in the hope that it will be useful,
   9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 // Lesser General Public License for more details.
  12 //
  13 // You should have received a copy of the GNU Lesser General Public
  14 // License along with this library; if not, write to the Free Software
  15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  16 //
  17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  18 //
  19 // Author : Anthony Geay (CEA/DEN)
  20
  21 #include "MEDFileField.txx"
  22 #include "MEDFileMesh.hxx"
  23 #include "MEDLoaderBase.hxx"
  24 #include "MEDLoaderTraits.hxx"
  25 #include "MEDFileUtilities.hxx"
  26 #include "MEDFileSafeCaller.txx"
  27 #include "MEDFileFieldOverView.hxx"
  28
  29 #include "MEDCouplingFieldDouble.hxx"
  30 #include "MEDCouplingFieldTemplate.hxx"
  31 #include "MEDCouplingFieldDiscretization.hxx"
  32
  33 #include "InterpKernelAutoPtr.hxx"
  34 #include "CellModel.hxx"
  35
  36 #include <algorithm>
  37 #include <iterator>
  38
  39 extern med_geometry_type typmai[MED_N_CELL_FIXED_GEO];
  40 extern INTERP_KERNEL::NormalizedCellType typmai2[MED_N_CELL_FIXED_GEO];
  41 extern med_geometry_type typmainoeud[1];
  42 extern med_geometry_type typmai3[34];
  43
  44 using namespace MEDCoupling;
  45
  46 template class MEDFileField1TSTemplateWithoutSDA<int>;
  47 template class MEDFileField1TSTemplateWithoutSDA<double>;
  48
  49 const char MEDFileField1TSWithoutSDA::TYPE_STR[]="FLOAT64";
  50 const char MEDFileIntField1TSWithoutSDA::TYPE_STR[]="INT32";
  51
  52 MEDFileFieldLoc *MEDFileFieldLoc::New(med_idt fid, const std::string& locName)
  53 {
  54   return new MEDFileFieldLoc(fid,locName);
  55 }
  56
  57 MEDFileFieldLoc *MEDFileFieldLoc::New(med_idt fid, int id)
  58 {
  59   return new MEDFileFieldLoc(fid,id);
  60 }
  61
  62 MEDFileFieldLoc *MEDFileFieldLoc::New(const std::string& locName, INTERP_KERNEL::NormalizedCellType geoType, const std::vector<double>& refCoo, const std::vector<double>& gsCoo, const std::vector<double>& w)
  63 {
  64   return new MEDFileFieldLoc(locName,geoType,refCoo,gsCoo,w);
  65 }
  66
  67 MEDFileFieldLoc::MEDFileFieldLoc(med_idt fid, const std::string& locName):_name(locName)
  68 {
  69   med_geometry_type geotype;
  70   med_geometry_type sectiongeotype;
  71   int nsectionmeshcell;
  72   INTERP_KERNEL::AutoPtr<char> geointerpname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
  73   INTERP_KERNEL::AutoPtr<char> sectionmeshname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
  74   MEDlocalizationInfoByName(fid,locName.c_str(),&geotype,&_dim,&_nb_gauss_pt,geointerpname,sectionmeshname,&nsectionmeshcell,&sectiongeotype);
  75   _geo_type=(INTERP_KERNEL::NormalizedCellType)(std::distance(typmai3,std::find(typmai3,typmai3+34,geotype)));
  76   const INTERP_KERNEL::CellModel& cm(INTERP_KERNEL::CellModel::GetCellModel(_geo_type));
  77   _nb_node_per_cell=cm.getNumberOfNodes();
  78   _ref_coo.resize(_dim*_nb_node_per_cell);
  79   _gs_coo.resize(_dim*_nb_gauss_pt);
  80   _w.resize(_nb_gauss_pt);
  81   MEDlocalizationRd(fid,locName.c_str(),MED_FULL_INTERLACE,&_ref_coo[0],&_gs_coo[0],&_w[0]);
  82 }
  83
  84 MEDFileFieldLoc::MEDFileFieldLoc(med_idt fid, int id)
  85 {
  86   med_geometry_type geotype;
  87   med_geometry_type sectiongeotype;
  88   int nsectionmeshcell;
  89   INTERP_KERNEL::AutoPtr<char> locName(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
  90   INTERP_KERNEL::AutoPtr<char> geointerpname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
  91   INTERP_KERNEL::AutoPtr<char> sectionmeshname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
  92   MEDlocalizationInfo(fid,id+1,locName,&geotype,&_dim,&_nb_gauss_pt,geointerpname,sectionmeshname,&nsectionmeshcell,&sectiongeotype);
  93   _name=locName;
  94   _geo_type=(INTERP_KERNEL::NormalizedCellType)(std::distance(typmai3,std::find(typmai3,typmai3+34,geotype)));
  95   const INTERP_KERNEL::CellModel& cm(INTERP_KERNEL::CellModel::GetCellModel(_geo_type));
  96   _nb_node_per_cell=cm.getNumberOfNodes();
  97   _ref_coo.resize(_dim*_nb_node_per_cell);
  98   _gs_coo.resize(_dim*_nb_gauss_pt);
  99   _w.resize(_nb_gauss_pt);
 100   MEDlocalizationRd(fid,locName,MED_FULL_INTERLACE,&_ref_coo[0],&_gs_coo[0],&_w[0]);
 101 }
 102
 103 MEDFileFieldLoc::MEDFileFieldLoc(const std::string& locName, INTERP_KERNEL::NormalizedCellType geoType,
 104                                  const std::vector<double>& refCoo, const std::vector<double>& gsCoo, const std::vector<double>& w):_name(locName),_geo_type(geoType),_ref_coo(refCoo),_gs_coo(gsCoo),
 105                                      _w(w)
 106 {
 107   const INTERP_KERNEL::CellModel& cm(INTERP_KERNEL::CellModel::GetCellModel(_geo_type));
 108   _dim=cm.getDimension();
 109   _nb_node_per_cell=cm.getNumberOfNodes();
 110   _nb_gauss_pt=_w.size();
 111 }
 112
 113 MEDFileFieldLoc *MEDFileFieldLoc::deepCopy() const
 114 {
 115   return new MEDFileFieldLoc(*this);
 116 }
 117
 118 std::size_t MEDFileFieldLoc::getHeapMemorySizeWithoutChildren() const
 119 {
 120   return (_ref_coo.capacity()+_gs_coo.capacity()+_w.capacity())*sizeof(double)+_name.capacity();
 121 }
 122
 123 std::vector<const BigMemoryObject *> MEDFileFieldLoc::getDirectChildrenWithNull() const
 124 {
 125   return std::vector<const BigMemoryObject *>();
 126 }
 127
 128 void MEDFileFieldLoc::simpleRepr(std::ostream& oss) const
 129 {
 130   static const char OFF7[]="\n    ";
 131   oss << "\"" << _name << "\"" << OFF7;
 132   oss << "GeoType=" << INTERP_KERNEL::CellModel::GetCellModel(_geo_type).getRepr() << OFF7;
 133   oss << "Dimension=" << _dim << OFF7;
 134   oss << "Number of Gauss points=" << _nb_gauss_pt << OFF7;
 135   oss << "Number of nodes per cell=" << _nb_node_per_cell << OFF7;
 136   oss << "RefCoords="; std::copy(_ref_coo.begin(),_ref_coo.end(),std::ostream_iterator<double>(oss," ")); oss << OFF7;
 137   oss << "Weights="; std::copy(_w.begin(),_w.end(),std::ostream_iterator<double>(oss," ")); oss << OFF7;
 138   oss << "GaussPtsCoords="; std::copy(_gs_coo.begin(),_gs_coo.end(),std::ostream_iterator<double>(oss," ")); oss << std::endl;
 139 }
 140
 141 void MEDFileFieldLoc::setName(const std::string& name)
 142 {
 143   _name=name;
 144 }
 145
 146 bool MEDFileFieldLoc::isEqual(const MEDFileFieldLoc& other, double eps) const
 147 {
 148   if(_name!=other._name)
 149     return false;
 150   if(_dim!=other._dim)
 151     return false;
 152   if(_nb_gauss_pt!=other._nb_gauss_pt)
 153     return false;
 154   if(_nb_node_per_cell!=other._nb_node_per_cell)
 155     return false;
 156   if(_geo_type!=other._geo_type)
 157     return false;
 158   if(!MEDCouplingGaussLocalization::AreAlmostEqual(_ref_coo,other._ref_coo,eps))
 159     return false;
 160   if(!MEDCouplingGaussLocalization::AreAlmostEqual(_gs_coo,other._gs_coo,eps))
 161     return false;
 162   if(!MEDCouplingGaussLocalization::AreAlmostEqual(_w,other._w,eps))
 163     return false;
 164
 165   return true;
 166 }
 167
 168 void MEDFileFieldLoc::writeLL(med_idt fid) const
 169 {
 170   MEDlocalizationWr(fid,_name.c_str(),typmai3[(int)_geo_type],_dim,&_ref_coo[0],MED_FULL_INTERLACE,_nb_gauss_pt,&_gs_coo[0],&_w[0],MED_NO_INTERPOLATION,MED_NO_MESH_SUPPORT);
 171 }
 172
 173 std::string MEDFileFieldLoc::repr() const
 174 {
 175   std::ostringstream oss; oss.precision(15);
 176   const INTERP_KERNEL::CellModel& cm(INTERP_KERNEL::CellModel::GetCellModel(_geo_type));
 177   oss << "Localization \"" << _name << "\" :\n" << "  - Geometric Type : " << cm.getRepr();
 178   oss << "\n  - Dimension : " << _dim << "\n  - Number of gauss points : ";
 179   oss << _nb_gauss_pt << "\n  - Number of nodes in cell : " << _nb_node_per_cell;
 180   oss << "\n  - Ref coords are : ";
 181   int sz=_ref_coo.size();
 182   if(sz%_dim==0)
 183     {
 184       int nbOfTuples=sz/_dim;
 185       for(int i=0;i<nbOfTuples;i++)
 186         {
 187           oss << "(";
 188           for(int j=0;j<_dim;j++)
 189             { oss << _ref_coo[i*_dim+j]; if(j!=_dim-1) oss << ", "; }
 190           oss << ") ";
 191         }
 192     }
 193   else
 194     std::copy(_ref_coo.begin(),_ref_coo.end(),std::ostream_iterator<double>(oss," "));
 195   oss << "\n  - Gauss coords in reference element : ";
 196   sz=_gs_coo.size();
 197   if(sz%_dim==0)
 198     {
 199       int nbOfTuples=sz/_dim;
 200       for(int i=0;i<nbOfTuples;i++)
 201         {
 202           oss << "(";
 203           for(int j=0;j<_dim;j++)
 204             { oss << _gs_coo[i*_dim+j]; if(j!=_dim-1) oss << ", "; }
 205           oss << ") ";
 206         }
 207     }
 208   else
 209     std::copy(_gs_coo.begin(),_gs_coo.end(),std::ostream_iterator<double>(oss," "));
 210   oss << "\n  - Weights of Gauss coords are : "; std::copy(_w.begin(),_w.end(),std::ostream_iterator<double>(oss," "));
 211   return oss.str();
 212 }
 213
 214 void MEDFileFieldPerMeshPerTypePerDisc::assignFieldNoProfile(int& start, int offset, int nbOfCells, const MEDCouplingFieldDouble *field, const DataArray *arrr, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
 215 {
 216   _type=field->getTypeOfField();
 217   _start=start;
 218   switch(_type)
 219   {
 220     case ON_CELLS:
 221       {
 222         getOrCreateAndGetArray()->setContigPartOfSelectedValuesSlice(_start,arrr,offset,offset+nbOfCells,1);
 223         _end=_start+nbOfCells;
 224         _nval=nbOfCells;
 225         break;
 226       }
 227     case ON_GAUSS_NE:
 228       {
 229         MCAuto<DataArrayInt> arr=field->getDiscretization()->getOffsetArr(field->getMesh());
 230         const int *arrPtr=arr->getConstPointer();
 231         getOrCreateAndGetArray()->setContigPartOfSelectedValuesSlice(_start,arrr,arrPtr[offset],arrPtr[offset+nbOfCells],1);
 232         _end=_start+(arrPtr[offset+nbOfCells]-arrPtr[offset]);
 233         _nval=nbOfCells;
 234         break;
 235       }
 236     case ON_GAUSS_PT:
 237       {
 238         const MEDCouplingFieldDiscretization *disc(field->getDiscretization());
 239         const MEDCouplingGaussLocalization& gsLoc(field->getGaussLocalization(_loc_id));
 240         const MEDCouplingFieldDiscretizationGauss *disc2(dynamic_cast<const MEDCouplingFieldDiscretizationGauss *>(disc));
 241         if(!disc2)
 242           throw INTERP_KERNEL::Exception("assignFieldNoProfile : invalid call to this method ! Internal Error !");
 243         const DataArrayInt *dai(disc2->getArrayOfDiscIds());
 244         MCAuto<DataArrayInt> dai2(disc2->getOffsetArr(field->getMesh()));
 245         const int *dai2Ptr(dai2->getConstPointer());
 246         int nbi(gsLoc.getWeights().size());
 247         MCAuto<DataArrayInt> da2(dai->selectByTupleIdSafeSlice(offset,offset+nbOfCells,1));
 248         MCAuto<DataArrayInt> da3(da2->findIdsEqual(_loc_id));
 249         const int *da3Ptr(da3->getConstPointer());
 250         if(da3->getNumberOfTuples()!=nbOfCells)
 251           {//profile : for gauss even in NoProfile !!!
 252             std::ostringstream oss; oss << "Pfl_" << nasc.getName() << "_" << INTERP_KERNEL::CellModel::GetCellModel(getGeoType()).getRepr() << "_" << _loc_id;
 253             _profile=oss.str();
 254             da3->setName(_profile.c_str());
 255             glob.appendProfile(da3);
 256           }
 257         MCAuto<DataArrayInt> da4(DataArrayInt::New());
 258         _nval=da3->getNbOfElems();
 259         da4->alloc(_nval*nbi,1);
 260         int *da4Ptr(da4->getPointer());
 261         for(int i=0;i<_nval;i++)
 262           {
 263             int ref=dai2Ptr[offset+da3Ptr[i]];
 264             for(int j=0;j<nbi;j++)
 265               *da4Ptr++=ref+j;
 266           }
 267         std::ostringstream oss2; oss2 << "Loc_" << nasc.getName() << "_" << INTERP_KERNEL::CellModel::GetCellModel(getGeoType()).getRepr() << "_" << _loc_id;
 268         _localization=oss2.str();
 269         getOrCreateAndGetArray()->setContigPartOfSelectedValues(_start,arrr,da4);
 270         _end=_start+_nval*nbi;
 271         glob.appendLoc(_localization.c_str(),getGeoType(),gsLoc.getRefCoords(),gsLoc.getGaussCoords(),gsLoc.getWeights());
 272         break;
 273       }
 274     default:
 275       throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::assignFieldNoProfile : not implemented yet for such discretization type of field !");
 276   }
 277   start=_end;
 278 }
 279
 280 /*!
 281  * Leaf method of field with profile assignement. This method is the most general one. No optimization is done here.
 282  * \param [in] pflName input containing name of profile if any. 0 if no profile (except for GAUSS_PT where a no profile can hide a profile when splitted by loc_id).
 283  * \param [in] multiTypePfl is the end user profile specified in high level API
 284  * \param [in] idsInPfl is the selection into the \a multiTypePfl whole profile that corresponds to the current geometric type.
 285  * \param [in] locIds is the profile needed to be created for MED file format. It can be null if all cells of current geometric type are fetched in \a multiTypePfl.
 286  *             \b WARNING if not null the MED file profile can be subdivided again in case of Gauss points.
 287  * \param [in] mesh is the mesh coming from the MEDFileMesh instance in correspondance with the MEDFileField. The mesh inside the \a field is simply ignored.
 288  */
 289 void MEDFileFieldPerMeshPerTypePerDisc::assignFieldProfile(bool isPflAlone, int& start, const DataArrayInt *multiTypePfl, const DataArrayInt *idsInPfl, DataArrayInt *locIds, int nbOfEltsInWholeMesh, const MEDCouplingFieldDouble *field, const DataArray *arrr, const MEDCouplingMesh *mesh, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
 290 {
 291   _profile.clear();
 292   _type=field->getTypeOfField();
 293   std::string pflName(multiTypePfl->getName());
 294   std::ostringstream oss; oss << pflName;
 295   if(_type!=ON_NODES)
 296     {
 297       if(!isPflAlone)
 298         { const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(getGeoType()); oss << "_" <<  cm.getRepr(); }
 299     }
 300   else
 301     { oss << "_NODE"; }
 302   if(locIds)
 303     {
 304       if(pflName.empty())
 305         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::assignFieldProfile : existing profile with empty name !");
 306       if(_type!=ON_GAUSS_PT)
 307         {
 308           locIds->setName(oss.str());
 309           glob.appendProfile(locIds);
 310           _profile=oss.str();
 311         }
 312     }
 313   _start=start;
 314   switch(_type)
 315   {
 316     case ON_NODES:
 317       {
 318         _nval=idsInPfl->getNumberOfTuples();
 319         getOrCreateAndGetArray()->setContigPartOfSelectedValuesSlice(_start,arrr,0,arrr->getNumberOfTuples(),1);
 320         _end=_start+_nval;
 321         break;
 322       }
 323     case ON_CELLS:
 324       {
 325         _nval=idsInPfl->getNumberOfTuples();
 326         getOrCreateAndGetArray()->setContigPartOfSelectedValues(_start,arrr,idsInPfl);
 327         _end=_start+_nval;
 328         break;
 329       }
 330     case ON_GAUSS_NE:
 331       {
 332         MCAuto<DataArrayInt> arr=field->getDiscretization()->getOffsetArr(mesh);
 333         MCAuto<DataArrayInt> arr2=arr->deltaShiftIndex();
 334         MCAuto<DataArrayInt> arr3=arr2->selectByTupleId(multiTypePfl->begin(),multiTypePfl->end());
 335         arr3->computeOffsetsFull();
 336         MCAuto<DataArrayInt> tmp=idsInPfl->buildExplicitArrByRanges(arr3);
 337         int trueNval=tmp->getNumberOfTuples();
 338         _nval=idsInPfl->getNumberOfTuples();
 339         getOrCreateAndGetArray()->setContigPartOfSelectedValues(_start,arrr,tmp);
 340         _end=_start+trueNval;
 341         break;
 342       }
 343     case ON_GAUSS_PT:
 344       {
 345         const MEDCouplingFieldDiscretizationGauss *disc2=dynamic_cast<const MEDCouplingFieldDiscretizationGauss *>(field->getDiscretization());
 346         if(!disc2)
 347           throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss : invalid call to this method ! Internal Error !");
 348         const DataArrayInt *da1=disc2->getArrayOfDiscIds();
 349         const MEDCouplingGaussLocalization& gsLoc=field->getGaussLocalization(_loc_id);
 350         MCAuto<DataArrayInt> da2=da1->selectByTupleId(idsInPfl->begin(),idsInPfl->end());
 351         MCAuto<DataArrayInt> da3=da2->findIdsEqual(_loc_id);
 352         MCAuto<DataArrayInt> da4=idsInPfl->selectByTupleId(da3->begin(),da3->end());
 353         //
 354         MCAuto<MEDCouplingMesh> mesh2=mesh->buildPart(multiTypePfl->begin(),multiTypePfl->end());
 355         MCAuto<DataArrayInt> arr=disc2->getOffsetArr(mesh2);
 356         //
 357         MCAuto<DataArrayInt> tmp=DataArrayInt::New();
 358         int trueNval=0;
 359         for(const int *pt=da4->begin();pt!=da4->end();pt++)
 360           trueNval+=arr->getIJ(*pt+1,0)-arr->getIJ(*pt,0);
 361         tmp->alloc(trueNval,1);
 362         int *tmpPtr=tmp->getPointer();
 363         for(const int *pt=da4->begin();pt!=da4->end();pt++)
 364           for(int j=arr->getIJ(*pt,0);j<arr->getIJ(*pt+1,0);j++)
 365             *tmpPtr++=j;
 366         //
 367         _nval=da4->getNumberOfTuples();
 368         getOrCreateAndGetArray()->setContigPartOfSelectedValues(_start,arrr,tmp);
 369         _end=_start+trueNval;
 370         oss << "_loc_" << _loc_id;
 371         if(locIds)
 372           {
 373             MCAuto<DataArrayInt> da5=locIds->selectByTupleId(da3->begin(),da3->end());
 374             da5->setName(oss.str());
 375             glob.appendProfile(da5);
 376             _profile=oss.str();
 377           }
 378         else
 379           {
 380             if(!da3->isIota(nbOfEltsInWholeMesh))
 381               {
 382                 da3->setName(oss.str());
 383                 glob.appendProfile(da3);
 384                 _profile=oss.str();
 385               }
 386           }
 387         std::ostringstream oss2; oss2 << "Loc_" << nasc.getName() << "_" << INTERP_KERNEL::CellModel::GetCellModel(getGeoType()).getRepr() << "_" << _loc_id;
 388         _localization=oss2.str();
 389         glob.appendLoc(_localization.c_str(),getGeoType(),gsLoc.getRefCoords(),gsLoc.getGaussCoords(),gsLoc.getWeights());
 390         break;
 391       }
 392     default:
 393       throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::assignFieldProfile : not implemented yet for such discretization type of field !");
 394   }
 395   start=_end;
 396 }
 397
 398 void MEDFileFieldPerMeshPerTypePerDisc::assignNodeFieldNoProfile(int& start, const MEDCouplingFieldDouble *field, const DataArray *arrr, MEDFileFieldGlobsReal& glob)
 399 {
 400   _start=start;
 401   _nval=arrr->getNumberOfTuples();
 402   getOrCreateAndGetArray()->setContigPartOfSelectedValuesSlice(_start,arrr,0,_nval,1);
 403   _end=_start+_nval;
 404   start=_end;
 405 }
 406
 407 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerTypePerDisc::NewOnRead(MEDFileFieldPerMeshPerType *fath, TypeOfField type, int profileIt, const PartDefinition *pd)
 408 {
 409   return new MEDFileFieldPerMeshPerTypePerDisc(fath,type,profileIt,pd);
 410 }
 411
 412 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerTypePerDisc::New(MEDFileFieldPerMeshPerType *fath, TypeOfField type, int locId)
 413 {
 414   return new MEDFileFieldPerMeshPerTypePerDisc(fath,type,locId,std::string());
 415 }
 416
 417 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerTypePerDisc::New(const MEDFileFieldPerMeshPerTypePerDisc& other)
 418 {
 419   return new MEDFileFieldPerMeshPerTypePerDisc(other);
 420 }
 421
 422 std::size_t MEDFileFieldPerMeshPerTypePerDisc::getHeapMemorySizeWithoutChildren() const
 423 {
 424   return _profile.capacity()+_localization.capacity()+sizeof(MEDFileFieldPerMeshPerTypePerDisc);
 425 }
 426
 427 std::vector<const BigMemoryObject *> MEDFileFieldPerMeshPerTypePerDisc::getDirectChildrenWithNull() const
 428 {
 429   std::vector<const BigMemoryObject *> ret(1);
 430   ret[0]=(const PartDefinition*)_pd;
 431   return ret;
 432 }
 433
 434 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerTypePerDisc::deepCopy(MEDFileFieldPerMeshPerType *father) const
 435 {
 436   MCAuto<MEDFileFieldPerMeshPerTypePerDisc> ret=new MEDFileFieldPerMeshPerTypePerDisc(*this);
 437   ret->_father=father;
 438   return ret.retn();
 439 }
 440
 441 MEDFileFieldPerMeshPerTypePerDisc::MEDFileFieldPerMeshPerTypePerDisc(MEDFileFieldPerMeshPerType *fath, TypeOfField atype, int profileIt, const PartDefinition *pd)
 442 try:_type(atype),_father(fath),_profile_it(profileIt),_pd(const_cast<PartDefinition *>(pd))
 443 {
 444   if(pd)
 445     pd->incrRef();
 446 }
 447 catch(INTERP_KERNEL::Exception& e)
 448 {
 449     throw e;
 450 }
 451
 452 MEDFileFieldPerMeshPerTypePerDisc::MEDFileFieldPerMeshPerTypePerDisc(MEDFileFieldPerMeshPerType *fath, TypeOfField type, int locId, const std::string& dummy):_type(type),_father(fath),_loc_id(locId)
 453 {
 454 }
 455
 456 MEDFileFieldPerMeshPerTypePerDisc::MEDFileFieldPerMeshPerTypePerDisc(const MEDFileFieldPerMeshPerTypePerDisc& other):RefCountObject(other),_type(other._type),_father(0),_start(other._start),_end(other._end),_nval(other._nval),_profile(other._profile),_localization(other._localization),_loc_id(other._loc_id),_profile_it(other._profile_it),_pd(other._pd),_tmp_work1(other._tmp_work1)
 457 {
 458 }
 459
 460 MEDFileFieldPerMeshPerTypePerDisc::MEDFileFieldPerMeshPerTypePerDisc():_type(ON_CELLS),_father(0),_start(-std::numeric_limits<int>::max()),_end(-std::numeric_limits<int>::max()),
 461     _nval(-std::numeric_limits<int>::max()),_loc_id(-std::numeric_limits<int>::max())
 462 {
 463 }
 464
 465 void MEDFileFieldPerMeshPerTypePerDisc::goReadZeValuesInFile(med_idt fid, const std::string& fieldName, int nbOfCompo, int iteration, int order, med_entity_type menti, med_geometry_type mgeoti, unsigned char *startFeedingPtr)
 466 {
 467   const PartDefinition *pd(_pd);
 468   if(!pd)
 469     {
 470       INTERP_KERNEL::AutoPtr<char> locname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
 471       int nbi,tmp1;
 472       med_int nbValsInFile(MEDfieldnValueWithProfileByName(fid,fieldName.c_str(),iteration,order,menti,mgeoti,_profile.c_str(),MED_COMPACT_PFLMODE,&tmp1,locname,&nbi));
 473       if(_end-_start!=nbValsInFile*nbi)
 474         {
 475           std::ostringstream oss; oss << "MEDFileFieldPerMeshPerTypePerDisc::goReadZeValuesInFile : The number of tuples to read is " << nbValsInFile << "*" << nbi <<  " (nb integration points) ! But in data structure it values " << _end-_start << " is expected !";
 476           throw INTERP_KERNEL::Exception(oss.str());
 477         }
 478       MEDFILESAFECALLERRD0(MEDfieldValueWithProfileRd,(fid,fieldName.c_str(),iteration,order,menti,mgeoti,MED_COMPACT_PFLMODE,_profile.c_str(),MED_FULL_INTERLACE,MED_ALL_CONSTITUENT,startFeedingPtr));
 479     }
 480   else
 481     {
 482       if(!_profile.empty())
 483         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::goReadZeValuesInFile : not implemented !");
 484       INTERP_KERNEL::AutoPtr<char> pflname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE)),locname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
 485       int profilesize,nbi;
 486       int overallNval(MEDfieldnValueWithProfile(fid,fieldName.c_str(),iteration,order,menti,mgeoti,_profile_it+1,MED_COMPACT_PFLMODE,pflname,&profilesize,locname,&nbi));
 487       const SlicePartDefinition *spd(dynamic_cast<const SlicePartDefinition *>(pd));
 488       if(spd)
 489         {
 490           int start,stop,step;
 491           spd->getSlice(start,stop,step);
 492           int nbOfEltsToLoad(DataArray::GetNumberOfItemGivenBES(start,stop,step,"MEDFileFieldPerMeshPerTypePerDisc::goReadZeValuesInFile"));
 493           med_filter filter=MED_FILTER_INIT;
 494           MEDfilterBlockOfEntityCr(fid,/*nentity*/overallNval,/*nvaluesperentity*/nbi,/*nconstituentpervalue*/nbOfCompo,
 495                                    MED_ALL_CONSTITUENT,MED_FULL_INTERLACE,MED_COMPACT_STMODE,MED_NO_PROFILE,
 496                                    /*start*/start+1,/*stride*/step,/*count*/1,/*blocksize*/nbOfEltsToLoad,
 497                                    /*lastblocksize=useless because count=1*/0,&filter);
 498           MEDFILESAFECALLERRD0(MEDfieldValueAdvancedRd,(fid,fieldName.c_str(),iteration,order,menti,mgeoti,&filter,startFeedingPtr));
 499           MEDfilterClose(&filter);
 500           return ;
 501         }
 502       const DataArrayPartDefinition *dpd(dynamic_cast<const DataArrayPartDefinition *>(pd));
 503       if(dpd)
 504         {
 505           dpd->checkConsistencyLight();
 506           MCAuto<DataArrayInt> myIds(dpd->toDAI());
 507           int a(myIds->getMinValueInArray()),b(myIds->getMaxValueInArray());
 508           myIds=myIds->deepCopy();// WARNING deep copy here because _pd is modified by applyLin !!!
 509           myIds->applyLin(1,-a);
 510           int nbOfEltsToLoad(b-a+1);
 511           med_filter filter=MED_FILTER_INIT;
 512           {//TODO : manage int32 !
 513             MCAuto<DataArrayDouble> tmp(DataArrayDouble::New());
 514             tmp->alloc(nbOfEltsToLoad,nbOfCompo);
 515             MEDfilterBlockOfEntityCr(fid,/*nentity*/overallNval,/*nvaluesperentity*/nbi,/*nconstituentpervalue*/nbOfCompo,
 516                                      MED_ALL_CONSTITUENT,MED_FULL_INTERLACE,MED_COMPACT_STMODE,MED_NO_PROFILE,
 517                                      /*start*/a+1,/*stride*/1,/*count*/1,/*blocksize*/nbOfEltsToLoad,
 518                                      /*lastblocksize=useless because count=1*/0,&filter);
 519             MEDFILESAFECALLERRD0(MEDfieldValueAdvancedRd,(fid,fieldName.c_str(),iteration,order,menti,mgeoti,&filter,reinterpret_cast<unsigned char *>(tmp->getPointer())));
 520             MCAuto<DataArrayDouble> feeder(DataArrayDouble::New());
 521             feeder->useExternalArrayWithRWAccess(reinterpret_cast<double *>(startFeedingPtr),_nval,nbOfCompo);
 522             feeder->setContigPartOfSelectedValues(0,tmp,myIds);
 523           }
 524           MEDfilterClose(&filter);
 525         }
 526       else
 527         throw INTERP_KERNEL::Exception("Not implemented yet for not slices!");
 528     }
 529 }
 530
 531 const MEDFileFieldPerMeshPerType *MEDFileFieldPerMeshPerTypePerDisc::getFather() const
 532 {
 533   return _father;
 534 }
 535
 536 void MEDFileFieldPerMeshPerTypePerDisc::loadOnlyStructureOfDataRecursively(med_idt fid, int& start, const MEDFileFieldNameScope& nasc)
 537 {
 538   INTERP_KERNEL::AutoPtr<char> locname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
 539   INTERP_KERNEL::AutoPtr<char> pflname(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
 540   std::string fieldName(nasc.getName()),meshName(getMeshName());
 541   int iteration(getIteration()),order(getOrder());
 542   TypeOfField type(getType());
 543   INTERP_KERNEL::NormalizedCellType geoType(getGeoType());
 544   int profilesize,nbi;
 545   med_geometry_type mgeoti;
 546   med_entity_type menti(MEDFileFieldPerMeshPerType::ConvertIntoMEDFileType(type,geoType,mgeoti));
 547   int zeNVal(MEDfieldnValueWithProfile(fid,fieldName.c_str(),iteration,order,menti,mgeoti,_profile_it+1,MED_COMPACT_PFLMODE,pflname,&profilesize,locname,&nbi));
 548   _profile=MEDLoaderBase::buildStringFromFortran(pflname,MED_NAME_SIZE);
 549   _localization=MEDLoaderBase::buildStringFromFortran(locname,MED_NAME_SIZE);
 550   const PartDefinition *pd(_pd);
 551   if(!pd)
 552     {
 553       _nval=zeNVal;
 554     }
 555   else
 556     {
 557       if(!_profile.empty())
 558         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::loadOnlyStructureOfDataRecursively : profiles are not managed yet with part of def !");
 559       _nval=pd->getNumberOfElems();
 560     }
 561   _start=start;
 562   _end=start+_nval*nbi;
 563   start=_end;
 564   if(type==ON_CELLS && !_localization.empty())
 565     {
 566       if(_localization!="MED_GAUSS_ELNO")//For compatibily with MED2.3
 567         setType(ON_GAUSS_PT);
 568       else
 569         {
 570           setType(ON_GAUSS_NE);
 571           _localization.clear();
 572         }
 573     }
 574 }
 575
 576 void MEDFileFieldPerMeshPerTypePerDisc::loadBigArray(med_idt fid, const MEDFileFieldNameScope& nasc)
 577 {
 578   std::string fieldName(nasc.getName()),meshName(getMeshName());
 579   int iteration(getIteration()),order(getOrder());
 580   TypeOfField type(getType());
 581   INTERP_KERNEL::NormalizedCellType geoType(getGeoType());
 582   med_geometry_type mgeoti;
 583   med_entity_type menti(MEDFileFieldPerMeshPerType::ConvertIntoMEDFileType(type,geoType,mgeoti));
 584   if(_start>_end)
 585     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::loadBigArray : internal error in range !");
 586   if(_start==_end)
 587     return ;
 588   DataArray *arr(getOrCreateAndGetArray());//arr is not null due to the spec of getOrCreateAndGetArray
 589   if(_start<0 || _start>=arr->getNumberOfTuples())
 590     {
 591       std::ostringstream oss; oss << "MEDFileFieldPerMeshPerTypePerDisc::loadBigArray : Invalid start ("<< _start << ") regarding admissible range of allocated array [0," << arr->getNumberOfTuples() << ") !";
 592       throw INTERP_KERNEL::Exception(oss.str());
 593     }
 594   if(_end<0 || _end>arr->getNumberOfTuples())
 595     {
 596       std::ostringstream oss; oss << "MEDFileFieldPerMeshPerTypePerDisc::loadBigArray : Invalid start ("<< _start << ") regarding admissible range of allocated array [0," << arr->getNumberOfTuples() << "] !";
 597       throw INTERP_KERNEL::Exception(oss.str());
 598     }
 599   int nbOfCompo(arr->getNumberOfComponents());
 600   DataArrayDouble *arrD(dynamic_cast<DataArrayDouble *>(arr));
 601   if(arrD)
 602     {
 603       double *startFeeding(arrD->getPointer()+_start*nbOfCompo);
 604       goReadZeValuesInFile(fid,fieldName,nbOfCompo,iteration,order,menti,mgeoti,reinterpret_cast<unsigned char*>(startFeeding));
 605       return ;
 606     }
 607   DataArrayInt *arrI(dynamic_cast<DataArrayInt *>(arr));
 608   if(arrI)
 609     {
 610       int *startFeeding(arrI->getPointer()+_start*nbOfCompo);
 611       goReadZeValuesInFile(fid,fieldName,nbOfCompo,iteration,order,menti,mgeoti,reinterpret_cast<unsigned char*>(startFeeding));
 612       return ;
 613     }
 614   throw INTERP_KERNEL::Exception("Error on array reading ! Unrecognized type of field ! Should be in FLOAT64 or INT32 !");
 615 }
 616
 617 /*!
 618  * Set a \c this->_start **and** \c this->_end keeping the same delta between the two.
 619  */
 620 void MEDFileFieldPerMeshPerTypePerDisc::setNewStart(int newValueOfStart)
 621 {
 622   int delta=_end-_start;
 623   _start=newValueOfStart;
 624   _end=_start+delta;
 625 }
 626
 627 int MEDFileFieldPerMeshPerTypePerDisc::getIteration() const
 628 {
 629   return _father->getIteration();
 630 }
 631
 632 int MEDFileFieldPerMeshPerTypePerDisc::getOrder() const
 633 {
 634   return _father->getOrder();
 635 }
 636
 637 double MEDFileFieldPerMeshPerTypePerDisc::getTime() const
 638 {
 639   return _father->getTime();
 640 }
 641
 642 std::string MEDFileFieldPerMeshPerTypePerDisc::getMeshName() const
 643 {
 644   return _father->getMeshName();
 645 }
 646
 647 void MEDFileFieldPerMeshPerTypePerDisc::simpleRepr(int bkOffset, std::ostream& oss, int id) const
 648 {
 649   const char startLine[]="    ## ";
 650   std::string startLine2(bkOffset,' ');
 651   startLine2+=startLine;
 652   MEDCouplingFieldDiscretization *tmp=MEDCouplingFieldDiscretization::New(_type);
 653   oss << startLine2 << "Localization #" << id << "." << std::endl;
 654   oss << startLine2 << "  Type=" << tmp->getRepr() << "." << std::endl;
 655   delete tmp;
 656   oss << startLine2 << "  This type discretization lies on profile : \"" << _profile << "\" and on the following localization : \"" << _localization << "\"." << std::endl;
 657   oss << startLine2 << "  This type discretization has " << _end-_start << " tuples (start=" << _start << ", end=" << _end << ")." << std::endl;
 658   oss << startLine2 << "  This type discretization has " << (_end-_start)/_nval << " integration points." << std::endl;
 659 }
 660
 661 TypeOfField MEDFileFieldPerMeshPerTypePerDisc::getType() const
 662 {
 663   return _type;
 664 }
 665
 666 void MEDFileFieldPerMeshPerTypePerDisc::fillTypesOfFieldAvailable(std::set<TypeOfField>& types) const
 667 {
 668   types.insert(_type);
 669 }
 670
 671 void MEDFileFieldPerMeshPerTypePerDisc::setType(TypeOfField newType)
 672 {
 673   _type=newType;
 674 }
 675
 676 INTERP_KERNEL::NormalizedCellType MEDFileFieldPerMeshPerTypePerDisc::getGeoType() const
 677 {
 678   return _father->getGeoType();
 679 }
 680
 681 int MEDFileFieldPerMeshPerTypePerDisc::getNumberOfComponents() const
 682 {
 683   return _father->getNumberOfComponents();
 684 }
 685
 686 int MEDFileFieldPerMeshPerTypePerDisc::getNumberOfTuples() const
 687 {
 688   return _end-_start;
 689 }
 690
 691 DataArray *MEDFileFieldPerMeshPerTypePerDisc::getOrCreateAndGetArray()
 692 {
 693   return _father->getOrCreateAndGetArray();
 694 }
 695
 696 const DataArray *MEDFileFieldPerMeshPerTypePerDisc::getOrCreateAndGetArray() const
 697 {
 698   const MEDFileFieldPerMeshPerType *fath=_father;
 699   return fath->getOrCreateAndGetArray();
 700 }
 701
 702 const std::vector<std::string>& MEDFileFieldPerMeshPerTypePerDisc::getInfo() const
 703 {
 704   return _father->getInfo();
 705 }
 706
 707 std::string MEDFileFieldPerMeshPerTypePerDisc::getProfile() const
 708 {
 709   return _profile;
 710 }
 711
 712 void MEDFileFieldPerMeshPerTypePerDisc::setProfile(const std::string& newPflName)
 713 {
 714   _profile=newPflName;
 715 }
 716
 717 std::string MEDFileFieldPerMeshPerTypePerDisc::getLocalization() const
 718 {
 719   return _localization;
 720 }
 721
 722 void MEDFileFieldPerMeshPerTypePerDisc::setLocalization(const std::string& newLocName)
 723 {
 724   _localization=newLocName;
 725 }
 726
 727 void MEDFileFieldPerMeshPerTypePerDisc::changePflsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
 728 {
 729   for(std::vector< std::pair<std::vector<std::string>, std::string > >::const_iterator it2=mapOfModif.begin();it2!=mapOfModif.end();it2++)
 730     {
 731       if(std::find((*it2).first.begin(),(*it2).first.end(),_profile)!=(*it2).first.end())
 732         {
 733           _profile=(*it2).second;
 734           return;
 735         }
 736     }
 737 }
 738
 739 void MEDFileFieldPerMeshPerTypePerDisc::changeLocsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
 740 {
 741   for(std::vector< std::pair<std::vector<std::string>, std::string > >::const_iterator it2=mapOfModif.begin();it2!=mapOfModif.end();it2++)
 742     {
 743       if(std::find((*it2).first.begin(),(*it2).first.end(),_localization)!=(*it2).first.end())
 744         {
 745           _localization=(*it2).second;
 746           return;
 747         }
 748     }
 749 }
 750
 751 void MEDFileFieldPerMeshPerTypePerDisc::getFieldAtLevel(TypeOfField type, const MEDFileFieldGlobsReal *glob, std::vector< std::pair<int,int> >& dads, std::vector<const DataArrayInt *>& pfls, std::vector<int>& locs, std::vector<INTERP_KERNEL::NormalizedCellType>& geoTypes) const
 752 {
 753   if(type!=_type)
 754     return ;
 755   dads.push_back(std::pair<int,int>(_start,_end));
 756   geoTypes.push_back(getGeoType());
 757   if(_profile.empty())
 758     pfls.push_back(0);
 759   else
 760     {
 761       pfls.push_back(glob->getProfile(_profile.c_str()));
 762     }
 763   if(_localization.empty())
 764     locs.push_back(-1);
 765   else
 766     {
 767       locs.push_back(glob->getLocalizationId(_localization.c_str()));
 768     }
 769 }
 770
 771 void MEDFileFieldPerMeshPerTypePerDisc::fillValues(int discId, int& startEntryId, std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
 772 {
 773   entries[startEntryId]=std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int> ,std::pair<int,int> >(std::pair<INTERP_KERNEL::NormalizedCellType,int>(getGeoType(),discId),std::pair<int,int>(_start,_end));
 774   startEntryId++;
 775 }
 776
 777 void MEDFileFieldPerMeshPerTypePerDisc::writeLL(med_idt fid, const MEDFileFieldNameScope& nasc) const
 778 {
 779   TypeOfField type=getType();
 780   INTERP_KERNEL::NormalizedCellType geoType=getGeoType();
 781   med_geometry_type mgeoti;
 782   med_entity_type menti=MEDFileFieldPerMeshPerType::ConvertIntoMEDFileType(type,geoType,mgeoti);
 783   const DataArray *arr=getOrCreateAndGetArray();
 784   if(!arr)
 785     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::writeLL : no array set !");
 786   if(!arr->isAllocated())
 787     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::writeLL : the array to be written is not allocated !");
 788   const DataArrayDouble *arrD=dynamic_cast<const DataArrayDouble *>(arr);
 789   const DataArrayInt *arrI=dynamic_cast<const DataArrayInt *>(arr);
 790   const unsigned char *locToWrite=0;
 791   if(arrD)
 792     locToWrite=reinterpret_cast<const unsigned char *>(arrD->getConstPointer()+_start*arr->getNumberOfComponents());
 793   else if(arrI)
 794     locToWrite=reinterpret_cast<const unsigned char *>(arrI->getConstPointer()+_start*arr->getNumberOfComponents());
 795   else
 796     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::writeLL : not recognized type of values ! Supported are FLOAT64 and INT32 !");
 797   MEDFILESAFECALLERWR0(MEDfieldValueWithProfileWr,(fid,nasc.getName().c_str(),getIteration(),getOrder(),getTime(),menti,mgeoti,
 798                                                    MED_COMPACT_PFLMODE,_profile.c_str(),_localization.c_str(),MED_FULL_INTERLACE,MED_ALL_CONSTITUENT,_nval,
 799                                                    locToWrite));
 800 }
 801
 802 void MEDFileFieldPerMeshPerTypePerDisc::getCoarseData(TypeOfField& type, std::pair<int,int>& dad, std::string& pfl, std::string& loc) const
 803 {
 804   type=_type;
 805   pfl=_profile;
 806   loc=_localization;
 807   dad.first=_start; dad.second=_end;
 808 }
 809
 810 /*!
 811  * \param [in] codeOfMesh is of format returned by MEDCouplingUMesh::getDistributionOfTypes. And for each *i* oldCode[3*i+2] gives the position (MEDFileUMesh::PutInThirdComponentOfCodeOffset).
 812  *             This code corresponds to the distribution of types in the corresponding mesh.
 813  * \param [out] ptToFill memory zone where the output will be stored.
 814  * \return the size of data pushed into output param \a ptToFill
 815  */
 816 int MEDFileFieldPerMeshPerTypePerDisc::fillEltIdsFromCode(int offset, const std::vector<int>& codeOfMesh, const MEDFileFieldGlobsReal& glob, int *ptToFill) const
 817 {
 818   _loc_id=offset;
 819   std::ostringstream oss;
 820   std::size_t nbOfType=codeOfMesh.size()/3;
 821   int found=-1;
 822   for(std::size_t i=0;i<nbOfType && found==-1;i++)
 823     if(getGeoType()==(INTERP_KERNEL::NormalizedCellType)codeOfMesh[3*i])
 824       found=(int)i;
 825   if(found==-1)
 826     {
 827       const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(getGeoType());
 828       oss << "MEDFileFieldPerMeshPerTypePerDisc::fillEltIdsFromCode : not found geometric type " << cm.getRepr() << " in the referenced mesh of field !";
 829       throw INTERP_KERNEL::Exception(oss.str());
 830     }
 831   int *work=ptToFill;
 832   if(_profile.empty())
 833     {
 834       if(_nval!=codeOfMesh[3*found+1])
 835         {
 836           const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(getGeoType());
 837           oss << "MEDFileFieldPerMeshPerTypePerDisc::fillEltIdsFromCode : for geometric type " << cm.getRepr() << " number of elt ids in mesh is equal to " << _nval;
 838           oss << " whereas mesh has " << codeOfMesh[3*found+1] << " for this geometric type !";
 839           throw INTERP_KERNEL::Exception(oss.str());
 840         }
 841       for(int ii=codeOfMesh[3*found+2];ii<codeOfMesh[3*found+2]+_nval;ii++)
 842         *work++=ii;
 843     }
 844   else
 845     {
 846       const DataArrayInt *pfl=glob.getProfile(_profile.c_str());
 847       if(pfl->getNumberOfTuples()!=_nval)
 848         {
 849           const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(getGeoType());
 850           oss << "MEDFileFieldPerMeshPerTypePerDisc::fillEltIdsFromCode : for geometric type " << cm.getRepr() << ", field is defined on profile \"" << _profile << "\" and size of profile is ";
 851           oss << _nval;
 852           oss << pfl->getNumberOfTuples() << " whereas the number of ids is set to " << _nval << " for this geometric type !";
 853           throw INTERP_KERNEL::Exception(oss.str());
 854         }
 855       int offset2=codeOfMesh[3*found+2];
 856       for(const int *pflId=pfl->begin();pflId!=pfl->end();pflId++)
 857         {
 858           if(*pflId<codeOfMesh[3*found+1])
 859             *work++=offset2+*pflId;
 860         }
 861     }
 862   return _nval;
 863 }
 864
 865 int MEDFileFieldPerMeshPerTypePerDisc::fillTupleIds(int *ptToFill) const
 866 {
 867   for(int i=_start;i<_end;i++)
 868     *ptToFill++=i;
 869   return _end-_start;
 870 }
 871
 872 int MEDFileFieldPerMeshPerTypePerDisc::ConvertType(TypeOfField type, int locId)
 873 {
 874   switch(type)
 875   {
 876     case ON_CELLS:
 877       return -2;
 878     case ON_GAUSS_NE:
 879       return -1;
 880     case ON_GAUSS_PT:
 881       return locId;
 882     default:
 883       throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::ConvertType : not managed type of field !");
 884   }
 885 }
 886
 887 std::vector< std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> > MEDFileFieldPerMeshPerTypePerDisc::SplitPerDiscretization(const std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>& entries)
 888 {
 889   int id=0;
 890   std::map<std::pair<std::string,TypeOfField>,int> m;
 891   std::vector< std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> > ret;
 892   for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator it=entries.begin();it!=entries.end();it++)
 893     if(m.find(std::pair<std::string,TypeOfField>((*it)->getLocalization(),(*it)->getType()))==m.end())
 894       m[std::pair<std::string,TypeOfField>((*it)->getLocalization(),(*it)->getType())]=id++;
 895   ret.resize(id);
 896   for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator it=entries.begin();it!=entries.end();it++)
 897     ret[m[std::pair<std::string,TypeOfField>((*it)->getLocalization(),(*it)->getType())]].push_back(*it);
 898   return ret;
 899 }
 900
 901 /*!
 902  * - \c this->_loc_id mutable attribute is used for elt id in mesh offsets.
 903  *
 904  * \param [in] offset the offset id used to take into account that \a result is not compulsary empty in input
 905  * \param [in] entriesOnSameDisc some entries **on same localization** if not the result can be invalid. The _start and _end on them are relative to \a arr parameter.
 906  * \param [in] explicitIdsInMesh ids in mesh of the considered chunk.
 907  * \param [in] newCode one of the input parameter to explicit the new geo type dispatch (in classical format same than those asked by MEDFileFields::renumberEntitiesLyingOnMesh)
 908  * \param [in,out] glob if necessary by the method, new profiles can be added to it
 909  * \param [in,out] arr after the call of this method \a arr is renumbered to be compliant with added entries to \a result.
 910  * \param [out] result All new entries will be appended on it.
 911  * \return false if the configuration of renumbering leads to an unnecessary resplit of input \a entriesOnSameDisc. If not true is returned (the most general case !)
 912  */
 913 bool MEDFileFieldPerMeshPerTypePerDisc::RenumberChunks(int offset, const std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>& entriesOnSameDisc,
 914                                                        const DataArrayInt *explicitIdsInMesh,
 915                                                        const std::vector<int>& newCode,
 916                                                        MEDFileFieldGlobsReal& glob, DataArrayDouble *arr,
 917                                                        std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >& result)
 918 {
 919   if(entriesOnSameDisc.empty())
 920     return false;
 921   TypeOfField type=entriesOnSameDisc[0]->getType();
 922   int szEntities=0,szTuples=0;
 923   for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator it=entriesOnSameDisc.begin();it!=entriesOnSameDisc.end();it++)
 924     { szEntities+=(*it)->_nval; szTuples+=(*it)->_end-(*it)->_start; }
 925   int nbi=szTuples/szEntities;
 926   if(szTuples%szEntities!=0)
 927     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::RenumberChunks : internal error the splitting into same dicretization failed !");
 928   MCAuto<DataArrayInt> renumTuples=DataArrayInt::New(); renumTuples->alloc(szTuples,1);
 929   MCAuto<DataArrayInt> ranges=MEDCouplingUMesh::ComputeRangesFromTypeDistribution(newCode);
 930   std::vector< MCAuto<DataArrayInt> > newGeoTypesPerChunk(entriesOnSameDisc.size());
 931   std::vector< const DataArrayInt * > newGeoTypesPerChunk2(entriesOnSameDisc.size());
 932   std::vector< MCAuto<DataArrayInt> > newGeoTypesPerChunk_bis(entriesOnSameDisc.size());
 933   std::vector< const DataArrayInt * > newGeoTypesPerChunk3(entriesOnSameDisc.size());
 934   MCAuto<DataArrayInt> newGeoTypesPerChunk4=DataArrayInt::New(); newGeoTypesPerChunk4->alloc(szEntities,nbi);
 935   int id=0;
 936   for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator it=entriesOnSameDisc.begin();it!=entriesOnSameDisc.end();it++,id++)
 937     {
 938       int startOfEltIdOfChunk=(*it)->_start;
 939       MCAuto<DataArrayInt> newEltIds=explicitIdsInMesh->subArray(startOfEltIdOfChunk,startOfEltIdOfChunk+(*it)->_nval);
 940       MCAuto<DataArrayInt> rangeIdsForChunk=newEltIds->findRangeIdForEachTuple(ranges);
 941       MCAuto<DataArrayInt> idsInRrangeForChunk=newEltIds->findIdInRangeForEachTuple(ranges);
 942       //
 943       MCAuto<DataArrayInt> tmp=rangeIdsForChunk->duplicateEachTupleNTimes(nbi); rangeIdsForChunk->rearrange(nbi);
 944       newGeoTypesPerChunk4->setPartOfValues1(tmp,(*it)->_tmp_work1-offset,(*it)->_tmp_work1+(*it)->_nval*nbi-offset,1,0,nbi,1);
 945       //
 946       newGeoTypesPerChunk[id]=rangeIdsForChunk; newGeoTypesPerChunk2[id]=rangeIdsForChunk;
 947       newGeoTypesPerChunk_bis[id]=idsInRrangeForChunk; newGeoTypesPerChunk3[id]=idsInRrangeForChunk;
 948     }
 949   MCAuto<DataArrayInt> newGeoTypesEltIdsAllGather=DataArrayInt::Aggregate(newGeoTypesPerChunk2); newGeoTypesPerChunk.clear(); newGeoTypesPerChunk2.clear();
 950   MCAuto<DataArrayInt> newGeoTypesEltIdsAllGather2=DataArrayInt::Aggregate(newGeoTypesPerChunk3); newGeoTypesPerChunk_bis.clear(); newGeoTypesPerChunk3.clear();
 951   MCAuto<DataArrayInt> diffVals=newGeoTypesEltIdsAllGather->getDifferentValues();
 952   MCAuto<DataArrayInt> renumEltIds=newGeoTypesEltIdsAllGather->buildPermArrPerLevel();
 953   //
 954   MCAuto<DataArrayInt> renumTupleIds=newGeoTypesPerChunk4->buildPermArrPerLevel();
 955   //
 956   MCAuto<DataArrayDouble> arrPart=arr->subArray(offset,offset+szTuples);
 957   arrPart->renumberInPlace(renumTupleIds->begin());
 958   arr->setPartOfValues1(arrPart,offset,offset+szTuples,1,0,arrPart->getNumberOfComponents(),1);
 959   bool ret=false;
 960   const int *idIt=diffVals->begin();
 961   std::list<const MEDFileFieldPerMeshPerTypePerDisc *> li(entriesOnSameDisc.begin(),entriesOnSameDisc.end());
 962   int offset2=0;
 963   for(int i=0;i<diffVals->getNumberOfTuples();i++,idIt++)
 964     {
 965       MCAuto<DataArrayInt> ids=newGeoTypesEltIdsAllGather->findIdsEqual(*idIt);
 966       MCAuto<DataArrayInt> subIds=newGeoTypesEltIdsAllGather2->selectByTupleId(ids->begin(),ids->end());
 967       int nbEntityElts=subIds->getNumberOfTuples();
 968       bool ret2;
 969       MCAuto<MEDFileFieldPerMeshPerTypePerDisc> eltToAdd=MEDFileFieldPerMeshPerTypePerDisc::
 970           NewObjectOnSameDiscThanPool(type,(INTERP_KERNEL::NormalizedCellType)newCode[3*(*idIt)],subIds,!subIds->isIota(newCode[3*(*idIt)+1]),nbi,
 971                                       offset+offset2,
 972                                       li,glob,ret2);
 973       ret=ret || ret2;
 974       result.push_back(eltToAdd);
 975       offset2+=nbEntityElts*nbi;
 976     }
 977   ret=ret || li.empty();
 978   return ret;
 979 }
 980
 981 /*!
 982  * \param [in] typeF type of field of new chunk
 983  * \param [in] geoType the geometric type of the chunk
 984  * \param [in] idsOfMeshElt the entity ids of mesh (cells or nodes) of the new chunk.
 985  * \param [in] isPfl specifies if a profile is requested regarding size of \a idsOfMeshElt and the number of such entities regarding underlying mesh.
 986  * \param [in] nbi number of integration points
 987  * \param [in] offset The offset in the **global array of data**.
 988  * \param [in,out] entriesOnSameDisc the pool **on the same discretization** inside which it will be attempted to find an existing entry corresponding exactly
 989  *                 to the new chunk to create.
 990  * \param [in,out] glob the global shared info that will be requested for existing profiles or to append a new profile if needed.
 991  * \param [out] notInExisting If false the return newly allocated entry is not coming from \a entriesOnSameDisc. If true the output comes from copy of \a entriesOnSameDisc
 992  *              and corresponding entry erased from \a entriesOnSameDisc.
 993  * \return a newly allocated chunk
 994  */
 995 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerTypePerDisc::NewObjectOnSameDiscThanPool(TypeOfField typeF, INTERP_KERNEL::NormalizedCellType geoType, DataArrayInt *idsOfMeshElt,
 996                                                                                                   bool isPfl, int nbi, int offset,
 997                                                                                                   std::list< const MEDFileFieldPerMeshPerTypePerDisc *>& entriesOnSameDisc,
 998                                                                                                   MEDFileFieldGlobsReal& glob,
 999                                                                                                   bool &notInExisting)
1000 {
1001   int nbMeshEntities=idsOfMeshElt->getNumberOfTuples();
1002   std::list< const MEDFileFieldPerMeshPerTypePerDisc *>::iterator it=entriesOnSameDisc.begin();
1003   for(;it!=entriesOnSameDisc.end();it++)
1004     {
1005       if(((INTERP_KERNEL::NormalizedCellType)(*it)->_loc_id)==geoType && (*it)->_nval==nbMeshEntities)
1006         {
1007           if(!isPfl)
1008             {
1009               if((*it)->_profile.empty())
1010                 break;
1011               else
1012                 if(!(*it)->_profile.empty())
1013                   {
1014                     const DataArrayInt *pfl=glob.getProfile((*it)->_profile.c_str());
1015                     if(pfl->isEqualWithoutConsideringStr(*idsOfMeshElt))
1016                       break;
1017                   }
1018             }
1019         }
1020     }
1021   if(it==entriesOnSameDisc.end())
1022     {
1023       notInExisting=true;
1024       MEDFileFieldPerMeshPerTypePerDisc *ret=new MEDFileFieldPerMeshPerTypePerDisc;
1025       ret->_type=typeF;
1026       ret->_loc_id=(int)geoType;
1027       ret->_nval=nbMeshEntities;
1028       ret->_start=offset;
1029       ret->_end=ret->_start+ret->_nval*nbi;
1030       if(isPfl)
1031         {
1032           idsOfMeshElt->setName(glob.createNewNameOfPfl().c_str());
1033           glob.appendProfile(idsOfMeshElt);
1034           ret->_profile=idsOfMeshElt->getName();
1035         }
1036       //tony treatment of localization
1037       return ret;
1038     }
1039   else
1040     {
1041       notInExisting=false;
1042       MEDFileFieldPerMeshPerTypePerDisc *ret=MEDFileFieldPerMeshPerTypePerDisc::New(*(*it));
1043       ret->_loc_id=(int)geoType;
1044       ret->setNewStart(offset);
1045       entriesOnSameDisc.erase(it);
1046       return ret;
1047     }
1048
1049 }
1050
1051 MEDFileFieldPerMeshPerType *MEDFileFieldPerMeshPerType::NewOnRead(med_idt fid, MEDFileFieldPerMesh *fath, TypeOfField type, INTERP_KERNEL::NormalizedCellType geoType, const MEDFileFieldNameScope& nasc, const PartDefinition *pd)
1052 {
1053   return new MEDFileFieldPerMeshPerType(fid,fath,type,geoType,nasc,pd);
1054 }
1055
1056 MEDFileFieldPerMeshPerType *MEDFileFieldPerMeshPerType::New(MEDFileFieldPerMesh *fath, INTERP_KERNEL::NormalizedCellType geoType)
1057 {
1058   return new MEDFileFieldPerMeshPerType(fath,geoType);
1059 }
1060
1061 std::size_t MEDFileFieldPerMeshPerType::getHeapMemorySizeWithoutChildren() const
1062 {
1063   return _field_pm_pt_pd.capacity()*sizeof(MCAuto<MEDFileFieldPerMeshPerTypePerDisc>);
1064 }
1065
1066 std::vector<const BigMemoryObject *> MEDFileFieldPerMeshPerType::getDirectChildrenWithNull() const
1067 {
1068   std::vector<const BigMemoryObject *> ret;
1069   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1070     ret.push_back((const MEDFileFieldPerMeshPerTypePerDisc *)*it);
1071   return ret;
1072 }
1073
1074 MEDFileFieldPerMeshPerType *MEDFileFieldPerMeshPerType::deepCopy(MEDFileFieldPerMesh *father) const
1075 {
1076   MCAuto<MEDFileFieldPerMeshPerType> ret=new MEDFileFieldPerMeshPerType(*this);
1077   ret->_father=father;
1078   std::size_t i=0;
1079   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++,i++)
1080     {
1081       if((const MEDFileFieldPerMeshPerTypePerDisc *)*it)
1082         ret->_field_pm_pt_pd[i]=(*it)->deepCopy((MEDFileFieldPerMeshPerType *)ret);
1083     }
1084   return ret.retn();
1085 }
1086
1087 void MEDFileFieldPerMeshPerType::assignFieldNoProfile(int& start, int offset, int nbOfCells, const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
1088 {
1089   std::vector<int> pos=addNewEntryIfNecessary(field,offset,nbOfCells);
1090   for(std::vector<int>::const_iterator it=pos.begin();it!=pos.end();it++)
1091     _field_pm_pt_pd[*it]->assignFieldNoProfile(start,offset,nbOfCells,field,arr,glob,nasc);
1092 }
1093
1094 /*!
1095  * This method is the most general one. No optimization is done here.
1096  * \param [in] multiTypePfl is the end user profile specified in high level API
1097  * \param [in] idsInPfl is the selection into the \a multiTypePfl whole profile that corresponds to the current geometric type.
1098  * \param [in] locIds is the profile needed to be created for MED file format. It can be null if all cells of current geometric type are fetched in \a multiTypePfl.
1099  *             \b WARNING if not null the MED file profile can be subdivided again in case of Gauss points.
1100  * \param [in] nbOfEltsInWholeMesh nb of elts of type \a this->_geo_type in \b WHOLE mesh
1101  * \param [in] mesh is the mesh coming from the MEDFileMesh instance in correspondance with the MEDFileField. The mesh inside the \a field is simply ignored.
1102  */
1103 void MEDFileFieldPerMeshPerType::assignFieldProfile(bool isPflAlone, int& start, const DataArrayInt *multiTypePfl, const DataArrayInt *idsInPfl, DataArrayInt *locIds, int nbOfEltsInWholeMesh, const MEDCouplingFieldDouble *field, const DataArray *arr, const MEDCouplingMesh *mesh, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
1104 {
1105   std::vector<int> pos=addNewEntryIfNecessary(field,idsInPfl);
1106   for(std::vector<int>::const_iterator it=pos.begin();it!=pos.end();it++)
1107     _field_pm_pt_pd[*it]->assignFieldProfile(isPflAlone,start,multiTypePfl,idsInPfl,locIds,nbOfEltsInWholeMesh,field,arr,mesh,glob,nasc);
1108 }
1109
1110 void MEDFileFieldPerMeshPerType::assignNodeFieldNoProfile(int& start, const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob)
1111 {
1112   _field_pm_pt_pd.resize(1);
1113   _field_pm_pt_pd[0]=MEDFileFieldPerMeshPerTypePerDisc::New(this,ON_NODES,-3);
1114   _field_pm_pt_pd[0]->assignNodeFieldNoProfile(start,field,arr,glob);
1115 }
1116
1117 void MEDFileFieldPerMeshPerType::assignNodeFieldProfile(int& start, const DataArrayInt *pfl, const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
1118 {
1119   MCAuto<DataArrayInt> pfl2=pfl->deepCopy();
1120   if(!arr || !arr->isAllocated())
1121     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerType::assignNodeFieldProfile : input array is null, or not allocated !");
1122   _field_pm_pt_pd.resize(1);
1123   _field_pm_pt_pd[0]=MEDFileFieldPerMeshPerTypePerDisc::New(this,ON_NODES,-3);
1124   _field_pm_pt_pd[0]->assignFieldProfile(true,start,pfl,pfl2,pfl2,-1,field,arr,0,glob,nasc);//mesh is not requested so 0 is send.
1125 }
1126
1127 std::vector<int> MEDFileFieldPerMeshPerType::addNewEntryIfNecessary(const MEDCouplingFieldDouble *field, int offset, int nbOfCells)
1128 {
1129   TypeOfField type=field->getTypeOfField();
1130   if(type!=ON_GAUSS_PT)
1131     {
1132       int locIdToFind=MEDFileFieldPerMeshPerTypePerDisc::ConvertType(type,0);
1133       int sz=_field_pm_pt_pd.size();
1134       bool found=false;
1135       for(int j=0;j<sz && !found;j++)
1136         {
1137           if(_field_pm_pt_pd[j]->getLocId()==locIdToFind)
1138             {
1139               _field_pm_pt_pd[j]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1140               found=true;
1141             }
1142         }
1143       if(!found)
1144         {
1145           _field_pm_pt_pd.resize(sz+1);
1146           _field_pm_pt_pd[sz]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1147         }
1148       std::vector<int> ret(1,(int)sz);
1149       return ret;
1150     }
1151   else
1152     {
1153       std::vector<int> ret2=addNewEntryIfNecessaryGauss(field,offset,nbOfCells);
1154       int sz2=ret2.size();
1155       std::vector<int> ret3(sz2);
1156       int k=0;
1157       for(int i=0;i<sz2;i++)
1158         {
1159           int sz=_field_pm_pt_pd.size();
1160           int locIdToFind=ret2[i];
1161           bool found=false;
1162           for(int j=0;j<sz && !found;j++)
1163             {
1164               if(_field_pm_pt_pd[j]->getLocId()==locIdToFind)
1165                 {
1166                   _field_pm_pt_pd[j]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1167                   ret3[k++]=j;
1168                   found=true;
1169                 }
1170             }
1171           if(!found)
1172             {
1173               _field_pm_pt_pd.resize(sz+1);
1174               _field_pm_pt_pd[sz]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1175               ret3[k++]=sz;
1176             }
1177         }
1178       return ret3;
1179     }
1180 }
1181
1182 std::vector<int> MEDFileFieldPerMeshPerType::addNewEntryIfNecessaryGauss(const MEDCouplingFieldDouble *field, int offset, int nbOfCells)
1183 {
1184   const MEDCouplingFieldDiscretization *disc=field->getDiscretization();
1185   const MEDCouplingFieldDiscretizationGauss *disc2=dynamic_cast<const MEDCouplingFieldDiscretizationGauss *>(disc);
1186   if(!disc2)
1187     throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss : invalid call to this method ! Internal Error !");
1188   const DataArrayInt *da=disc2->getArrayOfDiscIds();
1189   if(!da)
1190     throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss (no profile) : no localization ids per cell array available ! The input Gauss node field is maybe invalid !");
1191   MCAuto<DataArrayInt> da2=da->selectByTupleIdSafeSlice(offset,offset+nbOfCells,1);
1192   MCAuto<DataArrayInt> retTmp=da2->getDifferentValues();
1193   if(retTmp->presenceOfValue(-1))
1194     throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss : some cells have no dicretization description !");
1195   std::vector<int> ret(retTmp->begin(),retTmp->end());
1196   return ret;
1197 }
1198
1199 std::vector<int> MEDFileFieldPerMeshPerType::addNewEntryIfNecessary(const MEDCouplingFieldDouble *field, const DataArrayInt *subCells)
1200 {
1201   TypeOfField type=field->getTypeOfField();
1202   if(type!=ON_GAUSS_PT)
1203     {
1204       int locIdToFind=MEDFileFieldPerMeshPerTypePerDisc::ConvertType(type,0);
1205       int sz=_field_pm_pt_pd.size();
1206       bool found=false;
1207       for(int j=0;j<sz && !found;j++)
1208         {
1209           if(_field_pm_pt_pd[j]->getLocId()==locIdToFind)
1210             {
1211               _field_pm_pt_pd[j]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1212               found=true;
1213             }
1214         }
1215       if(!found)
1216         {
1217           _field_pm_pt_pd.resize(sz+1);
1218           _field_pm_pt_pd[sz]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1219         }
1220       std::vector<int> ret(1,0);
1221       return ret;
1222     }
1223   else
1224     {
1225       std::vector<int> ret2=addNewEntryIfNecessaryGauss(field,subCells);
1226       int sz2=ret2.size();
1227       std::vector<int> ret3(sz2);
1228       int k=0;
1229       for(int i=0;i<sz2;i++)
1230         {
1231           int sz=_field_pm_pt_pd.size();
1232           int locIdToFind=ret2[i];
1233           bool found=false;
1234           for(int j=0;j<sz && !found;j++)
1235             {
1236               if(_field_pm_pt_pd[j]->getLocId()==locIdToFind)
1237                 {
1238                   _field_pm_pt_pd[j]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1239                   ret3[k++]=j;
1240                   found=true;
1241                 }
1242             }
1243           if(!found)
1244             {
1245               _field_pm_pt_pd.resize(sz+1);
1246               _field_pm_pt_pd[sz]=MEDFileFieldPerMeshPerTypePerDisc::New(this,type,locIdToFind);
1247               ret3[k++]=sz;
1248             }
1249         }
1250       return ret3;
1251     }
1252 }
1253
1254 std::vector<int> MEDFileFieldPerMeshPerType::addNewEntryIfNecessaryGauss(const MEDCouplingFieldDouble *field, const DataArrayInt *subCells)
1255 {
1256   const MEDCouplingFieldDiscretization *disc=field->getDiscretization();
1257   const MEDCouplingFieldDiscretizationGauss *disc2=dynamic_cast<const MEDCouplingFieldDiscretizationGauss *>(disc);
1258   if(!disc2)
1259     throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss : invalid call to this method ! Internal Error !");
1260   const DataArrayInt *da=disc2->getArrayOfDiscIds();
1261   if(!da)
1262     throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss : no localization ids per cell array available ! The input Gauss node field is maybe invalid !");
1263   MCAuto<DataArrayInt> da2=da->selectByTupleIdSafe(subCells->getConstPointer(),subCells->getConstPointer()+subCells->getNumberOfTuples());
1264   MCAuto<DataArrayInt> retTmp=da2->getDifferentValues();
1265   if(retTmp->presenceOfValue(-1))
1266     throw INTERP_KERNEL::Exception("addNewEntryIfNecessaryGauss : some cells have no dicretization description !");
1267   std::vector<int> ret(retTmp->begin(),retTmp->end());
1268   return ret;
1269 }
1270
1271 const MEDFileFieldPerMesh *MEDFileFieldPerMeshPerType::getFather() const
1272 {
1273   return _father;
1274 }
1275
1276 void MEDFileFieldPerMeshPerType::getDimension(int& dim) const
1277 {
1278   const INTERP_KERNEL::CellModel& cm(INTERP_KERNEL::CellModel::GetCellModel(_geo_type));
1279   int curDim((int)cm.getDimension());
1280   dim=std::max(dim,curDim);
1281 }
1282
1283 bool MEDFileFieldPerMeshPerType::isUniqueLevel(int& dim) const
1284 {
1285   const INTERP_KERNEL::CellModel& cm(INTERP_KERNEL::CellModel::GetCellModel(_geo_type));
1286   int curDim((int)cm.getDimension());
1287   if(dim!=std::numeric_limits<int>::max())
1288     {
1289       if(dim!=curDim)
1290         return false;
1291     }
1292   else
1293     dim=curDim;
1294   return true;
1295 }
1296
1297 void MEDFileFieldPerMeshPerType::fillTypesOfFieldAvailable(std::set<TypeOfField>& types) const
1298 {
1299   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1300     {
1301       (*it)->fillTypesOfFieldAvailable(types);
1302     }
1303 }
1304
1305 void MEDFileFieldPerMeshPerType::fillFieldSplitedByType(std::vector< std::pair<int,int> >& dads, std::vector<TypeOfField>& types, std::vector<std::string>& pfls, std::vector<std::string>& locs) const
1306 {
1307   int sz=_field_pm_pt_pd.size();
1308   dads.resize(sz); types.resize(sz); pfls.resize(sz); locs.resize(sz);
1309   for(int i=0;i<sz;i++)
1310     {
1311       _field_pm_pt_pd[i]->getCoarseData(types[i],dads[i],pfls[i],locs[i]);
1312     }
1313 }
1314
1315 int MEDFileFieldPerMeshPerType::getIteration() const
1316 {
1317   return _father->getIteration();
1318 }
1319
1320 int MEDFileFieldPerMeshPerType::getOrder() const
1321 {
1322   return _father->getOrder();
1323 }
1324
1325 double MEDFileFieldPerMeshPerType::getTime() const
1326 {
1327   return _father->getTime();
1328 }
1329
1330 std::string MEDFileFieldPerMeshPerType::getMeshName() const
1331 {
1332   return _father->getMeshName();
1333 }
1334
1335 void MEDFileFieldPerMeshPerType::simpleRepr(int bkOffset, std::ostream& oss, int id) const
1336 {
1337   const char startLine[]="  ## ";
1338   std::string startLine2(bkOffset,' ');
1339   std::string startLine3(startLine2);
1340   startLine3+=startLine;
1341   if(_geo_type!=INTERP_KERNEL::NORM_ERROR)
1342     {
1343       const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(_geo_type);
1344       oss << startLine3 << "Entry geometry type #" << id << " is lying on geometry types " << cm.getRepr() << "." << std::endl;
1345     }
1346   else
1347     oss << startLine3 << "Entry geometry type #" << id << " is lying on NODES." << std::endl;
1348   oss << startLine3 << "Entry is defined on " <<  _field_pm_pt_pd.size() << " localizations." << std::endl;
1349   int i=0;
1350   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++,i++)
1351     {
1352       const MEDFileFieldPerMeshPerTypePerDisc *cur=(*it);
1353       if(cur)
1354         cur->simpleRepr(bkOffset,oss,i);
1355       else
1356         {
1357           oss << startLine2 << "    ## " << "Localization #" << i << " is empty !" << std::endl;
1358         }
1359     }
1360 }
1361
1362 void MEDFileFieldPerMeshPerType::getSizes(int& globalSz, int& nbOfEntries) const
1363 {
1364   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1365     {
1366       globalSz+=(*it)->getNumberOfTuples();
1367     }
1368   nbOfEntries+=(int)_field_pm_pt_pd.size();
1369 }
1370
1371 INTERP_KERNEL::NormalizedCellType MEDFileFieldPerMeshPerType::getGeoType() const
1372 {
1373   return _geo_type;
1374 }
1375
1376
1377 int MEDFileFieldPerMeshPerType::getNumberOfComponents() const
1378 {
1379   return _father->getNumberOfComponents();
1380 }
1381
1382 bool MEDFileFieldPerMeshPerType::presenceOfMultiDiscPerGeoType() const
1383 {
1384   std::size_t nb(0);
1385   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1386     {
1387       const MEDFileFieldPerMeshPerTypePerDisc *fmtd(*it);
1388       if(fmtd)
1389         nb++;
1390     }
1391   return nb>1;
1392 }
1393
1394 DataArray *MEDFileFieldPerMeshPerType::getOrCreateAndGetArray()
1395 {
1396   return _father->getOrCreateAndGetArray();
1397 }
1398
1399 const DataArray *MEDFileFieldPerMeshPerType::getOrCreateAndGetArray() const
1400 {
1401   const MEDFileFieldPerMesh *fath=_father;
1402   return fath->getOrCreateAndGetArray();
1403 }
1404
1405 const std::vector<std::string>& MEDFileFieldPerMeshPerType::getInfo() const
1406 {
1407   return _father->getInfo();
1408 }
1409
1410 std::vector<std::string> MEDFileFieldPerMeshPerType::getPflsReallyUsed() const
1411 {
1412   std::vector<std::string> ret;
1413   std::set<std::string> ret2;
1414   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it1=_field_pm_pt_pd.begin();it1!=_field_pm_pt_pd.end();it1++)
1415     {
1416       std::string tmp=(*it1)->getProfile();
1417       if(!tmp.empty())
1418         if(ret2.find(tmp)==ret2.end())
1419           {
1420             ret.push_back(tmp);
1421             ret2.insert(tmp);
1422           }
1423     }
1424   return ret;
1425 }
1426
1427 std::vector<std::string> MEDFileFieldPerMeshPerType::getLocsReallyUsed() const
1428 {
1429   std::vector<std::string> ret;
1430   std::set<std::string> ret2;
1431   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it1=_field_pm_pt_pd.begin();it1!=_field_pm_pt_pd.end();it1++)
1432     {
1433       std::string tmp=(*it1)->getLocalization();
1434       if(!tmp.empty() && tmp!=MED_GAUSS_ELNO)
1435         if(ret2.find(tmp)==ret2.end())
1436           {
1437             ret.push_back(tmp);
1438             ret2.insert(tmp);
1439           }
1440     }
1441   return ret;
1442 }
1443
1444 std::vector<std::string> MEDFileFieldPerMeshPerType::getPflsReallyUsedMulti() const
1445 {
1446   std::vector<std::string> ret;
1447   std::set<std::string> ret2;
1448   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it1=_field_pm_pt_pd.begin();it1!=_field_pm_pt_pd.end();it1++)
1449     {
1450       std::string tmp=(*it1)->getProfile();
1451       if(!tmp.empty())
1452         ret.push_back(tmp);
1453     }
1454   return ret;
1455 }
1456
1457 std::vector<std::string> MEDFileFieldPerMeshPerType::getLocsReallyUsedMulti() const
1458 {
1459   std::vector<std::string> ret;
1460   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it1=_field_pm_pt_pd.begin();it1!=_field_pm_pt_pd.end();it1++)
1461     {
1462       std::string tmp=(*it1)->getLocalization();
1463       if(!tmp.empty() && tmp!=MED_GAUSS_ELNO)
1464         ret.push_back(tmp);
1465     }
1466   return ret;
1467 }
1468
1469 void MEDFileFieldPerMeshPerType::changePflsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
1470 {
1471   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::iterator it1=_field_pm_pt_pd.begin();it1!=_field_pm_pt_pd.end();it1++)
1472     (*it1)->changePflsRefsNamesGen(mapOfModif);
1473 }
1474
1475 void MEDFileFieldPerMeshPerType::changeLocsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
1476 {
1477   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::iterator it1=_field_pm_pt_pd.begin();it1!=_field_pm_pt_pd.end();it1++)
1478     (*it1)->changeLocsRefsNamesGen(mapOfModif);
1479 }
1480
1481 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerType::getLeafGivenLocId(int locId)
1482 {
1483   if(_field_pm_pt_pd.empty())
1484     {
1485       const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(_geo_type);
1486       std::ostringstream oss; oss << "MEDFileFieldPerMeshPerType::getLeafGivenLocId : no localizations for geotype \"" << cm.getRepr() << "\" !";
1487       throw INTERP_KERNEL::Exception(oss.str());
1488     }
1489   if(locId>=0 && locId<(int)_field_pm_pt_pd.size())
1490     return _field_pm_pt_pd[locId];
1491   const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(_geo_type);
1492   std::ostringstream oss2; oss2 << "MEDFileFieldPerMeshPerType::getLeafGivenLocId : no such locId available (" << locId;
1493   oss2 << ") for geometric type \"" << cm.getRepr() << "\" It should be in [0," << _field_pm_pt_pd.size() << ") !";
1494   throw INTERP_KERNEL::Exception(oss2.str().c_str());
1495   return static_cast<MEDFileFieldPerMeshPerTypePerDisc*>(0);
1496 }
1497
1498 const MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMeshPerType::getLeafGivenLocId(int locId) const
1499 {
1500   if(_field_pm_pt_pd.empty())
1501     {
1502       const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(_geo_type);
1503       std::ostringstream oss; oss << "MEDFileFieldPerMeshPerType::getLeafGivenLocId : no localizations for geotype \"" << cm.getRepr() << "\" !";
1504       throw INTERP_KERNEL::Exception(oss.str());
1505     }
1506   if(locId>=0 && locId<(int)_field_pm_pt_pd.size())
1507     return _field_pm_pt_pd[locId];
1508   const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(_geo_type);
1509   std::ostringstream oss2; oss2 << "MEDFileFieldPerMeshPerType::getLeafGivenLocId : no such locId available (" << locId;
1510   oss2 << ") for geometric type \"" << cm.getRepr() << "\" It should be in [0," << _field_pm_pt_pd.size() << ") !";
1511   throw INTERP_KERNEL::Exception(oss2.str().c_str());
1512   return static_cast<const MEDFileFieldPerMeshPerTypePerDisc*>(0);
1513 }
1514
1515 void MEDFileFieldPerMeshPerType::getFieldAtLevel(int meshDim, TypeOfField type, const MEDFileFieldGlobsReal *glob, std::vector< std::pair<int,int> >& dads, std::vector<const DataArrayInt *>& pfls, std::vector<int>& locs, std::vector<INTERP_KERNEL::NormalizedCellType>& geoTypes) const
1516 {
1517   if(_geo_type!=INTERP_KERNEL::NORM_ERROR)
1518     {
1519       const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(_geo_type);
1520       if(meshDim!=(int)cm.getDimension())
1521         return ;
1522     }
1523   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1524     (*it)->getFieldAtLevel(type,glob,dads,pfls,locs,geoTypes);
1525 }
1526
1527 void MEDFileFieldPerMeshPerType::fillValues(int& startEntryId, std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
1528 {
1529   int i=0;
1530   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++,i++)
1531     {
1532       (*it)->fillValues(i,startEntryId,entries);
1533     }
1534 }
1535
1536 void MEDFileFieldPerMeshPerType::setLeaves(const std::vector< MCAuto< MEDFileFieldPerMeshPerTypePerDisc > >& leaves)
1537 {
1538   _field_pm_pt_pd=leaves;
1539   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1540     (*it)->setFather(this);
1541 }
1542
1543 /*!
1544  *  \param [in,out] globalNum a global numbering counter for the renumbering.
1545  *  \param [out] its - list of pair (start,stop) kept
1546  *  \return bool - false if the type of field \a tof is not contained in \a this.
1547  */
1548 bool MEDFileFieldPerMeshPerType::keepOnlySpatialDiscretization(TypeOfField tof, int &globalNum, std::vector< std::pair<int,int> >& its)
1549 {
1550   bool ret(false);
1551   std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> > newPmPtPd;
1552   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1553     if((*it)->getType()==tof)
1554       {
1555         newPmPtPd.push_back(*it);
1556         std::pair<int,int> bgEnd; bgEnd.first=(*it)->getStart(); bgEnd.second=(*it)->getEnd();
1557         (*it)->setNewStart(globalNum);
1558         globalNum=(*it)->getEnd();
1559         its.push_back(bgEnd);
1560         ret=true;
1561       }
1562   if(ret)
1563     _field_pm_pt_pd=newPmPtPd;
1564   return ret;
1565 }
1566
1567 /*!
1568  *  \param [in,out] globalNum a global numbering counter for the renumbering.
1569  *  \param [out] its - list of pair (start,stop) kept
1570  *  \return bool - false if the type of field \a tof is not contained in \a this.
1571  */
1572 bool MEDFileFieldPerMeshPerType::keepOnlyGaussDiscretization(std::size_t idOfDisc, int &globalNum, std::vector< std::pair<int,int> >& its)
1573 {
1574   if(_field_pm_pt_pd.size()<=idOfDisc)
1575     return false;
1576   MCAuto<MEDFileFieldPerMeshPerTypePerDisc> elt(_field_pm_pt_pd[idOfDisc]);
1577   std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> > newPmPtPd(1,elt);
1578   std::pair<int,int> bgEnd; bgEnd.first=_field_pm_pt_pd[idOfDisc]->getStart(); bgEnd.second=_field_pm_pt_pd[idOfDisc]->getEnd();
1579   elt->setNewStart(globalNum);
1580   globalNum=elt->getEnd();
1581   its.push_back(bgEnd);
1582   _field_pm_pt_pd=newPmPtPd;
1583   return true;
1584 }
1585
1586 MEDFileFieldPerMeshPerType::MEDFileFieldPerMeshPerType(med_idt fid, MEDFileFieldPerMesh *fath, TypeOfField type, INTERP_KERNEL::NormalizedCellType geoType, const MEDFileFieldNameScope& nasc, const PartDefinition *pd):_father(fath),_geo_type(geoType)
1587 {
1588   INTERP_KERNEL::AutoPtr<char> pflName=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
1589   INTERP_KERNEL::AutoPtr<char> locName=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
1590   med_geometry_type mgeoti;
1591   med_entity_type menti(ConvertIntoMEDFileType(type,geoType,mgeoti));
1592   int nbProfiles(MEDfieldnProfile(fid,nasc.getName().c_str(),getIteration(),getOrder(),menti,mgeoti,pflName,locName));
1593   _field_pm_pt_pd.resize(nbProfiles);
1594   for(int i=0;i<nbProfiles;i++)
1595     {
1596       _field_pm_pt_pd[i]=MEDFileFieldPerMeshPerTypePerDisc::NewOnRead(this,type,i,pd);
1597     }
1598   if(type==ON_CELLS)
1599     {
1600       int nbProfiles2(MEDfieldnProfile(fid,nasc.getName().c_str(),getIteration(),getOrder(),MED_NODE_ELEMENT,mgeoti,pflName,locName));
1601       for(int i=0;i<nbProfiles2;i++)
1602         _field_pm_pt_pd.push_back(MEDFileFieldPerMeshPerTypePerDisc::NewOnRead(this,ON_GAUSS_NE,i,pd));
1603     }
1604 }
1605
1606 void MEDFileFieldPerMeshPerType::loadOnlyStructureOfDataRecursively(med_idt fid, int &start, const MEDFileFieldNameScope& nasc)
1607 {
1608   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1609     (*it)->loadOnlyStructureOfDataRecursively(fid,start,nasc);
1610 }
1611
1612 void MEDFileFieldPerMeshPerType::loadBigArraysRecursively(med_idt fid, const MEDFileFieldNameScope& nasc)
1613 {
1614   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1615     (*it)->loadBigArray(fid,nasc);
1616 }
1617
1618 void MEDFileFieldPerMeshPerType::writeLL(med_idt fid, const MEDFileFieldNameScope& nasc) const
1619 {
1620   for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it=_field_pm_pt_pd.begin();it!=_field_pm_pt_pd.end();it++)
1621     {
1622       (*it)->copyOptionsFrom(*this);
1623       (*it)->writeLL(fid,nasc);
1624     }
1625 }
1626
1627 med_entity_type MEDFileFieldPerMeshPerType::ConvertIntoMEDFileType(TypeOfField ikType, INTERP_KERNEL::NormalizedCellType ikGeoType, med_geometry_type& medfGeoType)
1628 {
1629   switch(ikType)
1630   {
1631     case ON_CELLS:
1632       medfGeoType=typmai3[(int)ikGeoType];
1633       return MED_CELL;
1634     case ON_NODES:
1635       medfGeoType=MED_NONE;
1636       return MED_NODE;
1637     case ON_GAUSS_NE:
1638       medfGeoType=typmai3[(int)ikGeoType];
1639       return MED_NODE_ELEMENT;
1640     case ON_GAUSS_PT:
1641       medfGeoType=typmai3[(int)ikGeoType];
1642       return MED_CELL;
1643     default:
1644       throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerType::ConvertIntoMEDFileType : unexpected entity type ! internal error");
1645   }
1646   return MED_UNDEF_ENTITY_TYPE;
1647 }
1648
1649 MEDFileFieldPerMesh *MEDFileFieldPerMesh::NewOnRead(med_idt fid, MEDFileAnyTypeField1TSWithoutSDA *fath, int meshCsit, int meshIteration, int meshOrder, const MEDFileFieldNameScope& nasc, const MEDFileMesh *mm, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
1650 {
1651   return new MEDFileFieldPerMesh(fid,fath,meshCsit,meshIteration,meshOrder,nasc,mm,entities);
1652 }
1653
1654 MEDFileFieldPerMesh *MEDFileFieldPerMesh::New(MEDFileAnyTypeField1TSWithoutSDA *fath, const MEDCouplingMesh *mesh)
1655 {
1656   return new MEDFileFieldPerMesh(fath,mesh);
1657 }
1658
1659 std::size_t MEDFileFieldPerMesh::getHeapMemorySizeWithoutChildren() const
1660 {
1661   return _mesh_name.capacity()+_field_pm_pt.capacity()*sizeof(MCAuto< MEDFileFieldPerMeshPerType >);
1662 }
1663
1664 std::vector<const BigMemoryObject *> MEDFileFieldPerMesh::getDirectChildrenWithNull() const
1665 {
1666   std::vector<const BigMemoryObject *> ret;
1667   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1668     ret.push_back((const MEDFileFieldPerMeshPerType *)*it);
1669   return ret;
1670 }
1671
1672 MEDFileFieldPerMesh *MEDFileFieldPerMesh::deepCopy(MEDFileAnyTypeField1TSWithoutSDA *father) const
1673 {
1674   MCAuto< MEDFileFieldPerMesh > ret=new MEDFileFieldPerMesh(*this);
1675   ret->_father=father;
1676   std::size_t i=0;
1677   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++,i++)
1678     {
1679       if((const MEDFileFieldPerMeshPerType *)*it)
1680         ret->_field_pm_pt[i]=(*it)->deepCopy((MEDFileFieldPerMesh *)(ret));
1681     }
1682   return ret.retn();
1683 }
1684
1685 void MEDFileFieldPerMesh::simpleRepr(int bkOffset, std::ostream& oss, int id) const
1686 {
1687   std::string startLine(bkOffset,' ');
1688   oss << startLine << "## Field part (" << id << ") lying on mesh \"" << _mesh_name << "\", Mesh iteration=" << _mesh_iteration << ". Mesh order=" << _mesh_order << "." << std::endl;
1689   oss << startLine << "## Field is defined on " << _field_pm_pt.size() << " types." << std::endl;
1690   int i=0;
1691   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++,i++)
1692     {
1693       const MEDFileFieldPerMeshPerType *cur=*it;
1694       if(cur)
1695         cur->simpleRepr(bkOffset,oss,i);
1696       else
1697         {
1698           oss << startLine << "  ## Entry geometry type #" << i << " is empty !" << std::endl;
1699         }
1700     }
1701 }
1702
1703 void MEDFileFieldPerMesh::copyTinyInfoFrom(const MEDCouplingMesh *mesh)
1704 {
1705   _mesh_name=mesh->getName();
1706   mesh->getTime(_mesh_iteration,_mesh_order);
1707 }
1708
1709 void MEDFileFieldPerMesh::assignFieldNoProfileNoRenum(int& start, const std::vector<int>& code, const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
1710 {
1711   int nbOfTypes=code.size()/3;
1712   int offset=0;
1713   for(int i=0;i<nbOfTypes;i++)
1714     {
1715       INTERP_KERNEL::NormalizedCellType type=(INTERP_KERNEL::NormalizedCellType)code[3*i];
1716       int nbOfCells=code[3*i+1];
1717       int pos=addNewEntryIfNecessary(type);
1718       _field_pm_pt[pos]->assignFieldNoProfile(start,offset,nbOfCells,field,arr,glob,nasc);
1719       offset+=nbOfCells;
1720     }
1721 }
1722
1723 /*!
1724  * This method is the most general one. No optimization is done here.
1725  * \param [in] multiTypePfl is the end user profile specified in high level API
1726  * \param [in] code is the code of \a mesh[multiTypePfl] mesh. It is of size of number of different geometric types into \a mesh[multiTypePfl].
1727  * \param [in] code2 is the code of the \b WHOLE mesh on the same level. So all types in \a code are in \a code2.
1728  * \param [in] idsInPflPerType is the selection into the \a multiTypePfl whole profile that corresponds to the given geometric type. This vector is always 3 times smaller than \a code.
1729  * \param [in] idsPerType is a vector containing the profiles needed to be created for MED file format. \b WARNING these processed MED file profiles can be subdivided again in case of Gauss points.
1730  * \param [in] mesh is the mesh coming from the MEDFileMesh instance in correspondance with the MEDFileField. The mesh inside the \a field is simply ignored.
1731  */
1732 void MEDFileFieldPerMesh::assignFieldProfile(int& start, const DataArrayInt *multiTypePfl, const std::vector<int>& code, const std::vector<int>& code2, const std::vector<DataArrayInt *>& idsInPflPerType, const std::vector<DataArrayInt *>& idsPerType, const MEDCouplingFieldDouble *field, const DataArray *arr, const MEDCouplingMesh *mesh, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
1733 {
1734   int nbOfTypes(code.size()/3);
1735   for(int i=0;i<nbOfTypes;i++)
1736     {
1737       INTERP_KERNEL::NormalizedCellType type=(INTERP_KERNEL::NormalizedCellType)code[3*i];
1738       int pos=addNewEntryIfNecessary(type);
1739       DataArrayInt *pfl=0;
1740       if(code[3*i+2]!=-1)
1741         pfl=idsPerType[code[3*i+2]];
1742       int nbOfTupes2=code2.size()/3;
1743       int found=0;
1744       for(;found<nbOfTupes2;found++)
1745         if(code[3*i]==code2[3*found])
1746           break;
1747       if(found==nbOfTupes2)
1748         throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::assignFieldProfile : internal problem ! Should never happen ! Please report bug to anthony.geay@cea.fr !");
1749       _field_pm_pt[pos]->assignFieldProfile(nbOfTypes==1,start,multiTypePfl,idsInPflPerType[i],pfl,code2[3*found+1],field,arr,mesh,glob,nasc);
1750     }
1751 }
1752
1753 void MEDFileFieldPerMesh::assignNodeFieldNoProfile(int& start, const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob)
1754 {
1755   int pos=addNewEntryIfNecessary(INTERP_KERNEL::NORM_ERROR);
1756   _field_pm_pt[pos]->assignNodeFieldNoProfile(start,field,arr,glob);
1757 }
1758
1759 void MEDFileFieldPerMesh::assignNodeFieldProfile(int& start, const DataArrayInt *pfl, const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
1760 {
1761   int pos=addNewEntryIfNecessary(INTERP_KERNEL::NORM_ERROR);
1762   _field_pm_pt[pos]->assignNodeFieldProfile(start,pfl,field,arr,glob,nasc);
1763 }
1764
1765 void MEDFileFieldPerMesh::loadOnlyStructureOfDataRecursively(med_idt fid, int& start, const MEDFileFieldNameScope& nasc)
1766 {
1767   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1768     (*it)->loadOnlyStructureOfDataRecursively(fid,start,nasc);
1769 }
1770
1771 void MEDFileFieldPerMesh::loadBigArraysRecursively(med_idt fid, const MEDFileFieldNameScope& nasc)
1772 {
1773   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1774     (*it)->loadBigArraysRecursively(fid,nasc);
1775 }
1776
1777 void MEDFileFieldPerMesh::writeLL(med_idt fid, const MEDFileFieldNameScope& nasc) const
1778 {
1779   int nbOfTypes=_field_pm_pt.size();
1780   for(int i=0;i<nbOfTypes;i++)
1781     {
1782       _field_pm_pt[i]->copyOptionsFrom(*this);
1783       _field_pm_pt[i]->writeLL(fid,nasc);
1784     }
1785 }
1786
1787 void MEDFileFieldPerMesh::getDimension(int& dim) const
1788 {
1789   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1790     (*it)->getDimension(dim);
1791 }
1792
1793 bool MEDFileFieldPerMesh::isUniqueLevel(int& dim) const
1794 {
1795   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1796     if(!(*it)->isUniqueLevel(dim))
1797       return false;
1798   return true;
1799 }
1800
1801 void MEDFileFieldPerMesh::fillTypesOfFieldAvailable(std::set<TypeOfField>& types) const
1802 {
1803   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1804     (*it)->fillTypesOfFieldAvailable(types);
1805 }
1806
1807 std::vector< std::vector< std::pair<int,int> > > MEDFileFieldPerMesh::getFieldSplitedByType(std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> > & locs) const
1808 {
1809   int sz=_field_pm_pt.size();
1810   std::vector< std::vector<std::pair<int,int> > > ret(sz);
1811   types.resize(sz); typesF.resize(sz); pfls.resize(sz); locs.resize(sz);
1812   for(int i=0;i<sz;i++)
1813     {
1814       types[i]=_field_pm_pt[i]->getGeoType();
1815       _field_pm_pt[i]->fillFieldSplitedByType(ret[i],typesF[i],pfls[i],locs[i]);
1816     }
1817   return ret;
1818 }
1819
1820 double MEDFileFieldPerMesh::getTime() const
1821 {
1822   int tmp1,tmp2;
1823   return _father->getTime(tmp1,tmp2);
1824 }
1825
1826 int MEDFileFieldPerMesh::getIteration() const
1827 {
1828   return _father->getIteration();
1829 }
1830
1831 int MEDFileFieldPerMesh::getOrder() const
1832 {
1833   return _father->getOrder();
1834 }
1835
1836 int MEDFileFieldPerMesh::getNumberOfComponents() const
1837 {
1838   return _father->getNumberOfComponents();
1839 }
1840
1841 bool MEDFileFieldPerMesh::presenceOfMultiDiscPerGeoType() const
1842 {
1843   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1844     {
1845       const MEDFileFieldPerMeshPerType *fpmt(*it);
1846       if(!fpmt)
1847         continue;
1848       if(fpmt->presenceOfMultiDiscPerGeoType())
1849         return true;
1850     }
1851   return false;
1852 }
1853
1854 DataArray *MEDFileFieldPerMesh::getOrCreateAndGetArray()
1855 {
1856   if(!_father)
1857     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::getOrCreateAndGetArray : no father ! internal error !");
1858   return _father->getOrCreateAndGetArray();
1859 }
1860
1861 const DataArray *MEDFileFieldPerMesh::getOrCreateAndGetArray() const
1862 {
1863   if(!_father)
1864     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::getOrCreateAndGetArray : no father ! internal error !");
1865   return _father->getOrCreateAndGetArray();
1866 }
1867
1868 const std::vector<std::string>& MEDFileFieldPerMesh::getInfo() const
1869 {
1870   return _father->getInfo();
1871 }
1872
1873 /*!
1874  * type,geoTypes,dads,pfls,locs are input parameters. They should have the same size.
1875  * Before the call of this method 'geoTypes','dads','pfls','locs' must be reorganized so that types in geoTypes are contiguous and ordered following typmai2 array.
1876  * It returns 2 output vectors :
1877  * - 'code' of size 3*sz where sz is the number of different values into 'geoTypes'
1878  * - 'notNullPfls' contains sz2 values that are extracted from 'pfls' in which null profiles have been removed.
1879  * 'code' and 'notNullPfls' are in MEDCouplingUMesh::checkTypeConsistencyAndContig format.
1880  */
1881 void MEDFileFieldPerMesh::SortArraysPerType(const MEDFileFieldGlobsReal *glob, TypeOfField type, const std::vector<INTERP_KERNEL::NormalizedCellType>& geoTypes, const std::vector< std::pair<int,int> >& dads, const std::vector<const DataArrayInt *>& pfls, const std::vector<int>& locs, std::vector<int>& code, std::vector<DataArrayInt *>& notNullPfls)
1882 {
1883   int notNullPflsSz=0;
1884   int nbOfArrs=geoTypes.size();
1885   for(int i=0;i<nbOfArrs;i++)
1886     if(pfls[i])
1887       notNullPflsSz++;
1888   std::set<INTERP_KERNEL::NormalizedCellType> geoTypes3(geoTypes.begin(),geoTypes.end());
1889   int nbOfDiffGeoTypes=geoTypes3.size();
1890   code.resize(3*nbOfDiffGeoTypes);
1891   notNullPfls.resize(notNullPflsSz);
1892   notNullPflsSz=0;
1893   int j=0;
1894   for(int i=0;i<nbOfDiffGeoTypes;i++)
1895     {
1896       int startZone=j;
1897       INTERP_KERNEL::NormalizedCellType refType=geoTypes[j];
1898       std::vector<const DataArrayInt *> notNullTmp;
1899       if(pfls[j])
1900         notNullTmp.push_back(pfls[j]);
1901       j++;
1902       for(;j<nbOfArrs;j++)
1903         if(geoTypes[j]==refType)
1904           {
1905             if(pfls[j])
1906               notNullTmp.push_back(pfls[j]);
1907           }
1908         else
1909           break;
1910       std::vector< std::pair<int,int> > tmpDads(dads.begin()+startZone,dads.begin()+j);
1911       std::vector<const DataArrayInt *> tmpPfls(pfls.begin()+startZone,pfls.begin()+j);
1912       std::vector<int> tmpLocs(locs.begin()+startZone,locs.begin()+j);
1913       code[3*i]=(int)refType;
1914       std::vector<INTERP_KERNEL::NormalizedCellType> refType2(1,refType);
1915       code[3*i+1]=ComputeNbOfElems(glob,type,refType2,tmpDads,tmpLocs);
1916       if(notNullTmp.empty())
1917         code[3*i+2]=-1;
1918       else
1919         {
1920           notNullPfls[notNullPflsSz]=DataArrayInt::Aggregate(notNullTmp);
1921           code[3*i+2]=notNullPflsSz++;
1922         }
1923     }
1924 }
1925
1926 /*!
1927  * 'dads' 'geoTypes' and 'locs' are input parameters that should have same size sz. sz should be >=1.
1928  */
1929 int MEDFileFieldPerMesh::ComputeNbOfElems(const MEDFileFieldGlobsReal *glob, TypeOfField type, const std::vector<INTERP_KERNEL::NormalizedCellType>& geoTypes, const std::vector< std::pair<int,int> >& dads, const std::vector<int>& locs)
1930 {
1931   int sz=dads.size();
1932   int ret=0;
1933   for(int i=0;i<sz;i++)
1934     {
1935       if(locs[i]==-1)
1936         {
1937           if(type!=ON_GAUSS_NE)
1938             ret+=dads[i].second-dads[i].first;
1939           else
1940             {
1941               const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(geoTypes[i]);
1942               ret+=(dads[i].second-dads[i].first)/cm.getNumberOfNodes();
1943             }
1944         }
1945       else
1946         {
1947           int nbOfGaussPtPerCell=glob->getNbOfGaussPtPerCell(locs[i]);
1948           ret+=(dads[i].second-dads[i].first)/nbOfGaussPtPerCell;
1949         }
1950     }
1951   return ret;
1952 }
1953
1954 std::vector<std::string> MEDFileFieldPerMesh::getPflsReallyUsed() const
1955 {
1956   std::vector<std::string> ret;
1957   std::set<std::string> ret2;
1958   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1959     {
1960       std::vector<std::string> tmp=(*it)->getPflsReallyUsed();
1961       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
1962         if(ret2.find(*it2)==ret2.end())
1963           {
1964             ret.push_back(*it2);
1965             ret2.insert(*it2);
1966           }
1967     }
1968   return ret;
1969 }
1970
1971 std::vector<std::string> MEDFileFieldPerMesh::getPflsReallyUsedMulti() const
1972 {
1973   std::vector<std::string> ret;
1974   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1975     {
1976       std::vector<std::string> tmp=(*it)->getPflsReallyUsedMulti();
1977       ret.insert(ret.end(),tmp.begin(),tmp.end());
1978     }
1979   return ret;
1980 }
1981
1982 std::vector<std::string> MEDFileFieldPerMesh::getLocsReallyUsed() const
1983 {
1984   std::vector<std::string> ret;
1985   std::set<std::string> ret2;
1986   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
1987     {
1988       std::vector<std::string> tmp=(*it)->getLocsReallyUsed();
1989       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
1990         if(ret2.find(*it2)==ret2.end())
1991           {
1992             ret.push_back(*it2);
1993             ret2.insert(*it2);
1994           }
1995     }
1996   return ret;
1997 }
1998
1999 std::vector<std::string> MEDFileFieldPerMesh::getLocsReallyUsedMulti() const
2000 {
2001   std::vector<std::string> ret;
2002   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2003     {
2004       std::vector<std::string> tmp=(*it)->getLocsReallyUsedMulti();
2005       ret.insert(ret.end(),tmp.begin(),tmp.end());
2006     }
2007   return ret;
2008 }
2009
2010 bool MEDFileFieldPerMesh::changeMeshNames(const std::vector< std::pair<std::string,std::string> >& modifTab)
2011 {
2012   for(std::vector< std::pair<std::string,std::string> >::const_iterator it=modifTab.begin();it!=modifTab.end();it++)
2013     {
2014       if((*it).first==_mesh_name)
2015         {
2016           _mesh_name=(*it).second;
2017           return true;
2018         }
2019     }
2020   return false;
2021 }
2022
2023 bool MEDFileFieldPerMesh::renumberEntitiesLyingOnMesh(const std::string& meshName, const std::vector<int>& oldCode, const std::vector<int>& newCode, const DataArrayInt *renumO2N,
2024                                                       MEDFileFieldGlobsReal& glob)
2025 {
2026   if(_mesh_name!=meshName)
2027     return false;
2028   std::set<INTERP_KERNEL::NormalizedCellType> typesToKeep;
2029   for(std::size_t i=0;i<oldCode.size()/3;i++) typesToKeep.insert((INTERP_KERNEL::NormalizedCellType)oldCode[3*i]);
2030   std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > > entries;
2031   std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> entriesKept;
2032   std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> otherEntries;
2033   getUndergroundDataArrayExt(entries);
2034   DataArray *arr0(getOrCreateAndGetArray());//tony
2035   if(!arr0)
2036     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::renumberEntitiesLyingOnMesh : DataArray storing values of field is null !");
2037   DataArrayDouble *arr(dynamic_cast<DataArrayDouble *>(arr0));//tony
2038   if(!arr0)
2039     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::renumberEntitiesLyingOnMesh : DataArray storing values is double ! Not managed for the moment !");
2040   int sz=0;
2041   if(!arr)
2042     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::renumberEntitiesLyingOnMesh : DataArrayDouble storing values of field is null !");
2043   for(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >::const_iterator it=entries.begin();it!=entries.end();it++)
2044     {
2045       if(typesToKeep.find((*it).first.first)!=typesToKeep.end())
2046         {
2047           entriesKept.push_back(getLeafGivenTypeAndLocId((*it).first.first,(*it).first.second));
2048           sz+=(*it).second.second-(*it).second.first;
2049         }
2050       else
2051         otherEntries.push_back(getLeafGivenTypeAndLocId((*it).first.first,(*it).first.second));
2052     }
2053   MCAuto<DataArrayInt> renumDefrag=DataArrayInt::New(); renumDefrag->alloc(arr->getNumberOfTuples(),1); renumDefrag->fillWithZero();
2054   ////////////////////
2055   MCAuto<DataArrayInt> explicitIdsOldInMesh=DataArrayInt::New(); explicitIdsOldInMesh->alloc(sz,1);//sz is a majorant of the real size. A realloc will be done after
2056   int *workI2=explicitIdsOldInMesh->getPointer();
2057   int sz1=0,sz2=0,sid=1;
2058   std::vector< std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> > entriesKeptML=MEDFileFieldPerMeshPerTypePerDisc::SplitPerDiscretization(entriesKept);
2059   // std::vector<int> tupleIdOfStartOfNewChuncksV(entriesKeptML.size());
2060   for(std::vector< std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> >::const_iterator itL1=entriesKeptML.begin();itL1!=entriesKeptML.end();itL1++,sid++)
2061     {
2062       //  tupleIdOfStartOfNewChuncksV[sid-1]=sz2;
2063       MCAuto<DataArrayInt> explicitIdsOldInArr=DataArrayInt::New(); explicitIdsOldInArr->alloc(sz,1);
2064       int *workI=explicitIdsOldInArr->getPointer();
2065       for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator itL2=(*itL1).begin();itL2!=(*itL1).end();itL2++)
2066         {
2067           int delta1=(*itL2)->fillTupleIds(workI); workI+=delta1; sz1+=delta1;
2068           (*itL2)->setLocId(sz2);
2069           (*itL2)->_tmp_work1=(*itL2)->getStart();
2070           int delta2=(*itL2)->fillEltIdsFromCode(sz2,oldCode,glob,workI2); workI2+=delta2; sz2+=delta2;
2071         }
2072       renumDefrag->setPartOfValuesSimple3(sid,explicitIdsOldInArr->begin(),explicitIdsOldInArr->end(),0,1,1);
2073     }
2074   explicitIdsOldInMesh->reAlloc(sz2);
2075   int tupleIdOfStartOfNewChuncks=arr->getNumberOfTuples()-sz2;
2076   ////////////////////
2077   MCAuto<DataArrayInt> permArrDefrag=renumDefrag->buildPermArrPerLevel(); renumDefrag=0;
2078   // perform redispatching of non concerned MEDFileFieldPerMeshPerTypePerDisc
2079   std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> > otherEntriesNew;
2080   for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator it=otherEntries.begin();it!=otherEntries.end();it++)
2081     {
2082       otherEntriesNew.push_back(MEDFileFieldPerMeshPerTypePerDisc::New(*(*it)));
2083       otherEntriesNew.back()->setNewStart(permArrDefrag->getIJ((*it)->getStart(),0));
2084       otherEntriesNew.back()->setLocId((*it)->getGeoType());
2085     }
2086   std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> > entriesKeptNew;
2087   std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> entriesKeptNew2;
2088   for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator it=entriesKept.begin();it!=entriesKept.end();it++)
2089     {
2090       MCAuto<MEDFileFieldPerMeshPerTypePerDisc> elt=MEDFileFieldPerMeshPerTypePerDisc::New(*(*it));
2091       int newStart=elt->getLocId();
2092       elt->setLocId((*it)->getGeoType());
2093       elt->setNewStart(newStart);
2094       elt->_tmp_work1=permArrDefrag->getIJ(elt->_tmp_work1,0);
2095       entriesKeptNew.push_back(elt);
2096       entriesKeptNew2.push_back(elt);
2097     }
2098   MCAuto<DataArrayDouble> arr2=arr->renumber(permArrDefrag->getConstPointer());
2099   // perform redispatching of concerned MEDFileFieldPerMeshPerTypePerDisc -> values are in arr2
2100   MCAuto<DataArrayInt> explicitIdsNewInMesh=renumO2N->selectByTupleId(explicitIdsOldInMesh->begin(),explicitIdsOldInMesh->end());
2101   std::vector< std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> > entriesKeptPerDisc=MEDFileFieldPerMeshPerTypePerDisc::SplitPerDiscretization(entriesKeptNew2);
2102   bool ret=false;
2103   for(std::vector< std::vector< const MEDFileFieldPerMeshPerTypePerDisc *> >::const_iterator it4=entriesKeptPerDisc.begin();it4!=entriesKeptPerDisc.end();it4++)
2104     {
2105       sid=0;
2106       /*for(std::vector< const MEDFileFieldPerMeshPerTypePerDisc *>::const_iterator itL2=(*it4).begin();itL2!=(*it4).end();itL2++)
2107         {
2108           MEDFileFieldPerMeshPerTypePerDisc *curNC=const_cast<MEDFileFieldPerMeshPerTypePerDisc *>(*itL2);
2109           curNC->setNewStart(permArrDefrag->getIJ((*itL2)->getStart(),0)-tupleIdOfStartOfNewChuncks+tupleIdOfStartOfNewChuncksV[sid]);
2110           }*/
2111       ret=MEDFileFieldPerMeshPerTypePerDisc::RenumberChunks(tupleIdOfStartOfNewChuncks,*it4,explicitIdsNewInMesh,newCode,
2112                                                             glob,arr2,otherEntriesNew) || ret;
2113     }
2114   if(!ret)
2115     return false;
2116   // Assign new dispatching
2117   assignNewLeaves(otherEntriesNew);
2118   arr->deepCopyFrom(*arr2);
2119   return true;
2120 }
2121
2122 /*!
2123  * \param [in,out] globalNum a global numbering counter for the renumbering.
2124  * \param [out] its - list of pair (start,stop) kept
2125  */
2126 void MEDFileFieldPerMesh::keepOnlySpatialDiscretization(TypeOfField tof, int &globalNum, std::vector< std::pair<int,int> >& its)
2127 {
2128   std::vector< MCAuto< MEDFileFieldPerMeshPerType > > ret;
2129   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2130     {
2131       std::vector< std::pair<int,int> > its2;
2132       if((*it)->keepOnlySpatialDiscretization(tof,globalNum,its2))
2133         {
2134           ret.push_back(*it);
2135           its.insert(its.end(),its2.begin(),its2.end());
2136         }
2137     }
2138   _field_pm_pt=ret;
2139 }
2140
2141 /*!
2142  * \param [in,out] globalNum a global numbering counter for the renumbering.
2143  * \param [out] its - list of pair (start,stop) kept
2144  */
2145 void MEDFileFieldPerMesh::keepOnlyGaussDiscretization(std::size_t idOfDisc, int &globalNum, std::vector< std::pair<int,int> >& its)
2146 {
2147   std::vector< MCAuto< MEDFileFieldPerMeshPerType > > ret;
2148   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2149     {
2150       std::vector< std::pair<int,int> > its2;
2151       if((*it)->keepOnlyGaussDiscretization(idOfDisc,globalNum,its2))
2152         {
2153           ret.push_back(*it);
2154           its.insert(its.end(),its2.begin(),its2.end());
2155         }
2156     }
2157   _field_pm_pt=ret;
2158 }
2159
2160 void MEDFileFieldPerMesh::assignNewLeaves(const std::vector< MCAuto< MEDFileFieldPerMeshPerTypePerDisc > >& leaves)
2161 {
2162   std::map<INTERP_KERNEL::NormalizedCellType,std::vector< MCAuto< MEDFileFieldPerMeshPerTypePerDisc> > > types;
2163   for( std::vector< MCAuto< MEDFileFieldPerMeshPerTypePerDisc > >::const_iterator it=leaves.begin();it!=leaves.end();it++)
2164     types[(INTERP_KERNEL::NormalizedCellType)(*it)->getLocId()].push_back(*it);
2165   //
2166   std::vector< MCAuto< MEDFileFieldPerMeshPerType > > fieldPmPt(types.size());
2167   std::map<INTERP_KERNEL::NormalizedCellType,std::vector< MCAuto< MEDFileFieldPerMeshPerTypePerDisc> > >::const_iterator it1=types.begin();
2168   std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it2=fieldPmPt.begin();
2169   for(;it1!=types.end();it1++,it2++)
2170     {
2171       MCAuto<MEDFileFieldPerMeshPerType> elt=MEDFileFieldPerMeshPerType::New(this,(INTERP_KERNEL::NormalizedCellType)((*it1).second[0]->getLocId()));
2172       elt->setLeaves((*it1).second);
2173       *it2=elt;
2174     }
2175   _field_pm_pt=fieldPmPt;
2176 }
2177
2178 void MEDFileFieldPerMesh::changePflsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
2179 {
2180   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2181     (*it)->changePflsRefsNamesGen(mapOfModif);
2182 }
2183
2184 void MEDFileFieldPerMesh::changeLocsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
2185 {
2186   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2187     (*it)->changeLocsRefsNamesGen(mapOfModif);
2188 }
2189
2190 /*!
2191  * \param [in] mesh is the whole mesh
2192  */
2193 MEDCouplingFieldDouble *MEDFileFieldPerMesh::getFieldOnMeshAtLevel(TypeOfField type, const MEDFileFieldGlobsReal *glob, const MEDCouplingMesh *mesh, bool& isPfl, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
2194 {
2195   if(_field_pm_pt.empty())
2196     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::getFieldOnMeshAtLevel : no types field set !");
2197   //
2198   std::vector< std::pair<int,int> > dads;
2199   std::vector<const DataArrayInt *> pfls;
2200   std::vector<DataArrayInt *> notNullPflsPerGeoType;
2201   std::vector<int> locs,code;
2202   std::vector<INTERP_KERNEL::NormalizedCellType> geoTypes;
2203   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2204     (*it)->getFieldAtLevel(mesh->getMeshDimension(),type,glob,dads,pfls,locs,geoTypes);
2205   // Sort by types
2206   SortArraysPerType(glob,type,geoTypes,dads,pfls,locs,code,notNullPflsPerGeoType);
2207   if(code.empty())
2208     {
2209       std::ostringstream oss; oss << "MEDFileFieldPerMesh::getFieldOnMeshAtLevel : " << "The field \"" << nasc.getName() << "\" exists but not with such spatial discretization or such dimension specified !";
2210       throw INTERP_KERNEL::Exception(oss.str());
2211     }
2212   //
2213   std::vector< MCAuto<DataArrayInt> > notNullPflsPerGeoType2(notNullPflsPerGeoType.begin(),notNullPflsPerGeoType.end());
2214   std::vector< const DataArrayInt *> notNullPflsPerGeoType3(notNullPflsPerGeoType.begin(),notNullPflsPerGeoType.end());
2215   if(type!=ON_NODES)
2216     {
2217       DataArrayInt *arr=mesh->checkTypeConsistencyAndContig(code,notNullPflsPerGeoType3);
2218       if(!arr)
2219         return finishField(type,glob,dads,locs,mesh,isPfl,arrOut,nasc);
2220       else
2221         {
2222           MCAuto<DataArrayInt> arr2(arr);
2223           return finishField2(type,glob,dads,locs,geoTypes,mesh,arr,isPfl,arrOut,nasc);
2224         }
2225     }
2226   else
2227     {
2228       if(code.size()!=3)
2229         throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::getFieldOnMeshAtLevel : internal error #1 !");
2230       int nb=code[1];
2231       if(code[2]==-1)
2232         {
2233           if(nb!=mesh->getNumberOfNodes())
2234             {
2235               std::ostringstream oss; oss << "MEDFileFieldPerMesh::getFieldOnMeshAtLevel : There is a problem there is " << nb << " nodes in field whereas there is " << mesh->getNumberOfNodes();
2236               oss << " nodes in mesh !";
2237               throw INTERP_KERNEL::Exception(oss.str());
2238             }
2239           return finishField(type,glob,dads,locs,mesh,isPfl,arrOut,nasc);
2240         }
2241       else
2242         return finishFieldNode2(glob,dads,locs,mesh,notNullPflsPerGeoType3[0],isPfl,arrOut,nasc);
2243     }
2244 }
2245
2246 DataArray *MEDFileFieldPerMesh::getFieldOnMeshAtLevelWithPfl(TypeOfField type, const MEDCouplingMesh *mesh, DataArrayInt *&pfl, const MEDFileFieldGlobsReal *glob, const MEDFileFieldNameScope& nasc) const
2247 {
2248   if(_field_pm_pt.empty())
2249     throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::getFieldOnMeshAtLevel : no types field set !");
2250   //
2251   std::vector<std::pair<int,int> > dads;
2252   std::vector<const DataArrayInt *> pfls;
2253   std::vector<DataArrayInt *> notNullPflsPerGeoType;
2254   std::vector<int> locs,code;
2255   std::vector<INTERP_KERNEL::NormalizedCellType> geoTypes;
2256   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2257     (*it)->getFieldAtLevel(mesh->getMeshDimension(),type,glob,dads,pfls,locs,geoTypes);
2258   // Sort by types
2259   SortArraysPerType(glob,type,geoTypes,dads,pfls,locs,code,notNullPflsPerGeoType);
2260   if(code.empty())
2261     {
2262       std::ostringstream oss; oss << "MEDFileFieldPerMesh::getFieldOnMeshAtLevelWithPfl : " << "The field \"" << nasc.getName() << "\" exists but not with such spatial discretization or such dimension specified !";
2263       throw INTERP_KERNEL::Exception(oss.str());
2264     }
2265   std::vector< MCAuto<DataArrayInt> > notNullPflsPerGeoType2(notNullPflsPerGeoType.begin(),notNullPflsPerGeoType.end());
2266   std::vector< const DataArrayInt *> notNullPflsPerGeoType3(notNullPflsPerGeoType.begin(),notNullPflsPerGeoType.end());
2267   if(type!=ON_NODES)
2268     {
2269       MCAuto<DataArrayInt> arr=mesh->checkTypeConsistencyAndContig(code,notNullPflsPerGeoType3);
2270       return finishField4(dads,arr,mesh->getNumberOfCells(),pfl);
2271     }
2272   else
2273     {
2274       if(code.size()!=3)
2275         throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::getFieldOnMeshAtLevel : internal error #1 !");
2276       int nb=code[1];
2277       if(code[2]==-1)
2278         {
2279           if(nb!=mesh->getNumberOfNodes())
2280             {
2281               std::ostringstream oss; oss << "MEDFileFieldPerMesh::getFieldOnMeshAtLevel : There is a problem there is " << nb << " nodes in field whereas there is " << mesh->getNumberOfNodes();
2282               oss << " nodes in mesh !";
2283               throw INTERP_KERNEL::Exception(oss.str());
2284             }
2285         }
2286       return finishField4(dads,code[2]==-1?0:notNullPflsPerGeoType3[0],mesh->getNumberOfNodes(),pfl);
2287     }
2288   //
2289   return 0;
2290 }
2291
2292 void MEDFileFieldPerMesh::getUndergroundDataArrayExt(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
2293 {
2294   int globalSz=0;
2295   int nbOfEntries=0;
2296   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2297     {
2298       (*it)->getSizes(globalSz,nbOfEntries);
2299     }
2300   entries.resize(nbOfEntries);
2301   nbOfEntries=0;
2302   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2303     {
2304       (*it)->fillValues(nbOfEntries,entries);
2305     }
2306 }
2307
2308 MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMesh::getLeafGivenTypeAndLocId(INTERP_KERNEL::NormalizedCellType typ, int locId)
2309 {
2310   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2311     {
2312       if((*it)->getGeoType()==typ)
2313         return (*it)->getLeafGivenLocId(locId);
2314     }
2315   const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(typ);
2316   std::ostringstream oss; oss << "MEDFileFieldPerMesh::getLeafGivenTypeAndLocId : no such geometric type \"" << cm.getRepr() << "\" in this !" << std::endl;
2317   oss << "Possiblities are : ";
2318   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2319     {
2320       const INTERP_KERNEL::CellModel& cm2=INTERP_KERNEL::CellModel::GetCellModel((*it)->getGeoType());
2321       oss << "\"" << cm2.getRepr() << "\", ";
2322     }
2323   throw INTERP_KERNEL::Exception(oss.str());
2324 }
2325
2326 const MEDFileFieldPerMeshPerTypePerDisc *MEDFileFieldPerMesh::getLeafGivenTypeAndLocId(INTERP_KERNEL::NormalizedCellType typ, int locId) const
2327 {
2328   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2329     {
2330       if((*it)->getGeoType()==typ)
2331         return (*it)->getLeafGivenLocId(locId);
2332     }
2333   const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(typ);
2334   std::ostringstream oss; oss << "MEDFileFieldPerMesh::getLeafGivenTypeAndLocId : no such geometric type \"" << cm.getRepr() << "\" in this !" << std::endl;
2335   oss << "Possiblities are : ";
2336   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++)
2337     {
2338       const INTERP_KERNEL::CellModel& cm2=INTERP_KERNEL::CellModel::GetCellModel((*it)->getGeoType());
2339       oss << "\"" << cm2.getRepr() << "\", ";
2340     }
2341   throw INTERP_KERNEL::Exception(oss.str());
2342 }
2343
2344 /*!
2345  * \param [in,out] start - Integer that gives the current position in the final aggregated array
2346  * \param [in] pms - list of elements to aggregate. integer gives the mesh id
2347  * \param [in] dts - (Distribution of types) = level 1 : meshes to aggregate. Level 2 : all geo type. Level 3 pair specifying geo type and number of elem in geotype.
2348  * \param [out] extractInfo - Gives information about the where the data comes from. It is a vector of triplet. First element in the triplet the mesh pos. The 2nd one the start pos. The 3rd the end pos.
2349  */
2350 MCAuto<MEDFileFieldPerMeshPerTypePerDisc> MEDFileFieldPerMeshPerTypePerDisc::Aggregate(int &start, const std::vector< std::pair<int,const MEDFileFieldPerMeshPerTypePerDisc *> >& pms, const std::vector< std::vector< std::pair<int,int> > >& dts, TypeOfField tof, MEDFileFieldPerMeshPerType *father, std::vector<std::pair< int, std::pair<int,int> > >& extractInfo)
2351 {
2352   MCAuto<MEDFileFieldPerMeshPerTypePerDisc> ret(new MEDFileFieldPerMeshPerTypePerDisc(father,tof));
2353   if(pms.empty())
2354     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::Aggregate : empty input vector !");
2355   for(std::vector<std::pair<int,const MEDFileFieldPerMeshPerTypePerDisc *> >::const_iterator it=pms.begin();it!=pms.end();it++)
2356     {
2357       if(!(*it).second)
2358         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::Aggregate : presence of null pointer !");
2359       if(!(*it).second->getProfile().empty())
2360         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::Aggregate : not implemented yet for profiles !");
2361       if(!(*it).second->getLocalization().empty())
2362         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::Aggregate : not implemented yet for gauss pts !");
2363     }
2364   INTERP_KERNEL::NormalizedCellType gt(pms[0].second->getGeoType());
2365   std::size_t i(0);
2366   std::vector< std::pair<int,int> > filteredDTS;
2367   for(std::vector< std::vector< std::pair<int,int> > >::const_iterator it=dts.begin();it!=dts.end();it++,i++)
2368     for(std::vector< std::pair<int,int> >::const_iterator it2=(*it).begin();it2!=(*it).end();it2++)
2369       if((*it2).first==gt)
2370         filteredDTS.push_back(std::pair<int,int>(i,(*it2).second));
2371   if(pms.size()!=filteredDTS.size())
2372     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::Aggregate : not implemented yet for generated profiles !");
2373   std::vector<std::pair<int,const MEDFileFieldPerMeshPerTypePerDisc *> >::const_iterator it1(pms.begin());
2374   std::vector< std::pair<int,int> >::const_iterator it2(filteredDTS.begin());
2375   int zeStart(start),nval(0);
2376   for(;it1!=pms.end();it1++,it2++)
2377     {
2378       if((*it1).first!=(*it2).first)
2379         throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::Aggregate : not implemented yet for generated profiles 2 !");
2380       int s1((*it1).second->getStart()),e1((*it1).second->getEnd());
2381       extractInfo.push_back(std::pair<int, std::pair<int,int> >((*it1).first,std::pair<int,int>(s1,e1)));
2382       start+=e1-s1;
2383       nval+=((*it1).second)->getNumberOfVals();
2384     }
2385   ret->_start=zeStart; ret->_end=start; ret->_nval=nval;
2386   return ret;
2387 }
2388
2389 MCAuto<MEDFileFieldPerMeshPerType> MEDFileFieldPerMeshPerType::Aggregate(int &start, const std::vector<std::pair<int,const MEDFileFieldPerMeshPerType *> >& pms, const std::vector< std::vector< std::pair<int,int> > >& dts, INTERP_KERNEL::NormalizedCellType gt, MEDFileFieldPerMesh *father, std::vector<std::pair< int, std::pair<int,int> > >& extractInfo)
2390 {
2391   MCAuto<MEDFileFieldPerMeshPerType> ret(new MEDFileFieldPerMeshPerType(father,gt));
2392   std::map<TypeOfField, std::vector< std::pair<int,const MEDFileFieldPerMeshPerTypePerDisc * > > > m;
2393   for(std::vector<std::pair<int,const MEDFileFieldPerMeshPerType *> >::const_iterator it=pms.begin();it!=pms.end();it++)
2394     {
2395       for(std::vector< MCAuto<MEDFileFieldPerMeshPerTypePerDisc> >::const_iterator it2=(*it).second->_field_pm_pt_pd.begin();it2!=(*it).second->_field_pm_pt_pd.end();it2++)
2396         m[(*it2)->getType()].push_back(std::pair<int,const MEDFileFieldPerMeshPerTypePerDisc * >((*it).first,*it2));
2397     }
2398   for(std::map<TypeOfField, std::vector< std::pair<int,const MEDFileFieldPerMeshPerTypePerDisc * > > >::const_iterator it=m.begin();it!=m.end();it++)
2399     {
2400       MCAuto<MEDFileFieldPerMeshPerTypePerDisc> agg(MEDFileFieldPerMeshPerTypePerDisc::Aggregate(start,(*it).second,dts,(*it).first,ret,extractInfo));
2401       ret->_field_pm_pt_pd.push_back(agg);
2402     }
2403   return ret;
2404 }
2405
2406 MCAuto<MEDFileFieldPerMesh> MEDFileFieldPerMesh::Aggregate(int &start, const std::vector<const MEDFileFieldPerMesh *>& pms, const std::vector< std::vector< std::pair<int,int> > >& dts, MEDFileAnyTypeField1TSWithoutSDA *father, std::vector<std::pair< int, std::pair<int,int> > >& extractInfo)
2407 {
2408   MCAuto<MEDFileFieldPerMesh> ret(new MEDFileFieldPerMesh(father,pms[0]->getMeshName(),pms[0]->getMeshIteration(),pms[0]->getMeshOrder()));
2409   std::map<INTERP_KERNEL::NormalizedCellType, std::vector< std::pair<int,const MEDFileFieldPerMeshPerType *> > > m;
2410   std::size_t i(0);
2411   for(std::vector<const MEDFileFieldPerMesh *>::const_iterator it=pms.begin();it!=pms.end();it++,i++)
2412     {
2413       const std::vector< MCAuto< MEDFileFieldPerMeshPerType > >& v((*it)->_field_pm_pt);
2414       for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::const_iterator it2=v.begin();it2!=v.end();it2++)
2415         {
2416           INTERP_KERNEL::NormalizedCellType gt((*it2)->getGeoType());
2417           m[gt].push_back(std::pair<int,const MEDFileFieldPerMeshPerType *>(i,*it2));
2418         }
2419     }
2420   for(std::map<INTERP_KERNEL::NormalizedCellType, std::vector< std::pair<int,const MEDFileFieldPerMeshPerType *> > >::const_iterator it=m.begin();it!=m.end();it++)
2421     {
2422       MCAuto<MEDFileFieldPerMeshPerType> agg(MEDFileFieldPerMeshPerType::Aggregate(start,(*it).second,dts,(*it).first,ret,extractInfo));
2423       ret->_field_pm_pt.push_back(agg);
2424     }
2425   return ret;
2426 }
2427
2428 int MEDFileFieldPerMesh::addNewEntryIfNecessary(INTERP_KERNEL::NormalizedCellType type)
2429 {
2430   int i=0;
2431   int pos=std::distance(typmai2,std::find(typmai2,typmai2+MED_N_CELL_FIXED_GEO,type));
2432   std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it2=_field_pm_pt.begin();
2433   for(std::vector< MCAuto< MEDFileFieldPerMeshPerType > >::iterator it=_field_pm_pt.begin();it!=_field_pm_pt.end();it++,i++)
2434     {
2435       INTERP_KERNEL::NormalizedCellType curType=(*it)->getGeoType();
2436       if(type==curType)
2437         return i;
2438       else
2439         {
2440           int pos2=std::distance(typmai2,std::find(typmai2,typmai2+MED_N_CELL_FIXED_GEO,curType));
2441           if(pos>pos2)
2442             it2=it+1;
2443         }
2444     }
2445   int ret=std::distance(_field_pm_pt.begin(),it2);
2446   _field_pm_pt.insert(it2,MEDFileFieldPerMeshPerType::New(this,type));
2447   return ret;
2448 }
2449
2450 /*!
2451  * 'dads' and 'locs' input parameters have the same number of elements
2452  * \param [in] mesh is \b NOT the global mesh, but the possibly reduced mesh. \a mesh parameter will be directly aggregated in the returned field
2453  */
2454 MEDCouplingFieldDouble *MEDFileFieldPerMesh::finishField(TypeOfField type, const MEDFileFieldGlobsReal *glob,
2455                                                          const std::vector< std::pair<int,int> >& dads, const std::vector<int>& locs,
2456                                                          const MEDCouplingMesh *mesh, bool& isPfl, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
2457 {
2458   isPfl=false;
2459   MCAuto<MEDCouplingFieldDouble> ret=MEDCouplingFieldDouble::New(type,ONE_TIME);
2460   ret->setMesh(mesh); ret->setName(nasc.getName().c_str()); ret->setTime(getTime(),getIteration(),getOrder()); ret->setTimeUnit(nasc.getDtUnit().c_str());
2461   MCAuto<DataArray> da=getOrCreateAndGetArray()->selectByTupleRanges(dads);
2462   const std::vector<std::string>& infos=getInfo();
2463   da->setInfoOnComponents(infos);
2464   da->setName("");
2465   if(type==ON_GAUSS_PT)
2466     {
2467       int offset=0;
2468       int nbOfArrs=dads.size();
2469       for(int i=0;i<nbOfArrs;i++)
2470         {
2471           std::vector<std::pair<int,int> > dads2(1,dads[i]); const std::vector<int> locs2(1,locs[i]);
2472           const std::vector<INTERP_KERNEL::NormalizedCellType> geoTypes2(1,INTERP_KERNEL::NORM_ERROR);
2473           int nbOfElems=ComputeNbOfElems(glob,type,geoTypes2,dads2,locs2);
2474           MCAuto<DataArrayInt> di=DataArrayInt::New();
2475           di->alloc(nbOfElems,1);
2476           di->iota(offset);
2477           const MEDFileFieldLoc& fl=glob->getLocalizationFromId(locs[i]);
2478           ret->setGaussLocalizationOnCells(di->getConstPointer(),di->getConstPointer()+nbOfElems,fl.getRefCoords(),fl.getGaussCoords(),fl.getGaussWeights());
2479           offset+=nbOfElems;
2480         }
2481     }
2482   arrOut=da;
2483   return ret.retn();
2484 }
2485
2486 /*!
2487  * This method is an extension of MEDFileFieldPerMesh::finishField method. It deals with profiles. This method should be called when type is different from ON_NODES.
2488  * 'dads', 'locs' and 'geoTypes' input parameters have the same number of elements.
2489  * No check of this is performed. 'da' array contains an array in old2New style to be applyied to mesh to obtain the right support.
2490  * The order of cells in the returned field is those imposed by the profile.
2491  * \param [in] mesh is the global mesh.
2492  */
2493 MEDCouplingFieldDouble *MEDFileFieldPerMesh::finishField2(TypeOfField type, const MEDFileFieldGlobsReal *glob,
2494                                                           const std::vector<std::pair<int,int> >& dads, const std::vector<int>& locs,
2495                                                           const std::vector<INTERP_KERNEL::NormalizedCellType>& geoTypes,
2496                                                           const MEDCouplingMesh *mesh, const DataArrayInt *da, bool& isPfl, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
2497 {
2498   if(da->isIota(mesh->getNumberOfCells()))
2499     return finishField(type,glob,dads,locs,mesh,isPfl,arrOut,nasc);
2500   MCAuto<MEDCouplingMesh> m2=mesh->buildPart(da->getConstPointer(),da->getConstPointer()+da->getNbOfElems());
2501   m2->setName(mesh->getName().c_str());
2502   MCAuto<MEDCouplingFieldDouble> ret=finishField(type,glob,dads,locs,m2,isPfl,arrOut,nasc);
2503   isPfl=true;
2504   return ret.retn();
2505 }
2506
2507 /*!
2508  * This method is the complement of MEDFileFieldPerMesh::finishField2 method except that this method works for node profiles.
2509  */
2510 MEDCouplingFieldDouble *MEDFileFieldPerMesh::finishFieldNode2(const MEDFileFieldGlobsReal *glob,
2511                                                               const std::vector<std::pair<int,int> >& dads, const std::vector<int>& locs,
2512                                                               const MEDCouplingMesh *mesh, const DataArrayInt *da, bool& isPfl, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
2513 {
2514   if(da->isIota(mesh->getNumberOfNodes()))
2515     return finishField(ON_NODES,glob,dads,locs,mesh,isPfl,arrOut,nasc);
2516   // Treatment of particular case where nodal field on pfl is requested with a meshDimRelToMax=1.
2517   const MEDCouplingUMesh *meshu=dynamic_cast<const MEDCouplingUMesh *>(mesh);
2518   if(meshu)
2519     {
2520       if(meshu->getNodalConnectivity()==0)
2521         {
2522           MCAuto<MEDCouplingFieldDouble> ret=finishField(ON_CELLS,glob,dads,locs,mesh,isPfl,arrOut,nasc);
2523           int nb=da->getNbOfElems();
2524           const int *ptr=da->getConstPointer();
2525           MEDCouplingUMesh *meshuc=const_cast<MEDCouplingUMesh *>(meshu);
2526           meshuc->allocateCells(nb);
2527           for(int i=0;i<nb;i++)
2528             meshuc->insertNextCell(INTERP_KERNEL::NORM_POINT1,1,ptr+i);
2529           meshuc->finishInsertingCells();
2530           ret->setMesh(meshuc);
2531           const MEDCouplingFieldDiscretization *disc=ret->getDiscretization();
2532           if(!disc) throw INTERP_KERNEL::Exception("MEDFileFieldPerMesh::finishFieldNode2 : internal error, no discretization on field !");
2533           disc->checkCoherencyBetween(meshuc,arrOut);
2534           return ret.retn();
2535         }
2536     }
2537   //
2538   MCAuto<MEDCouplingFieldDouble> ret=finishField(ON_NODES,glob,dads,locs,mesh,isPfl,arrOut,nasc);
2539   isPfl=true;
2540   DataArrayInt *arr2=0;
2541   MCAuto<DataArrayInt> cellIds=mesh->getCellIdsFullyIncludedInNodeIds(da->getConstPointer(),da->getConstPointer()+da->getNbOfElems());
2542   MCAuto<MEDCouplingMesh> mesh2=mesh->buildPartAndReduceNodes(cellIds->getConstPointer(),cellIds->getConstPointer()+cellIds->getNbOfElems(),arr2);
2543   MCAuto<DataArrayInt> arr3(arr2);
2544   int nnodes=mesh2->getNumberOfNodes();
2545   if(nnodes==(int)da->getNbOfElems())
2546     {
2547       MCAuto<DataArrayInt> da3=da->transformWithIndArrR(arr2->begin(),arr2->end());
2548       arrOut->renumberInPlace(da3->getConstPointer());
2549       mesh2->setName(mesh->getName().c_str());
2550       ret->setMesh(mesh2);
2551       return ret.retn();
2552     }
2553   else
2554     {
2555       std::ostringstream oss; oss << "MEDFileFieldPerMesh::finishFieldNode2 : The field on nodes lies on a node profile so that it is impossible to find a submesh having exactly the same nodes of that profile !!!";
2556       oss << "So it is impossible to return a well definied MEDCouplingFieldDouble instance on specified mesh on a specified meshDim !" << std::endl;
2557       oss << "To retrieve correctly such a field you have 3 possibilities :" << std::endl;
2558       oss << " - use an another meshDim compatible with the field on nodes (MED file does not have such information)" << std::endl;
2559       oss << " - use an another a meshDimRelToMax equal to 1 -> it will return a mesh with artificial cell POINT1 containing the profile !" << std::endl;
2560       oss << " - if definitely the node profile has no link with mesh connectivity use MEDFileField1TS::getFieldWithProfile or MEDFileFieldMultiTS::getFieldWithProfile methods instead !";
2561       throw INTERP_KERNEL::Exception(oss.str());
2562     }
2563   return 0;
2564 }
2565
2566 /*!
2567  * This method is the most light method of field retrieving.
2568  */
2569 DataArray *MEDFileFieldPerMesh::finishField4(const std::vector<std::pair<int,int> >& dads, const DataArrayInt *pflIn, int nbOfElems, DataArrayInt *&pflOut) const
2570 {
2571   if(!pflIn)
2572     {
2573       pflOut=DataArrayInt::New();
2574       pflOut->alloc(nbOfElems,1);
2575       pflOut->iota(0);
2576     }
2577   else
2578     {
2579       pflOut=const_cast<DataArrayInt*>(pflIn);
2580       pflOut->incrRef();
2581     }
2582   MCAuto<DataArrayInt> safePfl(pflOut);
2583   MCAuto<DataArray> da=getOrCreateAndGetArray()->selectByTupleRanges(dads);
2584   const std::vector<std::string>& infos=getInfo();
2585   int nbOfComp=infos.size();
2586   for(int i=0;i<nbOfComp;i++)
2587     da->setInfoOnComponent(i,infos[i].c_str());
2588   safePfl->incrRef();
2589   return da.retn();
2590 }
2591
2592
2593 /// @cond INTERNAL
2594
2595 class MFFPMIter
2596 {
2597 public:
2598   static MFFPMIter *NewCell(const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities);
2599   static bool IsPresenceOfNode(const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities);
2600   virtual ~MFFPMIter() { }
2601   virtual void begin() = 0;
2602   virtual bool finished() const = 0;
2603   virtual void next() = 0;
2604   virtual int current() const = 0;
2605 };
2606
2607 class MFFPMIterSimple : public MFFPMIter
2608 {
2609 public:
2610   MFFPMIterSimple():_pos(0) { }
2611   void begin() { _pos=0; }
2612   bool finished() const { return _pos>=MED_N_CELL_FIXED_GEO; }
2613   void next() { _pos++; }
2614   int current() const { return _pos; }
2615 private:
2616   int _pos;
2617 };
2618
2619 class MFFPMIter2 : public MFFPMIter
2620 {
2621 public:
2622   MFFPMIter2(const std::vector<INTERP_KERNEL::NormalizedCellType>& cts);
2623   void begin() { _it=_ids.begin(); }
2624   bool finished() const { return _it==_ids.end(); }
2625   void next() { _it++; }
2626   int current() const { return *_it; }
2627 private:
2628   std::vector<int> _ids;
2629   std::vector<int>::const_iterator _it;
2630 };
2631
2632 MFFPMIter *MFFPMIter::NewCell(const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
2633 {
2634   if(!entities)
2635     return new MFFPMIterSimple;
2636   else
2637     {
2638       std::vector<INTERP_KERNEL::NormalizedCellType> tmp;
2639       for(std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> >::const_iterator it=(*entities).begin();it!=(*entities).end();it++)
2640         {
2641           if((*it).first==ON_CELLS || (*it).first==ON_GAUSS_NE || (*it).first==ON_GAUSS_PT)
2642             tmp.push_back((*it).second);
2643         }
2644       return new MFFPMIter2(tmp);
2645     }
2646 }
2647
2648 bool MFFPMIter::IsPresenceOfNode(const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
2649 {
2650   if(!entities)
2651     return true;
2652   else
2653     {
2654       for(std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> >::const_iterator it=(*entities).begin();it!=(*entities).end();it++)
2655         if((*it).first==ON_NODES)
2656           return true;
2657       return false;
2658     }
2659 }
2660
2661 MFFPMIter2::MFFPMIter2(const std::vector<INTERP_KERNEL::NormalizedCellType>& cts)
2662 {
2663   std::size_t sz(cts.size());
2664   _ids.resize(sz);
2665   for(std::size_t i=0;i<sz;i++)
2666     {
2667       INTERP_KERNEL::NormalizedCellType *loc(std::find(typmai2,typmai2+MED_N_CELL_FIXED_GEO,cts[i]));
2668       if(loc!=typmai2+MED_N_CELL_FIXED_GEO)
2669         _ids[i]=(int)std::distance(typmai2,loc);
2670       else
2671         throw INTERP_KERNEL::Exception("MFFPMIter2 : The specified geo type does not exists !");
2672     }
2673 }
2674
2675 /// @endcond
2676
2677 MEDFileFieldPerMesh::MEDFileFieldPerMesh(med_idt fid, MEDFileAnyTypeField1TSWithoutSDA *fath, int meshCsit, int meshIteration, int meshOrder, const MEDFileFieldNameScope& nasc, const MEDFileMesh *mm, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities):_mesh_iteration(meshIteration),_mesh_order(meshOrder),
2678     _father(fath)
2679 {
2680   INTERP_KERNEL::AutoPtr<char> meshName(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
2681   INTERP_KERNEL::AutoPtr<char> pflName(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
2682   INTERP_KERNEL::AutoPtr<char> locName(MEDLoaderBase::buildEmptyString(MED_NAME_SIZE));
2683   const MEDFileUMesh *mmu(dynamic_cast<const MEDFileUMesh *>(mm));
2684   INTERP_KERNEL::AutoCppPtr<MFFPMIter> iter0(MFFPMIter::NewCell(entities));
2685   for(iter0->begin();!iter0->finished();iter0->next())
2686     {
2687       int nbProfile (MEDfield23nProfile(fid,nasc.getName().c_str(),getIteration(),getOrder(),MED_CELL        ,typmai[iter0->current()],meshCsit+1,meshName,pflName,locName));
2688       std::string name0(MEDLoaderBase::buildStringFromFortran(meshName,MED_NAME_SIZE+1));
2689       int nbProfile2(MEDfield23nProfile(fid,nasc.getName().c_str(),getIteration(),getOrder(),MED_NODE_ELEMENT,typmai[iter0->current()],meshCsit+1,meshName,pflName,locName));
2690       std::string name1(MEDLoaderBase::buildStringFromFortran(meshName,MED_NAME_SIZE+1));
2691       if(nbProfile>0 || nbProfile2>0)
2692         {
2693           const PartDefinition *pd(0);
2694           if(mmu)
2695             pd=mmu->getPartDefAtLevel(mmu->getRelativeLevOnGeoType(typmai2[iter0->current()]),typmai2[iter0->current()]);
2696           _field_pm_pt.push_back(MEDFileFieldPerMeshPerType::NewOnRead(fid,this,ON_CELLS,typmai2[iter0->current()],nasc,pd));
2697           if(nbProfile>0)
2698             _mesh_name=name0;
2699           else
2700             _mesh_name=name1;
2701         }
2702     }
2703   if(MFFPMIter::IsPresenceOfNode(entities))
2704     {
2705       int nbProfile(MEDfield23nProfile(fid,nasc.getName().c_str(),getIteration(),getOrder(),MED_NODE,MED_NONE,meshCsit+1,meshName,pflName,locName));
2706       if(nbProfile>0)
2707         {
2708           const PartDefinition *pd(0);
2709           if(mmu)
2710             pd=mmu->getPartDefAtLevel(1,INTERP_KERNEL::NORM_ERROR);
2711           _field_pm_pt.push_back(MEDFileFieldPerMeshPerType::NewOnRead(fid,this,ON_NODES,INTERP_KERNEL::NORM_ERROR,nasc,pd));
2712           _mesh_name=MEDLoaderBase::buildStringFromFortran(meshName,MED_NAME_SIZE+1);
2713         }
2714     }
2715 }
2716
2717 MEDFileFieldPerMesh::MEDFileFieldPerMesh(MEDFileAnyTypeField1TSWithoutSDA *fath, const MEDCouplingMesh *mesh):_father(fath)
2718 {
2719   copyTinyInfoFrom(mesh);
2720 }
2721
2722 void MEDFileFieldGlobs::loadProfileInFile(med_idt fid, int id, const std::string& pflName)
2723 {
2724   if(id>=(int)_pfls.size())
2725     _pfls.resize(id+1);
2726   _pfls[id]=DataArrayInt::New();
2727   int lgth(MEDprofileSizeByName(fid,pflName.c_str()));
2728   _pfls[id]->setName(pflName);
2729   _pfls[id]->alloc(lgth,1);
2730   MEDFILESAFECALLERRD0(MEDprofileRd,(fid,pflName.c_str(),_pfls[id]->getPointer()));
2731   _pfls[id]->applyLin(1,-1,0);//Converting into C format
2732 }
2733
2734 void MEDFileFieldGlobs::loadProfileInFile(med_idt fid, int i)
2735 {
2736   INTERP_KERNEL::AutoPtr<char> pflName=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
2737   int sz;
2738   MEDFILESAFECALLERRD0(MEDprofileInfo,(fid,i+1,pflName,&sz));
2739   std::string pflCpp=MEDLoaderBase::buildStringFromFortran(pflName,MED_NAME_SIZE);
2740   if(i>=(int)_pfls.size())
2741     _pfls.resize(i+1);
2742   _pfls[i]=DataArrayInt::New();
2743   _pfls[i]->alloc(sz,1);
2744   _pfls[i]->setName(pflCpp.c_str());
2745   MEDFILESAFECALLERRD0(MEDprofileRd,(fid,pflName,_pfls[i]->getPointer()));
2746   _pfls[i]->applyLin(1,-1,0);//Converting into C format
2747 }
2748
2749 void MEDFileFieldGlobs::writeGlobals(med_idt fid, const MEDFileWritable& opt) const
2750 {
2751   int nbOfPfls=_pfls.size();
2752   for(int i=0;i<nbOfPfls;i++)
2753     {
2754       MCAuto<DataArrayInt> cpy=_pfls[i]->deepCopy();
2755       cpy->applyLin(1,1,0);
2756       INTERP_KERNEL::AutoPtr<char> pflName=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
2757       MEDLoaderBase::safeStrCpy(_pfls[i]->getName().c_str(),MED_NAME_SIZE,pflName,opt.getTooLongStrPolicy());
2758       MEDFILESAFECALLERWR0(MEDprofileWr,(fid,pflName,_pfls[i]->getNumberOfTuples(),cpy->getConstPointer()));
2759     }
2760   //
2761   int nbOfLocs=_locs.size();
2762   for(int i=0;i<nbOfLocs;i++)
2763     _locs[i]->writeLL(fid);
2764 }
2765
2766 void MEDFileFieldGlobs::appendGlobs(const MEDFileFieldGlobs& other, double eps)
2767 {
2768   std::vector<std::string> pfls=getPfls();
2769   for(std::vector< MCAuto<DataArrayInt> >::const_iterator it=other._pfls.begin();it!=other._pfls.end();it++)
2770     {
2771       std::vector<std::string>::iterator it2=std::find(pfls.begin(),pfls.end(),(*it)->getName());
2772       if(it2==pfls.end())
2773         {
2774           _pfls.push_back(*it);
2775         }
2776       else
2777         {
2778           int id=std::distance(pfls.begin(),it2);
2779           if(!(*it)->isEqual(*_pfls[id]))
2780             {
2781               std::ostringstream oss; oss << "MEDFileFieldGlobs::appendGlobs : Profile \"" << (*it)->getName() << "\" already exists and is different from those expecting to be append !";
2782               throw INTERP_KERNEL::Exception(oss.str());
2783             }
2784         }
2785     }
2786   std::vector<std::string> locs=getLocs();
2787   for(std::vector< MCAuto<MEDFileFieldLoc> >::const_iterator it=other._locs.begin();it!=other._locs.end();it++)
2788     {
2789       std::vector<std::string>::iterator it2=std::find(locs.begin(),locs.end(),(*it)->getName());
2790       if(it2==locs.end())
2791         {
2792           _locs.push_back(*it);
2793         }
2794       else
2795         {
2796           int id=std::distance(locs.begin(),it2);
2797           if(!(*it)->isEqual(*_locs[id],eps))
2798             {
2799               std::ostringstream oss; oss << "MEDFileFieldGlobs::appendGlobs : Localization \"" << (*it)->getName() << "\" already exists and is different from those expecting to be append !";
2800               throw INTERP_KERNEL::Exception(oss.str());
2801             }
2802         }
2803     }
2804 }
2805
2806 void MEDFileFieldGlobs::checkGlobsPflsPartCoherency(const std::vector<std::string>& pflsUsed) const
2807 {
2808   for(std::vector<std::string>::const_iterator it=pflsUsed.begin();it!=pflsUsed.end();it++)
2809     getProfile((*it).c_str());
2810 }
2811
2812 void MEDFileFieldGlobs::checkGlobsLocsPartCoherency(const std::vector<std::string>& locsUsed) const
2813 {
2814   for(std::vector<std::string>::const_iterator it=locsUsed.begin();it!=locsUsed.end();it++)
2815     getLocalization((*it).c_str());
2816 }
2817
2818 void MEDFileFieldGlobs::loadGlobals(med_idt fid, const MEDFileFieldGlobsReal& real)
2819 {
2820   std::vector<std::string> profiles=real.getPflsReallyUsed();
2821   int sz=profiles.size();
2822   _pfls.resize(sz);
2823   for(int i=0;i<sz;i++)
2824     loadProfileInFile(fid,i,profiles[i].c_str());
2825   //
2826   std::vector<std::string> locs=real.getLocsReallyUsed();
2827   sz=locs.size();
2828   _locs.resize(sz);
2829   for(int i=0;i<sz;i++)
2830     _locs[i]=MEDFileFieldLoc::New(fid,locs[i].c_str());
2831 }
2832
2833 void MEDFileFieldGlobs::loadAllGlobals(med_idt fid)
2834 {
2835   int nProfil=MEDnProfile(fid);
2836   for(int i=0;i<nProfil;i++)
2837     loadProfileInFile(fid,i);
2838   int sz=MEDnLocalization(fid);
2839   _locs.resize(sz);
2840   for(int i=0;i<sz;i++)
2841     {
2842       _locs[i]=MEDFileFieldLoc::New(fid,i);
2843     }
2844 }
2845
2846 MEDFileFieldGlobs *MEDFileFieldGlobs::New(med_idt fid)
2847 {
2848   return new MEDFileFieldGlobs(fid);
2849 }
2850
2851 MEDFileFieldGlobs *MEDFileFieldGlobs::New()
2852 {
2853   return new MEDFileFieldGlobs;
2854 }
2855
2856 std::size_t MEDFileFieldGlobs::getHeapMemorySizeWithoutChildren() const
2857 {
2858   return _file_name.capacity()+_pfls.capacity()*sizeof(MCAuto<DataArrayInt>)+_locs.capacity()*sizeof(MCAuto<MEDFileFieldLoc>);
2859 }
2860
2861 std::vector<const BigMemoryObject *> MEDFileFieldGlobs::getDirectChildrenWithNull() const
2862 {
2863   std::vector<const BigMemoryObject *> ret;
2864   for(std::vector< MCAuto< DataArrayInt > >::const_iterator it=_pfls.begin();it!=_pfls.end();it++)
2865     ret.push_back((const DataArrayInt *)*it);
2866   for(std::vector< MCAuto<MEDFileFieldLoc> >::const_iterator it=_locs.begin();it!=_locs.end();it++)
2867     ret.push_back((const MEDFileFieldLoc *)*it);
2868   return ret;
2869 }
2870
2871 MEDFileFieldGlobs *MEDFileFieldGlobs::deepCopy() const
2872 {
2873   MCAuto<MEDFileFieldGlobs> ret=new MEDFileFieldGlobs(*this);
2874   std::size_t i=0;
2875   for(std::vector< MCAuto<DataArrayInt> >::const_iterator it=_pfls.begin();it!=_pfls.end();it++,i++)
2876     {
2877       if((const DataArrayInt *)*it)
2878         ret->_pfls[i]=(*it)->deepCopy();
2879     }
2880   i=0;
2881   for(std::vector< MCAuto<MEDFileFieldLoc> >::const_iterator it=_locs.begin();it!=_locs.end();it++,i++)
2882     {
2883       if((const MEDFileFieldLoc*)*it)
2884         ret->_locs[i]=(*it)->deepCopy();
2885     }
2886   return ret.retn();
2887 }
2888
2889 /*!
2890  * \throw if a profile in \a pfls in not in \a this.
2891  * \throw if a localization in \a locs in not in \a this.
2892  * \sa MEDFileFieldGlobs::deepCpyPart
2893  */
2894 MEDFileFieldGlobs *MEDFileFieldGlobs::shallowCpyPart(const std::vector<std::string>& pfls, const std::vector<std::string>& locs) const
2895 {
2896   MCAuto<MEDFileFieldGlobs> ret=MEDFileFieldGlobs::New();
2897   for(std::vector<std::string>::const_iterator it1=pfls.begin();it1!=pfls.end();it1++)
2898     {
2899       DataArrayInt *pfl=const_cast<DataArrayInt *>(getProfile((*it1).c_str()));
2900       if(!pfl)
2901         throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::shallowCpyPart : internal error ! pfl null !");
2902       pfl->incrRef();
2903       MCAuto<DataArrayInt> pfl2(pfl);
2904       ret->_pfls.push_back(pfl2);
2905     }
2906   for(std::vector<std::string>::const_iterator it2=locs.begin();it2!=locs.end();it2++)
2907     {
2908       MEDFileFieldLoc *loc=const_cast<MEDFileFieldLoc *>(&getLocalization((*it2).c_str()));
2909       if(!loc)
2910         throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::shallowCpyPart : internal error ! loc null !");
2911       loc->incrRef();
2912       MCAuto<MEDFileFieldLoc> loc2(loc);
2913       ret->_locs.push_back(loc2);
2914     }
2915   ret->setFileName(getFileName());
2916   return ret.retn();
2917 }
2918
2919 /*!
2920  * \throw if a profile in \a pfls in not in \a this.
2921  * \throw if a localization in \a locs in not in \a this.
2922  * \sa MEDFileFieldGlobs::shallowCpyPart
2923  */
2924 MEDFileFieldGlobs *MEDFileFieldGlobs::deepCpyPart(const std::vector<std::string>& pfls, const std::vector<std::string>& locs) const
2925 {
2926   MCAuto<MEDFileFieldGlobs> ret=MEDFileFieldGlobs::New();
2927   for(std::vector<std::string>::const_iterator it1=pfls.begin();it1!=pfls.end();it1++)
2928     {
2929       DataArrayInt *pfl=const_cast<DataArrayInt *>(getProfile((*it1).c_str()));
2930       if(!pfl)
2931         throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::deepCpyPart : internal error ! pfl null !");
2932       ret->_pfls.push_back(pfl->deepCopy());
2933     }
2934   for(std::vector<std::string>::const_iterator it2=locs.begin();it2!=locs.end();it2++)
2935     {
2936       MEDFileFieldLoc *loc=const_cast<MEDFileFieldLoc *>(&getLocalization((*it2).c_str()));
2937       if(!loc)
2938         throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::deepCpyPart : internal error ! loc null !");
2939       ret->_locs.push_back(loc->deepCopy());
2940     }
2941   ret->setFileName(getFileName());
2942   return ret.retn();
2943 }
2944
2945 MEDFileFieldGlobs::MEDFileFieldGlobs(med_idt fid):_file_name(MEDFileWritable::FileNameFromFID(fid))
2946 {
2947 }
2948
2949 MEDFileFieldGlobs::MEDFileFieldGlobs()
2950 {
2951 }
2952
2953 MEDFileFieldGlobs::~MEDFileFieldGlobs()
2954 {
2955 }
2956
2957 void MEDFileFieldGlobs::simpleRepr(std::ostream& oss) const
2958 {
2959   oss << "Profiles :\n";
2960   std::size_t n=_pfls.size();
2961   for(std::size_t i=0;i<n;i++)
2962     {
2963       oss << "  - #" << i << " ";
2964       const DataArrayInt *pfl=_pfls[i];
2965       if(pfl)
2966         oss << "\"" << pfl->getName() << "\"\n";
2967       else
2968         oss << "EMPTY !\n";
2969     }
2970   n=_locs.size();
2971   oss << "Localizations :\n";
2972   for(std::size_t i=0;i<n;i++)
2973     {
2974       oss << "  - #" << i << " ";
2975       const MEDFileFieldLoc *loc=_locs[i];
2976       if(loc)
2977         loc->simpleRepr(oss);
2978       else
2979         oss<< "EMPTY !\n";
2980     }
2981 }
2982
2983 void MEDFileFieldGlobs::changePflsNamesInStruct(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
2984 {
2985   for(std::vector< MCAuto<DataArrayInt> >::iterator it=_pfls.begin();it!=_pfls.end();it++)
2986     {
2987       DataArrayInt *elt(*it);
2988       if(elt)
2989         {
2990           std::string name(elt->getName());
2991           for(std::vector< std::pair<std::vector<std::string>, std::string > >::const_iterator it2=mapOfModif.begin();it2!=mapOfModif.end();it2++)
2992             {
2993               if(std::find((*it2).first.begin(),(*it2).first.end(),name)!=(*it2).first.end())
2994                 {
2995                   elt->setName((*it2).second.c_str());
2996                   return;
2997                 }
2998             }
2999         }
3000     }
3001 }
3002
3003 void MEDFileFieldGlobs::changeLocsNamesInStruct(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
3004 {
3005   for(std::vector< MCAuto<MEDFileFieldLoc> >::iterator it=_locs.begin();it!=_locs.end();it++)
3006     {
3007       MEDFileFieldLoc *elt(*it);
3008       if(elt)
3009         {
3010           std::string name(elt->getName());
3011           for(std::vector< std::pair<std::vector<std::string>, std::string > >::const_iterator it2=mapOfModif.begin();it2!=mapOfModif.end();it2++)
3012             {
3013               if(std::find((*it2).first.begin(),(*it2).first.end(),name)!=(*it2).first.end())
3014                 {
3015                   elt->setName((*it2).second.c_str());
3016                   return;
3017                 }
3018             }
3019         }
3020     }
3021 }
3022
3023 int MEDFileFieldGlobs::getNbOfGaussPtPerCell(int locId) const
3024 {
3025   if(locId<0 || locId>=(int)_locs.size())
3026     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::getNbOfGaussPtPerCell : Invalid localization id !");
3027   return _locs[locId]->getNbOfGaussPtPerCell();
3028 }
3029
3030 const MEDFileFieldLoc& MEDFileFieldGlobs::getLocalization(const std::string& locName) const
3031 {
3032   return getLocalizationFromId(getLocalizationId(locName));
3033 }
3034
3035 const MEDFileFieldLoc& MEDFileFieldGlobs::getLocalizationFromId(int locId) const
3036 {
3037   if(locId<0 || locId>=(int)_locs.size())
3038     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::getLocalizationFromId : Invalid localization id !");
3039   return *_locs[locId];
3040 }
3041
3042 /// @cond INTERNAL
3043 namespace MEDCouplingImpl
3044 {
3045   class LocFinder
3046   {
3047   public:
3048     LocFinder(const std::string& loc):_loc(loc) { }
3049     bool operator() (const MCAuto<MEDFileFieldLoc>& loc) { return loc->isName(_loc); }
3050   private:
3051     const std::string &_loc;
3052   };
3053
3054   class PflFinder
3055   {
3056   public:
3057     PflFinder(const std::string& pfl):_pfl(pfl) { }
3058     bool operator() (const MCAuto<DataArrayInt>& pfl) { return _pfl==pfl->getName(); }
3059   private:
3060     const std::string& _pfl;
3061   };
3062 }
3063 /// @endcond
3064
3065 int MEDFileFieldGlobs::getLocalizationId(const std::string& loc) const
3066 {
3067   std::vector< MCAuto<MEDFileFieldLoc> >::const_iterator it=std::find_if(_locs.begin(),_locs.end(),MEDCouplingImpl::LocFinder(loc));
3068   if(it==_locs.end())
3069     {
3070       std::ostringstream oss; oss << "MEDFileFieldGlobs::getLocalisationId : no such localisation name : \"" << loc << "\" Possible localizations are : ";
3071       for(it=_locs.begin();it!=_locs.end();it++)
3072         oss << "\"" << (*it)->getName() << "\", ";
3073       throw INTERP_KERNEL::Exception(oss.str());
3074     }
3075   return std::distance(_locs.begin(),it);
3076 }
3077
3078 /*!
3079  * The returned value is never null.
3080  */
3081 const DataArrayInt *MEDFileFieldGlobs::getProfile(const std::string& pflName) const
3082 {
3083   std::string pflNameCpp(pflName);
3084   std::vector< MCAuto<DataArrayInt> >::const_iterator it=std::find_if(_pfls.begin(),_pfls.end(),MEDCouplingImpl::PflFinder(pflNameCpp));
3085   if(it==_pfls.end())
3086     {
3087       std::ostringstream oss; oss << "MEDFileFieldGlobs::getProfile: no such profile name : \"" << pflNameCpp << "\" Possible profiles are : ";
3088       for(it=_pfls.begin();it!=_pfls.end();it++)
3089         oss << "\"" << (*it)->getName() << "\", ";
3090       throw INTERP_KERNEL::Exception(oss.str());
3091     }
3092   return *it;
3093 }
3094
3095 const DataArrayInt *MEDFileFieldGlobs::getProfileFromId(int pflId) const
3096 {
3097   if(pflId<0 || pflId>=(int)_pfls.size())
3098     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::getProfileFromId : Invalid profile id !");
3099   return _pfls[pflId];
3100 }
3101
3102 MEDFileFieldLoc& MEDFileFieldGlobs::getLocalizationFromId(int locId)
3103 {
3104   if(locId<0 || locId>=(int)_locs.size())
3105     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::getLocalizationFromId : Invalid localization id !");
3106   return *_locs[locId];
3107 }
3108
3109 MEDFileFieldLoc& MEDFileFieldGlobs::getLocalization(const std::string& locName)
3110 {
3111   return getLocalizationFromId(getLocalizationId(locName));
3112 }
3113
3114 /*!
3115  * The returned value is never null.
3116  */
3117 DataArrayInt *MEDFileFieldGlobs::getProfile(const std::string& pflName)
3118 {
3119   std::string pflNameCpp(pflName);
3120   std::vector< MCAuto<DataArrayInt> >::iterator it=std::find_if(_pfls.begin(),_pfls.end(),MEDCouplingImpl::PflFinder(pflNameCpp));
3121   if(it==_pfls.end())
3122     {
3123       std::ostringstream oss; oss << "MEDFileFieldGlobs::getProfile: no such profile name : \"" << pflNameCpp << "\" Possible profiles are : ";
3124       for(it=_pfls.begin();it!=_pfls.end();it++)
3125         oss << "\"" << (*it)->getName() << "\", ";
3126       throw INTERP_KERNEL::Exception(oss.str());
3127     }
3128   return *it;
3129 }
3130
3131 DataArrayInt *MEDFileFieldGlobs::getProfileFromId(int pflId)
3132 {
3133   if(pflId<0 || pflId>=(int)_pfls.size())
3134     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::getProfileFromId : Invalid profile id !");
3135   return _pfls[pflId];
3136 }
3137
3138 void MEDFileFieldGlobs::killProfileIds(const std::vector<int>& pflIds)
3139 {
3140   std::vector< MCAuto<DataArrayInt> > newPfls;
3141   int i=0;
3142   for(std::vector< MCAuto<DataArrayInt> >::const_iterator it=_pfls.begin();it!=_pfls.end();it++,i++)
3143     {
3144       if(std::find(pflIds.begin(),pflIds.end(),i)==pflIds.end())
3145         newPfls.push_back(*it);
3146     }
3147   _pfls=newPfls;
3148 }
3149
3150 void MEDFileFieldGlobs::killLocalizationIds(const std::vector<int>& locIds)
3151 {
3152   std::vector< MCAuto<MEDFileFieldLoc> > newLocs;
3153   int i=0;
3154   for(std::vector< MCAuto<MEDFileFieldLoc> >::const_iterator it=_locs.begin();it!=_locs.end();it++,i++)
3155     {
3156       if(std::find(locIds.begin(),locIds.end(),i)==locIds.end())
3157         newLocs.push_back(*it);
3158     }
3159   _locs=newLocs;
3160 }
3161
3162 std::vector<std::string> MEDFileFieldGlobs::getPfls() const
3163 {
3164   int sz=_pfls.size();
3165   std::vector<std::string> ret(sz);
3166   for(int i=0;i<sz;i++)
3167     ret[i]=_pfls[i]->getName();
3168   return ret;
3169 }
3170
3171 std::vector<std::string> MEDFileFieldGlobs::getLocs() const
3172 {
3173   int sz=_locs.size();
3174   std::vector<std::string> ret(sz);
3175   for(int i=0;i<sz;i++)
3176     ret[i]=_locs[i]->getName();
3177   return ret;
3178 }
3179
3180 bool MEDFileFieldGlobs::existsPfl(const std::string& pflName) const
3181 {
3182   std::vector<std::string> v=getPfls();
3183   std::string s(pflName);
3184   return std::find(v.begin(),v.end(),s)!=v.end();
3185 }
3186
3187 bool MEDFileFieldGlobs::existsLoc(const std::string& locName) const
3188 {
3189   std::vector<std::string> v=getLocs();
3190   std::string s(locName);
3191   return std::find(v.begin(),v.end(),s)!=v.end();
3192 }
3193
3194 std::vector< std::vector<int> > MEDFileFieldGlobs::whichAreEqualProfiles() const
3195 {
3196   std::map<int,std::vector<int> > m;
3197   int i=0;
3198   for(std::vector< MCAuto<DataArrayInt> >::const_iterator it=_pfls.begin();it!=_pfls.end();it++,i++)
3199     {
3200       const DataArrayInt *tmp=(*it);
3201       if(tmp)
3202         {
3203           m[tmp->getHashCode()].push_back(i);
3204         }
3205     }
3206   std::vector< std::vector<int> > ret;
3207   for(std::map<int,std::vector<int> >::const_iterator it2=m.begin();it2!=m.end();it2++)
3208     {
3209       if((*it2).second.size()>1)
3210         {
3211           std::vector<int> ret0;
3212           bool equalityOrNot=false;
3213           for(std::vector<int>::const_iterator it3=(*it2).second.begin();it3!=(*it2).second.end();it3++)
3214             {
3215               std::vector<int>::const_iterator it4=it3; it4++;
3216               for(;it4!=(*it2).second.end();it4++)
3217                 {
3218                   if(_pfls[*it3]->isEqualWithoutConsideringStr(*_pfls[*it4]))
3219                     {
3220                       if(!equalityOrNot)
3221                         ret0.push_back(*it3);
3222                       ret0.push_back(*it4);
3223                       equalityOrNot=true;
3224                     }
3225                 }
3226             }
3227           if(!ret0.empty())
3228             ret.push_back(ret0);
3229         }
3230     }
3231   return ret;
3232 }
3233
3234 std::vector< std::vector<int> > MEDFileFieldGlobs::whichAreEqualLocs(double eps) const
3235 {
3236   throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::whichAreEqualLocs : no implemented yet ! Sorry !");
3237 }
3238
3239 void MEDFileFieldGlobs::appendProfile(DataArrayInt *pfl)
3240 {
3241   std::string name(pfl->getName());
3242   if(name.empty())
3243     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::appendProfile : unsupported profiles with no name !");
3244   for(std::vector< MCAuto<DataArrayInt> >::const_iterator it=_pfls.begin();it!=_pfls.end();it++)
3245     if(name==(*it)->getName())
3246       {
3247         if(!pfl->isEqual(*(*it)))
3248           {
3249             std::ostringstream oss; oss << "MEDFileFieldGlobs::appendProfile : profile \"" << name << "\" already exists and is different from existing !";
3250             throw INTERP_KERNEL::Exception(oss.str());
3251           }
3252       }
3253   pfl->incrRef();
3254   _pfls.push_back(pfl);
3255 }
3256
3257 void MEDFileFieldGlobs::appendLoc(const std::string& locName, INTERP_KERNEL::NormalizedCellType geoType, const std::vector<double>& refCoo, const std::vector<double>& gsCoo, const std::vector<double>& w)
3258 {
3259   std::string name(locName);
3260   if(name.empty())
3261     throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::appendLoc : unsupported localizations with no name !");
3262   MCAuto<MEDFileFieldLoc> obj=MEDFileFieldLoc::New(locName,geoType,refCoo,gsCoo,w);
3263   for(std::vector< MCAuto<MEDFileFieldLoc> >::const_iterator it=_locs.begin();it!=_locs.end();it++)
3264     if((*it)->isName(locName))
3265       {
3266         if(!(*it)->isEqual(*obj,1e-12))
3267           {
3268             std::ostringstream oss; oss << "MEDFileFieldGlobs::appendLoc : localization \"" << name << "\" already exists and is different from existing !";
3269             throw INTERP_KERNEL::Exception(oss.str());
3270           }
3271       }
3272   _locs.push_back(obj);
3273 }
3274
3275 std::string MEDFileFieldGlobs::createNewNameOfPfl() const
3276 {
3277   std::vector<std::string> names=getPfls();
3278   return CreateNewNameNotIn("NewPfl_",names);
3279 }
3280
3281 std::string MEDFileFieldGlobs::createNewNameOfLoc() const
3282 {
3283   std::vector<std::string> names=getLocs();
3284   return CreateNewNameNotIn("NewLoc_",names);
3285 }
3286
3287 std::string MEDFileFieldGlobs::CreateNewNameNotIn(const std::string& prefix, const std::vector<std::string>& namesToAvoid)
3288 {
3289   for(std::size_t sz=0;sz<100000;sz++)
3290     {
3291       std::ostringstream tryName;
3292       tryName << prefix << sz;
3293       if(std::find(namesToAvoid.begin(),namesToAvoid.end(),tryName.str())==namesToAvoid.end())
3294         return tryName.str();
3295     }
3296   throw INTERP_KERNEL::Exception("MEDFileFieldGlobs::CreateNewNameNotIn : impossible to create an additional profile limit of 100000 profiles reached !");
3297 }
3298
3299 /*!
3300  * Creates a MEDFileFieldGlobsReal on a given file name. Nothing is read here.
3301  *  \param [in] fname - the file name.
3302  */
3303 MEDFileFieldGlobsReal::MEDFileFieldGlobsReal(med_idt fid):_globals(MEDFileFieldGlobs::New(fid))
3304 {
3305 }
3306
3307 /*!
3308  * Creates an empty MEDFileFieldGlobsReal.
3309  */
3310 MEDFileFieldGlobsReal::MEDFileFieldGlobsReal():_globals(MEDFileFieldGlobs::New())
3311 {
3312 }
3313
3314 std::size_t MEDFileFieldGlobsReal::getHeapMemorySizeWithoutChildren() const
3315 {
3316   return 0;
3317 }
3318
3319 std::vector<const BigMemoryObject *> MEDFileFieldGlobsReal::getDirectChildrenWithNull() const
3320 {
3321   std::vector<const BigMemoryObject *> ret;
3322   ret.push_back((const MEDFileFieldGlobs *)_globals);
3323   return ret;
3324 }
3325
3326 /*!
3327  * Returns a string describing profiles and Gauss points held in \a this.
3328  *  \return std::string - the description string.
3329  */
3330 void MEDFileFieldGlobsReal::simpleReprGlobs(std::ostream& oss) const
3331 {
3332   const MEDFileFieldGlobs *glob=_globals;
3333   std::ostringstream oss2; oss2 << glob;
3334   std::string stars(oss2.str().length(),'*');
3335   oss << "Globals information on fields (at " << oss2.str() << "):" << "\n************************************" << stars  << "\n\n";
3336   if(glob)
3337     glob->simpleRepr(oss);
3338   else
3339     oss << "NO GLOBAL INFORMATION !\n";
3340 }
3341
3342 void MEDFileFieldGlobsReal::resetContent()
3343 {
3344   _globals=MEDFileFieldGlobs::New();
3345 }
3346
3347 MEDFileFieldGlobsReal::~MEDFileFieldGlobsReal()
3348 {
3349 }
3350
3351 /*!
3352  * Copies references to profiles and Gauss points from another MEDFileFieldGlobsReal.
3353  *  \param [in] other - the other MEDFileFieldGlobsReal to copy data from.
3354  */
3355 void MEDFileFieldGlobsReal::shallowCpyGlobs(const MEDFileFieldGlobsReal& other)
3356 {
3357   _globals=other._globals;
3358 }
3359
3360 /*!
3361  * Copies references to ** only used ** by \a this, profiles and Gauss points from another MEDFileFieldGlobsReal.
3362  *  \param [in] other - the other MEDFileFieldGlobsReal to copy data from.
3363  */
3364 void MEDFileFieldGlobsReal::shallowCpyOnlyUsedGlobs(const MEDFileFieldGlobsReal& other)
3365 {
3366   const MEDFileFieldGlobs *otherg(other._globals);
3367   if(!otherg)
3368     return ;
3369   _globals=otherg->shallowCpyPart(getPflsReallyUsed(),getLocsReallyUsed());
3370 }
3371
3372 /*!
3373  * Copies deeply to ** only used ** by \a this, profiles and Gauss points from another MEDFileFieldGlobsReal.
3374  *  \param [in] other - the other MEDFileFieldGlobsReal to copy data from.
3375  */
3376 void MEDFileFieldGlobsReal::deepCpyOnlyUsedGlobs(const MEDFileFieldGlobsReal& other)
3377 {
3378   const MEDFileFieldGlobs *otherg(other._globals);
3379   if(!otherg)
3380     return ;
3381   _globals=otherg->deepCpyPart(getPflsReallyUsed(),getLocsReallyUsed());
3382 }
3383
3384 void MEDFileFieldGlobsReal::deepCpyGlobs(const MEDFileFieldGlobsReal& other)
3385 {
3386   _globals=other._globals;
3387   if((const MEDFileFieldGlobs *)_globals)
3388     _globals=other._globals->deepCopy();
3389 }
3390
3391 /*!
3392  * Adds profiles and Gauss points held by another MEDFileFieldGlobsReal to \a this one.
3393  *  \param [in] other - the MEDFileFieldGlobsReal to copy data from.
3394  *  \param [in] eps - a precision used to compare Gauss points with same name held by
3395  *         \a this and \a other MEDFileFieldGlobsReal.
3396  *  \throw If \a this and \a other hold profiles with equal names but different ids.
3397  *  \throw If  \a this and \a other hold different Gauss points with equal names.
3398  */
3399 void MEDFileFieldGlobsReal::appendGlobs(const MEDFileFieldGlobsReal& other, double eps)
3400 {
3401   const MEDFileFieldGlobs *thisGlobals(_globals),*otherGlobals(other._globals);
3402   if(thisGlobals==otherGlobals)
3403     return ;
3404   if(!thisGlobals)
3405     {
3406       _globals=other._globals;
3407       return ;
3408     }
3409   _globals->appendGlobs(*other._globals,eps);
3410 }
3411
3412 void MEDFileFieldGlobsReal::checkGlobsCoherency() const
3413 {
3414   checkGlobsPflsPartCoherency();
3415   checkGlobsLocsPartCoherency();
3416 }
3417
3418 void MEDFileFieldGlobsReal::checkGlobsPflsPartCoherency() const
3419 {
3420   contentNotNull()->checkGlobsPflsPartCoherency(getPflsReallyUsed());
3421 }
3422
3423 void MEDFileFieldGlobsReal::checkGlobsLocsPartCoherency() const
3424 {
3425   contentNotNull()->checkGlobsLocsPartCoherency(getLocsReallyUsed());
3426 }
3427
3428 void MEDFileFieldGlobsReal::loadProfileInFile(med_idt fid, int id, const std::string& pflName)
3429 {
3430   contentNotNull()->loadProfileInFile(fid,id,pflName);
3431 }
3432
3433 void MEDFileFieldGlobsReal::loadProfileInFile(med_idt fid, int id)
3434 {
3435   contentNotNull()->loadProfileInFile(fid,id);
3436 }
3437
3438 void MEDFileFieldGlobsReal::loadGlobals(med_idt fid)
3439 {
3440   contentNotNull()->loadGlobals(fid,*this);
3441 }
3442
3443 void MEDFileFieldGlobsReal::loadAllGlobals(med_idt fid)
3444 {
3445   contentNotNull()->loadAllGlobals(fid);
3446 }
3447
3448 void MEDFileFieldGlobsReal::writeGlobals(med_idt fid, const MEDFileWritable& opt) const
3449 {
3450   contentNotNull()->writeGlobals(fid,opt);
3451 }
3452
3453 /*!
3454  * Returns names of all profiles. To get only used profiles call getPflsReallyUsed()
3455  * or getPflsReallyUsedMulti().
3456  *  \return std::vector<std::string> - a sequence of names of all profiles.
3457  */
3458 std::vector<std::string> MEDFileFieldGlobsReal::getPfls() const
3459 {
3460   return contentNotNull()->getPfls();
3461 }
3462
3463 /*!
3464  * Returns names of all localizations. To get only used localizations call getLocsReallyUsed()
3465  * or getLocsReallyUsedMulti().
3466  *  \return std::vector<std::string> - a sequence of names of all localizations.
3467  */
3468 std::vector<std::string> MEDFileFieldGlobsReal::getLocs() const
3469 {
3470   return contentNotNull()->getLocs();
3471 }
3472
3473 /*!
3474  * Checks if the profile with a given name exists.
3475  *  \param [in] pflName - the profile name of interest.
3476  *  \return bool - \c true if the profile named \a pflName exists.
3477  */
3478 bool MEDFileFieldGlobsReal::existsPfl(const std::string& pflName) const
3479 {
3480   return contentNotNull()->existsPfl(pflName);
3481 }
3482
3483 /*!
3484  * Checks if the localization with a given name exists.
3485  *  \param [in] locName - the localization name of interest.
3486  *  \return bool - \c true if the localization named \a locName exists.
3487  */
3488 bool MEDFileFieldGlobsReal::existsLoc(const std::string& locName) const
3489 {
3490   return contentNotNull()->existsLoc(locName);
3491 }
3492
3493 std::string MEDFileFieldGlobsReal::createNewNameOfPfl() const
3494 {
3495   return contentNotNull()->createNewNameOfPfl();
3496 }
3497
3498 std::string MEDFileFieldGlobsReal::createNewNameOfLoc() const
3499 {
3500   return contentNotNull()->createNewNameOfLoc();
3501 }
3502
3503 /*!
3504  * Sets the name of a MED file.
3505  *  \param [inout] fileName - the file name.
3506  */
3507 void MEDFileFieldGlobsReal::setFileName(const std::string& fileName)
3508 {
3509   contentNotNull()->setFileName(fileName);
3510 }
3511
3512 /*!
3513  * Finds equal profiles. Two profiles are considered equal if they contain the same ids
3514  * in the same order.
3515  *  \return std::vector< std::vector<int> > - a sequence of groups of equal profiles.
3516  *          Each item of this sequence is a vector containing ids of equal profiles.
3517  */
3518 std::vector< std::vector<int> > MEDFileFieldGlobsReal::whichAreEqualProfiles() const
3519 {
3520   return contentNotNull()->whichAreEqualProfiles();
3521 }
3522
3523 /*!
3524  * Finds equal localizations.
3525  *  \param [in] eps - a precision used to compare real values of the localizations.
3526  *  \return std::vector< std::vector<int> > - a sequence of groups of equal localizations.
3527  *          Each item of this sequence is a vector containing ids of equal localizations.
3528  */
3529 std::vector< std::vector<int> > MEDFileFieldGlobsReal::whichAreEqualLocs(double eps) const
3530 {
3531   return contentNotNull()->whichAreEqualLocs(eps);
3532 }
3533
3534 /*!
3535  * Renames the profiles. References to profiles (a reference is a profile name) are not changed.
3536  * \param [in] mapOfModif - a sequence describing required renaming. Each element of
3537  *        this sequence is a pair whose
3538  *        - the first item is a vector of profile names to replace by the second item,
3539  *        - the second item is a profile name to replace every profile name of the first item.
3540  */
3541 void MEDFileFieldGlobsReal::changePflsNamesInStruct(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
3542 {
3543   contentNotNull()->changePflsNamesInStruct(mapOfModif);
3544 }
3545
3546 /*!
3547  * Renames the localizations. References to localizations (a reference is a localization name) are not changed.
3548  * \param [in] mapOfModif - a sequence describing required renaming. Each element of
3549  *        this sequence is a pair whose
3550  *        - the first item is a vector of localization names to replace by the second item,
3551  *        - the second item is a localization name to replace every localization name of the first item.
3552  */
3553 void MEDFileFieldGlobsReal::changeLocsNamesInStruct(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
3554 {
3555   contentNotNull()->changeLocsNamesInStruct(mapOfModif);
3556 }
3557
3558 /*!
3559  * Replaces references to some profiles (a reference is a profile name) by references
3560  * to other profiles and, contrary to changePflsRefsNamesGen(), renames the profiles
3561  * them-selves accordingly. <br>
3562  * This method is a generalization of changePflName().
3563  * \param [in] mapOfModif - a sequence describing required replacements. Each element of
3564  *        this sequence is a pair whose
3565  *        - the first item is a vector of profile names to replace by the second item,
3566  *        - the second item is a profile name to replace every profile of the first item.
3567  * \sa changePflsRefsNamesGen()
3568  * \sa changePflName()
3569  */
3570 void MEDFileFieldGlobsReal::changePflsNames(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
3571 {
3572   changePflsRefsNamesGen(mapOfModif);
3573   changePflsNamesInStruct(mapOfModif);
3574 }
3575
3576 /*!
3577  * Replaces references to some localizations (a reference is a localization name) by references
3578  * to other localizations and, contrary to changeLocsRefsNamesGen(), renames the localizations
3579  * them-selves accordingly. <br>
3580  * This method is a generalization of changeLocName().
3581  * \param [in] mapOfModif - a sequence describing required replacements. Each element of
3582  *        this sequence is a pair whose
3583  *        - the first item is a vector of localization names to replace by the second item,
3584  *        - the second item is a localization name to replace every localization of the first item.
3585  * \sa changeLocsRefsNamesGen()
3586  * \sa changeLocName()
3587  */
3588 void MEDFileFieldGlobsReal::changeLocsNames(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
3589 {
3590   changeLocsRefsNamesGen(mapOfModif);
3591   changeLocsNamesInStruct(mapOfModif);
3592 }
3593
3594 /*!
3595  * Renames the profile having a given name and updates references to this profile.
3596  *  \param [in] oldName - the name of the profile to rename.
3597  *  \param [in] newName - a new name of the profile.
3598  * \sa changePflsNames().
3599  */
3600 void MEDFileFieldGlobsReal::changePflName(const std::string& oldName, const std::string& newName)
3601 {
3602   std::vector< std::pair<std::vector<std::string>, std::string > > mapOfModif(1);
3603   std::pair<std::vector<std::string>, std::string > p(std::vector<std::string>(1,std::string(oldName)),std::string(newName));
3604   mapOfModif[0]=p;
3605   changePflsNames(mapOfModif);
3606 }
3607
3608 /*!
3609  * Renames the localization having a given name and updates references to this localization.
3610  *  \param [in] oldName - the name of the localization to rename.
3611  *  \param [in] newName - a new name of the localization.
3612  * \sa changeLocsNames().
3613  */
3614 void MEDFileFieldGlobsReal::changeLocName(const std::string& oldName, const std::string& newName)
3615 {
3616   std::vector< std::pair<std::vector<std::string>, std::string > > mapOfModif(1);
3617   std::pair<std::vector<std::string>, std::string > p(std::vector<std::string>(1,std::string(oldName)),std::string(newName));
3618   mapOfModif[0]=p;
3619   changeLocsNames(mapOfModif);
3620 }
3621
3622 /*!
3623  * Removes duplicated profiles. Returns a map used to update references to removed
3624  * profiles via changePflsRefsNamesGen().
3625  * Equal profiles are found using whichAreEqualProfiles().
3626  *  \return std::vector< std::pair<std::vector<std::string>, std::string > > -
3627  *          a sequence describing the performed replacements of profiles. Each element of
3628  *          this sequence is a pair whose
3629  *          - the first item is a vector of profile names replaced by the second item,
3630  *          - the second item is a profile name replacing every profile of the first item.
3631  */
3632 std::vector< std::pair<std::vector<std::string>, std::string > > MEDFileFieldGlobsReal::zipPflsNames()
3633 {
3634   std::vector< std::vector<int> > pseudoRet=whichAreEqualProfiles();
3635   std::vector< std::pair<std::vector<std::string>, std::string > > ret(pseudoRet.size());
3636   int i=0;
3637   for(std::vector< std::vector<int> >::const_iterator it=pseudoRet.begin();it!=pseudoRet.end();it++,i++)
3638     {
3639       std::vector< std::string > tmp((*it).size());
3640       int j=0;
3641       for(std::vector<int>::const_iterator it2=(*it).begin();it2!=(*it).end();it2++,j++)
3642         tmp[j]=std::string(getProfileFromId(*it2)->getName());
3643       std::pair<std::vector<std::string>, std::string > p(tmp,tmp.front());
3644       ret[i]=p;
3645       std::vector<int> tmp2((*it).begin()+1,(*it).end());
3646       killProfileIds(tmp2);
3647     }
3648   changePflsRefsNamesGen(ret);
3649   return ret;
3650 }
3651
3652 /*!
3653  * Removes duplicated localizations. Returns a map used to update references to removed
3654  * localizations via changeLocsRefsNamesGen().
3655  * Equal localizations are found using whichAreEqualLocs().
3656  *  \param [in] eps - a precision used to compare real values of the localizations.
3657  *  \return std::vector< std::pair<std::vector<std::string>, std::string > > -
3658  *          a sequence describing the performed replacements of localizations. Each element of
3659  *          this sequence is a pair whose
3660  *          - the first item is a vector of localization names replaced by the second item,
3661  *          - the second item is a localization name replacing every localization of the first item.
3662  */
3663 std::vector< std::pair<std::vector<std::string>, std::string > > MEDFileFieldGlobsReal::zipLocsNames(double eps)
3664 {
3665   std::vector< std::vector<int> > pseudoRet=whichAreEqualLocs(eps);
3666   std::vector< std::pair<std::vector<std::string>, std::string > > ret(pseudoRet.size());
3667   int i=0;
3668   for(std::vector< std::vector<int> >::const_iterator it=pseudoRet.begin();it!=pseudoRet.end();it++,i++)
3669     {
3670       std::vector< std::string > tmp((*it).size());
3671       int j=0;
3672       for(std::vector<int>::const_iterator it2=(*it).begin();it2!=(*it).end();it2++,j++)
3673         tmp[j]=std::string(getLocalizationFromId(*it2).getName());
3674       std::pair<std::vector<std::string>, std::string > p(tmp,tmp.front());
3675       ret[i]=p;
3676       std::vector<int> tmp2((*it).begin()+1,(*it).end());
3677       killLocalizationIds(tmp2);
3678     }
3679   changeLocsRefsNamesGen(ret);
3680   return ret;
3681 }
3682
3683 /*!
3684  * Returns number of Gauss points per cell in a given localization.
3685  *  \param [in] locId - an id of the localization of interest.
3686  *  \return int - the number of the Gauss points per cell.
3687  */
3688 int MEDFileFieldGlobsReal::getNbOfGaussPtPerCell(int locId) const
3689 {
3690   return contentNotNull()->getNbOfGaussPtPerCell(locId);
3691 }
3692
3693 /*!
3694  * Returns an id of a localization by its name.
3695  *  \param [in] loc - the localization name of interest.
3696  *  \return int - the id of the localization.
3697  *  \throw If there is no a localization named \a loc.
3698  */
3699 int MEDFileFieldGlobsReal::getLocalizationId(const std::string& loc) const
3700 {
3701   return contentNotNull()->getLocalizationId(loc);
3702 }
3703
3704 /*!
3705  * Returns the name of the MED file.
3706  *  \return const std::string&  - the MED file name.
3707  */
3708 std::string MEDFileFieldGlobsReal::getFileName() const
3709 {
3710   return contentNotNull()->getFileName();
3711 }
3712
3713 /*!
3714  * Returns a localization object by its name.
3715  *  \param [in] locName - the name of the localization of interest.
3716  *  \return const MEDFileFieldLoc& - the localization object having the name \a locName.
3717  *  \throw If there is no a localization named \a locName.
3718  */
3719 const MEDFileFieldLoc& MEDFileFieldGlobsReal::getLocalization(const std::string& locName) const
3720 {
3721   return contentNotNull()->getLocalization(locName);
3722 }
3723
3724 /*!
3725  * Returns a localization object by its id.
3726  *  \param [in] locId - the id of the localization of interest.
3727  *  \return const MEDFileFieldLoc& - the localization object having the id \a locId.
3728  *  \throw If there is no a localization with id \a locId.
3729  */
3730 const MEDFileFieldLoc& MEDFileFieldGlobsReal::getLocalizationFromId(int locId) const
3731 {
3732   return contentNotNull()->getLocalizationFromId(locId);
3733 }
3734
3735 /*!
3736  * Returns a profile array by its name.
3737  *  \param [in] pflName - the name of the profile of interest.
3738  *  \return const DataArrayInt * - the profile array having the name \a pflName.
3739  *  \throw If there is no a profile named \a pflName.
3740  */
3741 const DataArrayInt *MEDFileFieldGlobsReal::getProfile(const std::string& pflName) const
3742 {
3743   return contentNotNull()->getProfile(pflName);
3744 }
3745
3746 /*!
3747  * Returns a profile array by its id.
3748  *  \param [in] pflId - the id of the profile of interest.
3749  *  \return const DataArrayInt * - the profile array having the id \a pflId.
3750  *  \throw If there is no a profile with id \a pflId.
3751  */
3752 const DataArrayInt *MEDFileFieldGlobsReal::getProfileFromId(int pflId) const
3753 {
3754   return contentNotNull()->getProfileFromId(pflId);
3755 }
3756
3757 /*!
3758  * Returns a localization object, apt for modification, by its id.
3759  *  \param [in] locId - the id of the localization of interest.
3760  *  \return MEDFileFieldLoc& - a non-const reference to the localization object
3761  *          having the id \a locId.
3762  *  \throw If there is no a localization with id \a locId.
3763  */
3764 MEDFileFieldLoc& MEDFileFieldGlobsReal::getLocalizationFromId(int locId)
3765 {
3766   return contentNotNull()->getLocalizationFromId(locId);
3767 }
3768
3769 /*!
3770  * Returns a localization object, apt for modification, by its name.
3771  *  \param [in] locName - the name of the localization of interest.
3772  *  \return MEDFileFieldLoc& - a non-const reference to the localization object
3773  *          having the name \a locName.
3774  *  \throw If there is no a localization named \a locName.
3775  */
3776 MEDFileFieldLoc& MEDFileFieldGlobsReal::getLocalization(const std::string& locName)
3777 {
3778   return contentNotNull()->getLocalization(locName);
3779 }
3780
3781 /*!
3782  * Returns a profile array, apt for modification, by its name.
3783  *  \param [in] pflName - the name of the profile of interest.
3784  *  \return DataArrayInt * - a non-const pointer to the profile array having the name \a pflName.
3785  *  \throw If there is no a profile named \a pflName.
3786  */
3787 DataArrayInt *MEDFileFieldGlobsReal::getProfile(const std::string& pflName)
3788 {
3789   return contentNotNull()->getProfile(pflName);
3790 }
3791
3792 /*!
3793  * Returns a profile array, apt for modification, by its id.
3794  *  \param [in] pflId - the id of the profile of interest.
3795  *  \return DataArrayInt * - a non-const pointer to the profile array having the id \a pflId.
3796  *  \throw If there is no a profile with id \a pflId.
3797  */
3798 DataArrayInt *MEDFileFieldGlobsReal::getProfileFromId(int pflId)
3799 {
3800   return contentNotNull()->getProfileFromId(pflId);
3801 }
3802
3803 /*!
3804  * Removes profiles given by their ids. No data is updated to track this removal.
3805  *  \param [in] pflIds - a sequence of ids of the profiles to remove.
3806  */
3807 void MEDFileFieldGlobsReal::killProfileIds(const std::vector<int>& pflIds)
3808 {
3809   contentNotNull()->killProfileIds(pflIds);
3810 }
3811
3812 /*!
3813  * Removes localizations given by their ids. No data is updated to track this removal.
3814  *  \param [in] locIds - a sequence of ids of the localizations to remove.
3815  */
3816 void MEDFileFieldGlobsReal::killLocalizationIds(const std::vector<int>& locIds)
3817 {
3818   contentNotNull()->killLocalizationIds(locIds);
3819 }
3820
3821 /*!
3822  * Stores a profile array.
3823  *  \param [in] pfl - the profile array to store.
3824  *  \throw If the name of \a pfl is empty.
3825  *  \throw If a profile with the same name as that of \a pfl already exists but contains
3826  *         different ids.
3827  */
3828 void MEDFileFieldGlobsReal::appendProfile(DataArrayInt *pfl)
3829 {
3830   contentNotNull()->appendProfile(pfl);
3831 }
3832
3833 /*!
3834  * Adds a new localization of Gauss points.
3835  *  \param [in] locName - the name of the new localization.
3836  *  \param [in] geoType - a geometrical type of the reference cell.
3837  *  \param [in] refCoo - coordinates of points of the reference cell. Size of this vector
3838  *         must be \c nbOfNodesPerCell * \c dimOfType.
3839  *  \param [in] gsCoo - coordinates of Gauss points on the reference cell. Size of this vector
3840  *         must be  _wg_.size() * \c dimOfType.
3841  *  \param [in] w - the weights of Gauss points.
3842  *  \throw If \a locName is empty.
3843  *  \throw If a localization with the name \a locName already exists but is
3844  *         different form the new one.
3845  */
3846 void MEDFileFieldGlobsReal::appendLoc(const std::string& locName, INTERP_KERNEL::NormalizedCellType geoType, const std::vector<double>& refCoo, const std::vector<double>& gsCoo, const std::vector<double>& w)
3847 {
3848   contentNotNull()->appendLoc(locName,geoType,refCoo,gsCoo,w);
3849 }
3850
3851 MEDFileFieldGlobs *MEDFileFieldGlobsReal::contentNotNull()
3852 {
3853   MEDFileFieldGlobs *g(_globals);
3854   if(!g)
3855     throw INTERP_KERNEL::Exception("MEDFileFieldGlobsReal::contentNotNull : no content in not const !");
3856   return g;
3857 }
3858
3859 const MEDFileFieldGlobs *MEDFileFieldGlobsReal::contentNotNull() const
3860 {
3861   const MEDFileFieldGlobs *g(_globals);
3862   if(!g)
3863     throw INTERP_KERNEL::Exception("MEDFileFieldGlobsReal::contentNotNull : no content in const !");
3864   return g;
3865 }
3866
3867 //= MEDFileFieldNameScope
3868
3869 MEDFileFieldNameScope::MEDFileFieldNameScope()
3870 {
3871 }
3872
3873 MEDFileFieldNameScope::MEDFileFieldNameScope(const std::string& fieldName):_name(fieldName)
3874 {
3875 }
3876
3877 /*!
3878  * Returns the name of \a this field.
3879  *  \return std::string - a string containing the field name.
3880  */
3881 std::string MEDFileFieldNameScope::getName() const
3882 {
3883   return _name;
3884 }
3885
3886 /*!
3887  * Sets name of \a this field
3888  *  \param [in] name - the new field name.
3889  */
3890 void MEDFileFieldNameScope::setName(const std::string& fieldName)
3891 {
3892   _name=fieldName;
3893 }
3894
3895 std::string MEDFileFieldNameScope::getDtUnit() const
3896 {
3897   return _dt_unit;
3898 }
3899
3900 void MEDFileFieldNameScope::setDtUnit(const std::string& dtUnit)
3901 {
3902   _dt_unit=dtUnit;
3903 }
3904
3905 void MEDFileFieldNameScope::copyNameScope(const MEDFileFieldNameScope& other)
3906 {
3907   _name=other._name;
3908   _dt_unit=other._dt_unit;
3909 }
3910
3911 //= MEDFileAnyTypeField1TSWithoutSDA
3912
3913 void MEDFileAnyTypeField1TSWithoutSDA::deepCpyLeavesFrom(const MEDFileAnyTypeField1TSWithoutSDA& other)
3914 {
3915   _field_per_mesh.resize(other._field_per_mesh.size());
3916   std::size_t i=0;
3917   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=other._field_per_mesh.begin();it!=other._field_per_mesh.end();it++,i++)
3918     {
3919       if((const MEDFileFieldPerMesh *)*it)
3920         _field_per_mesh[i]=(*it)->deepCopy(this);
3921     }
3922 }
3923
3924 /*!
3925  * Prints a string describing \a this field into a stream. This string is outputted
3926  * by \c print Python command.
3927  *  \param [in] bkOffset - number of white spaces printed at the beginning of each line.
3928  *  \param [in,out] oss - the out stream.
3929  *  \param [in] f1tsId - the field index within a MED file. If \a f1tsId < 0, the tiny
3930  *          info id printed, else, not.
3931  */
3932 void MEDFileAnyTypeField1TSWithoutSDA::simpleRepr(int bkOffset, std::ostream& oss, int f1tsId) const
3933 {
3934   std::string startOfLine(bkOffset,' ');
3935   oss << startOfLine << "Field ";
3936   if(bkOffset==0)
3937     oss << "[Type=" << getTypeStr() << "] with name \"" << getName() << "\" ";
3938   oss << "on one time Step ";
3939   if(f1tsId>=0)
3940     oss << "(" << f1tsId << ") ";
3941   oss << "on iteration=" << _iteration << " order=" << _order << "." << std::endl;
3942   oss << startOfLine << "Time attached is : " << _dt << " [" << _dt_unit << "]." << std::endl;
3943   const DataArray *arr=getUndergroundDataArray();
3944   if(arr)
3945     {
3946       const std::vector<std::string> &comps=arr->getInfoOnComponents();
3947       if(f1tsId<0)
3948         {
3949           oss << startOfLine << "Field has " << comps.size() << " components with the following infos :" << std::endl;
3950           for(std::vector<std::string>::const_iterator it=comps.begin();it!=comps.end();it++)
3951             oss << startOfLine << "  -  \"" << (*it) << "\"" << std::endl;
3952         }
3953       if(arr->isAllocated())
3954         {
3955           oss << startOfLine << "Whole field contains " << arr->getNumberOfTuples() << " tuples." << std::endl;
3956         }
3957       else
3958         oss << startOfLine << "The array of the current field has not allocated yet !" << std::endl;
3959     }
3960   else
3961     {
3962       oss << startOfLine << "Field infos are empty ! Not defined yet !" << std::endl;
3963     }
3964   oss << startOfLine << "----------------------" << std::endl;
3965   if(!_field_per_mesh.empty())
3966     {
3967       int i=0;
3968       for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it2=_field_per_mesh.begin();it2!=_field_per_mesh.end();it2++,i++)
3969         {
3970           const MEDFileFieldPerMesh *cur=(*it2);
3971           if(cur)
3972             cur->simpleRepr(bkOffset,oss,i);
3973           else
3974             oss << startOfLine << "Field per mesh #" << i << " is not defined !" << std::endl;
3975         }
3976     }
3977   else
3978     {
3979       oss << startOfLine << "Field is not defined on any meshes !" << std::endl;
3980     }
3981   oss << startOfLine << "----------------------" << std::endl;
3982 }
3983
3984 std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > MEDFileAnyTypeField1TSWithoutSDA::splitComponents() const
3985 {
3986   const DataArray *arr(getUndergroundDataArray());
3987   if(!arr)
3988     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::splitComponents : no array defined !");
3989   int nbOfCompo=arr->getNumberOfComponents();
3990   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > ret(nbOfCompo);
3991   for(int i=0;i<nbOfCompo;i++)
3992     {
3993       ret[i]=deepCopy();
3994       std::vector<int> v(1,i);
3995       MCAuto<DataArray> arr2=arr->keepSelectedComponents(v);
3996       ret[i]->setArray(arr2);
3997     }
3998   return ret;
3999 }
4000
4001 MEDFileAnyTypeField1TSWithoutSDA::MEDFileAnyTypeField1TSWithoutSDA(const std::string& fieldName, int csit, int iteration, int order):MEDFileFieldNameScope(fieldName),_iteration(iteration),_order(order),_csit(csit),_nb_of_tuples_to_be_allocated(-2)
4002 {
4003 }
4004
4005 MEDFileAnyTypeField1TSWithoutSDA::MEDFileAnyTypeField1TSWithoutSDA():_iteration(-1),_order(-1),_dt(0.),_csit(-1),_nb_of_tuples_to_be_allocated(-1)
4006 {
4007 }
4008
4009 /*!
4010  * Returns the maximal dimension of supporting elements. Returns -2 if \a this is
4011  * empty. Returns -1 if this in on nodes.
4012  *  \return int - the dimension of \a this.
4013  */
4014 int MEDFileAnyTypeField1TSWithoutSDA::getDimension() const
4015 {
4016   int ret=-2;
4017   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4018     (*it)->getDimension(ret);
4019   return ret;
4020 }
4021
4022 /*!
4023  * Returns the mesh name.
4024  *  \return std::string - a string holding the mesh name.
4025  *  \throw If \c _field_per_mesh.empty()
4026  */
4027 std::string MEDFileAnyTypeField1TSWithoutSDA::getMeshName() const
4028 {
4029   if(_field_per_mesh.empty())
4030     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::getMeshName : No field set !");
4031   return _field_per_mesh[0]->getMeshName();
4032 }
4033
4034 void MEDFileAnyTypeField1TSWithoutSDA::setMeshName(const std::string& newMeshName)
4035 {
4036   std::string oldName(getMeshName());
4037   std::vector< std::pair<std::string,std::string> > v(1);
4038   v[0].first=oldName; v[0].second=newMeshName;
4039   changeMeshNames(v);
4040 }
4041
4042 bool MEDFileAnyTypeField1TSWithoutSDA::changeMeshNames(const std::vector< std::pair<std::string,std::string> >& modifTab)
4043 {
4044   bool ret=false;
4045   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4046     {
4047       MEDFileFieldPerMesh *cur(*it);
4048       if(cur)
4049         ret=cur->changeMeshNames(modifTab) || ret;
4050     }
4051   return ret;
4052 }
4053
4054 /*!
4055  * Returns the number of iteration of the state of underlying mesh.
4056  *  \return int - the iteration number.
4057  *  \throw If \c _field_per_mesh.empty()
4058  */
4059 int MEDFileAnyTypeField1TSWithoutSDA::getMeshIteration() const
4060 {
4061   if(_field_per_mesh.empty())
4062     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::getMeshIteration : No field set !");
4063   return _field_per_mesh[0]->getMeshIteration();
4064 }
4065
4066 /*!
4067  * Returns the order number of iteration of the state of underlying mesh.
4068  *  \return int - the order number.
4069  *  \throw If \c _field_per_mesh.empty()
4070  */
4071 int MEDFileAnyTypeField1TSWithoutSDA::getMeshOrder() const
4072 {
4073   if(_field_per_mesh.empty())
4074     throw INTERP_KERNEL::Exception("MEDFileFieldPerMeshPerTypePerDisc::getMeshOrder : No field set !");
4075   return _field_per_mesh[0]->getMeshOrder();
4076 }
4077
4078 /*!
4079  * Checks if \a this field is tagged by a given iteration number and a given
4080  * iteration order number.
4081  *  \param [in] iteration - the iteration number of interest.
4082  *  \param [in] order - the iteration order number of interest.
4083  *  \return bool - \c true if \a this->getIteration() == \a iteration &&
4084  *          \a this->getOrder() == \a order.
4085  */
4086 bool MEDFileAnyTypeField1TSWithoutSDA::isDealingTS(int iteration, int order) const
4087 {
4088   return iteration==_iteration && order==_order;
4089 }
4090
4091 /*!
4092  * Returns number of iteration and order number of iteration when
4093  * \a this field has been calculated.
4094  *  \return std::pair<int,int> - a pair of the iteration number and the iteration
4095  *          order number.
4096  */
4097 std::pair<int,int> MEDFileAnyTypeField1TSWithoutSDA::getDtIt() const
4098 {
4099   std::pair<int,int> p;
4100   fillIteration(p);
4101   return p;
4102 }
4103
4104 /*!
4105  * Returns number of iteration and order number of iteration when
4106  * \a this field has been calculated.
4107  *  \param [in,out] p - a pair returning the iteration number and the iteration
4108  *          order number.
4109  */
4110 void MEDFileAnyTypeField1TSWithoutSDA::fillIteration(std::pair<int,int>& p) const
4111 {
4112   p.first=_iteration;
4113   p.second=_order;
4114 }
4115
4116 /*!
4117  * Returns all types of spatial discretization of \a this field.
4118  *  \param [in,out] types - a sequence of types of \a this field.
4119  */
4120 void MEDFileAnyTypeField1TSWithoutSDA::fillTypesOfFieldAvailable(std::vector<TypeOfField>& types) const
4121 {
4122   std::set<TypeOfField> types2;
4123   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4124     {
4125       (*it)->fillTypesOfFieldAvailable(types2);
4126     }
4127   std::back_insert_iterator< std::vector<TypeOfField> > bi(types);
4128   std::copy(types2.begin(),types2.end(),bi);
4129 }
4130
4131 /*!
4132  * Returns all types of spatial discretization of \a this field.
4133  *  \return std::vector<TypeOfField> - a sequence of types of spatial discretization
4134  *          of \a this field.
4135  */
4136 std::vector<TypeOfField> MEDFileAnyTypeField1TSWithoutSDA::getTypesOfFieldAvailable() const
4137 {
4138   std::vector<TypeOfField> ret;
4139   fillTypesOfFieldAvailable(ret);
4140   return ret;
4141 }
4142
4143 std::vector<std::string> MEDFileAnyTypeField1TSWithoutSDA::getPflsReallyUsed2() const
4144 {
4145   std::vector<std::string> ret;
4146   std::set<std::string> ret2;
4147   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4148     {
4149       std::vector<std::string> tmp=(*it)->getPflsReallyUsed();
4150       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
4151         if(ret2.find(*it2)==ret2.end())
4152           {
4153             ret.push_back(*it2);
4154             ret2.insert(*it2);
4155           }
4156     }
4157   return ret;
4158 }
4159
4160 std::vector<std::string> MEDFileAnyTypeField1TSWithoutSDA::getLocsReallyUsed2() const
4161 {
4162   std::vector<std::string> ret;
4163   std::set<std::string> ret2;
4164   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4165     {
4166       std::vector<std::string> tmp=(*it)->getLocsReallyUsed();
4167       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
4168         if(ret2.find(*it2)==ret2.end())
4169           {
4170             ret.push_back(*it2);
4171             ret2.insert(*it2);
4172           }
4173     }
4174   return ret;
4175 }
4176
4177 std::vector<std::string> MEDFileAnyTypeField1TSWithoutSDA::getPflsReallyUsedMulti2() const
4178 {
4179   std::vector<std::string> ret;
4180   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4181     {
4182       std::vector<std::string> tmp=(*it)->getPflsReallyUsedMulti();
4183       ret.insert(ret.end(),tmp.begin(),tmp.end());
4184     }
4185   return ret;
4186 }
4187
4188 std::vector<std::string> MEDFileAnyTypeField1TSWithoutSDA::getLocsReallyUsedMulti2() const
4189 {
4190   std::vector<std::string> ret;
4191   std::set<std::string> ret2;
4192   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4193     {
4194       std::vector<std::string> tmp=(*it)->getLocsReallyUsedMulti();
4195       ret.insert(ret.end(),tmp.begin(),tmp.end());
4196     }
4197   return ret;
4198 }
4199
4200 void MEDFileAnyTypeField1TSWithoutSDA::changePflsRefsNamesGen2(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
4201 {
4202   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4203     (*it)->changePflsRefsNamesGen(mapOfModif);
4204 }
4205
4206 void MEDFileAnyTypeField1TSWithoutSDA::changeLocsRefsNamesGen2(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
4207 {
4208   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4209     (*it)->changeLocsRefsNamesGen(mapOfModif);
4210 }
4211
4212 /*!
4213  * Returns all attributes of parts of \a this field lying on a given mesh.
4214  * Each part differs from other ones by a type of supporting mesh entity. The _i_-th
4215  * item of every of returned sequences refers to the _i_-th part of \a this field.
4216  * Thus all sequences returned by this method are of the same length equal to number
4217  * of different types of supporting entities.<br>
4218  * A field part can include sub-parts with several different spatial discretizations,
4219  * \ref MEDCoupling::ON_CELLS "ON_CELLS" and \ref MEDCoupling::ON_GAUSS_PT "ON_GAUSS_PT"
4220  * for example. Hence, some of the returned sequences contains nested sequences, and an item
4221  * of a nested sequence corresponds to a type of spatial discretization.<br>
4222  * This method allows for iteration over MEDFile DataStructure without any overhead.
4223  *  \param [in] mname - a name of a mesh of interest. It can be \c NULL, which is valid
4224  *          for the case with only one underlying mesh. (Actually, the number of meshes is
4225  *          not checked if \a mname == \c NULL).
4226  *  \param [in,out] types - a sequence of types of underlying mesh entities. A type per
4227  *          a field part is returned.
4228  *  \param [in,out] typesF - a sequence of sequences of types of spatial discretizations.
4229  *          This sequence is of the same length as \a types.
4230  *  \param [in,out] pfls - a sequence returning a profile name per each type of spatial
4231  *          discretization. A profile name can be empty.
4232  *          Length of this and of nested sequences is the same as that of \a typesF.
4233  *  \param [in,out] locs - a sequence returning a localization name per each type of spatial
4234  *          discretization. A localization name can be empty.
4235  *          Length of this and of nested sequences is the same as that of \a typesF.
4236  *  \return std::vector< std::vector< std::pair<int,int> > > - a sequence holding a range
4237  *          of ids of tuples within the data array, per each type of spatial
4238  *          discretization within one mesh entity type.
4239  *          Length of this and of nested sequences is the same as that of \a typesF.
4240  *  \throw If no field is lying on \a mname.
4241  */
4242 std::vector< std::vector< std::pair<int,int> > > MEDFileAnyTypeField1TSWithoutSDA::getFieldSplitedByType(const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
4243 {
4244   int meshId=0;
4245   if(!mname.empty())
4246     meshId=getMeshIdFromMeshName(mname);
4247   else
4248     if(_field_per_mesh.empty())
4249       throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getFieldSplitedByType : This is empty !");
4250   return _field_per_mesh[meshId]->getFieldSplitedByType(types,typesF,pfls,locs);
4251 }
4252
4253 /*!
4254  * Returns dimensions of mesh elements \a this field lies on. The returned value is a
4255  * maximal absolute dimension and values returned via the out parameter \a levs are
4256  * dimensions relative to the maximal absolute dimension. <br>
4257  * This method is designed for MEDFileField1TS instances that have a discretization
4258  * \ref MEDCoupling::ON_CELLS "ON_CELLS",
4259  * \ref MEDCoupling::ON_GAUSS_PT "ON_GAUSS_PT",
4260  * \ref MEDCoupling::ON_GAUSS_NE "ON_GAUSS_NE".
4261  * Only these 3 discretizations will be taken into account here. If \a this is
4262  * \ref MEDCoupling::ON_NODES "ON_NODES", -1 is returned and \a levs are empty.<br>
4263  * This method is useful to make the link between the dimension of the underlying mesh
4264  * and the levels of \a this, because it is possible that the highest dimension of \a this
4265  * field is not equal to the dimension of the underlying mesh.
4266  *
4267  * Let's consider the following case:
4268  * - mesh \a m1 has a meshDimension 3 and has non empty levels [0,-1,-2] with elements
4269  * TETRA4, HEXA8, TRI3 and SEG2.
4270  * - field \a f1 lies on \a m1 and is defined on 3D and 1D elements TETRA4 and SEG2.
4271  * - field \a f2 lies on \a m1 and is defined on 2D and 1D elements TRI3 and SEG2.
4272  *
4273  * In this case \a f1->getNonEmptyLevels() returns (3,[0,-2]) and \a
4274  * f2->getNonEmptyLevels() returns (2,[0,-1]). <br>
4275  * The returned values can be used for example to retrieve a MEDCouplingFieldDouble lying
4276  * on elements of a certain relative level by calling getFieldAtLevel(). \a meshDimRelToMax
4277  * parameter of getFieldAtLevel() is computed basing on the returned values as this:
4278  * <em> meshDimRelToMax = absDim - meshDim + relativeLev </em>.
4279  * For example<br>
4280  * to retrieve the highest level of
4281  * \a f1: <em>f1->getFieldAtLevel( ON_CELLS, 3-3+0 ); // absDim - meshDim + relativeLev</em><br>
4282  * to retrieve the lowest level of \a f1: <em>f1->getFieldAtLevel( ON_CELLS, 3-3+(-2) );</em><br>
4283  * to retrieve the highest level of \a f2: <em>f2->getFieldAtLevel( ON_CELLS, 2-3+0 );</em><br>
4284  * to retrieve the lowest level of \a f2: <em>f2->getFieldAtLevel( ON_CELLS, 2-3+(-1) )</em>.
4285  *  \param [in] mname - a name of a mesh of interest. It can be \c NULL, which is valid
4286  *          for the case with only one underlying mesh. (Actually, the number of meshes is
4287  *          not checked if \a mname == \c NULL).
4288  *  \param [in,out] levs - a sequence returning the dimensions relative to the maximal
4289  *          absolute one. They are in decreasing order. This sequence is cleared before
4290  *          filling it in.
4291  *  \return int - the maximal absolute dimension of elements \a this fields lies on.
4292  *  \throw If no field is lying on \a mname.
4293  */
4294 int MEDFileAnyTypeField1TSWithoutSDA::getNonEmptyLevels(const std::string& mname, std::vector<int>& levs) const
4295 {
4296   levs.clear();
4297   int meshId=getMeshIdFromMeshName(mname);
4298   std::vector<INTERP_KERNEL::NormalizedCellType> types;
4299   std::vector< std::vector<TypeOfField> > typesF;
4300   std::vector< std::vector<std::string> > pfls, locs;
4301   _field_per_mesh[meshId]->getFieldSplitedByType(types,typesF,pfls,locs);
4302   if(types.empty())
4303     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getNonEmptyLevels : 'this' is empty !");
4304   std::set<INTERP_KERNEL::NormalizedCellType> st(types.begin(),types.end());
4305   if(st.size()==1 && (*st.begin())==INTERP_KERNEL::NORM_ERROR)
4306     return -1;
4307   st.erase(INTERP_KERNEL::NORM_ERROR);
4308   std::set<int> ret1;
4309   for(std::set<INTERP_KERNEL::NormalizedCellType>::const_iterator it=st.begin();it!=st.end();it++)
4310     {
4311       const INTERP_KERNEL::CellModel& cm=INTERP_KERNEL::CellModel::GetCellModel(*it);
4312       ret1.insert((int)cm.getDimension());
4313     }
4314   int ret=*std::max_element(ret1.begin(),ret1.end());
4315   std::copy(ret1.rbegin(),ret1.rend(),std::back_insert_iterator<std::vector<int> >(levs));
4316   std::transform(levs.begin(),levs.end(),levs.begin(),std::bind2nd(std::plus<int>(),-ret));
4317   return ret;
4318 }
4319
4320 /*!
4321  * \param [in] mName specifies the underlying mesh name. This value can be pointer 0 for users that do not deal with fields on multi mesh.
4322  * \param [in] typ is for the geometric cell type (or INTERP_KERNEL::NORM_ERROR for node field) entry to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set.
4323  * \param [in] locId is the localization id to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set. It corresponds to the position of
4324  *             \c pfls[std::distance(types.begin(),std::find(types.begin(),typ)] vector in MEDFileField1TSWithoutSDA::getFieldSplitedByType. For non gausspoints field users, the value is 0.
4325  */
4326 MEDFileFieldPerMeshPerTypePerDisc *MEDFileAnyTypeField1TSWithoutSDA::getLeafGivenMeshAndTypeAndLocId(const std::string& mName, INTERP_KERNEL::NormalizedCellType typ, int locId)
4327 {
4328   int mid=getMeshIdFromMeshName(mName);
4329   return _field_per_mesh[mid]->getLeafGivenTypeAndLocId(typ,locId);
4330 }
4331
4332 /*!
4333  * \param [in] mName specifies the underlying mesh name. This value can be pointer 0 for users that do not deal with fields on multi mesh.
4334  * \param [in] typ is for the geometric cell type (or INTERP_KERNEL::NORM_ERROR for node field) entry to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set.
4335  * \param [in] locId is the localization id to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set. It corresponds to the position of
4336  *             \c pfls[std::distance(types.begin(),std::find(types.begin(),typ)] vector in MEDFileField1TSWithoutSDA::getFieldSplitedByType. For non gausspoints field users, the value is 0.
4337  */
4338 const MEDFileFieldPerMeshPerTypePerDisc *MEDFileAnyTypeField1TSWithoutSDA::getLeafGivenMeshAndTypeAndLocId(const std::string& mName, INTERP_KERNEL::NormalizedCellType typ, int locId) const
4339 {
4340   int mid=getMeshIdFromMeshName(mName);
4341   return _field_per_mesh[mid]->getLeafGivenTypeAndLocId(typ,locId);
4342 }
4343
4344 /*!
4345  * \param [in] mName specifies the underlying mesh name. This value can be pointer 0 for users that do not deal with fields on multi mesh.
4346  */
4347 int MEDFileAnyTypeField1TSWithoutSDA::getMeshIdFromMeshName(const std::string& mName) const
4348 {
4349   if(_field_per_mesh.empty())
4350     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getMeshIdFromMeshName : No field set !");
4351   if(mName.empty())
4352     return 0;
4353   std::string mName2(mName);
4354   int ret=0;
4355   std::vector<std::string> msg;
4356   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++,ret++)
4357     if(mName2==(*it)->getMeshName())
4358       return ret;
4359     else
4360       msg.push_back((*it)->getMeshName());
4361   std::ostringstream oss; oss << "MEDFileField1TSWithoutSDA::getMeshIdFromMeshName : No such mesh \"" << mName2 << "\" as underlying mesh of field \"" << getName() << "\" !\n";
4362   oss << "Possible meshes are : ";
4363   for(std::vector<std::string>::const_iterator it2=msg.begin();it2!=msg.end();it2++)
4364     oss << "\"" << (*it2) << "\" ";
4365   throw INTERP_KERNEL::Exception(oss.str());
4366 }
4367
4368 int MEDFileAnyTypeField1TSWithoutSDA::addNewEntryIfNecessary(const MEDCouplingMesh *mesh)
4369 {
4370   if(!mesh)
4371     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::addNewEntryIfNecessary : input mesh is NULL !");
4372   std::string tmp(mesh->getName());
4373   if(tmp.empty())
4374     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::addNewEntryIfNecessary : empty mesh name ! unsupported by MED file !");
4375   std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();
4376   int i=0;
4377   for(;it!=_field_per_mesh.end();it++,i++)
4378     {
4379       if((*it)->getMeshName()==tmp)
4380         return i;
4381     }
4382   int sz=_field_per_mesh.size();
4383   _field_per_mesh.resize(sz+1);
4384   _field_per_mesh[sz]=MEDFileFieldPerMesh::New(this,mesh);
4385   return sz;
4386 }
4387
4388 bool MEDFileAnyTypeField1TSWithoutSDA::renumberEntitiesLyingOnMesh(const std::string& meshName, const std::vector<int>& oldCode, const std::vector<int>& newCode, const DataArrayInt *renumO2N,
4389                                                                    MEDFileFieldGlobsReal& glob)
4390 {
4391   bool ret=false;
4392   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4393     {
4394       MEDFileFieldPerMesh *fpm(*it);
4395       if(fpm)
4396         ret=fpm->renumberEntitiesLyingOnMesh(meshName,oldCode,newCode,renumO2N,glob) || ret;
4397     }
4398   return ret;
4399 }
4400
4401 /*!
4402  * This method splits \a this into several sub-parts so that each sub parts have exactly one spatial discretization. This method implements the minimal
4403  * splitting that leads to single spatial discretization of this.
4404  *
4405  * \sa splitMultiDiscrPerGeoTypes
4406  */
4407 std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > MEDFileAnyTypeField1TSWithoutSDA::splitDiscretizations() const
4408 {
4409   std::vector<INTERP_KERNEL::NormalizedCellType> types;
4410   std::vector< std::vector<TypeOfField> > typesF;
4411   std::vector< std::vector<std::string> > pfls,locs;
4412   std::vector< std::vector<std::pair<int,int> > > bgEnd(getFieldSplitedByType(getMeshName().c_str(),types,typesF,pfls,locs));
4413   std::set<TypeOfField> allEnt;
4414   for(std::vector< std::vector<TypeOfField> >::const_iterator it1=typesF.begin();it1!=typesF.end();it1++)
4415     for(std::vector<TypeOfField>::const_iterator it2=(*it1).begin();it2!=(*it1).end();it2++)
4416       allEnt.insert(*it2);
4417   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > ret(allEnt.size());
4418   std::set<TypeOfField>::const_iterator it3(allEnt.begin());
4419   for(std::size_t i=0;i<allEnt.size();i++,it3++)
4420     {
4421       std::vector< std::pair<int,int> > its;
4422       ret[i]=shallowCpy();
4423       int newLgth(ret[i]->keepOnlySpatialDiscretization(*it3,its));
4424       ret[i]->updateData(newLgth,its);
4425     }
4426   return ret;
4427 }
4428
4429 /*!
4430  * This method performs a sub splitting as splitDiscretizations does but finer. This is the finest spliting level that can be done.
4431  * This method implements the minimal splitting so that each returned elements are mono Gauss discretization per geometric type.
4432  *
4433  * \sa splitDiscretizations
4434  */
4435 std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > MEDFileAnyTypeField1TSWithoutSDA::splitMultiDiscrPerGeoTypes() const
4436 {
4437   std::vector<INTERP_KERNEL::NormalizedCellType> types;
4438   std::vector< std::vector<TypeOfField> > typesF;
4439   std::vector< std::vector<std::string> > pfls,locs;
4440   std::vector< std::vector<std::pair<int,int> > > bgEnd(getFieldSplitedByType(getMeshName().c_str(),types,typesF,pfls,locs));
4441   std::set<TypeOfField> allEnt;
4442   std::size_t nbOfMDPGT(0),ii(0);
4443   for(std::vector< std::vector<TypeOfField> >::const_iterator it1=typesF.begin();it1!=typesF.end();it1++,ii++)
4444     {
4445       nbOfMDPGT=std::max(nbOfMDPGT,locs[ii].size());
4446       for(std::vector<TypeOfField>::const_iterator it2=(*it1).begin();it2!=(*it1).end();it2++)
4447         allEnt.insert(*it2);
4448     }
4449   if(allEnt.size()!=1)
4450     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::splitMultiDiscrPerGeoTypes : this field is expected to be defined only on one spatial discretization !");
4451   if(nbOfMDPGT==0)
4452     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::splitMultiDiscrPerGeoTypes : empty field !");
4453   if(nbOfMDPGT==1)
4454     {
4455       std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > ret0(1);
4456       ret0[0]=const_cast<MEDFileAnyTypeField1TSWithoutSDA *>(this); this->incrRef();
4457       return ret0;
4458     }
4459   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > ret(nbOfMDPGT);
4460   for(std::size_t i=0;i<nbOfMDPGT;i++)
4461     {
4462       std::vector< std::pair<int,int> > its;
4463       ret[i]=shallowCpy();
4464       int newLgth(ret[i]->keepOnlyGaussDiscretization(i,its));
4465       ret[i]->updateData(newLgth,its);
4466     }
4467   return ret;
4468 }
4469
4470 int MEDFileAnyTypeField1TSWithoutSDA::keepOnlySpatialDiscretization(TypeOfField tof, std::vector< std::pair<int,int> >& its)
4471 {
4472   int globalCounter(0);
4473   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4474     (*it)->keepOnlySpatialDiscretization(tof,globalCounter,its);
4475   return globalCounter;
4476 }
4477
4478 int MEDFileAnyTypeField1TSWithoutSDA::keepOnlyGaussDiscretization(std::size_t idOfDisc, std::vector< std::pair<int,int> >& its)
4479 {
4480   int globalCounter(0);
4481   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4482     (*it)->keepOnlyGaussDiscretization(idOfDisc,globalCounter,its);
4483   return globalCounter;
4484 }
4485
4486 void MEDFileAnyTypeField1TSWithoutSDA::updateData(int newLgth, const std::vector< std::pair<int,int> >& oldStartStops)
4487 {
4488   if(_nb_of_tuples_to_be_allocated>=0)
4489     {
4490       _nb_of_tuples_to_be_allocated=newLgth;
4491       const DataArray *oldArr(getUndergroundDataArray());
4492       if(oldArr)
4493         {
4494           MCAuto<DataArray> newArr(createNewEmptyDataArrayInstance());
4495           newArr->setInfoAndChangeNbOfCompo(oldArr->getInfoOnComponents());
4496           setArray(newArr);
4497           _nb_of_tuples_to_be_allocated=newLgth;//force the _nb_of_tuples_to_be_allocated because setArray has been used specialy
4498         }
4499       return ;
4500     }
4501   if(_nb_of_tuples_to_be_allocated==-1)
4502     return ;
4503   if(_nb_of_tuples_to_be_allocated==-2 || _nb_of_tuples_to_be_allocated==-3)
4504     {
4505       const DataArray *oldArr(getUndergroundDataArray());
4506       if(!oldArr || !oldArr->isAllocated())
4507         throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::updateData : internal error 1 !");
4508       MCAuto<DataArray> newArr(createNewEmptyDataArrayInstance());
4509       newArr->alloc(newLgth,getNumberOfComponents());
4510       if(oldArr)
4511         newArr->copyStringInfoFrom(*oldArr);
4512       int pos=0;
4513       for(std::vector< std::pair<int,int> >::const_iterator it=oldStartStops.begin();it!=oldStartStops.end();it++)
4514         {
4515           if((*it).second<(*it).first)
4516             throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::updateData : the range in the leaves was invalid !");
4517           newArr->setContigPartOfSelectedValuesSlice(pos,oldArr,(*it).first,(*it).second,1);
4518           pos+=(*it).second-(*it).first;
4519         }
4520       setArray(newArr);
4521       return ;
4522     }
4523   throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::updateData : internal error 2 !");
4524 }
4525
4526 void MEDFileAnyTypeField1TSWithoutSDA::writeLL(med_idt fid, const MEDFileWritable& opts, const MEDFileFieldNameScope& nasc) const
4527 {
4528   if(_field_per_mesh.empty())
4529     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::writeLL : empty field !");
4530   if(_field_per_mesh.size()>1)
4531     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::writeLL : In MED3.0 mode in writting mode only ONE underlying mesh supported !");
4532   _field_per_mesh[0]->copyOptionsFrom(opts);
4533   _field_per_mesh[0]->writeLL(fid,nasc);
4534 }
4535
4536 /*!
4537  * This methods returns true is the allocation has been needed leading to a modification of state in \a this->_nb_of_tuples_to_be_allocated.
4538  * If false is returned the memory allocation is not required.
4539  */
4540 bool MEDFileAnyTypeField1TSWithoutSDA::allocIfNecessaryTheArrayToReceiveDataFromFile()
4541 {
4542   if(_nb_of_tuples_to_be_allocated>=0)
4543     {
4544       getOrCreateAndGetArray()->alloc(_nb_of_tuples_to_be_allocated,getNumberOfComponents());
4545       _nb_of_tuples_to_be_allocated=-2;
4546       return true;
4547     }
4548   if(_nb_of_tuples_to_be_allocated==-2 || _nb_of_tuples_to_be_allocated==-3)
4549     return false;
4550   if(_nb_of_tuples_to_be_allocated==-1)
4551     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::allocIfNecessaryTheArrayToReceiveDataFromFile : trying to read from a file an empty instance ! Need to prepare the structure before !");
4552   if(_nb_of_tuples_to_be_allocated<-3)
4553     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::allocIfNecessaryTheArrayToReceiveDataFromFile : internal error !");
4554   throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::allocIfNecessaryTheArrayToReceiveDataFromFile : internal error !");
4555 }
4556
4557 void MEDFileAnyTypeField1TSWithoutSDA::loadOnlyStructureOfDataRecursively(med_idt fid, const MEDFileFieldNameScope& nasc, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
4558 {
4559   med_int numdt,numit;
4560   med_float dt;
4561   med_int nmesh;
4562   med_bool localMesh;
4563   med_int meshnumdt,meshnumit;
4564   INTERP_KERNEL::AutoPtr<char> meshName=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
4565   MEDFILESAFECALLERRD0(MEDfieldComputingStepInfo,(fid,nasc.getName().c_str(),_csit,&numdt,&numit,&_dt));
4566   MEDFILESAFECALLERRD0(MEDfield23ComputingStepMeshInfo,(fid,nasc.getName().c_str(),_csit,&numdt,&numit,&dt,&nmesh,meshName,&localMesh,&meshnumdt,&meshnumit));
4567   if(_iteration!=numdt || _order!=numit)
4568     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::loadBigArraysRecursively : unexpected exception internal error !");
4569   _field_per_mesh.resize(nmesh);
4570   //
4571   MEDFileMesh *mm(0);
4572   if(ms)
4573     {
4574       std::string meshNameCpp(MEDLoaderBase::buildStringFromFortran(meshName,MED_NAME_SIZE+1));
4575       mm=ms->getMeshWithName(meshNameCpp);
4576     }
4577   //
4578   for(int i=0;i<nmesh;i++)
4579     _field_per_mesh[i]=MEDFileFieldPerMesh::NewOnRead(fid,this,i,meshnumdt,meshnumit,nasc,mm,entities);
4580   _nb_of_tuples_to_be_allocated=0;
4581   for(int i=0;i<nmesh;i++)
4582     _field_per_mesh[i]->loadOnlyStructureOfDataRecursively(fid,_nb_of_tuples_to_be_allocated,nasc);
4583 }
4584
4585 void MEDFileAnyTypeField1TSWithoutSDA::loadBigArraysRecursively(med_idt fid, const MEDFileFieldNameScope& nasc)
4586 {
4587   allocIfNecessaryTheArrayToReceiveDataFromFile();
4588   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4589     (*it)->loadBigArraysRecursively(fid,nasc);
4590 }
4591
4592 void MEDFileAnyTypeField1TSWithoutSDA::loadBigArraysRecursivelyIfNecessary(med_idt fid, const MEDFileFieldNameScope& nasc)
4593 {
4594   if(allocIfNecessaryTheArrayToReceiveDataFromFile())
4595     for(std::vector< MCAuto< MEDFileFieldPerMesh > >::iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4596       (*it)->loadBigArraysRecursively(fid,nasc);
4597 }
4598
4599 void MEDFileAnyTypeField1TSWithoutSDA::loadStructureAndBigArraysRecursively(med_idt fid, const MEDFileFieldNameScope& nasc, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
4600 {
4601   loadOnlyStructureOfDataRecursively(fid,nasc,ms,entities);
4602   loadBigArraysRecursively(fid,nasc);
4603 }
4604
4605 void MEDFileAnyTypeField1TSWithoutSDA::unloadArrays()
4606 {
4607   DataArray *thisArr(getUndergroundDataArray());
4608   if(thisArr && thisArr->isAllocated())
4609     {
4610       _nb_of_tuples_to_be_allocated=thisArr->getNumberOfTuples();
4611       thisArr->desallocate();
4612     }
4613 }
4614
4615 std::size_t MEDFileAnyTypeField1TSWithoutSDA::getHeapMemorySizeWithoutChildren() const
4616 {
4617   return _dt_unit.capacity()+_field_per_mesh.capacity()*sizeof(MCAuto< MEDFileFieldPerMesh >);
4618 }
4619
4620 std::vector<const BigMemoryObject *> MEDFileAnyTypeField1TSWithoutSDA::getDirectChildrenWithNull() const
4621 {
4622   std::vector<const BigMemoryObject *> ret;
4623   if(getUndergroundDataArray())
4624     ret.push_back(getUndergroundDataArray());
4625   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4626     ret.push_back((const MEDFileFieldPerMesh *)*it);
4627   return ret;
4628 }
4629
4630 /*!
4631  * Adds a MEDCouplingFieldDouble to \a this. The underlying mesh of the given field is
4632  * checked if its elements are sorted suitable for writing to MED file ("STB" stands for
4633  * "Sort By Type"), if not, an exception is thrown.
4634  *  \param [in] field - the field to add to \a this. The array of field \a field is ignored
4635  *  \param [in] arr - the array of values.
4636  *  \param [in,out] glob - the global data where profiles and localization present in
4637  *          \a field, if any, are added.
4638  *  \throw If the name of \a field is empty.
4639  *  \throw If the data array of \a field is not set.
4640  *  \throw If \a this->_arr is already allocated but has different number of components
4641  *         than \a field.
4642  *  \throw If the underlying mesh of \a field has no name.
4643  *  \throw If elements in the mesh are not in the order suitable for writing to the MED file.
4644  */
4645 void MEDFileAnyTypeField1TSWithoutSDA::setFieldNoProfileSBT(const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
4646 {
4647   const MEDCouplingMesh *mesh=field->getMesh();
4648   //
4649   TypeOfField type=field->getTypeOfField();
4650   std::vector<DataArrayInt *> dummy;
4651   int start=copyTinyInfoFrom(field,arr);
4652   int pos=addNewEntryIfNecessary(mesh);
4653   if(type!=ON_NODES)
4654     {
4655       std::vector<int> code=MEDFileField1TSWithoutSDA::CheckSBTMesh(mesh);
4656       _field_per_mesh[pos]->assignFieldNoProfileNoRenum(start,code,field,arr,glob,nasc);
4657     }
4658   else
4659     _field_per_mesh[pos]->assignNodeFieldNoProfile(start,field,arr,glob);
4660 }
4661
4662 /*!
4663  * Adds a MEDCouplingFieldDouble to \a this. Specified entities of a given dimension
4664  * of a given mesh are used as the support of the given field (a real support is not used).
4665  * Elements of the given mesh must be sorted suitable for writing to MED file.
4666  * Order of underlying mesh entities of the given field specified by \a profile parameter
4667  * is not prescribed; this method permutes field values to have them sorted by element
4668  * type as required for writing to MED file. A new profile is added only if no equal
4669  * profile is missing.
4670  *  \param [in] field - the field to add to \a this. The field double values are ignored.
4671  *  \param [in] arrOfVals - the values of the field \a field used.
4672  *  \param [in] mesh - the supporting mesh of \a field.
4673  *  \param [in] meshDimRelToMax - a relative dimension of mesh entities \a field lies on.
4674  *  \param [in] profile - ids of mesh entities on which corresponding field values lie.
4675  *  \param [in,out] glob - the global data where profiles and localization present in
4676  *          \a field, if any, are added.
4677  *  \throw If either \a field or \a mesh or \a profile has an empty name.
4678  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
4679  *  \throw If the data array of \a field is not set.
4680  *  \throw If \a this->_arr is already allocated but has different number of components
4681  *         than \a field.
4682  *  \throw If elements in \a mesh are not in the order suitable for writing to the MED file.
4683  *  \sa setFieldNoProfileSBT()
4684  */
4685 void MEDFileAnyTypeField1TSWithoutSDA::setFieldProfile(const MEDCouplingFieldDouble *field, const DataArray *arrOfVals, const MEDFileMesh *mesh, int meshDimRelToMax, const DataArrayInt *profile, MEDFileFieldGlobsReal& glob, const MEDFileFieldNameScope& nasc)
4686 {
4687   if(!field)
4688     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::setFieldProfile : input field is null !");
4689   if(!arrOfVals || !arrOfVals->isAllocated())
4690     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::setFieldProfile : input array is null or not allocated !");
4691   TypeOfField type=field->getTypeOfField();
4692   std::vector<DataArrayInt *> idsInPflPerType;
4693   std::vector<DataArrayInt *> idsPerType;
4694   std::vector<int> code,code2;
4695   MCAuto<MEDCouplingMesh> m(mesh->getMeshAtLevel(meshDimRelToMax));
4696   if(type!=ON_NODES)
4697     {
4698       m->splitProfilePerType(profile,code,idsInPflPerType,idsPerType);
4699       std::vector< MCAuto<DataArrayInt> > idsInPflPerType2(idsInPflPerType.size()); std::copy(idsInPflPerType.begin(),idsInPflPerType.end(),idsInPflPerType2.begin());
4700       std::vector< MCAuto<DataArrayInt> > idsPerType2(idsPerType.size()); std::copy(idsPerType.begin(),idsPerType.end(),idsPerType2.begin());
4701       std::vector<const DataArrayInt *> idsPerType3(idsPerType.size()); std::copy(idsPerType.begin(),idsPerType.end(),idsPerType3.begin());
4702       // start of check
4703       MCAuto<MEDCouplingFieldDouble> field2=field->clone(false);
4704       int nbOfTuplesExp=field2->getNumberOfTuplesExpectedRegardingCode(code,idsPerType3);
4705       if(nbOfTuplesExp!=arrOfVals->getNumberOfTuples())
4706         {
4707           std::ostringstream oss; oss << "MEDFileAnyTypeField1TSWithoutSDA::setFieldProfile : The array is expected to have " << nbOfTuplesExp << " tuples ! It has " << arrOfVals->getNumberOfTuples() << " !";
4708           throw INTERP_KERNEL::Exception(oss.str());
4709         }
4710       // end of check
4711       int start=copyTinyInfoFrom(field,arrOfVals);
4712       code2=m->getDistributionOfTypes();
4713       //
4714       int pos=addNewEntryIfNecessary(m);
4715       _field_per_mesh[pos]->assignFieldProfile(start,profile,code,code2,idsInPflPerType,idsPerType,field,arrOfVals,m,glob,nasc);
4716     }
4717   else
4718     {
4719       if(!profile || !profile->isAllocated() || profile->getNumberOfComponents()!=1)
4720         throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::setFieldProfile : input profile is null, not allocated or with number of components != 1 !");
4721       std::vector<int> v(3); v[0]=-1; v[1]=profile->getNumberOfTuples(); v[2]=0;
4722       std::vector<const DataArrayInt *> idsPerType3(1); idsPerType3[0]=profile;
4723       int nbOfTuplesExp=field->getNumberOfTuplesExpectedRegardingCode(v,idsPerType3);
4724       if(nbOfTuplesExp!=arrOfVals->getNumberOfTuples())
4725         {
4726           std::ostringstream oss; oss << "MEDFileAnyTypeField1TSWithoutSDA::setFieldProfile : For node field, the array is expected to have " << nbOfTuplesExp << " tuples ! It has " << arrOfVals->getNumberOfTuples() << " !";
4727           throw INTERP_KERNEL::Exception(oss.str());
4728         }
4729       int start=copyTinyInfoFrom(field,arrOfVals);
4730       int pos=addNewEntryIfNecessary(m);
4731       _field_per_mesh[pos]->assignNodeFieldProfile(start,profile,field,arrOfVals,glob,nasc);
4732     }
4733 }
4734
4735 /*!
4736  * \param [in] newNbOfTuples - The new nb of tuples to be allocated.
4737  */
4738 void MEDFileAnyTypeField1TSWithoutSDA::allocNotFromFile(int newNbOfTuples)
4739 {
4740   if(_nb_of_tuples_to_be_allocated>=0)
4741     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::allocNotFromFile : the object is expected to be appended to a data coming from a file but not loaded ! Load before appending data !");
4742   DataArray *arr(getOrCreateAndGetArray());
4743   arr->alloc(newNbOfTuples,arr->getNumberOfComponents());
4744   _nb_of_tuples_to_be_allocated=-3;
4745 }
4746
4747 /*!
4748  * Copies tiny info and allocates \a this->_arr instance of DataArrayDouble to
4749  * append data of a given MEDCouplingFieldDouble. So that the size of \a this->_arr becomes
4750  * larger by the size of \a field. Returns an id of the first not filled
4751  * tuple of \a this->_arr.
4752  *  \param [in] field - the field to copy the info on components and the name from.
4753  *  \return int - the id of first not initialized tuple of \a this->_arr.
4754  *  \throw If the name of \a field is empty.
4755  *  \throw If the data array of \a field is not set.
4756  *  \throw If \a this->_arr is already allocated but has different number of components
4757  *         than \a field.
4758  */
4759 int MEDFileAnyTypeField1TSWithoutSDA::copyTinyInfoFrom(const MEDCouplingFieldDouble *field, const DataArray *arr)
4760 {
4761   if(!field)
4762     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::copyTinyInfoFrom : input field is NULL !");
4763   std::string name(field->getName());
4764   setName(name.c_str());
4765   setDtUnit(field->getTimeUnit());
4766   if(name.empty())
4767     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::copyTinyInfoFrom : unsupported fields with no name in MED file !");
4768   if(!arr)
4769     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::copyTinyInfoFrom : no array set !");
4770   if(!arr->isAllocated())
4771     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::copyTinyInfoFrom : array is not allocated !");
4772   _dt=field->getTime(_iteration,_order);
4773   getOrCreateAndGetArray()->setInfoAndChangeNbOfCompo(arr->getInfoOnComponents());
4774   if(!getOrCreateAndGetArray()->isAllocated())
4775     {
4776       allocNotFromFile(arr->getNumberOfTuples());
4777       return 0;
4778     }
4779   else
4780     {
4781       int oldNbOfTuples=getOrCreateAndGetArray()->getNumberOfTuples();
4782       int newNbOfTuples=oldNbOfTuples+arr->getNumberOfTuples();
4783       getOrCreateAndGetArray()->reAlloc(newNbOfTuples);
4784       _nb_of_tuples_to_be_allocated=-3;
4785       return oldNbOfTuples;
4786     }
4787 }
4788
4789 /*!
4790  * Returns number of components in \a this field
4791  *  \return int - the number of components.
4792  */
4793 int MEDFileAnyTypeField1TSWithoutSDA::getNumberOfComponents() const
4794 {
4795   return getOrCreateAndGetArray()->getNumberOfComponents();
4796 }
4797
4798 /*!
4799  * Change info on components in \a this.
4800  * \throw If size of \a infos is not equal to the number of components already in \a this.
4801  */
4802 void MEDFileAnyTypeField1TSWithoutSDA::setInfo(const std::vector<std::string>& infos)
4803 {
4804   DataArray *arr=getOrCreateAndGetArray();
4805   arr->setInfoOnComponents(infos);//will throw an exception if number of components mimatches
4806 }
4807
4808 /*!
4809  * Returns info on components of \a this field.
4810  *  \return const std::vector<std::string>& - a sequence of strings each being an
4811  *          information on _i_-th component.
4812  */
4813 const std::vector<std::string>& MEDFileAnyTypeField1TSWithoutSDA::getInfo() const
4814 {
4815   const DataArray *arr=getOrCreateAndGetArray();
4816   return arr->getInfoOnComponents();
4817 }
4818
4819 /*!
4820  * Returns a mutable info on components of \a this field.
4821  *  \return std::vector<std::string>& - a sequence of strings each being an
4822  *          information on _i_-th component.
4823  */
4824 std::vector<std::string>& MEDFileAnyTypeField1TSWithoutSDA::getInfo()
4825 {
4826   DataArray *arr=getOrCreateAndGetArray();
4827   return arr->getInfoOnComponents();
4828 }
4829
4830 bool MEDFileAnyTypeField1TSWithoutSDA::presenceOfMultiDiscPerGeoType() const
4831 {
4832   for(std::vector< MCAuto< MEDFileFieldPerMesh > >::const_iterator it=_field_per_mesh.begin();it!=_field_per_mesh.end();it++)
4833     {
4834       const MEDFileFieldPerMesh *fpm(*it);
4835       if(!fpm)
4836         continue;
4837       if(fpm->presenceOfMultiDiscPerGeoType())
4838         return true;
4839     }
4840   return false;
4841 }
4842
4843 MEDCouplingFieldDouble *MEDFileAnyTypeField1TSWithoutSDA::fieldOnMesh(const MEDFileFieldGlobsReal *glob, const MEDFileMesh *mesh, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
4844 {
4845   static const char MSG0[]="MEDFileAnyTypeField1TSWithoutSDA::fieldOnMesh : the field is too complex to be able to be extracted with  \"field\" method ! Call getFieldOnMeshAtLevel method instead to deal with complexity !";
4846   if(_field_per_mesh.empty())
4847     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::fieldOnMesh : the field is empty ! Nothing to extract !");
4848   if(_field_per_mesh.size()>1)
4849     throw INTERP_KERNEL::Exception(MSG0);
4850   if(_field_per_mesh[0].isNull())
4851     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::fieldOnMesh : the field is inconsistent !");
4852   const MEDFileFieldPerMesh *pm(_field_per_mesh[0]);
4853   std::set<TypeOfField> types;
4854   pm->fillTypesOfFieldAvailable(types);
4855   if(types.size()!=1)
4856     throw INTERP_KERNEL::Exception(MSG0);
4857   TypeOfField type(*types.begin());
4858   int meshDimRelToMax(0);
4859   if(type==ON_NODES)
4860     meshDimRelToMax=0;
4861   else
4862     {
4863       int myDim(std::numeric_limits<int>::max());
4864       bool isUnique(pm->isUniqueLevel(myDim));
4865       if(!isUnique)
4866         throw INTERP_KERNEL::Exception(MSG0);
4867       meshDimRelToMax=myDim-mesh->getMeshDimension();
4868       if(meshDimRelToMax>0)
4869         throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::fieldOnMesh : the mesh attached to field is not compatible with the field !");
4870     }
4871   return MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel(type,meshDimRelToMax,0/*renumPol*/,glob,mesh,arrOut,nasc);
4872 }
4873
4874 /*!
4875  * Returns a new MEDCouplingFieldDouble of given type lying on a given support.
4876  *  \param [in] type - a spatial discretization of the new field.
4877  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
4878  *  \param [in] mName - a name of the supporting mesh.
4879  *  \param [in] renumPol - specifies how to permute values of the result field according to
4880  *          the optional numbers of cells and nodes, if any. The valid values are
4881  *          - 0 - do not permute.
4882  *          - 1 - permute cells.
4883  *          - 2 - permute nodes.
4884  *          - 3 - permute cells and nodes.
4885  *
4886  *  \param [in] glob - the global data storing profiles and localization.
4887  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
4888  *          caller is to delete this field using decrRef() as it is no more needed.
4889  *  \throw If the MED file is not readable.
4890  *  \throw If there is no mesh named \a mName in the MED file.
4891  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
4892  *  \throw If no field of \a this is lying on the mesh \a mName.
4893  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
4894  */
4895 MEDCouplingFieldDouble *MEDFileAnyTypeField1TSWithoutSDA::getFieldAtLevel(TypeOfField type, int meshDimRelToMax, const std::string& mName, int renumPol, const MEDFileFieldGlobsReal *glob, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
4896 {
4897   MCAuto<MEDFileMesh> mm;
4898   if(mName.empty())
4899     mm=MEDFileMesh::New(glob->getFileName(),getMeshName().c_str(),getMeshIteration(),getMeshOrder());
4900   else
4901     mm=MEDFileMesh::New(glob->getFileName(),mName,getMeshIteration(),getMeshOrder());
4902   return MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel(type,meshDimRelToMax,renumPol,glob,mm,arrOut,nasc);
4903 }
4904
4905 /*!
4906  * Returns a new MEDCouplingFieldDouble of given type lying on a given support.
4907  *  \param [in] type - a spatial discretization of the new field.
4908  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
4909  *  \param [in] renumPol - specifies how to permute values of the result field according to
4910  *          the optional numbers of cells and nodes, if any. The valid values are
4911  *          - 0 - do not permute.
4912  *          - 1 - permute cells.
4913  *          - 2 - permute nodes.
4914  *          - 3 - permute cells and nodes.
4915  *
4916  *  \param [in] glob - the global data storing profiles and localization.
4917  *  \param [in] mesh - the supporting mesh.
4918  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
4919  *          caller is to delete this field using decrRef() as it is no more needed.
4920  *  \throw If the MED file is not readable.
4921  *  \throw If no field of \a this is lying on \a mesh.
4922  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
4923  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
4924  */
4925 MEDCouplingFieldDouble *MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel(TypeOfField type, int meshDimRelToMax, int renumPol, const MEDFileFieldGlobsReal *glob, const MEDFileMesh *mesh, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
4926 {
4927   MCAuto<MEDCouplingMesh> m(mesh->getMeshAtLevel(meshDimRelToMax,false));
4928   const DataArrayInt *d(mesh->getNumberFieldAtLevel(meshDimRelToMax)),*e(mesh->getNumberFieldAtLevel(1));
4929   if(meshDimRelToMax==1)
4930     (static_cast<MEDCouplingUMesh *>((MEDCouplingMesh *)m))->setMeshDimension(0);
4931   return MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel(type,renumPol,glob,m,d,e,arrOut,nasc);
4932 }
4933
4934 /*!
4935  * Returns a new MEDCouplingFieldDouble of a given type lying on the top level cells of a
4936  * given mesh.
4937  *  \param [in] type - a spatial discretization of the new field.
4938  *  \param [in] mName - a name of the supporting mesh.
4939  *  \param [in] renumPol - specifies how to permute values of the result field according to
4940  *          the optional numbers of cells and nodes, if any. The valid values are
4941  *          - 0 - do not permute.
4942  *          - 1 - permute cells.
4943  *          - 2 - permute nodes.
4944  *          - 3 - permute cells and nodes.
4945  *
4946  *  \param [in] glob - the global data storing profiles and localization.
4947  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
4948  *          caller is to delete this field using decrRef() as it is no more needed.
4949  *  \throw If the MED file is not readable.
4950  *  \throw If there is no mesh named \a mName in the MED file.
4951  *  \throw If there are no mesh entities in the mesh.
4952  *  \throw If no field values of the given \a type are available.
4953  */
4954 MEDCouplingFieldDouble *MEDFileAnyTypeField1TSWithoutSDA::getFieldAtTopLevel(TypeOfField type, const std::string& mName, int renumPol, const MEDFileFieldGlobsReal *glob, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
4955 {
4956   MCAuto<MEDFileMesh> mm;
4957   if(mName.empty())
4958     mm=MEDFileMesh::New(glob->getFileName(),getMeshName().c_str(),getMeshIteration(),getMeshOrder());
4959   else
4960     mm=MEDFileMesh::New(glob->getFileName(),mName,getMeshIteration(),getMeshOrder());
4961   int absDim=getDimension();
4962   int meshDimRelToMax=absDim-mm->getMeshDimension();
4963   return MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel(type,meshDimRelToMax,renumPol,glob,mm,arrOut,nasc);
4964 }
4965
4966 /*!
4967  * Returns a new MEDCouplingFieldDouble of given type lying on a given support.
4968  *  \param [in] type - a spatial discretization of the new field.
4969  *  \param [in] renumPol - specifies how to permute values of the result field according to
4970  *          the optional numbers of cells and nodes, if any. The valid values are
4971  *          - 0 - do not permute.
4972  *          - 1 - permute cells.
4973  *          - 2 - permute nodes.
4974  *          - 3 - permute cells and nodes.
4975  *
4976  *  \param [in] glob - the global data storing profiles and localization.
4977  *  \param [in] mesh - the supporting mesh.
4978  *  \param [in] cellRenum - the cell numbers array used for permutation of the result
4979  *         field according to \a renumPol.
4980  *  \param [in] nodeRenum - the node numbers array used for permutation of the result
4981  *         field according to \a renumPol.
4982  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
4983  *          caller is to delete this field using decrRef() as it is no more needed.
4984  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
4985  *  \throw If no field of \a this is lying on \a mesh.
4986  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
4987  */
4988 MEDCouplingFieldDouble *MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel(TypeOfField type, int renumPol, const MEDFileFieldGlobsReal *glob, const MEDCouplingMesh *mesh, const DataArrayInt *cellRenum, const DataArrayInt *nodeRenum, MCAuto<DataArray>& arrOut, const MEDFileFieldNameScope& nasc) const
4989 {
4990   static const char msg1[]="MEDFileField1TSWithoutSDA::getFieldOnMeshAtLevel : request for a renumbered field following mesh numbering whereas it is a profile field !";
4991   int meshId=getMeshIdFromMeshName(mesh->getName());
4992   bool isPfl=false;
4993   MCAuto<MEDCouplingFieldDouble> ret=_field_per_mesh[meshId]->getFieldOnMeshAtLevel(type,glob,mesh,isPfl,arrOut,nasc);
4994   switch(renumPol)
4995   {
4996     case 0:
4997       {
4998         //no need to test _field_per_mesh.empty() because geMeshName has already done it
4999         return ret.retn();
5000       }
5001     case 3:
5002     case 1:
5003       {
5004         if(isPfl)
5005           throw INTERP_KERNEL::Exception(msg1);
5006         //no need to test _field_per_mesh.empty() because geMeshName has already done it
5007         if(cellRenum)
5008           {
5009             if((int)cellRenum->getNbOfElems()!=mesh->getNumberOfCells())
5010               {
5011                 std::ostringstream oss; oss << "MEDFileField1TSWithoutSDA::getFieldOnMeshAtLevel : Request of simple renumbering but it seems that underlying mesh \"" << mesh->getName() << "\" of requested field ";
5012                 oss << "\"" << getName() << "\" has partial renumbering (some geotype has no renumber) !";
5013                 throw INTERP_KERNEL::Exception(oss.str());
5014               }
5015             MEDCouplingFieldDiscretization *disc=ret->getDiscretization();
5016             if(!disc) throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TSWithoutSDA::getFieldOnMeshAtLevel : internal error, no discretization on field !");
5017             std::vector<DataArray *> arrOut2(1,arrOut);
5018             // 2 following lines replace ret->renumberCells(cellRenum->getConstPointer()) if not DataArrayDouble
5019             disc->renumberArraysForCell(ret->getMesh(),arrOut2,cellRenum->getConstPointer(),true);
5020             (const_cast<MEDCouplingMesh*>(ret->getMesh()))->renumberCells(cellRenum->getConstPointer(),true);
5021           }
5022         if(renumPol==1)
5023           return ret.retn();
5024       }
5025     case 2:
5026       {
5027         //no need to test _field_per_mesh.empty() because geMeshName has already done it
5028         if(isPfl)
5029           throw INTERP_KERNEL::Exception(msg1);
5030         if(nodeRenum)
5031           {
5032             if((int)nodeRenum->getNbOfElems()!=mesh->getNumberOfNodes())
5033               {
5034                 std::ostringstream oss; oss << "MEDFileField1TSWithoutSDA::getFieldOnMeshAtLevel : Request of simple renumbering but it seems that underlying mesh \"" << mesh->getName() << "\" of requested field ";
5035                 oss << "\"" << nasc.getName() << "\" not defined on all nodes !";
5036                 throw INTERP_KERNEL::Exception(oss.str());
5037               }
5038             MCAuto<DataArrayInt> nodeRenumSafe=nodeRenum->checkAndPreparePermutation();
5039             if(!dynamic_cast<DataArrayDouble *>((DataArray *)arrOut))
5040               throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getFieldOnMeshAtLevel : node renumbering not implemented for not double DataArrays !");
5041             ret->renumberNodes(nodeRenumSafe->getConstPointer());
5042           }
5043         return ret.retn();
5044       }
5045     default:
5046       throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getFieldOnMeshAtLevel : unsupported renum policy ! Dealing with policy 0 1 2 and 3 !");
5047   }
5048 }
5049
5050 /*!
5051  * Returns values and a profile of the field of a given type lying on a given support.
5052  *  \param [in] type - a spatial discretization of the field.
5053  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
5054  *  \param [in] mesh - the supporting mesh.
5055  *  \param [out] pfl - a new instance of DataArrayInt holding ids of mesh entities the
5056  *          field of interest lies on. If the field lies on all entities of the given
5057  *          dimension, all ids in \a pfl are zero. The caller is to delete this array
5058  *          using decrRef() as it is no more needed.
5059  *  \param [in] glob - the global data storing profiles and localization.
5060  *  \return DataArrayDouble * - a new instance of DataArrayDouble holding values of the
5061  *          field. The caller is to delete this array using decrRef() as it is no more needed.
5062  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
5063  *  \throw If no field of \a this is lying on \a mesh.
5064  *  \throw If no field values of the given \a type are available.
5065  */
5066 DataArray *MEDFileAnyTypeField1TSWithoutSDA::getFieldWithProfile(TypeOfField type, int meshDimRelToMax, const MEDFileMesh *mesh, DataArrayInt *&pfl, const MEDFileFieldGlobsReal *glob, const MEDFileFieldNameScope& nasc) const
5067 {
5068   MCAuto<MEDCouplingMesh> m(mesh->getMeshAtLevel(meshDimRelToMax));
5069   int meshId=getMeshIdFromMeshName(mesh->getName().c_str());
5070   MCAuto<DataArray> ret=_field_per_mesh[meshId]->getFieldOnMeshAtLevelWithPfl(type,m,pfl,glob,nasc);
5071   ret->setName(nasc.getName().c_str());
5072   return ret.retn();
5073 }
5074
5075 //= MEDFileField1TSWithoutSDA
5076
5077 /*!
5078  * Throws if a given value is not a valid (non-extended) relative dimension.
5079  *  \param [in] meshDimRelToMax - the relative dimension value.
5080  *  \throw If \a meshDimRelToMax > 0.
5081  */
5082 void MEDFileField1TSWithoutSDA::CheckMeshDimRel(int meshDimRelToMax)
5083 {
5084   if(meshDimRelToMax>0)
5085     throw INTERP_KERNEL::Exception("CheckMeshDimRel : This is a meshDimRel not a meshDimRelExt ! So value should be <=0 !");
5086 }
5087
5088 /*!
5089  * Checks if elements of a given mesh are in the order suitable for writing
5090  * to the MED file. If this is not so, an exception is thrown. In a case of success, returns a
5091  * vector describing types of elements and their number.
5092  *  \param [in] mesh - the mesh to check.
5093  *  \return std::vector<int> - a vector holding for each element type (1) item of
5094  *          INTERP_KERNEL::NormalizedCellType, (2) number of elements, (3) -1.
5095  *          These values are in full-interlace mode.
5096  *  \throw If elements in \a mesh are not in the order suitable for writing to the MED file.
5097  */
5098 std::vector<int> MEDFileField1TSWithoutSDA::CheckSBTMesh(const MEDCouplingMesh *mesh)
5099 {
5100   if(!mesh)
5101     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::CheckSBTMesh : input mesh is NULL !");
5102   std::set<INTERP_KERNEL::NormalizedCellType> geoTypes=mesh->getAllGeoTypes();
5103   int nbOfTypes=geoTypes.size();
5104   std::vector<int> code(3*nbOfTypes);
5105   MCAuto<DataArrayInt> arr1=DataArrayInt::New();
5106   arr1->alloc(nbOfTypes,1);
5107   int *arrPtr=arr1->getPointer();
5108   std::set<INTERP_KERNEL::NormalizedCellType>::const_iterator it=geoTypes.begin();
5109   for(int i=0;i<nbOfTypes;i++,it++)
5110     arrPtr[i]=std::distance(typmai2,std::find(typmai2,typmai2+MED_N_CELL_FIXED_GEO,*it));
5111   MCAuto<DataArrayInt> arr2=arr1->checkAndPreparePermutation();
5112   const int *arrPtr2=arr2->getConstPointer();
5113   int i=0;
5114   for(it=geoTypes.begin();it!=geoTypes.end();it++,i++)
5115     {
5116       int pos=arrPtr2[i];
5117       int nbCells=mesh->getNumberOfCellsWithType(*it);
5118       code[3*pos]=(int)(*it);
5119       code[3*pos+1]=nbCells;
5120       code[3*pos+2]=-1;//no profiles
5121     }
5122   std::vector<const DataArrayInt *> idsPerType;//no profiles
5123   DataArrayInt *da=mesh->checkTypeConsistencyAndContig(code,idsPerType);
5124   if(da)
5125     {
5126       da->decrRef();
5127       throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::CheckSBTMesh : underlying mesh is not sorted by type as MED file expects !");
5128     }
5129   return code;
5130 }
5131
5132 MEDFileField1TSWithoutSDA *MEDFileField1TSWithoutSDA::New(const std::string& fieldName, int csit, int iteration, int order, const std::vector<std::string>& infos)
5133 {
5134   return new MEDFileField1TSWithoutSDA(fieldName,csit,iteration,order,infos);
5135 }
5136
5137 /*!
5138  * Returns all attributes and values of parts of \a this field lying on a given mesh.
5139  * Each part differs from other ones by a type of supporting mesh entity. The _i_-th
5140  * item of every of returned sequences refers to the _i_-th part of \a this field.
5141  * Thus all sequences returned by this method are of the same length equal to number
5142  * of different types of supporting entities.<br>
5143  * A field part can include sub-parts with several different spatial discretizations,
5144  * \ref MEDCoupling::ON_CELLS "ON_CELLS" and \ref MEDCoupling::ON_GAUSS_PT "ON_GAUSS_PT"
5145  * for example. Hence, some of the returned sequences contains nested sequences, and an item
5146  * of a nested sequence corresponds to a type of spatial discretization.<br>
5147  * This method allows for iteration over MEDFile DataStructure with a reduced overhead.
5148  * The overhead is due to selecting values into new instances of DataArrayDouble.
5149  *  \param [in] mname - a name of a mesh of interest. It can be \c NULL, which is valid
5150  *          for the case with only one underlying mesh. (Actually, the number of meshes is
5151  *          not checked if \a mname == \c NULL).
5152  *  \param [in,out] types - a sequence of types of underlying mesh entities. A type per
5153  *          a field part is returned.
5154  *  \param [in,out] typesF - a sequence of sequences of types of spatial discretizations.
5155  *          A field part can include sub-parts with several different spatial discretizations,
5156  *          \ref MEDCoupling::ON_CELLS "ON_CELLS" and
5157  *          \ref MEDCoupling::ON_GAUSS_PT "ON_GAUSS_PT" for example.
5158  *          This sequence is of the same length as \a types.
5159  *  \param [in,out] pfls - a sequence returning a profile name per each type of spatial
5160  *          discretization. A profile name can be empty.
5161  *          Length of this and of nested sequences is the same as that of \a typesF.
5162  *  \param [in,out] locs - a sequence returning a localization name per each type of spatial
5163  *          discretization. A localization name can be empty.
5164  *          Length of this and of nested sequences is the same as that of \a typesF.
5165  *  \return std::vector< std::vector<DataArrayDouble *> > - a sequence holding arrays of values
5166  *          per each type of spatial discretization within one mesh entity type.
5167  *          The caller is to delete each DataArrayDouble using decrRef() as it is no more needed.
5168  *          Length of this and of nested sequences is the same as that of \a typesF.
5169  *  \throw If no field is lying on \a mname.
5170  */
5171 std::vector< std::vector<DataArrayDouble *> > MEDFileField1TSWithoutSDA::getFieldSplitedByType2(const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
5172 {
5173   int meshId=0;
5174   if(!mname.empty())
5175     meshId=getMeshIdFromMeshName(mname);
5176   else
5177     if(_field_per_mesh.empty())
5178       throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getFieldSplitedByType : This is empty !");
5179   std::vector< std::vector< std::pair<int,int> > > ret0=_field_per_mesh[meshId]->getFieldSplitedByType(types,typesF,pfls,locs);
5180   int nbOfRet=ret0.size();
5181   std::vector< std::vector<DataArrayDouble *> > ret(nbOfRet);
5182   for(int i=0;i<nbOfRet;i++)
5183     {
5184       const std::vector< std::pair<int,int> >& p=ret0[i];
5185       int nbOfRet1=p.size();
5186       ret[i].resize(nbOfRet1);
5187       for(int j=0;j<nbOfRet1;j++)
5188         {
5189           DataArrayDouble *tmp=_arr->selectByTupleIdSafeSlice(p[j].first,p[j].second,1);
5190           ret[i][j]=tmp;
5191         }
5192     }
5193   return ret;
5194 }
5195
5196 const char *MEDFileField1TSWithoutSDA::getTypeStr() const
5197 {
5198   return TYPE_STR;
5199 }
5200
5201 MEDFileIntField1TSWithoutSDA *MEDFileField1TSWithoutSDA::convertToInt() const
5202 {
5203   MCAuto<MEDFileIntField1TSWithoutSDA> ret(new MEDFileIntField1TSWithoutSDA);
5204   ret->MEDFileAnyTypeField1TSWithoutSDA::operator =(*this);
5205   ret->deepCpyLeavesFrom(*this);
5206   const DataArrayDouble *arr(_arr);
5207   if(arr)
5208     {
5209       MCAuto<DataArrayInt> arr2(arr->convertToIntArr());
5210       ret->setArray(arr2);
5211     }
5212   return ret.retn();
5213 }
5214
5215 /*!
5216  * Returns a pointer to the underground DataArrayDouble instance and a
5217  * sequence describing parameters of a support of each part of \a this field. The
5218  * caller should not decrRef() the returned DataArrayDouble. This method allows for a
5219  * direct access to the field values. This method is intended for the field lying on one
5220  * mesh only.
5221  *  \param [in,out] entries - the sequence describing parameters of a support of each
5222  *         part of \a this field. Each item of this sequence consists of two parts. The
5223  *         first part describes a type of mesh entity and an id of discretization of a
5224  *         current field part. The second part describes a range of values [begin,end)
5225  *         within the returned array relating to the current field part.
5226  *  \return DataArrayDouble * - the pointer to the field values array.
5227  *  \throw If the number of underlying meshes is not equal to 1.
5228  *  \throw If no field values are available.
5229  *  \sa getUndergroundDataArray()
5230  */
5231 DataArrayDouble *MEDFileField1TSWithoutSDA::getUndergroundDataArrayDoubleExt(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
5232 {
5233   if(_field_per_mesh.size()!=1)
5234     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getUndergroundDataArrayExt : field lies on several meshes, this method has no sense !");
5235   if(_field_per_mesh[0]==0)
5236     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getUndergroundDataArrayExt : no field specified !");
5237   _field_per_mesh[0]->getUndergroundDataArrayExt(entries);
5238   return getUndergroundDataArrayTemplate();
5239 }
5240
5241 /*!
5242  * Returns a pointer to the underground DataArrayDouble instance and a
5243  * sequence describing parameters of a support of each part of \a this field. The
5244  * caller should not decrRef() the returned DataArrayDouble. This method allows for a
5245  * direct access to the field values. This method is intended for the field lying on one
5246  * mesh only.
5247  *  \param [in,out] entries - the sequence describing parameters of a support of each
5248  *         part of \a this field. Each item of this sequence consists of two parts. The
5249  *         first part describes a type of mesh entity and an id of discretization of a
5250  *         current field part. The second part describes a range of values [begin,end)
5251  *         within the returned array relating to the current field part.
5252  *  \return DataArrayDouble * - the pointer to the field values array.
5253  *  \throw If the number of underlying meshes is not equal to 1.
5254  *  \throw If no field values are available.
5255  *  \sa getUndergroundDataArray()
5256  */
5257 DataArray *MEDFileField1TSWithoutSDA::getUndergroundDataArrayExt(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
5258 {
5259   return getUndergroundDataArrayDoubleExt(entries);
5260 }
5261
5262 MEDFileField1TSWithoutSDA::MEDFileField1TSWithoutSDA(const std::string& fieldName, int csit, int iteration, int order, const std::vector<std::string>& infos):MEDFileField1TSTemplateWithoutSDA<double>(fieldName,csit,iteration,order)
5263 {
5264   DataArrayDouble *arr(getOrCreateAndGetArrayTemplate());
5265   arr->setInfoAndChangeNbOfCompo(infos);
5266 }
5267
5268 MEDFileField1TSWithoutSDA::MEDFileField1TSWithoutSDA():MEDFileField1TSTemplateWithoutSDA<double>()
5269 {
5270 }
5271
5272 MEDFileAnyTypeField1TSWithoutSDA *MEDFileField1TSWithoutSDA::shallowCpy() const
5273 {
5274   MCAuto<MEDFileField1TSWithoutSDA> ret(new MEDFileField1TSWithoutSDA(*this));
5275   ret->deepCpyLeavesFrom(*this);
5276   return ret.retn();
5277 }
5278
5279 MEDFileAnyTypeField1TSWithoutSDA *MEDFileField1TSWithoutSDA::deepCopy() const
5280 {
5281   MCAuto<MEDFileField1TSWithoutSDA> ret=static_cast<MEDFileField1TSWithoutSDA *>(shallowCpy());
5282   if((const DataArrayDouble *)_arr)
5283     ret->_arr=_arr->deepCopy();
5284   return ret.retn();
5285 }
5286
5287 //= MEDFileIntField1TSWithoutSDA
5288
5289 MEDFileIntField1TSWithoutSDA *MEDFileIntField1TSWithoutSDA::New(const std::string& fieldName, int csit, int iteration, int order, const std::vector<std::string>& infos)
5290 {
5291   return new MEDFileIntField1TSWithoutSDA(fieldName,csit,iteration,order,infos);
5292 }
5293
5294 MEDFileIntField1TSWithoutSDA::MEDFileIntField1TSWithoutSDA():MEDFileField1TSTemplateWithoutSDA<int>()
5295 {
5296 }
5297
5298 MEDFileIntField1TSWithoutSDA::MEDFileIntField1TSWithoutSDA(const std::string& fieldName, int csit, int iteration, int order,
5299                                                            const std::vector<std::string>& infos):MEDFileField1TSTemplateWithoutSDA<int>(fieldName,csit,iteration,order)
5300 {
5301   DataArrayInt *arr(getOrCreateAndGetArrayTemplate());
5302   arr->setInfoAndChangeNbOfCompo(infos);
5303 }
5304
5305 const char *MEDFileIntField1TSWithoutSDA::getTypeStr() const
5306 {
5307   return TYPE_STR;
5308 }
5309
5310 MEDFileField1TSWithoutSDA *MEDFileIntField1TSWithoutSDA::convertToDouble() const
5311 {
5312   MCAuto<MEDFileField1TSWithoutSDA> ret(new MEDFileField1TSWithoutSDA);
5313   ret->MEDFileAnyTypeField1TSWithoutSDA::operator =(*this);
5314   ret->deepCpyLeavesFrom(*this);
5315   const DataArrayInt *arr(_arr);
5316   if(arr)
5317     {
5318       MCAuto<DataArrayDouble> arr2(arr->convertToDblArr());
5319       ret->setArray(arr2);
5320     }
5321   return ret.retn();
5322 }
5323
5324 /*!
5325  * Returns a pointer to the underground DataArrayInt instance and a
5326  * sequence describing parameters of a support of each part of \a this field. The
5327  * caller should not decrRef() the returned DataArrayInt. This method allows for a
5328  * direct access to the field values. This method is intended for the field lying on one
5329  * mesh only.
5330  *  \param [in,out] entries - the sequence describing parameters of a support of each
5331  *         part of \a this field. Each item of this sequence consists of two parts. The
5332  *         first part describes a type of mesh entity and an id of discretization of a
5333  *         current field part. The second part describes a range of values [begin,end)
5334  *         within the returned array relating to the current field part.
5335  *  \return DataArrayInt * - the pointer to the field values array.
5336  *  \throw If the number of underlying meshes is not equal to 1.
5337  *  \throw If no field values are available.
5338  *  \sa getUndergroundDataArray()
5339  */
5340 DataArray *MEDFileIntField1TSWithoutSDA::getUndergroundDataArrayExt(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
5341 {
5342   return getUndergroundDataArrayIntExt(entries);
5343 }
5344
5345 /*!
5346  * Returns a pointer to the underground DataArrayInt instance and a
5347  * sequence describing parameters of a support of each part of \a this field. The
5348  * caller should not decrRef() the returned DataArrayInt. This method allows for a
5349  * direct access to the field values. This method is intended for the field lying on one
5350  * mesh only.
5351  *  \param [in,out] entries - the sequence describing parameters of a support of each
5352  *         part of \a this field. Each item of this sequence consists of two parts. The
5353  *         first part describes a type of mesh entity and an id of discretization of a
5354  *         current field part. The second part describes a range of values [begin,end)
5355  *         within the returned array relating to the current field part.
5356  *  \return DataArrayInt * - the pointer to the field values array.
5357  *  \throw If the number of underlying meshes is not equal to 1.
5358  *  \throw If no field values are available.
5359  *  \sa getUndergroundDataArray()
5360  */
5361 DataArrayInt *MEDFileIntField1TSWithoutSDA::getUndergroundDataArrayIntExt(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
5362 {
5363   if(_field_per_mesh.size()!=1)
5364     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getUndergroundDataArrayExt : field lies on several meshes, this method has no sense !");
5365   if(_field_per_mesh[0]==0)
5366     throw INTERP_KERNEL::Exception("MEDFileField1TSWithoutSDA::getUndergroundDataArrayExt : no field specified !");
5367   _field_per_mesh[0]->getUndergroundDataArrayExt(entries);
5368   return getUndergroundDataArrayTemplate();
5369 }
5370
5371 MEDFileAnyTypeField1TSWithoutSDA *MEDFileIntField1TSWithoutSDA::shallowCpy() const
5372 {
5373   MCAuto<MEDFileIntField1TSWithoutSDA> ret(new MEDFileIntField1TSWithoutSDA(*this));
5374   ret->deepCpyLeavesFrom(*this);
5375   return ret.retn();
5376 }
5377
5378 MEDFileAnyTypeField1TSWithoutSDA *MEDFileIntField1TSWithoutSDA::deepCopy() const
5379 {
5380   MCAuto<MEDFileIntField1TSWithoutSDA> ret=static_cast<MEDFileIntField1TSWithoutSDA *>(shallowCpy());
5381   if((const DataArrayInt *)_arr)
5382     ret->_arr=_arr->deepCopy();
5383   return ret.retn();
5384 }
5385
5386 MEDFileAnyTypeField1TS::MEDFileAnyTypeField1TS()
5387 {
5388 }
5389
5390 //= MEDFileAnyTypeField1TS
5391
5392 MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeField1TS::BuildContentFrom(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
5393 {
5394   med_field_type typcha;
5395   //
5396   std::vector<std::string> infos;
5397   std::string dtunit,fieldName;
5398   LocateField2(fid,0,true,fieldName,typcha,infos,dtunit);
5399   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> ret;
5400   switch(typcha)
5401   {
5402     case MED_FLOAT64:
5403       {
5404         ret=MEDFileField1TSWithoutSDA::New(fieldName.c_str(),-1,-1/*iteration*/,-1/*order*/,std::vector<std::string>());
5405         break;
5406       }
5407     case MED_INT32:
5408       {
5409         ret=MEDFileIntField1TSWithoutSDA::New(fieldName.c_str(),-1,-1/*iteration*/,-1/*order*/,std::vector<std::string>());
5410         break;
5411       }
5412     default:
5413       {
5414         std::ostringstream oss; oss << "MEDFileAnyTypeField1TS::BuildContentFrom(fid) : file \'" << FileNameFromFID(fid) << "\' contains field with name \'" << fieldName << "\' but the type of the first field is not in [MED_FLOAT64, MED_INT32] !";
5415         throw INTERP_KERNEL::Exception(oss.str());
5416       }
5417   }
5418   ret->setDtUnit(dtunit.c_str());
5419   ret->getOrCreateAndGetArray()->setInfoAndChangeNbOfCompo(infos);
5420   //
5421   med_int numdt,numit;
5422   med_float dt;
5423   MEDFILESAFECALLERRD0(MEDfieldComputingStepInfo,(fid,fieldName.c_str(),1,&numdt,&numit,&dt));
5424   ret->setTime(numdt,numit,dt);
5425   ret->_csit=1;
5426   if(loadAll)
5427     ret->loadStructureAndBigArraysRecursively(fid,*((const MEDFileAnyTypeField1TSWithoutSDA*)ret),ms,0);
5428   else
5429     ret->loadOnlyStructureOfDataRecursively(fid,*((const MEDFileAnyTypeField1TSWithoutSDA*)ret),ms,0);
5430   return ret.retn();
5431 }
5432
5433 MEDFileAnyTypeField1TS::MEDFileAnyTypeField1TS(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
5434 try:MEDFileFieldGlobsReal(fid)
5435 {
5436   _content=BuildContentFrom(fid,loadAll,ms);
5437   loadGlobals(fid);
5438 }
5439 catch(INTERP_KERNEL::Exception& e)
5440 {
5441     throw e;
5442 }
5443
5444 MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeField1TS::BuildContentFrom(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms)
5445 {
5446   med_field_type typcha;
5447   std::vector<std::string> infos;
5448   std::string dtunit;
5449   int iii=-1;
5450   int nbSteps=LocateField(fid,fieldName,iii,typcha,infos,dtunit);
5451   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> ret;
5452   switch(typcha)
5453   {
5454     case MED_FLOAT64:
5455       {
5456         ret=MEDFileField1TSWithoutSDA::New(fieldName,-1,-1/*iteration*/,-1/*order*/,std::vector<std::string>());
5457         break;
5458       }
5459     case MED_INT32:
5460       {
5461         ret=MEDFileIntField1TSWithoutSDA::New(fieldName,-1,-1/*iteration*/,-1/*order*/,std::vector<std::string>());
5462         break;
5463       }
5464     default:
5465       {
5466         std::ostringstream oss; oss << "MEDFileAnyTypeField1TS::BuildContentFrom(fid,fieldName) : file \'" << FileNameFromFID(fid) << "\' contains field with name \'" << fieldName << "\' but the type of field is not in [MED_FLOAT64, MED_INT32] !";
5467         throw INTERP_KERNEL::Exception(oss.str());
5468       }
5469   }
5470   ret->setDtUnit(dtunit.c_str());
5471   ret->getOrCreateAndGetArray()->setInfoAndChangeNbOfCompo(infos);
5472   //
5473   if(nbSteps<1)
5474     {
5475       std::ostringstream oss; oss << "MEDFileField1TS(fid,fieldName) : file \'" << FileNameFromFID(fid) << "\' contains field with name \'" << fieldName << "\' but there is no time steps on it !";
5476       throw INTERP_KERNEL::Exception(oss.str());
5477     }
5478   //
5479   med_int numdt,numit;
5480   med_float dt;
5481   MEDFILESAFECALLERRD0(MEDfieldComputingStepInfo,(fid,fieldName.c_str(),1,&numdt,&numit,&dt));
5482   ret->setTime(numdt,numit,dt);
5483   ret->_csit=1;
5484   if(loadAll)
5485     ret->loadStructureAndBigArraysRecursively(fid,*((const MEDFileAnyTypeField1TSWithoutSDA*)ret),ms,0);
5486   else
5487     ret->loadOnlyStructureOfDataRecursively(fid,*((const MEDFileAnyTypeField1TSWithoutSDA*)ret),ms,0);
5488   return ret.retn();
5489 }
5490
5491 MEDFileAnyTypeField1TS::MEDFileAnyTypeField1TS(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms)
5492 try:MEDFileFieldGlobsReal(fid)
5493 {
5494   _content=BuildContentFrom(fid,fieldName,loadAll,ms);
5495   loadGlobals(fid);
5496 }
5497 catch(INTERP_KERNEL::Exception& e)
5498 {
5499     throw e;
5500 }
5501
5502 MEDFileAnyTypeField1TS *MEDFileAnyTypeField1TS::BuildNewInstanceFromContent(MEDFileAnyTypeField1TSWithoutSDA *c, const std::string& fileName)
5503 {
5504   if(!c)
5505     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS::BuildNewInstanceFromContent : empty content in input : unable to build a new instance !");
5506   if(dynamic_cast<const MEDFileField1TSWithoutSDA *>(c))
5507     {
5508       MCAuto<MEDFileField1TS> ret(MEDFileField1TS::New());
5509       ret->setFileName(fileName);
5510       ret->_content=c; c->incrRef();
5511       return ret.retn();
5512     }
5513   if(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(c))
5514     {
5515       MCAuto<MEDFileIntField1TS> ret(MEDFileIntField1TS::New());
5516       ret->setFileName(fileName);
5517       ret->_content=c; c->incrRef();
5518       return ret.retn();
5519     }
5520   throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS::BuildNewInstanceFromContent : internal error ! a content of type different from FLOAT64 and INT32 has been built but not intercepted !");
5521 }
5522
5523 MEDFileAnyTypeField1TS *MEDFileAnyTypeField1TS::New(const std::string& fileName, bool loadAll)
5524 {
5525   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
5526   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> c(BuildContentFrom(fid,loadAll,0));
5527   MCAuto<MEDFileAnyTypeField1TS> ret(BuildNewInstanceFromContent(c,fileName));
5528   ret->loadGlobals(fid);
5529   return ret.retn();
5530 }
5531
5532 MEDFileAnyTypeField1TS *MEDFileAnyTypeField1TS::New(const std::string& fileName, const std::string& fieldName, bool loadAll)
5533 {
5534   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
5535   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> c(BuildContentFrom(fid,fieldName,loadAll,0));
5536   MCAuto<MEDFileAnyTypeField1TS> ret(BuildNewInstanceFromContent(c,fileName));
5537   ret->loadGlobals(fid);
5538   return ret.retn();
5539 }
5540
5541 MEDFileAnyTypeField1TS *MEDFileAnyTypeField1TS::New(const std::string& fileName, const std::string& fieldName, int iteration, int order, bool loadAll)
5542 {
5543   MEDFileUtilities::AutoFid fid=OpenMEDFileForRead(fileName);
5544   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> c(BuildContentFrom(fid,fieldName,iteration,order,loadAll,0));
5545   MCAuto<MEDFileAnyTypeField1TS> ret(BuildNewInstanceFromContent(c,fileName));
5546   ret->loadGlobals(fid);
5547   return ret.retn();
5548 }
5549
5550 MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeField1TS::BuildContentFrom(med_idt fid, const std::string& fieldName, int iteration, int order, bool loadAll, const MEDFileMeshes *ms)
5551 {
5552   med_field_type typcha;
5553   std::vector<std::string> infos;
5554   std::string dtunit;
5555   int iii(-1);
5556   int nbOfStep2(LocateField(fid,fieldName,iii,typcha,infos,dtunit));
5557   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> ret;
5558   switch(typcha)
5559   {
5560     case MED_FLOAT64:
5561       {
5562         ret=MEDFileField1TSWithoutSDA::New(fieldName,-1,iteration,order,std::vector<std::string>());
5563         break;
5564       }
5565     case MED_INT32:
5566       {
5567         ret=MEDFileIntField1TSWithoutSDA::New(fieldName,-1,iteration,order,std::vector<std::string>());
5568         break;
5569       }
5570     default:
5571       {
5572         std::ostringstream oss; oss << "MEDFileAnyTypeField1TS::BuildContentFrom(fid,fieldName,iteration,order) : file \'" << FileNameFromFID(fid) << "\' contains field with name \'" << fieldName << "\' but the type of field is not in [MED_FLOAT64, MED_INT32] !";
5573         throw INTERP_KERNEL::Exception(oss.str());
5574       }
5575   }
5576   ret->setDtUnit(dtunit.c_str());
5577   ret->getOrCreateAndGetArray()->setInfoAndChangeNbOfCompo(infos);
5578   //
5579   bool found=false;
5580   std::vector< std::pair<int,int> > dtits(nbOfStep2);
5581   for(int i=0;i<nbOfStep2 && !found;i++)
5582     {
5583       med_int numdt,numit;
5584       med_float dt;
5585       MEDFILESAFECALLERRD0(MEDfieldComputingStepInfo,(fid,fieldName.c_str(),i+1,&numdt,&numit,&dt));
5586       if(numdt==iteration && numit==order)
5587         {
5588           found=true;
5589           ret->_csit=i+1;
5590         }
5591       else
5592         dtits[i]=std::pair<int,int>(numdt,numit);
5593     }
5594   if(!found)
5595     {
5596       std::ostringstream oss; oss << "No such iteration (" << iteration << "," << order << ") in existing field '" << fieldName << "' in file '" << FileNameFromFID(fid) << "' ! Available iterations are : ";
5597       for(std::vector< std::pair<int,int> >::const_iterator iter=dtits.begin();iter!=dtits.end();iter++)
5598         oss << "(" << (*iter).first << "," << (*iter).second << "), ";
5599       throw INTERP_KERNEL::Exception(oss.str());
5600     }
5601   if(loadAll)
5602     ret->loadStructureAndBigArraysRecursively(fid,*((const MEDFileAnyTypeField1TSWithoutSDA*)ret),ms,0);
5603   else
5604     ret->loadOnlyStructureOfDataRecursively(fid,*((const MEDFileAnyTypeField1TSWithoutSDA*)ret),ms,0);
5605   return ret.retn();
5606 }
5607
5608 MEDFileAnyTypeField1TS::MEDFileAnyTypeField1TS(med_idt fid, const std::string& fieldName, int iteration, int order, bool loadAll, const MEDFileMeshes *ms)
5609 try:MEDFileFieldGlobsReal(fid)
5610 {
5611   _content=BuildContentFrom(fid,fieldName,iteration,order,loadAll,ms);
5612   loadGlobals(fid);
5613 }
5614 catch(INTERP_KERNEL::Exception& e)
5615 {
5616     throw e;
5617 }
5618
5619 /*!
5620  * This constructor is a shallow copy constructor. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
5621  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
5622  *
5623  * \warning this is a shallow copy constructor
5624  */
5625 MEDFileAnyTypeField1TS::MEDFileAnyTypeField1TS(const MEDFileAnyTypeField1TSWithoutSDA& other, bool shallowCopyOfContent)
5626 {
5627   if(!shallowCopyOfContent)
5628     {
5629       const MEDFileAnyTypeField1TSWithoutSDA *otherPtr(&other);
5630       otherPtr->incrRef();
5631       _content=const_cast<MEDFileAnyTypeField1TSWithoutSDA *>(otherPtr);
5632     }
5633   else
5634     {
5635       _content=other.shallowCpy();
5636     }
5637 }
5638
5639 int MEDFileAnyTypeField1TS::LocateField2(med_idt fid, int fieldIdCFormat, bool checkFieldId, std::string& fieldName, med_field_type& typcha, std::vector<std::string>& infos, std::string& dtunitOut)
5640 {
5641   if(checkFieldId)
5642     {
5643       int nbFields=MEDnField(fid);
5644       if(fieldIdCFormat>=nbFields)
5645         {
5646           std::ostringstream oss; oss << "MEDFileAnyTypeField1TS::LocateField2(fileName) : in file \'" << FileNameFromFID(fid) << "\' number of fields is " << nbFields << " ! Trying to request for id " << fieldIdCFormat << " !";
5647           throw INTERP_KERNEL::Exception(oss.str());
5648         }
5649     }
5650   int ncomp(MEDfieldnComponent(fid,fieldIdCFormat+1));
5651   INTERP_KERNEL::AutoPtr<char> comp=MEDLoaderBase::buildEmptyString(ncomp*MED_SNAME_SIZE);
5652   INTERP_KERNEL::AutoPtr<char> unit=MEDLoaderBase::buildEmptyString(ncomp*MED_SNAME_SIZE);
5653   INTERP_KERNEL::AutoPtr<char> dtunit=MEDLoaderBase::buildEmptyString(MED_LNAME_SIZE);
5654   INTERP_KERNEL::AutoPtr<char> nomcha=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
5655   INTERP_KERNEL::AutoPtr<char> nomMaa=MEDLoaderBase::buildEmptyString(MED_NAME_SIZE);
5656   med_bool localMesh;
5657   int nbOfStep;
5658   MEDFILESAFECALLERRD0(MEDfieldInfo,(fid,fieldIdCFormat+1,nomcha,nomMaa,&localMesh,&typcha,comp,unit,dtunit,&nbOfStep));
5659   fieldName=MEDLoaderBase::buildStringFromFortran(nomcha,MED_NAME_SIZE);
5660   dtunitOut=MEDLoaderBase::buildStringFromFortran(dtunit,MED_LNAME_SIZE);
5661   infos.clear(); infos.resize(ncomp);
5662   for(int j=0;j<ncomp;j++)
5663     infos[j]=MEDLoaderBase::buildUnionUnit((char *)comp+j*MED_SNAME_SIZE,MED_SNAME_SIZE,(char *)unit+j*MED_SNAME_SIZE,MED_SNAME_SIZE);
5664   return nbOfStep;
5665 }
5666
5667 /*!
5668  * This method throws an INTERP_KERNEL::Exception if \a fieldName field is not in file pointed by \a fid and with name \a fileName.
5669  *
5670  * \param [out]
5671  * \return in case of success the number of time steps available for the field with name \a fieldName.
5672  */
5673 int MEDFileAnyTypeField1TS::LocateField(med_idt fid, const std::string& fieldName, int& posCFormat, med_field_type& typcha, std::vector<std::string>& infos, std::string& dtunitOut)
5674 {
5675   int nbFields=MEDnField(fid);
5676   bool found=false;
5677   std::vector<std::string> fns(nbFields);
5678   int nbOfStep2(-1);
5679   for(int i=0;i<nbFields && !found;i++)
5680     {
5681       std::string tmp;
5682       nbOfStep2=LocateField2(fid,i,false,tmp,typcha,infos,dtunitOut);
5683       fns[i]=tmp;
5684       found=(tmp==fieldName);
5685       if(found)
5686         posCFormat=i;
5687     }
5688   if(!found)
5689     {
5690       std::ostringstream oss; oss << "No such field '" << fieldName << "' in file '" << FileNameFromFID(fid) << "' ! Available fields are : ";
5691       for(std::vector<std::string>::const_iterator it=fns.begin();it!=fns.end();it++)
5692         oss << "\"" << *it << "\" ";
5693       throw INTERP_KERNEL::Exception(oss.str());
5694     }
5695   return nbOfStep2;
5696 }
5697
5698 /*!
5699  * This method as MEDFileField1TSW::setLocNameOnLeaf, is dedicated for advanced user that a want a very fine control on their data structure
5700  * without overhead. This method can be called only regarding information returned by MEDFileField1TSWithoutSDA::getFieldSplitedByType or MEDFileField1TSWithoutSDA::getFieldSplitedByType2.
5701  * This method changes the attribute (here it's profile name) of the leaf datastructure (MEDFileFieldPerMeshPerTypePerDisc instance).
5702  * It is the responsability of the caller to invoke MEDFileFieldGlobs::appendProfile or MEDFileFieldGlobs::getProfile
5703  * to keep a valid instance.
5704  * If \b this do not have any leaf that correspond to the request of the input parameter (\b mName, \b typ, \b locId) an INTERP_KERNEL::Exception will be thrown.
5705  * If \b newPflName profile name does not already exist the profile with old name will be renamed with name \b newPflName.
5706  * If \b newPflName already exists and that \b forceRenameOnGlob is false (the default) an INTERP_KERNEL::Exception will be thrown to avoid big confusion. In this case the called should rename before the profile name with name \b newPflName.
5707  *
5708  * \param [in] mName specifies the underlying mesh name. This value can be pointer 0 for users that do not deal with fields on multi mesh.
5709  * \param [in] typ is for the geometric cell type (or INTERP_KERNEL::NORM_ERROR for node field) entry to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set.
5710  * \param [in] locId is the localization id to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set. It corresponds to the position of
5711  *             \c pfls[std::distance(types.begin(),std::find(types.begin(),typ)] vector in MEDFileField1TSWithoutSDA::getFieldSplitedByType. For non gausspoints field users, the value is 0.
5712  * \param [in] newLocName is the new localization name.
5713  * \param [in] forceRenameOnGlob specifies the behaviour in case of profile \b newPflName already exists. If true, the renaming is done without check. It can lead to major bug.
5714  *             If false, an exception will be thrown to force user to change previously the name of the profile with name \b newPflName
5715  */
5716 void MEDFileAnyTypeField1TS::setProfileNameOnLeaf(const std::string& mName, INTERP_KERNEL::NormalizedCellType typ, int locId, const std::string& newPflName, bool forceRenameOnGlob)
5717 {
5718   MEDFileFieldPerMeshPerTypePerDisc *disc=getLeafGivenMeshAndTypeAndLocId(mName,typ,locId);
5719   std::string oldPflName=disc->getProfile();
5720   std::vector<std::string> vv=getPflsReallyUsedMulti();
5721   int nbOfOcc=std::count(vv.begin(),vv.end(),oldPflName);
5722   if(forceRenameOnGlob || (!existsPfl(newPflName) && nbOfOcc==1))
5723     {
5724       disc->setProfile(newPflName);
5725       DataArrayInt *pfl=getProfile(oldPflName.c_str());
5726       pfl->setName(newPflName);
5727     }
5728   else
5729     {
5730       std::ostringstream oss; oss << "MEDFileField1TS::setProfileNameOnLeaf : Profile \"" << newPflName << "\" already exists or referenced more than one !";
5731       throw INTERP_KERNEL::Exception(oss.str());
5732     }
5733 }
5734
5735 /*!
5736  * This method as MEDFileField1TSW::setProfileNameOnLeaf, is dedicated for advanced user that a want a very fine control on their data structure
5737  * without overhead. This method can be called only regarding information returned by MEDFileField1TSWithoutSDA::getFieldSplitedByType or MEDFileField1TSWithoutSDA::getFieldSplitedByType2.
5738  * This method changes the attribute (here it's localization name) of the leaf datastructure (MEDFileFieldPerMeshPerTypePerDisc instance).
5739  * It is the responsability of the caller to invoke MEDFileFieldGlobs::appendProfile or MEDFileFieldGlobs::getProfile
5740  * to keep a valid instance.
5741  * If \b this do not have any leaf that correspond to the request of the input parameter (\b mName, \b typ, \b locId) an INTERP_KERNEL::Exception will be thrown.
5742  * This method is an extension of MEDFileField1TSWithoutSDA::setProfileNameOnLeafExt method because it performs a modification of global info.
5743  * If \b newLocName profile name does not already exist the localization with old name will be renamed with name \b newLocName.
5744  * If \b newLocName already exists an INTERP_KERNEL::Exception will be thrown to avoid big confusion. In this case the called should rename before the profile name with name \b newLocName.
5745  *
5746  * \param [in] mName specifies the underlying mesh name. This value can be pointer 0 for users that do not deal with fields on multi mesh.
5747  * \param [in] typ is for the geometric cell type (or INTERP_KERNEL::NORM_ERROR for node field) entry to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set.
5748  * \param [in] locId is the localization id to find the right MEDFileFieldPerMeshPerTypePerDisc instance to set. It corresponds to the position of
5749  *             \c pfls[std::distance(types.begin(),std::find(types.begin(),typ)] vector in MEDFileField1TSWithoutSDA::getFieldSplitedByType. For non gausspoints field users, the value is 0.
5750  * \param [in] newLocName is the new localization name.
5751  * \param [in] forceRenameOnGlob specifies the behaviour in case of profile \b newLocName already exists. If true, the renaming is done without check. It can lead to major bug.
5752  *             If false, an exception will be thrown to force user to change previously the name of the profile with name \b newLocName
5753  */
5754 void MEDFileAnyTypeField1TS::setLocNameOnLeaf(const std::string& mName, INTERP_KERNEL::NormalizedCellType typ, int locId, const std::string& newLocName, bool forceRenameOnGlob)
5755 {
5756   MEDFileFieldPerMeshPerTypePerDisc *disc=getLeafGivenMeshAndTypeAndLocId(mName,typ,locId);
5757   std::string oldLocName=disc->getLocalization();
5758   std::vector<std::string> vv=getLocsReallyUsedMulti();
5759   int nbOfOcc=std::count(vv.begin(),vv.end(),oldLocName);
5760   if(forceRenameOnGlob || (!existsLoc(newLocName) && nbOfOcc==1))
5761     {
5762       disc->setLocalization(newLocName);
5763       MEDFileFieldLoc& loc=getLocalization(oldLocName.c_str());
5764       loc.setName(newLocName);
5765     }
5766   else
5767     {
5768       std::ostringstream oss; oss << "MEDFileField1TS::setLocNameOnLeaf : Localization \"" << newLocName << "\" already exists or referenced more than one !";
5769       throw INTERP_KERNEL::Exception(oss.str());
5770     }
5771 }
5772
5773 MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeField1TS::contentNotNullBase()
5774 {
5775   MEDFileAnyTypeField1TSWithoutSDA *ret=_content;
5776   if(!ret)
5777     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS : content is expected to be not null !");
5778   return ret;
5779 }
5780
5781 const MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeField1TS::contentNotNullBase() const
5782 {
5783   const MEDFileAnyTypeField1TSWithoutSDA *ret=_content;
5784   if(!ret)
5785     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS : const content is expected to be not null !");
5786   return ret;
5787 }
5788
5789 /*!
5790  * This method alloc the arrays and load potentially huge arrays contained in this field.
5791  * This method should be called when a MEDFileAnyTypeField1TS::New constructor has been with false as the last parameter.
5792  * This method can be also called to refresh or reinit values from a file.
5793  *
5794  * \throw If the fileName is not set or points to a non readable MED file.
5795  * \sa MEDFileAnyTypeField1TS::loadArraysIfNecessary
5796  */
5797 void MEDFileAnyTypeField1TS::loadArrays()
5798 {
5799   if(getFileName().empty())
5800     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS::loadArrays : the structure does not come from a file !");
5801   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(getFileName()));
5802   contentNotNullBase()->loadBigArraysRecursively(fid,*contentNotNullBase());
5803 }
5804
5805 /*!
5806  * This method behaves as MEDFileAnyTypeField1TS::loadArrays does, the first call, if \a this was built using a file without loading big arrays.
5807  * But once data loaded once, this method does nothing. Contrary to MEDFileAnyTypeField1TS::loadArrays and MEDFileAnyTypeField1TS::unloadArrays
5808  * this method does not throw if \a this does not come from file read.
5809  *
5810  * \sa MEDFileAnyTypeField1TS::loadArrays, MEDFileAnyTypeField1TS::unloadArrays
5811  */
5812 void MEDFileAnyTypeField1TS::loadArraysIfNecessary()
5813 {
5814   if(!getFileName().empty())
5815     {
5816       MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(getFileName()));
5817       contentNotNullBase()->loadBigArraysRecursivelyIfNecessary(fid,*contentNotNullBase());
5818     }
5819 }
5820
5821 /*!
5822  * This method releases potentially big data arrays and so returns to the same heap memory than status loaded with 'loadAll' parameter set to false.
5823  * \b WARNING, this method does release arrays even if \a this does not come from a load of a MED file.
5824  * So this method can lead to a loss of data. If you want to unload arrays safely call MEDFileAnyTypeField1TS::unloadArraysWithoutDataLoss instead.
5825  *
5826  * \sa MEDFileAnyTypeField1TS::loadArrays, MEDFileAnyTypeField1TS::loadArraysIfNecessary, MEDFileAnyTypeField1TS::unloadArraysWithoutDataLoss
5827  */
5828 void MEDFileAnyTypeField1TS::unloadArrays()
5829 {
5830   contentNotNullBase()->unloadArrays();
5831 }
5832
5833 /*!
5834  * This method potentially releases big data arrays if \a this is coming from a file. If \a this has been built from scratch this method will have no effect.
5835  * This method is the symetrical method of MEDFileAnyTypeField1TS::loadArraysIfNecessary.
5836  * This method is useful to reduce \b safely amount of heap memory necessary for \a this by using MED file as database.
5837  *
5838  * \sa MEDFileAnyTypeField1TS::loadArraysIfNecessary
5839  */
5840 void MEDFileAnyTypeField1TS::unloadArraysWithoutDataLoss()
5841 {
5842   if(!getFileName().empty())
5843     contentNotNullBase()->unloadArrays();
5844 }
5845
5846 void MEDFileAnyTypeField1TS::writeLL(med_idt fid) const
5847 {
5848   int nbComp(getNumberOfComponents());
5849   INTERP_KERNEL::AutoPtr<char> comp(MEDLoaderBase::buildEmptyString(nbComp*MED_SNAME_SIZE));
5850   INTERP_KERNEL::AutoPtr<char> unit(MEDLoaderBase::buildEmptyString(nbComp*MED_SNAME_SIZE));
5851   for(int i=0;i<nbComp;i++)
5852     {
5853       std::string info=getInfo()[i];
5854       std::string c,u;
5855       MEDLoaderBase::splitIntoNameAndUnit(info,c,u);
5856       MEDLoaderBase::safeStrCpy2(c.c_str(),MED_SNAME_SIZE,comp+i*MED_SNAME_SIZE,_too_long_str);
5857       MEDLoaderBase::safeStrCpy2(u.c_str(),MED_SNAME_SIZE,unit+i*MED_SNAME_SIZE,_too_long_str);
5858     }
5859   if(getName().empty())
5860     throw INTERP_KERNEL::Exception("MEDFileField1TS::write : MED file does not accept field with empty name !");
5861   MEDFILESAFECALLERWR0(MEDfieldCr,(fid,getName().c_str(),getMEDFileFieldType(),nbComp,comp,unit,getDtUnit().c_str(),getMeshName().c_str()));
5862   writeGlobals(fid,*this);
5863   contentNotNullBase()->writeLL(fid,*this,*contentNotNullBase());
5864 }
5865
5866 std::size_t MEDFileAnyTypeField1TS::getHeapMemorySizeWithoutChildren() const
5867 {
5868   return MEDFileFieldGlobsReal::getHeapMemorySizeWithoutChildren();
5869 }
5870
5871 std::vector<const BigMemoryObject *> MEDFileAnyTypeField1TS::getDirectChildrenWithNull() const
5872 {
5873   std::vector<const BigMemoryObject *> ret(MEDFileFieldGlobsReal::getDirectChildrenWithNull());
5874   ret.push_back((const MEDFileAnyTypeField1TSWithoutSDA *)_content);
5875   return ret;
5876 }
5877
5878 /*!
5879  * Returns a string describing \a this field. This string is outputted
5880  * by \c print Python command.
5881  */
5882 std::string MEDFileAnyTypeField1TS::simpleRepr() const
5883 {
5884   std::ostringstream oss;
5885   contentNotNullBase()->simpleRepr(0,oss,-1);
5886   simpleReprGlobs(oss);
5887   return oss.str();
5888 }
5889
5890 /*!
5891  * This method returns all profiles whose name is non empty used.
5892  * \b WARNING If profile is used several times it will be reported \b only \b once.
5893  * To get non empty name profiles as time as they appear in \b this call MEDFileField1TS::getPflsReallyUsedMulti instead.
5894  */
5895 std::vector<std::string> MEDFileAnyTypeField1TS::getPflsReallyUsed() const
5896 {
5897   return contentNotNullBase()->getPflsReallyUsed2();
5898 }
5899
5900 /*!
5901  * This method returns all localizations whose name is non empty used.
5902  * \b WARNING If localization is used several times it will be reported \b only \b once.
5903  */
5904 std::vector<std::string> MEDFileAnyTypeField1TS::getLocsReallyUsed() const
5905 {
5906   return contentNotNullBase()->getLocsReallyUsed2();
5907 }
5908
5909 /*!
5910  * This method returns all profiles whose name is non empty used.
5911  * \b WARNING contrary to MEDFileField1TS::getPflsReallyUsed, if profile is used several times it will be reported as time as it appears.
5912  */
5913 std::vector<std::string> MEDFileAnyTypeField1TS::getPflsReallyUsedMulti() const
5914 {
5915   return contentNotNullBase()->getPflsReallyUsedMulti2();
5916 }
5917
5918 /*!
5919  * This method returns all localizations whose name is non empty used.
5920  * \b WARNING contrary to MEDFileField1TS::getLocsReallyUsed if localization is used several times it will be reported as time as it appears.
5921  */
5922 std::vector<std::string> MEDFileAnyTypeField1TS::getLocsReallyUsedMulti() const
5923 {
5924   return contentNotNullBase()->getLocsReallyUsedMulti2();
5925 }
5926
5927 void MEDFileAnyTypeField1TS::changePflsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
5928 {
5929   contentNotNullBase()->changePflsRefsNamesGen2(mapOfModif);
5930 }
5931
5932 void MEDFileAnyTypeField1TS::changeLocsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
5933 {
5934   contentNotNullBase()->changeLocsRefsNamesGen2(mapOfModif);
5935 }
5936
5937 int MEDFileAnyTypeField1TS::getDimension() const
5938 {
5939   return contentNotNullBase()->getDimension();
5940 }
5941
5942 int MEDFileAnyTypeField1TS::getIteration() const
5943 {
5944   return contentNotNullBase()->getIteration();
5945 }
5946
5947 int MEDFileAnyTypeField1TS::getOrder() const
5948 {
5949   return contentNotNullBase()->getOrder();
5950 }
5951
5952 double MEDFileAnyTypeField1TS::getTime(int& iteration, int& order) const
5953 {
5954   return contentNotNullBase()->getTime(iteration,order);
5955 }
5956
5957 void MEDFileAnyTypeField1TS::setTime(int iteration, int order, double val)
5958 {
5959   contentNotNullBase()->setTime(iteration,order,val);
5960 }
5961
5962 std::string MEDFileAnyTypeField1TS::getName() const
5963 {
5964   return contentNotNullBase()->getName();
5965 }
5966
5967 void MEDFileAnyTypeField1TS::setName(const std::string& name)
5968 {
5969   contentNotNullBase()->setName(name);
5970 }
5971
5972 void MEDFileAnyTypeField1TS::simpleRepr(int bkOffset, std::ostream& oss, int f1tsId) const
5973 {
5974   contentNotNullBase()->simpleRepr(bkOffset,oss,f1tsId);
5975 }
5976
5977 std::string MEDFileAnyTypeField1TS::getDtUnit() const
5978 {
5979   return contentNotNullBase()->getDtUnit();
5980 }
5981
5982 void MEDFileAnyTypeField1TS::setDtUnit(const std::string& dtUnit)
5983 {
5984   contentNotNullBase()->setDtUnit(dtUnit);
5985 }
5986
5987 std::string MEDFileAnyTypeField1TS::getMeshName() const
5988 {
5989   return contentNotNullBase()->getMeshName();
5990 }
5991
5992 void MEDFileAnyTypeField1TS::setMeshName(const std::string& newMeshName)
5993 {
5994   contentNotNullBase()->setMeshName(newMeshName);
5995 }
5996
5997 bool MEDFileAnyTypeField1TS::changeMeshNames(const std::vector< std::pair<std::string,std::string> >& modifTab)
5998 {
5999   return contentNotNullBase()->changeMeshNames(modifTab);
6000 }
6001
6002 int MEDFileAnyTypeField1TS::getMeshIteration() const
6003 {
6004   return contentNotNullBase()->getMeshIteration();
6005 }
6006
6007 int MEDFileAnyTypeField1TS::getMeshOrder() const
6008 {
6009   return contentNotNullBase()->getMeshOrder();
6010 }
6011
6012 int MEDFileAnyTypeField1TS::getNumberOfComponents() const
6013 {
6014   return contentNotNullBase()->getNumberOfComponents();
6015 }
6016
6017 bool MEDFileAnyTypeField1TS::isDealingTS(int iteration, int order) const
6018 {
6019   return contentNotNullBase()->isDealingTS(iteration,order);
6020 }
6021
6022 std::pair<int,int> MEDFileAnyTypeField1TS::getDtIt() const
6023 {
6024   return contentNotNullBase()->getDtIt();
6025 }
6026
6027 void MEDFileAnyTypeField1TS::fillIteration(std::pair<int,int>& p) const
6028 {
6029   contentNotNullBase()->fillIteration(p);
6030 }
6031
6032 void MEDFileAnyTypeField1TS::fillTypesOfFieldAvailable(std::vector<TypeOfField>& types) const
6033 {
6034   contentNotNullBase()->fillTypesOfFieldAvailable(types);
6035 }
6036
6037 void MEDFileAnyTypeField1TS::setInfo(const std::vector<std::string>& infos)
6038 {
6039   contentNotNullBase()->setInfo(infos);
6040 }
6041
6042 const std::vector<std::string>& MEDFileAnyTypeField1TS::getInfo() const
6043 {
6044   return contentNotNullBase()->getInfo();
6045 }
6046 std::vector<std::string>& MEDFileAnyTypeField1TS::getInfo()
6047 {
6048   return contentNotNullBase()->getInfo();
6049 }
6050
6051 bool MEDFileAnyTypeField1TS::presenceOfMultiDiscPerGeoType() const
6052 {
6053   return contentNotNullBase()->presenceOfMultiDiscPerGeoType();
6054 }
6055
6056 MEDFileFieldPerMeshPerTypePerDisc *MEDFileAnyTypeField1TS::getLeafGivenMeshAndTypeAndLocId(const std::string& mName, INTERP_KERNEL::NormalizedCellType typ, int locId)
6057 {
6058   return contentNotNullBase()->getLeafGivenMeshAndTypeAndLocId(mName,typ,locId);
6059 }
6060
6061 const MEDFileFieldPerMeshPerTypePerDisc *MEDFileAnyTypeField1TS::getLeafGivenMeshAndTypeAndLocId(const std::string& mName, INTERP_KERNEL::NormalizedCellType typ, int locId) const
6062 {
6063   return contentNotNullBase()->getLeafGivenMeshAndTypeAndLocId(mName,typ,locId);
6064 }
6065
6066 int MEDFileAnyTypeField1TS::getNonEmptyLevels(const std::string& mname, std::vector<int>& levs) const
6067 {
6068   return contentNotNullBase()->getNonEmptyLevels(mname,levs);
6069 }
6070
6071 std::vector<TypeOfField> MEDFileAnyTypeField1TS::getTypesOfFieldAvailable() const
6072 {
6073   return contentNotNullBase()->getTypesOfFieldAvailable();
6074 }
6075
6076 std::vector< std::vector<std::pair<int,int> > > MEDFileAnyTypeField1TS::getFieldSplitedByType(const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF,
6077                                                                                               std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
6078 {
6079   return contentNotNullBase()->getFieldSplitedByType(mname,types,typesF,pfls,locs);
6080 }
6081
6082 /*!
6083  * This method returns as MEDFileAnyTypeField1TS new instances as number of components in \a this.
6084  * The returned instances are deep copy of \a this except that for globals that are share with those contained in \a this.
6085  * ** WARNING ** do no forget to rename the ouput instances to avoid to write n-times in the same MED file field !
6086  */
6087 std::vector< MCAuto< MEDFileAnyTypeField1TS > > MEDFileAnyTypeField1TS::splitComponents() const
6088 {
6089   const MEDFileAnyTypeField1TSWithoutSDA *content(_content);
6090   if(!content)
6091     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS::splitComponents : no content in this ! Unable to split components !");
6092   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > contentsSplit=content->splitComponents();
6093   std::size_t sz(contentsSplit.size());
6094   std::vector< MCAuto< MEDFileAnyTypeField1TS > > ret(sz);
6095   for(std::size_t i=0;i<sz;i++)
6096     {
6097       ret[i]=shallowCpy();
6098       ret[i]->_content=contentsSplit[i];
6099     }
6100   return ret;
6101 }
6102
6103 /*!
6104  * This method returns as MEDFileAnyTypeField1TS new instances as number of spatial discretizations in \a this.
6105  * The returned instances are shallowed copied of \a this except that for globals that are share with those contained in \a this.
6106  */
6107 std::vector< MCAuto< MEDFileAnyTypeField1TS > > MEDFileAnyTypeField1TS::splitDiscretizations() const
6108 {
6109   const MEDFileAnyTypeField1TSWithoutSDA *content(_content);
6110   if(!content)
6111     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS::splitDiscretizations : no content in this ! Unable to split discretization !");
6112   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > contentsSplit(content->splitDiscretizations());
6113   std::size_t sz(contentsSplit.size());
6114   std::vector< MCAuto< MEDFileAnyTypeField1TS > > ret(sz);
6115   for(std::size_t i=0;i<sz;i++)
6116     {
6117       ret[i]=shallowCpy();
6118       ret[i]->_content=contentsSplit[i];
6119     }
6120   return ret;
6121 }
6122
6123 /*!
6124  * This method returns as MEDFileAnyTypeField1TS new instances as number of maximal number of discretization in \a this.
6125  * The returned instances are shallowed copied of \a this except that for globals that are share with those contained in \a this.
6126  */
6127 std::vector< MCAuto< MEDFileAnyTypeField1TS > > MEDFileAnyTypeField1TS::splitMultiDiscrPerGeoTypes() const
6128 {
6129   const MEDFileAnyTypeField1TSWithoutSDA *content(_content);
6130   if(!content)
6131     throw INTERP_KERNEL::Exception("MEDFileAnyTypeField1TS::splitMultiDiscrPerGeoTypes : no content in this ! Unable to split discretization !");
6132   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > contentsSplit(content->splitMultiDiscrPerGeoTypes());
6133   std::size_t sz(contentsSplit.size());
6134   std::vector< MCAuto< MEDFileAnyTypeField1TS > > ret(sz);
6135   for(std::size_t i=0;i<sz;i++)
6136     {
6137       ret[i]=shallowCpy();
6138       ret[i]->_content=contentsSplit[i];
6139     }
6140   return ret;
6141 }
6142
6143 MEDFileAnyTypeField1TS *MEDFileAnyTypeField1TS::deepCopy() const
6144 {
6145   MCAuto<MEDFileAnyTypeField1TS> ret=shallowCpy();
6146   if((const MEDFileAnyTypeField1TSWithoutSDA *)_content)
6147     ret->_content=_content->deepCopy();
6148   ret->deepCpyGlobs(*this);
6149   return ret.retn();
6150 }
6151
6152 int MEDFileAnyTypeField1TS::copyTinyInfoFrom(const MEDCouplingFieldDouble *field, const DataArray *arr)
6153 {
6154   return contentNotNullBase()->copyTinyInfoFrom(field,arr);
6155 }
6156
6157 //= MEDFileField1TS
6158
6159 /*!
6160  * Returns a new instance of MEDFileField1TS holding data of the first time step of
6161  * the first field that has been read from a specified MED file.
6162  *  \param [in] fileName - the name of the MED file to read.
6163  *  \return MEDFileField1TS * - a new instance of MEDFileFieldMultiTS. The caller
6164  *          is to delete this field using decrRef() as it is no more needed.
6165  *  \throw If reading the file fails.
6166  */
6167 MEDFileField1TS *MEDFileField1TS::New(const std::string& fileName, bool loadAll)
6168 {
6169   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
6170   MCAuto<MEDFileField1TS> ret(new MEDFileField1TS(fid,loadAll,0));
6171   ret->contentNotNull();
6172   return ret.retn();
6173 }
6174
6175 /*!
6176  * Returns a new instance of MEDFileField1TS holding data of the first time step of
6177  * a given field that has been read from a specified MED file.
6178  *  \param [in] fileName - the name of the MED file to read.
6179  *  \param [in] fieldName - the name of the field to read.
6180  *  \return MEDFileField1TS * - a new instance of MEDFileFieldMultiTS. The caller
6181  *          is to delete this field using decrRef() as it is no more needed.
6182  *  \throw If reading the file fails.
6183  *  \throw If there is no field named \a fieldName in the file.
6184  */
6185 MEDFileField1TS *MEDFileField1TS::New(const std::string& fileName, const std::string& fieldName, bool loadAll)
6186 {
6187   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
6188   MCAuto<MEDFileField1TS> ret(new MEDFileField1TS(fid,fieldName,loadAll,0));
6189   ret->contentNotNull();
6190   return ret.retn();
6191 }
6192
6193 /*!
6194  * Returns a new instance of MEDFileField1TS holding data of a given time step of
6195  * a given field that has been read from a specified MED file.
6196  *  \param [in] fileName - the name of the MED file to read.
6197  *  \param [in] fieldName - the name of the field to read.
6198  *  \param [in] iteration - the iteration number of a required time step.
6199  *  \param [in] order - the iteration order number of required time step.
6200  *  \return MEDFileField1TS * - a new instance of MEDFileFieldMultiTS. The caller
6201  *          is to delete this field using decrRef() as it is no more needed.
6202  *  \throw If reading the file fails.
6203  *  \throw If there is no field named \a fieldName in the file.
6204  *  \throw If the required time step is missing from the file.
6205  */
6206 MEDFileField1TS *MEDFileField1TS::New(const std::string& fileName, const std::string& fieldName, int iteration, int order, bool loadAll)
6207 {
6208   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
6209   MCAuto<MEDFileField1TS> ret(new MEDFileField1TS(fid,fieldName,iteration,order,loadAll,0));
6210   ret->contentNotNull();
6211   return ret.retn();
6212 }
6213
6214 /*!
6215  * Returns a new instance of MEDFileField1TS. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
6216  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
6217  *
6218  * Returns a new instance of MEDFileField1TS holding either a shallow copy
6219  * of a given MEDFileField1TSWithoutSDA ( \a other ) or \a other itself.
6220  * \warning this is a shallow copy constructor
6221  *  \param [in] other - a MEDFileField1TSWithoutSDA to copy.
6222  *  \param [in] shallowCopyOfContent - if \c true, a shallow copy of \a other is created.
6223  *  \return MEDFileField1TS * - a new instance of MEDFileField1TS. The caller
6224  *          is to delete this field using decrRef() as it is no more needed.
6225  */
6226 MEDFileField1TS *MEDFileField1TS::New(const MEDFileField1TSWithoutSDA& other, bool shallowCopyOfContent)
6227 {
6228   MCAuto<MEDFileField1TS> ret(new MEDFileField1TS(other,shallowCopyOfContent));
6229   ret->contentNotNull();
6230   return ret.retn();
6231 }
6232
6233 /*!
6234  * Returns a new empty instance of MEDFileField1TS.
6235  *  \return MEDFileField1TS * - a new instance of MEDFileField1TS. The caller
6236  *          is to delete this field using decrRef() as it is no more needed.
6237  */
6238 MEDFileField1TS *MEDFileField1TS::New()
6239 {
6240   MCAuto<MEDFileField1TS> ret(new MEDFileField1TS);
6241   ret->contentNotNull();
6242   return ret.retn();
6243 }
6244
6245 /*!
6246  * This method performs a copy with datatype modification ( float64->int32 ) of \a this. The globals information are copied
6247  * following the given input policy.
6248  *
6249  * \param [in] isDeepCpyGlobs - a boolean that indicates the behaviour concerning globals (profiles and localizations)
6250  *                            By default (true) the globals are deeply copied.
6251  * \return MEDFileIntField1TS * - a new object that is the result of the conversion of \a this to int32 field.
6252  */
6253 MEDFileIntField1TS *MEDFileField1TS::convertToInt(bool isDeepCpyGlobs) const
6254 {
6255   MCAuto<MEDFileIntField1TS> ret;
6256   const MEDFileAnyTypeField1TSWithoutSDA *content(_content);
6257   if(content)
6258     {
6259       const MEDFileField1TSWithoutSDA *contc=dynamic_cast<const MEDFileField1TSWithoutSDA *>(content);
6260       if(!contc)
6261         throw INTERP_KERNEL::Exception("MEDFileField1TS::convertToInt : the content inside this is not FLOAT64 ! This is incoherent !");
6262       MCAuto<MEDFileIntField1TSWithoutSDA> newc(contc->convertToInt());
6263       ret=static_cast<MEDFileIntField1TS *>(MEDFileAnyTypeField1TS::BuildNewInstanceFromContent((MEDFileIntField1TSWithoutSDA *)newc,getFileName()));
6264     }
6265   else
6266     ret=MEDFileIntField1TS::New();
6267   if(isDeepCpyGlobs)
6268     ret->deepCpyGlobs(*this);
6269   else
6270     ret->shallowCpyGlobs(*this);
6271   return ret.retn();
6272 }
6273
6274 const MEDFileField1TSWithoutSDA *MEDFileField1TS::contentNotNull() const
6275 {
6276   const MEDFileAnyTypeField1TSWithoutSDA *pt(_content);
6277   if(!pt)
6278     throw INTERP_KERNEL::Exception("MEDFileField1TS::contentNotNull : the content pointer is null !");
6279   const MEDFileField1TSWithoutSDA *ret=dynamic_cast<const MEDFileField1TSWithoutSDA *>(pt);
6280   if(!ret)
6281     throw INTERP_KERNEL::Exception("MEDFileField1TS::contentNotNull : the content pointer is not null but it is not of type double ! Reason is maybe that the read field has not the type FLOAT64 !");
6282   return ret;
6283 }
6284
6285 MEDFileField1TSWithoutSDA *MEDFileField1TS::contentNotNull()
6286 {
6287   MEDFileAnyTypeField1TSWithoutSDA *pt(_content);
6288   if(!pt)
6289     throw INTERP_KERNEL::Exception("MEDFileField1TS::contentNotNull : the non const content pointer is null !");
6290   MEDFileField1TSWithoutSDA *ret=dynamic_cast<MEDFileField1TSWithoutSDA *>(pt);
6291   if(!ret)
6292     throw INTERP_KERNEL::Exception("MEDFileField1TS::contentNotNull : the non const content pointer is not null but it is not of type double ! Reason is maybe that the read field has not the type FLOAT64 !");
6293   return ret;
6294 }
6295
6296 void MEDFileField1TS::SetDataArrayDoubleInField(MEDCouplingFieldDouble *f, MCAuto<DataArray>& arr)
6297 {
6298   if(!f)
6299     throw INTERP_KERNEL::Exception("MEDFileField1TS::SetDataArrayDoubleInField : input field is NULL !");
6300   if(arr.isNull())
6301     throw INTERP_KERNEL::Exception("MEDFileField1TS::SetDataArrayDoubleInField : no array !");
6302   DataArrayDouble *arrOutC(dynamic_cast<DataArrayDouble *>((DataArray*)arr));
6303   if(!arrOutC)
6304     throw INTERP_KERNEL::Exception("MEDFileField1TS::SetDataArrayDoubleInField : mismatch between dataArrays type and MEDFileField1TS ! Expected double !");
6305   f->setArray(arrOutC);
6306 }
6307
6308 DataArrayDouble *MEDFileField1TS::ReturnSafelyDataArrayDouble(MCAuto<DataArray>& arr)
6309 {
6310   if(arr.isNull())
6311     throw INTERP_KERNEL::Exception("MEDFileField1TS::ReturnSafelyDataArrayDouble : no array !");
6312   DataArrayDouble *arrOutC(dynamic_cast<DataArrayDouble *>((DataArray*)arr));
6313   if(!arrOutC)
6314     throw INTERP_KERNEL::Exception("MEDFileField1TS::ReturnSafelyDataArrayDouble : mismatch between dataArrays type and MEDFileField1TS ! Expected double !");
6315   arrOutC->incrRef();
6316   return arrOutC;
6317 }
6318
6319 /*!
6320  * Return an extraction of \a this using \a extractDef map to specify the extraction.
6321  * The keys of \a extractDef is level relative to max ext of \a mm mesh.
6322  *
6323  * \return A new object that the caller is responsible to deallocate.
6324  * \sa MEDFileUMesh::deduceNodeSubPartFromCellSubPart , MEDFileUMesh::extractPart
6325  */
6326 MEDFileField1TS *MEDFileField1TS::extractPart(const std::map<int, MCAuto<DataArrayInt> >& extractDef, MEDFileMesh *mm) const
6327 {
6328   if(!mm)
6329     throw INTERP_KERNEL::Exception("MEDFileField1TS::extractPart : input mesh is NULL !");
6330   MCAuto<MEDFileField1TS> ret(MEDFileField1TS::New());
6331   std::vector<TypeOfField> tof(getTypesOfFieldAvailable());
6332   for(std::vector<TypeOfField>::const_iterator it0=tof.begin();it0!=tof.end();it0++)
6333     {
6334       if((*it0)!=ON_NODES)
6335         {
6336           std::vector<int> levs;
6337           getNonEmptyLevels(mm->getName(),levs);
6338           for(std::vector<int>::const_iterator lev=levs.begin();lev!=levs.end();lev++)
6339             {
6340               std::map<int, MCAuto<DataArrayInt> >::const_iterator it2(extractDef.find(*lev));
6341               if(it2!=extractDef.end())
6342                 {
6343                   MCAuto<DataArrayInt> t((*it2).second);
6344                   if(t.isNull())
6345                     throw INTERP_KERNEL::Exception("MEDFileField1TS::extractPart : presence of a value with null pointer 1 !");
6346                   MCAuto<MEDCouplingFieldDouble> f(getFieldOnMeshAtLevel(ON_CELLS,(*lev),mm));
6347                   MCAuto<MEDCouplingFieldDouble> fOut(f->buildSubPart(t));
6348                   ret->setFieldNoProfileSBT(fOut);
6349                 }
6350             }
6351         }
6352       else
6353         {
6354           std::map<int, MCAuto<DataArrayInt> >::const_iterator it2(extractDef.find(1));
6355           if(it2==extractDef.end())
6356             throw INTERP_KERNEL::Exception("MEDFileField1TS::extractPart : presence of a NODE field and no extract array available for NODE !");
6357           MCAuto<DataArrayInt> t((*it2).second);
6358           if(t.isNull())
6359             throw INTERP_KERNEL::Exception("MEDFileField1TS::extractPart : presence of a value with null pointer 1 !");
6360           MCAuto<MEDCouplingFieldDouble> f(getFieldOnMeshAtLevel(ON_NODES,0,mm));
6361           MCAuto<MEDCouplingFieldDouble> fOut(f->deepCopy());
6362           DataArrayDouble *arr(f->getArray());
6363           MCAuto<DataArrayDouble> newArr(arr->selectByTupleIdSafe(t->begin(),t->end()));
6364           fOut->setArray(newArr);
6365           ret->setFieldNoProfileSBT(fOut);
6366         }
6367     }
6368   return ret.retn();
6369 }
6370
6371 MEDFileField1TS::MEDFileField1TS(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
6372 try:MEDFileAnyTypeField1TS(fid,loadAll,ms)
6373 {
6374 }
6375 catch(INTERP_KERNEL::Exception& e)
6376 { throw e; }
6377
6378 MEDFileField1TS::MEDFileField1TS(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms)
6379 try:MEDFileAnyTypeField1TS(fid,fieldName,loadAll,ms)
6380 {
6381 }
6382 catch(INTERP_KERNEL::Exception& e)
6383 { throw e; }
6384
6385 MEDFileField1TS::MEDFileField1TS(med_idt fid, const std::string& fieldName, int iteration, int order, bool loadAll, const MEDFileMeshes *ms)
6386 try:MEDFileAnyTypeField1TS(fid,fieldName,iteration,order,loadAll,ms)
6387 {
6388 }
6389 catch(INTERP_KERNEL::Exception& e)
6390 { throw e; }
6391
6392 /*!
6393  * This constructor is a shallow copy constructor. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
6394  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
6395  *
6396  * \warning this is a shallow copy constructor
6397  */
6398 MEDFileField1TS::MEDFileField1TS(const MEDFileField1TSWithoutSDA& other, bool shallowCopyOfContent)
6399 try:MEDFileAnyTypeField1TS(other,shallowCopyOfContent)
6400 {
6401 }
6402 catch(INTERP_KERNEL::Exception& e)
6403 { throw e; }
6404
6405 MEDFileField1TS::MEDFileField1TS()
6406 {
6407   _content=new MEDFileField1TSWithoutSDA;
6408 }
6409
6410 /*!
6411  * This is the simplest version to fetch a field for MED structure. One drawback : if \a this is a complex field (multi spatial discretization inside a same field) this method will throw exception and more advance
6412  * method should be called (getFieldOnMeshAtLevel for example).
6413  * But for normal usage of field in MED file world this method is the most efficient to fetch data.
6414  *
6415  * \param [in] mesh - the mesh the field is lying on
6416  * \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
6417  *          caller is to delete this field using decrRef() as it is no more needed.
6418  */
6419 MEDCouplingFieldDouble *MEDFileField1TS::field(const MEDFileMesh *mesh) const
6420 {
6421   MCAuto<DataArray> arrOut;
6422   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->fieldOnMesh(this,mesh,arrOut,*contentNotNull()));
6423   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
6424   return ret.retn();
6425 }
6426
6427 /*!
6428  * Returns a new MEDCouplingFieldDouble of a given type lying on
6429  * mesh entities of a given dimension of the first mesh in MED file. If \a this field
6430  * has not been constructed via file reading, an exception is thrown.
6431  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6432  *  \param [in] type - a spatial discretization of interest.
6433  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
6434  *  \param [in] renumPol - specifies how to permute values of the result field according to
6435  *          the optional numbers of cells and nodes, if any. The valid values are
6436  *          - 0 - do not permute.
6437  *          - 1 - permute cells.
6438  *          - 2 - permute nodes.
6439  *          - 3 - permute cells and nodes.
6440  *
6441  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
6442  *          caller is to delete this field using decrRef() as it is no more needed.
6443  *  \throw If \a this field has not been constructed via file reading.
6444  *  \throw If the MED file is not readable.
6445  *  \throw If there is no mesh in the MED file.
6446  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
6447  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
6448  *  \sa getFieldOnMeshAtLevel()
6449  */
6450 MEDCouplingFieldDouble *MEDFileField1TS::getFieldAtLevel(TypeOfField type, int meshDimRelToMax, int renumPol) const
6451 {
6452   if(getFileName().empty())
6453     throw INTERP_KERNEL::Exception("MEDFileField1TS::getFieldAtLevel : Request for a method that can be used for instances coming from file loading ! Use getFieldOnMeshAtLevel method instead !");
6454   MCAuto<DataArray> arrOut;
6455   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldAtLevel(type,meshDimRelToMax,std::string(),renumPol,this,arrOut,*contentNotNull()));
6456   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
6457   return ret.retn();
6458 }
6459
6460 /*!
6461  * Returns a new MEDCouplingFieldDouble of a given type lying on
6462  * the top level cells of the first mesh in MED file. If \a this field
6463  * has not been constructed via file reading, an exception is thrown.
6464  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6465  *  \param [in] type - a spatial discretization of interest.
6466  *  \param [in] renumPol - specifies how to permute values of the result field according to
6467  *          the optional numbers of cells and nodes, if any. The valid values are
6468  *          - 0 - do not permute.
6469  *          - 1 - permute cells.
6470  *          - 2 - permute nodes.
6471  *          - 3 - permute cells and nodes.
6472  *
6473  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
6474  *          caller is to delete this field using decrRef() as it is no more needed.
6475  *  \throw If \a this field has not been constructed via file reading.
6476  *  \throw If the MED file is not readable.
6477  *  \throw If there is no mesh in the MED file.
6478  *  \throw If no field values of the given \a type.
6479  *  \throw If no field values lying on the top level support.
6480  *  \sa getFieldAtLevel()
6481  */
6482 MEDCouplingFieldDouble *MEDFileField1TS::getFieldAtTopLevel(TypeOfField type, int renumPol) const
6483 {
6484   if(getFileName().empty())
6485     throw INTERP_KERNEL::Exception("MEDFileField1TS::getFieldAtTopLevel : Request for a method that can be used for instances coming from file loading ! Use getFieldOnMeshAtTopLevel method instead !");
6486   MCAuto<DataArray> arrOut;
6487   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldAtTopLevel(type,std::string(),renumPol,this,arrOut,*contentNotNull()));
6488   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
6489   return ret.retn();
6490 }
6491
6492 /*!
6493  * Returns a new MEDCouplingFieldDouble of given type lying on a given mesh.
6494  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6495  *  \param [in] type - a spatial discretization of the new field.
6496  *  \param [in] mesh - the supporting mesh.
6497  *  \param [in] renumPol - specifies how to permute values of the result field according to
6498  *          the optional numbers of cells and nodes, if any. The valid values are
6499  *          - 0 - do not permute.
6500  *          - 1 - permute cells.
6501  *          - 2 - permute nodes.
6502  *          - 3 - permute cells and nodes.
6503  *
6504  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
6505  *          caller is to delete this field using decrRef() as it is no more needed.
6506  *  \throw If no field of \a this is lying on \a mesh.
6507  *  \throw If the mesh is empty.
6508  *  \throw If no field values of the given \a type are available.
6509  *  \sa getFieldAtLevel()
6510  *  \sa getFieldOnMeshAtLevel()
6511  */
6512 MEDCouplingFieldDouble *MEDFileField1TS::getFieldOnMeshAtLevel(TypeOfField type, const MEDCouplingMesh *mesh, int renumPol) const
6513 {
6514   MCAuto<DataArray> arrOut;
6515   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldOnMeshAtLevel(type,renumPol,this,mesh,0,0,arrOut,*contentNotNull()));
6516   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
6517   return ret.retn();
6518 }
6519
6520 /*!
6521  * Returns a new MEDCouplingFieldDouble of a given type lying on a given support.
6522  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6523  *  \param [in] type - a spatial discretization of interest.
6524  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
6525  *  \param [in] mesh - the supporting mesh.
6526  *  \param [in] renumPol - specifies how to permute values of the result field according to
6527  *          the optional numbers of cells and nodes, if any. The valid values are
6528  *          - 0 - do not permute.
6529  *          - 1 - permute cells.
6530  *          - 2 - permute nodes.
6531  *          - 3 - permute cells and nodes.
6532  *
6533  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
6534  *          caller is to delete this field using decrRef() as it is no more needed.
6535  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
6536  *  \throw If no field of \a this is lying on \a mesh.
6537  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
6538  *  \sa getFieldAtLevel()
6539  *  \sa getFieldOnMeshAtLevel()
6540  */
6541 MEDCouplingFieldDouble *MEDFileField1TS::getFieldOnMeshAtLevel(TypeOfField type, int meshDimRelToMax, const MEDFileMesh *mesh, int renumPol) const
6542 {
6543   MCAuto<DataArray> arrOut;
6544   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldOnMeshAtLevel(type,meshDimRelToMax,renumPol,this,mesh,arrOut,*contentNotNull()));
6545   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
6546   return ret.retn();
6547 }
6548
6549 /*!
6550  * Returns a new MEDCouplingFieldDouble of a given type lying on a given support.
6551  * This method is called "Old" because in MED3 norm a field has only one meshName
6552  * attached, so this method is for readers of MED2 files. If \a this field
6553  * has not been constructed via file reading, an exception is thrown.
6554  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6555  *  \param [in] type - a spatial discretization of interest.
6556  *  \param [in] mName - a name of the supporting mesh.
6557  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
6558  *  \param [in] renumPol - specifies how to permute values of the result field according to
6559  *          the optional numbers of cells and nodes, if any. The valid values are
6560  *          - 0 - do not permute.
6561  *          - 1 - permute cells.
6562  *          - 2 - permute nodes.
6563  *          - 3 - permute cells and nodes.
6564  *
6565  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
6566  *          caller is to delete this field using decrRef() as it is no more needed.
6567  *  \throw If the MED file is not readable.
6568  *  \throw If there is no mesh named \a mName in the MED file.
6569  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
6570  *  \throw If \a this field has not been constructed via file reading.
6571  *  \throw If no field of \a this is lying on the mesh named \a mName.
6572  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
6573  *  \sa getFieldAtLevel()
6574  */
6575 MEDCouplingFieldDouble *MEDFileField1TS::getFieldAtLevelOld(TypeOfField type, const std::string& mname, int meshDimRelToMax, int renumPol) const
6576 {
6577   if(getFileName().empty())
6578     throw INTERP_KERNEL::Exception("MEDFileField1TS::getFieldAtLevelOld : Request for a method that can be used for instances coming from file loading ! Use getFieldOnMeshAtLevel method instead !");
6579   MCAuto<DataArray> arrOut;
6580   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldAtLevel(type,meshDimRelToMax,mname,renumPol,this,arrOut,*contentNotNull()));
6581   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
6582   return ret.retn();
6583 }
6584
6585 /*!
6586  * Returns values and a profile of the field of a given type lying on a given support.
6587  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6588  *  \param [in] type - a spatial discretization of the field.
6589  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
6590  *  \param [in] mesh - the supporting mesh.
6591  *  \param [out] pfl - a new instance of DataArrayInt holding ids of mesh entities the
6592  *          field of interest lies on. If the field lies on all entities of the given
6593  *          dimension, all ids in \a pfl are zero. The caller is to delete this array
6594  *          using decrRef() as it is no more needed.
6595  *  \return DataArrayDouble * - a new instance of DataArrayDouble holding values of the
6596  *          field. The caller is to delete this array using decrRef() as it is no more needed.
6597  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
6598  *  \throw If no field of \a this is lying on \a mesh.
6599  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
6600  */
6601 DataArrayDouble *MEDFileField1TS::getFieldWithProfile(TypeOfField type, int meshDimRelToMax, const MEDFileMesh *mesh, DataArrayInt *&pfl) const
6602 {
6603   MCAuto<DataArray> ret=contentNotNull()->getFieldWithProfile(type,meshDimRelToMax,mesh,pfl,this,*contentNotNull());
6604   return MEDFileField1TS::ReturnSafelyDataArrayDouble(ret);
6605 }
6606
6607 /*!
6608  * Adds a MEDCouplingFieldDouble to \a this. The underlying mesh of the given field is
6609  * checked if its elements are sorted suitable for writing to MED file ("STB" stands for
6610  * "Sort By Type"), if not, an exception is thrown.
6611  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6612  *  \param [in] field - the field to add to \a this.
6613  *  \throw If the name of \a field is empty.
6614  *  \throw If the data array of \a field is not set.
6615  *  \throw If the data array is already allocated but has different number of components
6616  *         than \a field.
6617  *  \throw If the underlying mesh of \a field has no name.
6618  *  \throw If elements in the mesh are not in the order suitable for writing to the MED file.
6619  */
6620 void MEDFileField1TS::setFieldNoProfileSBT(const MEDCouplingFieldDouble *field)
6621 {
6622   setFileName("");
6623   contentNotNull()->setFieldNoProfileSBT(field,field->getArray(),*this,*contentNotNull());
6624 }
6625
6626 /*!
6627  * Adds a MEDCouplingFieldDouble to \a this. As described in \ref MEDLoaderMainC a field in MED file sense
6628  * can be an aggregation of several MEDCouplingFieldDouble instances.
6629  * The mesh support of input parameter \a field is ignored here, it can be NULL.
6630  * The support of field \a field is expected to be those computed with the input parameter \a mesh, \a meshDimRelToMax,
6631  * and \a profile.
6632  *
6633  * This method will check that the field based on the computed support is coherent. If not an exception will be thrown.
6634  * A new profile is added only if no equal profile is missing.
6635  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6636  *  \param [in] field - the field to add to \a this. The mesh support of field is ignored.
6637  *  \param [in] mesh - the supporting mesh of \a field.
6638  *  \param [in] meshDimRelToMax - a relative dimension of mesh entities \a field lies on (useless if field spatial discretization is ON_NODES).
6639  *  \param [in] profile - ids of mesh entities on which corresponding field values lie.
6640  *  \throw If either \a field or \a mesh or \a profile has an empty name.
6641  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
6642  *  \throw If the data array of \a field is not set.
6643  *  \throw If the data array of \a this is already allocated but has different number of
6644  *         components than \a field.
6645  *  \throw If elements in \a mesh are not in the order suitable for writing to the MED file.
6646  *  \sa setFieldNoProfileSBT()
6647  */
6648 void MEDFileField1TS::setFieldProfile(const MEDCouplingFieldDouble *field, const MEDFileMesh *mesh, int meshDimRelToMax, const DataArrayInt *profile)
6649 {
6650   setFileName("");
6651   contentNotNull()->setFieldProfile(field,field->getArray(),mesh,meshDimRelToMax,profile,*this,*contentNotNull());
6652 }
6653
6654 MEDFileAnyTypeField1TS *MEDFileField1TS::shallowCpy() const
6655 {
6656   return new MEDFileField1TS(*this);
6657 }
6658
6659 DataArrayDouble *MEDFileField1TS::getUndergroundDataArray() const
6660 {
6661   return contentNotNull()->getUndergroundDataArrayTemplate();
6662 }
6663
6664 DataArrayDouble *MEDFileField1TS::getUndergroundDataArrayExt(std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
6665 {
6666   return contentNotNull()->getUndergroundDataArrayDoubleExt(entries);
6667 }
6668
6669 std::vector< std::vector<DataArrayDouble *> > MEDFileField1TS::getFieldSplitedByType2(const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF,
6670                                                                                       std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
6671 {
6672   return contentNotNull()->getFieldSplitedByType2(mname,types,typesF,pfls,locs);
6673 }
6674
6675 //= MEDFileIntField1TS
6676
6677 MEDFileIntField1TS *MEDFileIntField1TS::New()
6678 {
6679   MCAuto<MEDFileIntField1TS> ret(new MEDFileIntField1TS);
6680   ret->contentNotNull();
6681   return ret.retn();
6682 }
6683
6684 MEDFileIntField1TS *MEDFileIntField1TS::New(const std::string& fileName, bool loadAll)
6685 {
6686   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
6687   MCAuto<MEDFileIntField1TS> ret(new MEDFileIntField1TS(fid,loadAll,0));
6688   ret->contentNotNull();
6689   return ret.retn();
6690 }
6691
6692 MEDFileIntField1TS *MEDFileIntField1TS::New(const std::string& fileName, const std::string& fieldName, bool loadAll)
6693 {
6694   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
6695   MCAuto<MEDFileIntField1TS> ret(new MEDFileIntField1TS(fid,fieldName,loadAll,0));
6696   ret->contentNotNull();
6697   return ret.retn();
6698 }
6699
6700 MEDFileIntField1TS *MEDFileIntField1TS::New(const std::string& fileName, const std::string& fieldName, int iteration, int order, bool loadAll)
6701 {
6702   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
6703   MCAuto<MEDFileIntField1TS> ret(new MEDFileIntField1TS(fid,fieldName,iteration,order,loadAll,0));
6704   ret->contentNotNull();
6705   return ret.retn();
6706 }
6707
6708 MEDFileIntField1TS *MEDFileIntField1TS::New(const MEDFileIntField1TSWithoutSDA& other, bool shallowCopyOfContent)
6709 {
6710   MCAuto<MEDFileIntField1TS> ret=new MEDFileIntField1TS(other,shallowCopyOfContent);
6711   ret->contentNotNull();
6712   return ret.retn();
6713 }
6714
6715 MEDFileIntField1TS::MEDFileIntField1TS()
6716 {
6717   _content=new MEDFileIntField1TSWithoutSDA;
6718 }
6719
6720 MEDFileIntField1TS::MEDFileIntField1TS(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
6721 try:MEDFileAnyTypeField1TS(fid,loadAll,ms)
6722 {
6723 }
6724 catch(INTERP_KERNEL::Exception& e)
6725 { throw e; }
6726
6727 MEDFileIntField1TS::MEDFileIntField1TS(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms)
6728 try:MEDFileAnyTypeField1TS(fid,fieldName,loadAll,ms)
6729 {
6730 }
6731 catch(INTERP_KERNEL::Exception& e)
6732 { throw e; }
6733
6734 MEDFileIntField1TS::MEDFileIntField1TS(med_idt fid, const std::string& fieldName, int iteration, int order, bool loadAll, const MEDFileMeshes *ms)
6735 try:MEDFileAnyTypeField1TS(fid,fieldName,iteration,order,loadAll,ms)
6736 {
6737 }
6738 catch(INTERP_KERNEL::Exception& e)
6739 { throw e; }
6740
6741 /*!
6742  * This constructor is a shallow copy constructor. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
6743  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
6744  *
6745  * \warning this is a shallow copy constructor
6746  */
6747 MEDFileIntField1TS::MEDFileIntField1TS(const MEDFileIntField1TSWithoutSDA& other, bool shallowCopyOfContent):MEDFileAnyTypeField1TS(other,shallowCopyOfContent)
6748 {
6749 }
6750
6751 MEDFileAnyTypeField1TS *MEDFileIntField1TS::shallowCpy() const
6752 {
6753   return new MEDFileIntField1TS(*this);
6754 }
6755
6756 /*!
6757  * This method performs a copy with datatype modification ( int32->float64 ) of \a this. The globals information are copied
6758  * following the given input policy.
6759  *
6760  * \param [in] isDeepCpyGlobs - a boolean that indicates the behaviour concerning globals (profiles and localizations)
6761  *                            By default (true) the globals are deeply copied.
6762  * \return MEDFileField1TS * - a new object that is the result of the conversion of \a this to float64 field.
6763  */
6764 MEDFileField1TS *MEDFileIntField1TS::convertToDouble(bool isDeepCpyGlobs) const
6765 {
6766   MCAuto<MEDFileField1TS> ret;
6767   const MEDFileAnyTypeField1TSWithoutSDA *content(_content);
6768   if(content)
6769     {
6770       const MEDFileIntField1TSWithoutSDA *contc=dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(content);
6771       if(!contc)
6772         throw INTERP_KERNEL::Exception("MEDFileIntField1TS::convertToInt : the content inside this is not INT32 ! This is incoherent !");
6773       MCAuto<MEDFileField1TSWithoutSDA> newc(contc->convertToDouble());
6774       ret=static_cast<MEDFileField1TS *>(MEDFileAnyTypeField1TS::BuildNewInstanceFromContent((MEDFileField1TSWithoutSDA *)newc,getFileName()));
6775     }
6776   else
6777     ret=MEDFileField1TS::New();
6778   if(isDeepCpyGlobs)
6779     ret->deepCpyGlobs(*this);
6780   else
6781     ret->shallowCpyGlobs(*this);
6782   return ret.retn();
6783 }
6784
6785 /*!
6786  * Adds a MEDCouplingFieldInt to \a this. The underlying mesh of the given field is
6787  * checked if its elements are sorted suitable for writing to MED file ("STB" stands for
6788  * "Sort By Type"), if not, an exception is thrown.
6789  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6790  *  \param [in] field - the field to add to \a this.
6791  *  \throw If the name of \a field is empty.
6792  *  \throw If the data array of \a field is not set.
6793  *  \throw If the data array is already allocated but has different number of components
6794  *         than \a field.
6795  *  \throw If the underlying mesh of \a field has no name.
6796  *  \throw If elements in the mesh are not in the order suitable for writing to the MED file.
6797  */
6798 void MEDFileIntField1TS::setFieldNoProfileSBT(const MEDCouplingFieldInt *field)
6799 {
6800   MCAuto<MEDCouplingFieldDouble> field2(ConvertFieldIntToFieldDouble(field));
6801   setFileName("");
6802   contentNotNull()->setFieldNoProfileSBT(field2,field->getArray(),*this,*contentNotNull());
6803 }
6804
6805 /*!
6806  * Adds a MEDCouplingFieldInt to \a this. As described in \ref MEDLoaderMainC a field in MED file sense
6807  * can be an aggregation of several MEDCouplingFieldDouble instances.
6808  * The mesh support of input parameter \a field is ignored here, it can be NULL.
6809  * The support of field \a field is expected to be those computed with the input parameter \a mesh, \a meshDimRelToMax,
6810  * and \a profile.
6811  *
6812  * This method will check that the field based on the computed support is coherent. If not an exception will be thrown.
6813  * A new profile is added only if no equal profile is missing.
6814  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6815  *  \param [in] field - the field to add to \a this.
6816  *  \param [in] mesh - the supporting mesh of \a field.
6817  *  \param [in] meshDimRelToMax - a relative dimension of mesh entities \a field lies on (useless if field spatial discretization is ON_NODES).
6818  *  \param [in] profile - ids of mesh entities on which corresponding field values lie.
6819  *  \throw If either \a field or \a mesh or \a profile has an empty name.
6820  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
6821  *  \throw If the data array of \a field is not set.
6822  *  \throw If the data array of \a this is already allocated but has different number of
6823  *         components than \a field.
6824  *  \throw If elements in \a mesh are not in the order suitable for writing to the MED file.
6825  *  \sa setFieldNoProfileSBT()
6826  */
6827 void MEDFileIntField1TS::setFieldProfile(const MEDCouplingFieldInt *field, const MEDFileMesh *mesh, int meshDimRelToMax, const DataArrayInt *profile)
6828 {
6829   MCAuto<MEDCouplingFieldDouble> field2(ConvertFieldIntToFieldDouble(field));
6830   setFileName("");
6831   contentNotNull()->setFieldProfile(field2,field->getArray(),mesh,meshDimRelToMax,profile,*this,*contentNotNull());
6832 }
6833
6834 const MEDFileIntField1TSWithoutSDA *MEDFileIntField1TS::contentNotNull() const
6835 {
6836   const MEDFileAnyTypeField1TSWithoutSDA *pt(_content);
6837   if(!pt)
6838     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::contentNotNull : the content pointer is null !");
6839   const MEDFileIntField1TSWithoutSDA *ret=dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(pt);
6840   if(!ret)
6841     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::contentNotNull : the content pointer is not null but it is not of type int32 ! Reason is maybe that the read field has not the type INT32 !");
6842   return ret;
6843 }
6844
6845 MEDCouplingFieldInt *MEDFileIntField1TS::getFieldAtLevel(TypeOfField type, int meshDimRelToMax, int renumPol) const
6846 {
6847   if(getFileName().empty())
6848     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::getFieldAtLevel : Request for a method that can be used for instances coming from file loading ! Use getFieldOnMeshAtLevel method instead !");
6849   MCAuto<DataArray> arrOut;
6850   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldAtLevel(type,meshDimRelToMax,std::string(),renumPol,this,arrOut,*contentNotNull()));
6851   MCAuto<MEDCouplingFieldInt> ret2(SetDataArrayDoubleInIntField(ret,arrOut));
6852   return ret2.retn();
6853 }
6854
6855 DataArrayInt *MEDFileIntField1TS::ReturnSafelyDataArrayInt(MCAuto<DataArray>& arr)
6856 {
6857   if(arr.isNull())
6858     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::ReturnSafelyDataArrayInt : input DataArray is NULL !");
6859   DataArrayInt *arrC(dynamic_cast<DataArrayInt *>((DataArray *)arr));
6860   if(!arrC)
6861     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::ReturnSafelyDataArrayInt : input DataArray is not of type INT32 !");
6862   arrC->incrRef();
6863   return arrC;
6864 }
6865
6866 MCAuto<MEDCouplingFieldInt> MEDFileIntField1TS::SetDataArrayDoubleInIntField(MEDCouplingFieldDouble *f, MCAuto<DataArray>& arr)
6867 {
6868   int t1,t2;
6869   double t0(f->getTime(t1,t2));
6870   MCAuto<DataArrayInt> arr2(DynamicCastSafe<DataArray,DataArrayInt>(arr));
6871   MCAuto<MEDCouplingFieldTemplate> ft(MEDCouplingFieldTemplate::New(*f));
6872   MCAuto<MEDCouplingFieldInt> ret(MEDCouplingFieldInt::New(*ft));
6873   ret->setTime(t0,t1,t2); ret->setArray(arr2);
6874   return ret.retn();
6875 }
6876
6877 MCAuto<MEDCouplingFieldDouble> MEDFileIntField1TS::ConvertFieldIntToFieldDouble(const MEDCouplingFieldInt *f)
6878 {
6879   if(!f)
6880     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::ConvertFieldIntToFieldDouble : null input field !");
6881   int t1,t2;
6882   double t0(f->getTime(t1,t2));
6883   MCAuto<MEDCouplingFieldTemplate> ft(MEDCouplingFieldTemplate::New(*f));
6884   MCAuto<MEDCouplingFieldDouble> ret(MEDCouplingFieldDouble::New(*ft));
6885   ret->setTime(t0,t1,t2);
6886   return ret;
6887 }
6888
6889 MEDFileIntField1TS *MEDFileIntField1TS::extractPart(const std::map<int, MCAuto<DataArrayInt> >& extractDef, MEDFileMesh *mm) const
6890 {
6891   throw INTERP_KERNEL::Exception("MEDFileIntField1TS::extractPart : not implemented yet !");
6892 }
6893
6894 /*!
6895  * This is the simplest version to fetch a field for MED structure. One drawback : if \a this is a complex field (multi spatial discretization inside a same field) this method will throw exception and more advance
6896  * method should be called (getFieldOnMeshAtLevel for example).
6897  * But for normal usage of field in MED file world this method is the most efficient to fetch data.
6898  *
6899  * \param [in] mesh - the mesh the field is lying on
6900  * \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldInt. The
6901  *          caller is to delete this field using decrRef() as it is no more needed.
6902  */
6903 MEDCouplingFieldInt *MEDFileIntField1TS::field(const MEDFileMesh *mesh) const
6904 {
6905   MCAuto<DataArray> arrOut;
6906   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->fieldOnMesh(this,mesh,arrOut,*contentNotNull()));
6907   MCAuto<MEDCouplingFieldInt> ret2(SetDataArrayDoubleInIntField(ret,arrOut));
6908   return ret2.retn();
6909 }
6910
6911 /*!
6912  * Returns a new MEDCouplingFieldInt of a given type lying on
6913  * the top level cells of the first mesh in MED file. If \a this field
6914  * has not been constructed via file reading, an exception is thrown.
6915  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6916  *  \param [in] type - a spatial discretization of interest.
6917  *  \param [in] renumPol - specifies how to permute values of the result field according to
6918  *          the optional numbers of cells and nodes, if any. The valid values are
6919  *          - 0 - do not permute.
6920  *          - 1 - permute cells.
6921  *          - 2 - permute nodes.
6922  *          - 3 - permute cells and nodes.
6923  *
6924  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
6925  *          caller is to delete this field using decrRef() as it is no more needed.
6926  *  \throw If \a this field has not been constructed via file reading.
6927  *  \throw If the MED file is not readable.
6928  *  \throw If there is no mesh in the MED file.
6929  *  \throw If no field values of the given \a type.
6930  *  \throw If no field values lying on the top level support.
6931  *  \sa getFieldAtLevel()
6932  */
6933 MEDCouplingFieldInt *MEDFileIntField1TS::getFieldAtTopLevel(TypeOfField type, int renumPol) const
6934 {
6935   if(getFileName().empty())
6936     throw INTERP_KERNEL::Exception("MEDFileField1TS::getFieldAtTopLevel : Request for a method that can be used for instances coming from file loading ! Use getFieldOnMeshAtTopLevel method instead !");
6937   MCAuto<DataArray> arrOut;
6938   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldAtTopLevel(type,std::string(),renumPol,this,arrOut,*contentNotNull()));
6939   MCAuto<MEDCouplingFieldInt> ret2(SetDataArrayDoubleInIntField(ret,arrOut));
6940   return ret2.retn();
6941 }
6942
6943 /*!
6944  * Returns a new MEDCouplingFieldInt of given type lying on a given mesh.
6945  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6946  *  \param [in] type - a spatial discretization of the new field.
6947  *  \param [in] mesh - the supporting mesh.
6948  *  \param [in] renumPol - specifies how to permute values of the result field according to
6949  *          the optional numbers of cells and nodes, if any. The valid values are
6950  *          - 0 - do not permute.
6951  *          - 1 - permute cells.
6952  *          - 2 - permute nodes.
6953  *          - 3 - permute cells and nodes.
6954  *
6955  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
6956  *          caller is to delete this field using decrRef() as it is no more needed.
6957  *  \throw If no field of \a this is lying on \a mesh.
6958  *  \throw If the mesh is empty.
6959  *  \throw If no field values of the given \a type are available.
6960  *  \sa getFieldAtLevel()
6961  *  \sa getFieldOnMeshAtLevel()
6962  */
6963 MEDCouplingFieldInt *MEDFileIntField1TS::getFieldOnMeshAtLevel(TypeOfField type, const MEDCouplingMesh *mesh, int renumPol) const
6964 {
6965   MCAuto<DataArray> arrOut;
6966   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldOnMeshAtLevel(type,renumPol,this,mesh,0,0,arrOut,*contentNotNull()));
6967   MCAuto<MEDCouplingFieldInt> ret2(SetDataArrayDoubleInIntField(ret,arrOut));
6968   return ret2.retn();
6969 }
6970
6971 /*!
6972  * Returns a new MEDCouplingFieldInt of a given type lying on a given support.
6973  * For more info, see \ref AdvMEDLoaderAPIFieldRW
6974  *  \param [in] type - a spatial discretization of interest.
6975  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
6976  *  \param [in] mesh - the supporting mesh.
6977  *  \param [in] renumPol - specifies how to permute values of the result field according to
6978  *          the optional numbers of cells and nodes, if any. The valid values are
6979  *          - 0 - do not permute.
6980  *          - 1 - permute cells.
6981  *          - 2 - permute nodes.
6982  *          - 3 - permute cells and nodes.
6983  *
6984  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
6985  *          caller is to delete this field using decrRef() as it is no more needed.
6986  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
6987  *  \throw If no field of \a this is lying on \a mesh.
6988  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
6989  *  \sa getFieldAtLevel()
6990  *  \sa getFieldOnMeshAtLevel()
6991  */
6992 MEDCouplingFieldInt *MEDFileIntField1TS::getFieldOnMeshAtLevel(TypeOfField type, int meshDimRelToMax, const MEDFileMesh *mesh, int renumPol) const
6993 {
6994   MCAuto<DataArray> arrOut;
6995   MCAuto<MEDCouplingFieldDouble> ret(contentNotNull()->getFieldOnMeshAtLevel(type,meshDimRelToMax,renumPol,this,mesh,arrOut,*contentNotNull()));
6996   MCAuto<MEDCouplingFieldInt> ret2(SetDataArrayDoubleInIntField(ret,arrOut));
6997   return ret2.retn();
6998 }
6999
7000 /*!
7001  * Returns a new MEDCouplingFieldDouble of a given type lying on a given support.
7002  * This method is called "Old" because in MED3 norm a field has only one meshName
7003  * attached, so this method is for readers of MED2 files. If \a this field
7004  * has not been constructed via file reading, an exception is thrown.
7005  * For more info, see \ref AdvMEDLoaderAPIFieldRW
7006  *  \param [in] type - a spatial discretization of interest.
7007  *  \param [in] mName - a name of the supporting mesh.
7008  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
7009  *  \param [in] renumPol - specifies how to permute values of the result field according to
7010  *          the optional numbers of cells and nodes, if any. The valid values are
7011  *          - 0 - do not permute.
7012  *          - 1 - permute cells.
7013  *          - 2 - permute nodes.
7014  *          - 3 - permute cells and nodes.
7015  *
7016  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
7017  *          caller is to delete this field using decrRef() as it is no more needed.
7018  *  \throw If the MED file is not readable.
7019  *  \throw If there is no mesh named \a mName in the MED file.
7020  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
7021  *  \throw If \a this field has not been constructed via file reading.
7022  *  \throw If no field of \a this is lying on the mesh named \a mName.
7023  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
7024  *  \sa getFieldAtLevel()
7025  */
7026 MEDCouplingFieldInt *MEDFileIntField1TS::getFieldAtLevelOld(TypeOfField type, const std::string& mname, int meshDimRelToMax, int renumPol) const
7027 {
7028   if(getFileName().empty())
7029     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::getFieldAtLevelOld : Request for a method that can be used for instances coming from file loading ! Use getFieldOnMeshAtLevel method instead !");
7030   MCAuto<DataArray> arrOut;
7031   MCAuto<MEDCouplingFieldDouble> ret=contentNotNull()->getFieldAtLevel(type,meshDimRelToMax,mname,renumPol,this,arrOut,*contentNotNull());
7032   MCAuto<MEDCouplingFieldInt> ret2(SetDataArrayDoubleInIntField(ret,arrOut));
7033   return ret2.retn();
7034 }
7035
7036 /*!
7037  * Returns values and a profile of the field of a given type lying on a given support.
7038  * For more info, see \ref AdvMEDLoaderAPIFieldRW
7039  *  \param [in] type - a spatial discretization of the field.
7040  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
7041  *  \param [in] mesh - the supporting mesh.
7042  *  \param [out] pfl - a new instance of DataArrayInt holding ids of mesh entities the
7043  *          field of interest lies on. If the field lies on all entities of the given
7044  *          dimension, all ids in \a pfl are zero. The caller is to delete this array
7045  *          using decrRef() as it is no more needed.
7046  *  \return DataArrayInt * - a new instance of DataArrayInt holding values of the
7047  *          field. The caller is to delete this array using decrRef() as it is no more needed.
7048  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
7049  *  \throw If no field of \a this is lying on \a mesh.
7050  *  \throw If no field values of the given \a type or given \a meshDimRelToMax are available.
7051  */
7052 DataArrayInt *MEDFileIntField1TS::getFieldWithProfile(TypeOfField type, int meshDimRelToMax, const MEDFileMesh *mesh, DataArrayInt *&pfl) const
7053 {
7054   MCAuto<DataArray> arr=contentNotNull()->getFieldWithProfile(type,meshDimRelToMax,mesh,pfl,this,*contentNotNull());
7055   return MEDFileIntField1TS::ReturnSafelyDataArrayInt(arr);
7056 }
7057
7058 MEDFileIntField1TSWithoutSDA *MEDFileIntField1TS::contentNotNull()
7059 {
7060   MEDFileAnyTypeField1TSWithoutSDA *pt(_content);
7061   if(!pt)
7062     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::contentNotNull : the non const content pointer is null !");
7063   MEDFileIntField1TSWithoutSDA *ret=dynamic_cast<MEDFileIntField1TSWithoutSDA *>(pt);
7064   if(!ret)
7065     throw INTERP_KERNEL::Exception("MEDFileIntField1TS::contentNotNull : the non const content pointer is not null but it is not of type int32 ! Reason is maybe that the read field has not the type INT32 !");
7066   return ret;
7067 }
7068
7069 DataArrayInt *MEDFileIntField1TS::getUndergroundDataArray() const
7070 {
7071   return contentNotNull()->getUndergroundDataArrayTemplate();
7072 }
7073
7074 //= MEDFileAnyTypeFieldMultiTSWithoutSDA
7075
7076 MEDFileAnyTypeFieldMultiTSWithoutSDA::MEDFileAnyTypeFieldMultiTSWithoutSDA()
7077 {
7078 }
7079
7080 MEDFileAnyTypeFieldMultiTSWithoutSDA::MEDFileAnyTypeFieldMultiTSWithoutSDA(const std::string& fieldName):MEDFileFieldNameScope(fieldName)
7081 {
7082 }
7083
7084 /*!
7085  * \param [in] fieldId field id in C mode
7086  */
7087 MEDFileAnyTypeFieldMultiTSWithoutSDA::MEDFileAnyTypeFieldMultiTSWithoutSDA(med_idt fid, int fieldId, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
7088 {
7089   med_field_type typcha;
7090   std::string dtunitOut;
7091   int nbOfStep(MEDFileAnyTypeField1TS::LocateField2(fid,fieldId,false,_name,typcha,_infos,dtunitOut));
7092   setDtUnit(dtunitOut.c_str());
7093   loadStructureOrStructureAndBigArraysRecursively(fid,nbOfStep,typcha,loadAll,ms,entities);
7094 }
7095
7096 MEDFileAnyTypeFieldMultiTSWithoutSDA::MEDFileAnyTypeFieldMultiTSWithoutSDA(med_idt fid, const std::string& fieldName, med_field_type fieldTyp, const std::vector<std::string>& infos, int nbOfStep, const std::string& dtunit, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
7097 try:MEDFileFieldNameScope(fieldName),_infos(infos)
7098 {
7099   setDtUnit(dtunit.c_str());
7100   loadStructureOrStructureAndBigArraysRecursively(fid,nbOfStep,fieldTyp,loadAll,ms,entities);
7101 }
7102 catch(INTERP_KERNEL::Exception& e)
7103 {
7104     throw e;
7105 }
7106
7107 std::size_t MEDFileAnyTypeFieldMultiTSWithoutSDA::getHeapMemorySizeWithoutChildren() const
7108 {
7109   std::size_t ret(_name.capacity()+_infos.capacity()*sizeof(std::string)+_time_steps.capacity()*sizeof(MCAuto<MEDFileField1TSWithoutSDA>));
7110   for(std::vector<std::string>::const_iterator it=_infos.begin();it!=_infos.end();it++)
7111     ret+=(*it).capacity();
7112   return ret;
7113 }
7114
7115 std::vector<const BigMemoryObject *> MEDFileAnyTypeFieldMultiTSWithoutSDA::getDirectChildrenWithNull() const
7116 {
7117   std::vector<const BigMemoryObject *> ret;
7118   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7119     ret.push_back((const MEDFileAnyTypeField1TSWithoutSDA *)*it);
7120   return ret;
7121 }
7122
7123 /*!
7124  * If one of the id in [ \a startIds , \a endIds ) points to a null element, there is not throw. Simply, this empty element is added as if it were not
7125  * NULL.
7126  */
7127 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::buildFromTimeStepIds(const int *startIds, const int *endIds) const
7128 {
7129   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> ret=createNew();
7130   ret->setInfo(_infos);
7131   int sz=(int)_time_steps.size();
7132   for(const int *id=startIds;id!=endIds;id++)
7133     {
7134       if(*id>=0 && *id<sz)
7135         {
7136           const MEDFileAnyTypeField1TSWithoutSDA *tse=_time_steps[*id];
7137           MCAuto<MEDFileAnyTypeField1TSWithoutSDA> tse2;
7138           if(tse)
7139             {
7140               tse->incrRef();
7141               tse2=(const_cast<MEDFileAnyTypeField1TSWithoutSDA *>(tse));
7142             }
7143           ret->pushBackTimeStep(tse2);
7144         }
7145       else
7146         {
7147           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::buildFromTimeStepIds : At pos #" << std::distance(startIds,id) << " value is " << *id;
7148           oss << " ! Should be in [0," << sz << ") !";
7149           throw INTERP_KERNEL::Exception(oss.str());
7150         }
7151     }
7152   if(ret->getNumberOfTS()>0)
7153     ret->synchronizeNameScope();
7154   ret->copyNameScope(*this);
7155   return ret.retn();
7156 }
7157
7158 /*!
7159  * If one of the id in the input range points to a null element, there is not throw. Simply, this empty element is added as if it were not
7160  * NULL.
7161  */
7162 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::buildFromTimeStepIds2(int bg, int end, int step) const
7163 {
7164   static const char msg[]="MEDFileAnyTypeFieldMultiTSWithoutSDA::buildFromTimeStepIds2";
7165   int nbOfEntriesToKeep=DataArrayInt::GetNumberOfItemGivenBESRelative(bg,end,step,msg);
7166   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> ret=createNew();
7167   ret->setInfo(_infos);
7168   int sz=(int)_time_steps.size();
7169   int j=bg;
7170   for(int i=0;i<nbOfEntriesToKeep;i++,j+=step)
7171     {
7172       if(j>=0 && j<sz)
7173         {
7174           const MEDFileAnyTypeField1TSWithoutSDA *tse=_time_steps[j];
7175           MCAuto<MEDFileAnyTypeField1TSWithoutSDA> tse2;
7176           if(tse)
7177             {
7178               tse->incrRef();
7179               tse2=(const_cast<MEDFileAnyTypeField1TSWithoutSDA *>(tse));
7180             }
7181           ret->pushBackTimeStep(tse2);
7182         }
7183       else
7184         {
7185           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::buildFromTimeStepIds : At pos #" << i << " value is " << j;
7186           oss << " ! Should be in [0," << sz << ") !";
7187           throw INTERP_KERNEL::Exception(oss.str());
7188         }
7189     }
7190   if(ret->getNumberOfTS()>0)
7191     ret->synchronizeNameScope();
7192   ret->copyNameScope(*this);
7193   return ret.retn();
7194 }
7195
7196 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::partOfThisLyingOnSpecifiedTimeSteps(const std::vector< std::pair<int,int> >& timeSteps) const
7197 {
7198   int id=0;
7199   MCAuto<DataArrayInt> ids=DataArrayInt::New(); ids->alloc(0,1);
7200   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,id++)
7201     {
7202       const MEDFileAnyTypeField1TSWithoutSDA *cur(*it);
7203       if(!cur)
7204         continue;
7205       std::pair<int,int> p(cur->getIteration(),cur->getOrder());
7206       if(std::find(timeSteps.begin(),timeSteps.end(),p)!=timeSteps.end())
7207         ids->pushBackSilent(id);
7208     }
7209   return buildFromTimeStepIds(ids->begin(),ids->end());
7210 }
7211
7212 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::partOfThisNotLyingOnSpecifiedTimeSteps(const std::vector< std::pair<int,int> >& timeSteps) const
7213 {
7214   int id=0;
7215   MCAuto<DataArrayInt> ids=DataArrayInt::New(); ids->alloc(0,1);
7216   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,id++)
7217     {
7218       const MEDFileAnyTypeField1TSWithoutSDA *cur(*it);
7219       if(!cur)
7220         continue;
7221       std::pair<int,int> p(cur->getIteration(),cur->getOrder());
7222       if(std::find(timeSteps.begin(),timeSteps.end(),p)==timeSteps.end())
7223         ids->pushBackSilent(id);
7224     }
7225   return buildFromTimeStepIds(ids->begin(),ids->end());
7226 }
7227
7228 bool MEDFileAnyTypeFieldMultiTSWithoutSDA::presenceOfMultiDiscPerGeoType() const
7229 {
7230   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7231     {
7232       const MEDFileAnyTypeField1TSWithoutSDA *cur(*it);
7233       if(!cur)
7234         continue;
7235       if(cur->presenceOfMultiDiscPerGeoType())
7236         return true;
7237     }
7238   return false;
7239 }
7240
7241 const std::vector<std::string>& MEDFileAnyTypeFieldMultiTSWithoutSDA::getInfo() const
7242 {
7243   return _infos;
7244 }
7245
7246 void MEDFileAnyTypeFieldMultiTSWithoutSDA::setInfo(const std::vector<std::string>& info)
7247 {
7248   _infos=info;
7249 }
7250
7251 int MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepPos(int iteration, int order) const
7252 {
7253   int ret=0;
7254   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA>  >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,ret++)
7255     {
7256       const MEDFileAnyTypeField1TSWithoutSDA *pt(*it);
7257       if(pt->isDealingTS(iteration,order))
7258         return ret;
7259     }
7260   std::ostringstream oss; oss << "MEDFileFieldMultiTS::getTimeStepPos : Muli timestep field on time (" << iteration << "," << order << ") does not exist ! Available (iteration,order) are :\n";
7261   std::vector< std::pair<int,int> > vp=getIterations();
7262   for(std::vector< std::pair<int,int> >::const_iterator it2=vp.begin();it2!=vp.end();it2++)
7263     oss << "(" << (*it2).first << "," << (*it2).second << ") ";
7264   throw INTERP_KERNEL::Exception(oss.str());
7265 }
7266
7267 const MEDFileAnyTypeField1TSWithoutSDA& MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepEntry(int iteration, int order) const
7268 {
7269   return *_time_steps[getTimeStepPos(iteration,order)];
7270 }
7271
7272 MEDFileAnyTypeField1TSWithoutSDA& MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepEntry(int iteration, int order)
7273 {
7274   return *_time_steps[getTimeStepPos(iteration,order)];
7275 }
7276
7277 std::string MEDFileAnyTypeFieldMultiTSWithoutSDA::getMeshName() const
7278 {
7279   if(_time_steps.empty())
7280     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::getMeshName : not time steps !");
7281   return _time_steps[0]->getMeshName();
7282 }
7283
7284 void MEDFileAnyTypeFieldMultiTSWithoutSDA::setMeshName(const std::string& newMeshName)
7285 {
7286   std::string oldName(getMeshName());
7287   std::vector< std::pair<std::string,std::string> > v(1);
7288   v[0].first=oldName; v[0].second=newMeshName;
7289   changeMeshNames(v);
7290 }
7291
7292 bool MEDFileAnyTypeFieldMultiTSWithoutSDA::changeMeshNames(const std::vector< std::pair<std::string,std::string> >& modifTab)
7293 {
7294   bool ret=false;
7295   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7296     {
7297       MEDFileAnyTypeField1TSWithoutSDA *cur(*it);
7298       if(cur)
7299         ret=cur->changeMeshNames(modifTab) || ret;
7300     }
7301   return ret;
7302 }
7303
7304 /*!
7305  * See doc at MEDFileField1TSWithoutSDA::getUndergroundDataArray
7306  */
7307 DataArray *MEDFileAnyTypeFieldMultiTSWithoutSDA::getUndergroundDataArray(int iteration, int order) const
7308 {
7309   return getTimeStepEntry(iteration,order).getUndergroundDataArray();
7310 }
7311
7312 /*!
7313  * See doc at MEDFileField1TSWithoutSDA::getUndergroundDataArrayExt
7314  */
7315 DataArray *MEDFileAnyTypeFieldMultiTSWithoutSDA::getUndergroundDataArrayExt(int iteration, int order, std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
7316 {
7317   return getTimeStepEntry(iteration,order).getUndergroundDataArrayExt(entries);
7318 }
7319
7320 bool MEDFileAnyTypeFieldMultiTSWithoutSDA::renumberEntitiesLyingOnMesh(const std::string& meshName, const std::vector<int>& oldCode, const std::vector<int>& newCode, const DataArrayInt *renumO2N,
7321                                                                        MEDFileFieldGlobsReal& glob)
7322 {
7323   bool ret=false;
7324   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7325     {
7326       MEDFileAnyTypeField1TSWithoutSDA *f1ts(*it);
7327       if(f1ts)
7328         ret=f1ts->renumberEntitiesLyingOnMesh(meshName,oldCode,newCode,renumO2N,glob) || ret;
7329     }
7330   return ret;
7331 }
7332
7333 void MEDFileAnyTypeFieldMultiTSWithoutSDA::simpleRepr(int bkOffset, std::ostream& oss, int fmtsId) const
7334 {
7335   std::string startLine(bkOffset,' ');
7336   oss << startLine << "Field multi time steps [Type=" << getTypeStr() << "]";
7337   if(fmtsId>=0)
7338     oss << " (" << fmtsId << ")";
7339   oss << " has the following name: \"" << _name << "\"." << std::endl;
7340   oss << startLine << "Field multi time steps has " << _infos.size() << " components with the following infos :" << std::endl;
7341   for(std::vector<std::string>::const_iterator it=_infos.begin();it!=_infos.end();it++)
7342     {
7343       oss << startLine << "  -  \"" << *it << "\"" << std::endl;
7344     }
7345   int i=0;
7346   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,i++)
7347     {
7348       std::string chapter(17,'0'+i);
7349       oss << startLine << chapter << std::endl;
7350       const MEDFileAnyTypeField1TSWithoutSDA *cur=(*it);
7351       if(cur)
7352         cur->simpleRepr(bkOffset+2,oss,i);
7353       else
7354         oss << startLine << "  Field on one time step #" << i << " is not defined !" << std::endl;
7355       oss << startLine << chapter << std::endl;
7356     }
7357 }
7358
7359 std::vector< std::pair<int,int> > MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeSteps(std::vector<double>& ret1) const
7360 {
7361   std::size_t sz=_time_steps.size();
7362   std::vector< std::pair<int,int> > ret(sz);
7363   ret1.resize(sz);
7364   for(std::size_t i=0;i<sz;i++)
7365     {
7366       const MEDFileAnyTypeField1TSWithoutSDA *f1ts=_time_steps[i];
7367       if(f1ts)
7368         {
7369           ret1[i]=f1ts->getTime(ret[i].first,ret[i].second);
7370         }
7371       else
7372         {
7373           std::ostringstream oss; oss << "MEDFileFieldMultiTSWithoutSDA::getTimeSteps : At rank #" << i << " time step is not defined. Invoke eraseEmptyTS method !";
7374           throw INTERP_KERNEL::Exception(oss.str());
7375         }
7376     }
7377   return ret;
7378 }
7379
7380 void MEDFileAnyTypeFieldMultiTSWithoutSDA::pushBackTimeStep(MCAuto<MEDFileAnyTypeField1TSWithoutSDA>& tse)
7381 {
7382   MEDFileAnyTypeField1TSWithoutSDA *tse2(tse);
7383   if(!tse2)
7384     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::pushBackTimeStep : input content object is null !");
7385   checkCoherencyOfType(tse2);
7386   if(_time_steps.empty())
7387     {
7388       setName(tse2->getName().c_str());
7389       setInfo(tse2->getInfo());
7390     }
7391   checkThatComponentsMatch(tse2->getInfo());
7392   if(getDtUnit().empty() && !tse->getDtUnit().empty())
7393     setDtUnit(tse->getDtUnit());
7394   _time_steps.push_back(tse);
7395 }
7396
7397 void MEDFileAnyTypeFieldMultiTSWithoutSDA::synchronizeNameScope()
7398 {
7399   std::size_t nbOfCompo=_infos.size();
7400   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7401     {
7402       MEDFileAnyTypeField1TSWithoutSDA *cur=(*it);
7403       if(cur)
7404         {
7405           if((cur->getInfo()).size()!=nbOfCompo)
7406             {
7407               std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::synchronizeNameScope : Mismatch in the number of components of parts ! Should be " << nbOfCompo;
7408               oss << " ! but the field at iteration=" << cur->getIteration() << " order=" << cur->getOrder() << " has " << (cur->getInfo()).size() << " components !";
7409               throw INTERP_KERNEL::Exception(oss.str());
7410             }
7411           cur->copyNameScope(*this);
7412         }
7413     }
7414 }
7415
7416 void MEDFileAnyTypeFieldMultiTSWithoutSDA::loadStructureOrStructureAndBigArraysRecursively(med_idt fid, int nbPdt, med_field_type fieldTyp, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
7417 {
7418   _time_steps.resize(nbPdt);
7419   for(int i=0;i<nbPdt;i++)
7420     {
7421       std::vector< std::pair<int,int> > ts;
7422       med_int numdt=0,numo=0;
7423       med_int meshIt=0,meshOrder=0;
7424       med_float dt=0.0;
7425       MEDFILESAFECALLERRD0(MEDfieldComputingStepMeshInfo,(fid,_name.c_str(),i+1,&numdt,&numo,&dt,&meshIt,&meshOrder));
7426       switch(fieldTyp)
7427       {
7428         case MED_FLOAT64:
7429           {
7430             _time_steps[i]=MEDFileField1TSWithoutSDA::New(_name.c_str(),i+1,numdt,numo,_infos);
7431             break;
7432           }
7433         case MED_INT32:
7434           {
7435             _time_steps[i]=MEDFileIntField1TSWithoutSDA::New(_name.c_str(),i+1,numdt,numo,_infos);
7436             break;
7437           }
7438         default:
7439           throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::loadStructureOrStructureAndBigArraysRecursively : managed field type are : FLOAT64, INT32 !");
7440       }
7441       if(loadAll)
7442         _time_steps[i]->loadStructureAndBigArraysRecursively(fid,*this,ms,entities);
7443       else
7444         _time_steps[i]->loadOnlyStructureOfDataRecursively(fid,*this,ms,entities);
7445       synchronizeNameScope();
7446     }
7447 }
7448
7449 void MEDFileAnyTypeFieldMultiTSWithoutSDA::writeLL(med_idt fid, const MEDFileWritable& opts) const
7450 {
7451   if(_time_steps.empty())
7452     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::writeLL : no time steps set !");
7453   checkThatNbOfCompoOfTSMatchThis();
7454   std::vector<std::string> infos(getInfo());
7455   int nbComp=infos.size();
7456   INTERP_KERNEL::AutoPtr<char> comp=MEDLoaderBase::buildEmptyString(nbComp*MED_SNAME_SIZE);
7457   INTERP_KERNEL::AutoPtr<char> unit=MEDLoaderBase::buildEmptyString(nbComp*MED_SNAME_SIZE);
7458   for(int i=0;i<nbComp;i++)
7459     {
7460       std::string info=infos[i];
7461       std::string c,u;
7462       MEDLoaderBase::splitIntoNameAndUnit(info,c,u);
7463       MEDLoaderBase::safeStrCpy2(c.c_str(),MED_SNAME_SIZE,comp+i*MED_SNAME_SIZE,opts.getTooLongStrPolicy());
7464       MEDLoaderBase::safeStrCpy2(u.c_str(),MED_SNAME_SIZE,unit+i*MED_SNAME_SIZE,opts.getTooLongStrPolicy());
7465     }
7466   if(_name.empty())
7467     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::write : MED file does not accept field with empty name !");
7468   MEDFILESAFECALLERWR0(MEDfieldCr,(fid,_name.c_str(),getMEDFileFieldType(),nbComp,comp,unit,getDtUnit().c_str(),getMeshName().c_str()));
7469   int nbOfTS=_time_steps.size();
7470   for(int i=0;i<nbOfTS;i++)
7471     _time_steps[i]->writeLL(fid,opts,*this);
7472 }
7473
7474 void MEDFileAnyTypeFieldMultiTSWithoutSDA::loadBigArraysRecursively(med_idt fid, const MEDFileFieldNameScope& nasc)
7475 {
7476   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7477     {
7478       MEDFileAnyTypeField1TSWithoutSDA *elt(*it);
7479       if(elt)
7480         elt->loadBigArraysRecursively(fid,nasc);
7481     }
7482 }
7483
7484 void MEDFileAnyTypeFieldMultiTSWithoutSDA::loadBigArraysRecursivelyIfNecessary(med_idt fid, const MEDFileFieldNameScope& nasc)
7485 {
7486   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7487     {
7488       MEDFileAnyTypeField1TSWithoutSDA *elt(*it);
7489       if(elt)
7490         elt->loadBigArraysRecursivelyIfNecessary(fid,nasc);
7491     }
7492 }
7493
7494 void MEDFileAnyTypeFieldMultiTSWithoutSDA::unloadArrays()
7495 {
7496   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7497     {
7498       MEDFileAnyTypeField1TSWithoutSDA *elt(*it);
7499       if(elt)
7500         elt->unloadArrays();
7501     }
7502 }
7503
7504 int MEDFileAnyTypeFieldMultiTSWithoutSDA::getNumberOfTS() const
7505 {
7506   return _time_steps.size();
7507 }
7508
7509 void MEDFileAnyTypeFieldMultiTSWithoutSDA::eraseEmptyTS()
7510 {
7511   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA>  > newTS;
7512   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA>  >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7513     {
7514       const MEDFileAnyTypeField1TSWithoutSDA *tmp=(*it);
7515       if(tmp)
7516         newTS.push_back(*it);
7517     }
7518   _time_steps=newTS;
7519 }
7520
7521 void MEDFileAnyTypeFieldMultiTSWithoutSDA::eraseTimeStepIds(const int *startIds, const int *endIds)
7522 {
7523   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > newTS;
7524   int maxId=(int)_time_steps.size();
7525   int ii=0;
7526   std::set<int> idsToDel;
7527   for(const int *id=startIds;id!=endIds;id++,ii++)
7528     {
7529       if(*id>=0 && *id<maxId)
7530         {
7531           idsToDel.insert(*id);
7532         }
7533       else
7534         {
7535           std::ostringstream oss; oss << "MEDFileFieldMultiTSWithoutSDA::eraseTimeStepIds : At pos #" << ii << " request for id=" << *id << " not in [0," << maxId << ") !";
7536           throw INTERP_KERNEL::Exception(oss.str());
7537         }
7538     }
7539   for(int iii=0;iii<maxId;iii++)
7540     if(idsToDel.find(iii)==idsToDel.end())
7541       newTS.push_back(_time_steps[iii]);
7542   _time_steps=newTS;
7543 }
7544
7545 void MEDFileAnyTypeFieldMultiTSWithoutSDA::eraseTimeStepIds2(int bg, int end, int step)
7546 {
7547   static const char msg[]="MEDFileAnyTypeFieldMultiTSWithoutSDA::eraseTimeStepIds2";
7548   int nbOfEntriesToKill=DataArrayInt::GetNumberOfItemGivenBESRelative(bg,end,step,msg);
7549   if(nbOfEntriesToKill==0)
7550     return ;
7551   std::size_t sz=_time_steps.size();
7552   std::vector<bool> b(sz,true);
7553   int j=bg;
7554   for(int i=0;i<nbOfEntriesToKill;i++,j+=step)
7555     b[j]=false;
7556   std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > newTS;
7557   for(std::size_t i=0;i<sz;i++)
7558     if(b[i])
7559       newTS.push_back(_time_steps[i]);
7560   _time_steps=newTS;
7561 }
7562
7563 int MEDFileAnyTypeFieldMultiTSWithoutSDA::getPosOfTimeStep(int iteration, int order) const
7564 {
7565   int ret=0;
7566   std::ostringstream oss; oss << "MEDFileFieldMultiTSWithoutSDA::getPosOfTimeStep : No such time step (" << iteration << "," << order << ") !\nPossibilities are : ";
7567   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA>  >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,ret++)
7568     {
7569       const MEDFileAnyTypeField1TSWithoutSDA *tmp(*it);
7570       if(tmp)
7571         {
7572           int it2,ord;
7573           tmp->getTime(it2,ord);
7574           if(it2==iteration && order==ord)
7575             return ret;
7576           else
7577             oss << "(" << it2 << ","  << ord << "), ";
7578         }
7579     }
7580   throw INTERP_KERNEL::Exception(oss.str());
7581 }
7582
7583 int MEDFileAnyTypeFieldMultiTSWithoutSDA::getPosGivenTime(double time, double eps) const
7584 {
7585   int ret=0;
7586   std::ostringstream oss; oss << "MEDFileFieldMultiTSWithoutSDA::getPosGivenTime : No such time step " << time << "! \nPossibilities are : ";
7587   oss.precision(15);
7588   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA>  >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,ret++)
7589     {
7590       const MEDFileAnyTypeField1TSWithoutSDA *tmp(*it);
7591       if(tmp)
7592         {
7593           int it2,ord;
7594           double ti=tmp->getTime(it2,ord);
7595           if(fabs(time-ti)<eps)
7596             return ret;
7597           else
7598             oss << ti << ", ";
7599         }
7600     }
7601   throw INTERP_KERNEL::Exception(oss.str());
7602 }
7603
7604 std::vector< std::pair<int,int> > MEDFileAnyTypeFieldMultiTSWithoutSDA::getIterations() const
7605 {
7606   int lgth=_time_steps.size();
7607   std::vector< std::pair<int,int> > ret(lgth);
7608   for(int i=0;i<lgth;i++)
7609     _time_steps[i]->fillIteration(ret[i]);
7610   return ret;
7611 }
7612
7613 /*!
7614  * This method has 3 inputs 'iteration' 'order' 'mname'. 'mname' can be null if the user is the general case where there is only one meshName lying on 'this'
7615  * This method returns two things.
7616  * - The absolute dimension of 'this' in first parameter.
7617  * - The available ext levels relative to the absolute dimension returned in first parameter. These relative levels are relative
7618  *   to the first output parameter. The values in 'levs' will be returned in decreasing order.
7619  *
7620  * This method is designed for MEDFileFieldMultiTS instances that have a discritization ON_CELLS, ON_GAUSS_NE and ON_GAUSS.
7621  * Only these 3 discretizations will be taken into account here.
7622  *
7623  * If 'this' is empty this method will throw an INTERP_KERNEL::Exception.
7624  * If there is \b only node fields defined in 'this' -1 is returned and 'levs' output parameter will be empty. In this
7625  * case the caller has to know the underlying mesh it refers to. By defaut it is the level 0 of the corresponding mesh.
7626  *
7627  * This method is usefull to make the link between meshDimension of the underlying mesh in 'this' and the levels on 'this'.
7628  * It is possible (even if it is not common) that the highest level in 'this' were not equal to the meshDimension of the underlying mesh in 'this'.
7629  *
7630  * Let's consider the typical following case :
7631  * - a mesh 'm1' has a meshDimension 3 and has the following non empty levels
7632  * [0,-1,-2] for example 'm1' lies on TETRA4, HEXA8 TRI3 and SEG2
7633  * - 'f1' lies on 'm1' and is defined on 3D and 1D cells for example
7634  *   TETRA4 and SEG2
7635  * - 'f2' lies on 'm1' too and is defined on 2D and 1D cells for example TRI3 and SEG2
7636  *
7637  * In this case f1->getNonEmptyLevelsExt will return (3,[0,-2]) and f2->getNonEmptyLevelsExt will return (2,[0,-1])
7638  *
7639  * To retrieve the highest level of f1 it should be done, f1->getFieldAtLevel(ON_CELLS,3-3+0);//absDim-meshDim+relativeLev
7640  * To retrieve the lowest level of f1 it should be done, f1->getFieldAtLevel(ON_CELLS,3-3+(-2));//absDim-meshDim+relativeLev
7641  * To retrieve the highest level of f2 it should be done, f1->getFieldAtLevel(ON_CELLS,2-3+0);//absDim-meshDim+relativeLev
7642  * To retrieve the lowest level of f2 it should be done, f1->getFieldAtLevel(ON_CELLS,2-3+(-1));//absDim-meshDim+relativeLev
7643  */
7644 int MEDFileAnyTypeFieldMultiTSWithoutSDA::getNonEmptyLevels(int iteration, int order, const std::string& mname, std::vector<int>& levs) const
7645 {
7646   return getTimeStepEntry(iteration,order).getNonEmptyLevels(mname,levs);
7647 }
7648
7649 const MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepAtPos2(int pos) const
7650 {
7651   if(pos<0 || pos>=(int)_time_steps.size())
7652     {
7653       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepAtPos2 : request for pos #" << pos << " whereas should be in [0," << _time_steps.size() << ") !";
7654       throw INTERP_KERNEL::Exception(oss.str());
7655     }
7656   const MEDFileAnyTypeField1TSWithoutSDA *item=_time_steps[pos];
7657   if(item==0)
7658     {
7659       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepAtPos2 : request for pos #" << pos << ", this pos id exists but the underlying Field1TS is null !";
7660       oss << "\nTry to use following method eraseEmptyTS !";
7661       throw INTERP_KERNEL::Exception(oss.str());
7662     }
7663   return item;
7664 }
7665
7666 MEDFileAnyTypeField1TSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepAtPos2(int pos)
7667 {
7668   if(pos<0 || pos>=(int)_time_steps.size())
7669     {
7670       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepAtPos2 : request for pos #" << pos << " whereas should be in [0," << _time_steps.size() << ") !";
7671       throw INTERP_KERNEL::Exception(oss.str());
7672     }
7673   MEDFileAnyTypeField1TSWithoutSDA *item=_time_steps[pos];
7674   if(item==0)
7675     {
7676       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::getTimeStepAtPos2 : request for pos #" << pos << ", this pos id exists but the underlying Field1TS is null !";
7677       oss << "\nTry to use following method eraseEmptyTS !";
7678       throw INTERP_KERNEL::Exception(oss.str());
7679     }
7680   return item;
7681 }
7682
7683 std::vector<std::string> MEDFileAnyTypeFieldMultiTSWithoutSDA::getPflsReallyUsed2() const
7684 {
7685   std::vector<std::string> ret;
7686   std::set<std::string> ret2;
7687   for(std::vector< MCAuto< MEDFileAnyTypeField1TSWithoutSDA > >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7688     {
7689       std::vector<std::string> tmp=(*it)->getPflsReallyUsed2();
7690       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
7691         if(ret2.find(*it2)==ret2.end())
7692           {
7693             ret.push_back(*it2);
7694             ret2.insert(*it2);
7695           }
7696     }
7697   return ret;
7698 }
7699
7700 std::vector<std::string> MEDFileAnyTypeFieldMultiTSWithoutSDA::getLocsReallyUsed2() const
7701 {
7702   std::vector<std::string> ret;
7703   std::set<std::string> ret2;
7704   for(std::vector< MCAuto< MEDFileAnyTypeField1TSWithoutSDA > >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7705     {
7706       std::vector<std::string> tmp=(*it)->getLocsReallyUsed2();
7707       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
7708         if(ret2.find(*it2)==ret2.end())
7709           {
7710             ret.push_back(*it2);
7711             ret2.insert(*it2);
7712           }
7713     }
7714   return ret;
7715 }
7716
7717 std::vector<std::string> MEDFileAnyTypeFieldMultiTSWithoutSDA::getPflsReallyUsedMulti2() const
7718 {
7719   std::vector<std::string> ret;
7720   for(std::vector< MCAuto< MEDFileAnyTypeField1TSWithoutSDA > >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7721     {
7722       std::vector<std::string> tmp=(*it)->getPflsReallyUsedMulti2();
7723       ret.insert(ret.end(),tmp.begin(),tmp.end());
7724     }
7725   return ret;
7726 }
7727
7728 std::vector<std::string> MEDFileAnyTypeFieldMultiTSWithoutSDA::getLocsReallyUsedMulti2() const
7729 {
7730   std::vector<std::string> ret;
7731   for(std::vector< MCAuto< MEDFileAnyTypeField1TSWithoutSDA > >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7732     {
7733       std::vector<std::string> tmp=(*it)->getLocsReallyUsedMulti2();
7734       ret.insert(ret.end(),tmp.begin(),tmp.end());
7735     }
7736   return ret;
7737 }
7738
7739 void MEDFileAnyTypeFieldMultiTSWithoutSDA::changePflsRefsNamesGen2(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
7740 {
7741   for(std::vector< MCAuto< MEDFileAnyTypeField1TSWithoutSDA > >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7742     (*it)->changePflsRefsNamesGen2(mapOfModif);
7743 }
7744
7745 void MEDFileAnyTypeFieldMultiTSWithoutSDA::changeLocsRefsNamesGen2(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
7746 {
7747   for(std::vector< MCAuto< MEDFileAnyTypeField1TSWithoutSDA > >::iterator it=_time_steps.begin();it!=_time_steps.end();it++)
7748     (*it)->changeLocsRefsNamesGen2(mapOfModif);
7749 }
7750
7751 std::vector< std::vector<TypeOfField> > MEDFileAnyTypeFieldMultiTSWithoutSDA::getTypesOfFieldAvailable() const
7752 {
7753   int lgth=_time_steps.size();
7754   std::vector< std::vector<TypeOfField> > ret(lgth);
7755   for(int i=0;i<lgth;i++)
7756     _time_steps[i]->fillTypesOfFieldAvailable(ret[i]);
7757   return ret;
7758 }
7759
7760 /*!
7761  * entry point for users that want to iterate into MEDFile DataStructure without any overhead.
7762  */
7763 std::vector< std::vector< std::pair<int,int> > > MEDFileAnyTypeFieldMultiTSWithoutSDA::getFieldSplitedByType(int iteration, int order, const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
7764 {
7765   return getTimeStepEntry(iteration,order).getFieldSplitedByType(mname,types,typesF,pfls,locs);
7766 }
7767
7768 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTSWithoutSDA::deepCopy() const
7769 {
7770   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> ret=shallowCpy();
7771   std::size_t i=0;
7772   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,i++)
7773     {
7774       if((const MEDFileAnyTypeField1TSWithoutSDA *)*it)
7775         ret->_time_steps[i]=(*it)->deepCopy();
7776     }
7777   return ret.retn();
7778 }
7779
7780 std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > MEDFileAnyTypeFieldMultiTSWithoutSDA::splitComponents() const
7781 {
7782   std::size_t sz(_infos.size()),sz2(_time_steps.size());
7783   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > ret(sz);
7784   std::vector< std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > > ts(sz2);
7785   for(std::size_t i=0;i<sz;i++)
7786     {
7787       ret[i]=shallowCpy();
7788       ret[i]->_infos.resize(1); ret[i]->_infos[0]=_infos[i];
7789     }
7790   for(std::size_t i=0;i<sz2;i++)
7791     {
7792       std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > ret1=_time_steps[i]->splitComponents();
7793       if(ret1.size()!=sz)
7794         {
7795           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::splitComponents : At rank #" << i << " number of components is " << ret1.size() << " whereas it should be for all time steps " << sz << " !";
7796           throw INTERP_KERNEL::Exception(oss.str());
7797         }
7798       ts[i]=ret1;
7799     }
7800   for(std::size_t i=0;i<sz;i++)
7801     for(std::size_t j=0;j<sz2;j++)
7802       ret[i]->_time_steps[j]=ts[j][i];
7803   return ret;
7804 }
7805
7806 /*!
7807  * This method splits into discretization each time steps in \a this.
7808  * ** WARNING ** the returned instances are not compulsary defined on the same time steps series !
7809  */
7810 std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > MEDFileAnyTypeFieldMultiTSWithoutSDA::splitDiscretizations() const
7811 {
7812   std::size_t sz(_time_steps.size());
7813   std::vector< std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > > items(sz);
7814   for(std::size_t i=0;i<sz;i++)
7815     {
7816       const MEDFileAnyTypeField1TSWithoutSDA *timeStep(_time_steps[i]);
7817       if(!timeStep)
7818         {
7819           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::splitDiscretizations : time step #" << i << " is null !";
7820           throw INTERP_KERNEL::Exception(oss.str());
7821         }
7822       items[i]=timeStep->splitDiscretizations();
7823     }
7824   //
7825   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > ret;
7826   std::vector< std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > > ret2;
7827   std::vector< TypeOfField > types;
7828   for(std::vector< std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > >::const_iterator it0=items.begin();it0!=items.end();it0++)
7829     for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it1=(*it0).begin();it1!=(*it0).end();it1++)
7830       {
7831         std::vector<TypeOfField> ts=(*it1)->getTypesOfFieldAvailable();
7832         if(ts.size()!=1)
7833           throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::splitDiscretizations : it appears that the splitting of MEDFileAnyTypeField1TSWithoutSDA::splitDiscretizations has returned invalid result !");
7834         std::vector< TypeOfField >::iterator it2=std::find(types.begin(),types.end(),ts[0]);
7835         if(it2==types.end())
7836           types.push_back(ts[0]);
7837       }
7838   ret.resize(types.size()); ret2.resize(types.size());
7839   for(std::vector< std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > >::const_iterator it0=items.begin();it0!=items.end();it0++)
7840     for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it1=(*it0).begin();it1!=(*it0).end();it1++)
7841       {
7842         TypeOfField typ=(*it1)->getTypesOfFieldAvailable()[0];
7843         std::size_t pos=std::distance(types.begin(),std::find(types.begin(),types.end(),typ));
7844         ret2[pos].push_back(*it1);
7845       }
7846   for(std::size_t i=0;i<types.size();i++)
7847     {
7848       MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> elt(createNew());
7849       for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::iterator it1=ret2[i].begin();it1!=ret2[i].end();it1++)
7850         elt->pushBackTimeStep(*it1);//also updates infos in elt
7851       ret[i]=elt;
7852       elt->MEDFileFieldNameScope::operator=(*this);
7853     }
7854   return ret;
7855 }
7856
7857 /*!
7858  * Contrary to splitDiscretizations method this method makes the hypothesis that the times series are **NOT** impacted by the splitting of multi discretization.
7859  */
7860 std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > MEDFileAnyTypeFieldMultiTSWithoutSDA::splitMultiDiscrPerGeoTypes() const
7861 {
7862   std::size_t sz(_time_steps.size());
7863   std::vector< std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> > > items(sz);
7864   std::size_t szOut(std::numeric_limits<std::size_t>::max());
7865   for(std::size_t i=0;i<sz;i++)
7866     {
7867       const MEDFileAnyTypeField1TSWithoutSDA *timeStep(_time_steps[i]);
7868       if(!timeStep)
7869         {
7870           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::splitMultiDiscrPerGeoTypes : time step #" << i << " is null !";
7871           throw INTERP_KERNEL::Exception(oss.str());
7872         }
7873       items[i]=timeStep->splitMultiDiscrPerGeoTypes();
7874       if(szOut==std::numeric_limits<std::size_t>::max())
7875         szOut=items[i].size();
7876       else
7877         if(items[i].size()!=szOut)
7878           throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::splitMultiDiscrPerGeoTypes : The splitting per discretization is expected to be same among time steps !");
7879     }
7880   if(szOut==std::numeric_limits<std::size_t>::max())
7881     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::splitMultiDiscrPerGeoTypes : empty field !");
7882   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > ret(szOut);
7883   for(std::size_t i=0;i<szOut;i++)
7884     {
7885       MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> elt(createNew());
7886       for(std::size_t j=0;j<sz;j++)
7887         elt->pushBackTimeStep(items[j][i]);
7888       ret[i]=elt;
7889       elt->MEDFileFieldNameScope::operator=(*this);
7890     }
7891   return ret;
7892 }
7893
7894 void MEDFileAnyTypeFieldMultiTSWithoutSDA::copyTinyInfoFrom(const MEDCouplingFieldDouble *field, const DataArray *arr)
7895 {
7896   _name=field->getName();
7897   if(_name.empty())
7898     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::copyTinyInfoFrom : unsupported fields with no name in MED file !");
7899   if(!arr)
7900     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::copyTinyInfoFrom : no array set !");
7901   _infos=arr->getInfoOnComponents();
7902 }
7903
7904 void MEDFileAnyTypeFieldMultiTSWithoutSDA::checkCoherencyOfTinyInfo(const MEDCouplingFieldDouble *field, const DataArray *arr) const
7905 {
7906   static const char MSG[]="MEDFileFieldMultiTSWithoutSDA::checkCoherencyOfTinyInfo : invalid ";
7907   if(_name!=field->getName())
7908     {
7909       std::ostringstream oss; oss << MSG << "name ! should be \"" << _name;
7910       oss << "\" and it is set in input field to \"" << field->getName() << "\" !";
7911       throw INTERP_KERNEL::Exception(oss.str());
7912     }
7913   if(!arr)
7914     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::checkCoherencyOfTinyInfo : no array set !");
7915   checkThatComponentsMatch(arr->getInfoOnComponents());
7916 }
7917
7918 void MEDFileAnyTypeFieldMultiTSWithoutSDA::checkThatComponentsMatch(const std::vector<std::string>& compos) const
7919 {
7920   static const char MSG[]="MEDFileFieldMultiTSWithoutSDA::checkThatComponentsMatch : ";
7921   if(getInfo().size()!=compos.size())
7922     {
7923       std::ostringstream oss; oss << MSG << "mismatch of number of components between this (" << getInfo().size() << ") and ";
7924       oss << " number of components of element to append (" << compos.size() << ") !";
7925       throw INTERP_KERNEL::Exception(oss.str());
7926     }
7927   if(_infos!=compos)
7928     {
7929       std::ostringstream oss; oss << MSG << "components have same size but are different ! should be \"";
7930       std::copy(_infos.begin(),_infos.end(),std::ostream_iterator<std::string>(oss,", "));
7931       oss << " But compo in input fields are : ";
7932       std::copy(compos.begin(),compos.end(),std::ostream_iterator<std::string>(oss,", "));
7933       oss << " !";
7934       throw INTERP_KERNEL::Exception(oss.str());
7935     }
7936 }
7937
7938 void MEDFileAnyTypeFieldMultiTSWithoutSDA::checkThatNbOfCompoOfTSMatchThis() const
7939 {
7940   std::size_t sz=_infos.size();
7941   int j=0;
7942   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,j++)
7943     {
7944       const MEDFileAnyTypeField1TSWithoutSDA *elt(*it);
7945       if(elt)
7946         if(elt->getInfo().size()!=sz)
7947           {
7948             std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::checkThatNbOfCompoOfTSMatchThis : At pos #" << j << " the number of components is equal to ";
7949             oss << elt->getInfo().size() << " whereas it is expected to be equal to " << sz << " !";
7950             throw INTERP_KERNEL::Exception(oss.str());
7951           }
7952     }
7953 }
7954
7955 void MEDFileAnyTypeFieldMultiTSWithoutSDA::appendFieldNoProfileSBT(const MEDCouplingFieldDouble *field, const DataArray *arr, MEDFileFieldGlobsReal& glob)
7956 {
7957   if(!field)
7958     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::appendFieldNoProfileSBT : input field is NULL !");
7959   if(!_time_steps.empty())
7960     checkCoherencyOfTinyInfo(field,arr);
7961   MEDFileAnyTypeField1TSWithoutSDA *objC=createNew1TSWithoutSDAEmptyInstance();
7962   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> obj(objC);
7963   objC->setFieldNoProfileSBT(field,arr,glob,*this);
7964   copyTinyInfoFrom(field,arr);
7965   _time_steps.push_back(obj);
7966 }
7967
7968 void MEDFileAnyTypeFieldMultiTSWithoutSDA::appendFieldProfile(const MEDCouplingFieldDouble *field, const DataArray *arr, const MEDFileMesh *mesh, int meshDimRelToMax, const DataArrayInt *profile, MEDFileFieldGlobsReal& glob)
7969 {
7970   if(!field)
7971     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTSWithoutSDA::appendFieldNoProfileSBT : input field is NULL !");
7972   if(!_time_steps.empty())
7973     checkCoherencyOfTinyInfo(field,arr);
7974   MEDFileAnyTypeField1TSWithoutSDA *objC=createNew1TSWithoutSDAEmptyInstance();
7975   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> obj(objC);
7976   objC->setFieldProfile(field,arr,mesh,meshDimRelToMax,profile,glob,*this);
7977   copyTinyInfoFrom(field,arr);
7978   _time_steps.push_back(obj);
7979 }
7980
7981 void MEDFileAnyTypeFieldMultiTSWithoutSDA::setIteration(int i, MCAuto<MEDFileAnyTypeField1TSWithoutSDA> ts)
7982 {
7983   int sz=(int)_time_steps.size();
7984   if(i<0 || i>=sz)
7985     {
7986       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::setIteration : trying to set element at place #" << i << " should be in [0," << sz << ") !";
7987       throw INTERP_KERNEL::Exception(oss.str());
7988     }
7989   const MEDFileAnyTypeField1TSWithoutSDA *tsPtr(ts);
7990   if(tsPtr)
7991     {
7992       if(tsPtr->getNumberOfComponents()!=(int)_infos.size())
7993         {
7994           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTSWithoutSDA::setIteration : trying to set element with " << tsPtr->getNumberOfComponents() << " components ! Should be " << _infos.size() <<  " !";
7995           throw INTERP_KERNEL::Exception(oss.str());
7996         }
7997     }
7998   _time_steps[i]=ts;
7999 }
8000
8001 //= MEDFileFieldMultiTSWithoutSDA
8002
8003 MEDFileFieldMultiTSWithoutSDA *MEDFileFieldMultiTSWithoutSDA::New(med_idt fid, const std::string& fieldName, med_field_type fieldTyp, const std::vector<std::string>& infos, int nbOfStep, const std::string& dtunit, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8004 {
8005   return new MEDFileFieldMultiTSWithoutSDA(fid,fieldName,fieldTyp,infos,nbOfStep,dtunit,loadAll,ms,entities);
8006 }
8007
8008 MEDFileFieldMultiTSWithoutSDA::MEDFileFieldMultiTSWithoutSDA()
8009 {
8010 }
8011
8012 MEDFileFieldMultiTSWithoutSDA::MEDFileFieldMultiTSWithoutSDA(const std::string& fieldName):MEDFileAnyTypeFieldMultiTSWithoutSDA(fieldName)
8013 {
8014 }
8015
8016 /*!
8017  * \param [in] fieldId field id in C mode
8018  */
8019 MEDFileFieldMultiTSWithoutSDA::MEDFileFieldMultiTSWithoutSDA(med_idt fid, int fieldId, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8020 try:MEDFileAnyTypeFieldMultiTSWithoutSDA(fid,fieldId,loadAll,ms,entities)
8021 {
8022 }
8023 catch(INTERP_KERNEL::Exception& e)
8024 { throw e; }
8025
8026 MEDFileFieldMultiTSWithoutSDA::MEDFileFieldMultiTSWithoutSDA(med_idt fid, const std::string& fieldName, med_field_type fieldTyp, const std::vector<std::string>& infos, int nbOfStep, const std::string& dtunit, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8027 try:MEDFileAnyTypeFieldMultiTSWithoutSDA(fid,fieldName,fieldTyp,infos,nbOfStep,dtunit,loadAll,ms,entities)
8028 {
8029 }
8030 catch(INTERP_KERNEL::Exception& e)
8031 { throw e; }
8032
8033 MEDFileAnyTypeField1TSWithoutSDA *MEDFileFieldMultiTSWithoutSDA::createNew1TSWithoutSDAEmptyInstance() const
8034 {
8035   return new MEDFileField1TSWithoutSDA;
8036 }
8037
8038 void MEDFileFieldMultiTSWithoutSDA::checkCoherencyOfType(const MEDFileAnyTypeField1TSWithoutSDA *f1ts) const
8039 {
8040   if(!f1ts)
8041     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::checkCoherencyOfType : input field1TS is NULL ! Impossible to check !");
8042   const MEDFileField1TSWithoutSDA *f1tsC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(f1ts);
8043   if(!f1tsC)
8044     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::checkCoherencyOfType : the input field1TS is not a FLOAT64 type !");
8045 }
8046
8047 const char *MEDFileFieldMultiTSWithoutSDA::getTypeStr() const
8048 {
8049   return MEDFileField1TSWithoutSDA::TYPE_STR;
8050 }
8051
8052 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileFieldMultiTSWithoutSDA::shallowCpy() const
8053 {
8054   return new MEDFileFieldMultiTSWithoutSDA(*this);
8055 }
8056
8057 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileFieldMultiTSWithoutSDA::createNew() const
8058 {
8059   return new MEDFileFieldMultiTSWithoutSDA;
8060 }
8061
8062 /*!
8063  * entry point for users that want to iterate into MEDFile DataStructure with a reduced overhead because output arrays are extracted (created) specially
8064  * for the call of this method. That's why the DataArrayDouble instance in returned vector of vector should be dealed by the caller.
8065  */
8066 std::vector< std::vector<DataArrayDouble *> > MEDFileFieldMultiTSWithoutSDA::getFieldSplitedByType2(int iteration, int order, const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
8067 {
8068   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=getTimeStepEntry(iteration,order);
8069   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
8070   if(!myF1TSC)
8071     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::getFieldSplitedByType2 : mismatch of type of field expecting FLOAT64 !");
8072   return myF1TSC->getFieldSplitedByType2(mname,types,typesF,pfls,locs);
8073 }
8074
8075 MEDFileIntFieldMultiTSWithoutSDA *MEDFileFieldMultiTSWithoutSDA::convertToInt() const
8076 {
8077   MCAuto<MEDFileIntFieldMultiTSWithoutSDA> ret(new MEDFileIntFieldMultiTSWithoutSDA);
8078   ret->MEDFileAnyTypeFieldMultiTSWithoutSDA::operator =(*this);
8079   int i=0;
8080   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,i++)
8081     {
8082       const MEDFileAnyTypeField1TSWithoutSDA *eltToConv(*it);
8083       if(eltToConv)
8084         {
8085           const MEDFileField1TSWithoutSDA *eltToConvC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(eltToConv);
8086           if(!eltToConvC)
8087             throw INTERP_KERNEL::Exception("MEDFileFieldMultiTSWithoutSDA::convertToInt : presence of an invalid 1TS type ! Should be of type FLOAT64 !");
8088           MCAuto<MEDFileAnyTypeField1TSWithoutSDA> elt=eltToConvC->convertToInt();
8089           ret->setIteration(i,elt);
8090         }
8091     }
8092   return ret.retn();
8093 }
8094
8095 //= MEDFileAnyTypeFieldMultiTS
8096
8097 MEDFileAnyTypeFieldMultiTS::MEDFileAnyTypeFieldMultiTS()
8098 {
8099 }
8100
8101 MEDFileAnyTypeFieldMultiTS::MEDFileAnyTypeFieldMultiTS(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
8102 try:MEDFileFieldGlobsReal(fid)
8103 {
8104   _content=BuildContentFrom(fid,loadAll,ms);
8105   loadGlobals(fid);
8106 }
8107 catch(INTERP_KERNEL::Exception& e)
8108 {
8109     throw e;
8110 }
8111
8112 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTS::BuildContentFrom(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8113 {
8114   med_field_type typcha;
8115   std::vector<std::string> infos;
8116   std::string dtunit;
8117   int i(-1);
8118   MEDFileAnyTypeField1TS::LocateField(fid,fieldName,i,typcha,infos,dtunit);
8119   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> ret;
8120   switch(typcha)
8121   {
8122     case MED_FLOAT64:
8123       {
8124         ret=new MEDFileFieldMultiTSWithoutSDA(fid,i,loadAll,ms,entities);
8125         break;
8126       }
8127     case MED_INT32:
8128       {
8129         ret=new MEDFileIntFieldMultiTSWithoutSDA(fid,i,loadAll,ms,entities);
8130         break;
8131       }
8132     default:
8133       {
8134         std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::BuildContentFrom(fid,fieldName) : file \'" << FileNameFromFID(fid) << "\' contains field with name \'" << fieldName << "\' but the type of field is not in [MED_FLOAT64, MED_INT32] !";
8135         throw INTERP_KERNEL::Exception(oss.str());
8136       }
8137   }
8138   ret->setDtUnit(dtunit.c_str());
8139   return ret.retn();
8140 }
8141
8142 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTS::BuildContentFrom(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
8143 {
8144   med_field_type typcha;
8145   //
8146   std::vector<std::string> infos;
8147   std::string dtunit,fieldName;
8148   MEDFileAnyTypeField1TS::LocateField2(fid,0,true,fieldName,typcha,infos,dtunit);
8149   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> ret;
8150   switch(typcha)
8151   {
8152     case MED_FLOAT64:
8153       {
8154         ret=new MEDFileFieldMultiTSWithoutSDA(fid,0,loadAll,ms,0);
8155         break;
8156       }
8157     case MED_INT32:
8158       {
8159         ret=new MEDFileIntFieldMultiTSWithoutSDA(fid,0,loadAll,ms,0);
8160         break;
8161       }
8162     default:
8163       {
8164         std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::BuildContentFrom(fid) : file \'" << FileNameFromFID(fid) << "\' contains field with name \'" << fieldName << "\' but the type of the first field is not in [MED_FLOAT64, MED_INT32] !";
8165         throw INTERP_KERNEL::Exception(oss.str());
8166       }
8167   }
8168   ret->setDtUnit(dtunit.c_str());
8169   return ret.retn();
8170 }
8171
8172 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::BuildNewInstanceFromContent(MEDFileAnyTypeFieldMultiTSWithoutSDA *c, const std::string& fileName)
8173 {
8174   if(!c)
8175     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::BuildNewInstanceFromContent : empty content in input : unable to build a new instance !");
8176   if(dynamic_cast<const MEDFileFieldMultiTSWithoutSDA *>(c))
8177     {
8178       MCAuto<MEDFileFieldMultiTS> ret=MEDFileFieldMultiTS::New();
8179       ret->setFileName(fileName);
8180       ret->_content=c;  c->incrRef();
8181       return ret.retn();
8182     }
8183   if(dynamic_cast<const MEDFileIntFieldMultiTSWithoutSDA *>(c))
8184     {
8185       MCAuto<MEDFileIntFieldMultiTS> ret=MEDFileIntFieldMultiTS::New();
8186       ret->setFileName(fileName);
8187       ret->_content=c;  c->incrRef();
8188       return ret.retn();
8189     }
8190   throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::BuildNewInstanceFromContent : internal error ! a content of type different from FLOAT64 and INT32 has been built but not intercepted !");
8191 }
8192
8193 MEDFileAnyTypeFieldMultiTS::MEDFileAnyTypeFieldMultiTS(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8194 try:MEDFileFieldGlobsReal(fid)
8195 {
8196   _content=BuildContentFrom(fid,fieldName,loadAll,ms,entities);
8197   loadGlobals(fid);
8198 }
8199 catch(INTERP_KERNEL::Exception& e)
8200 {
8201     throw e;
8202 }
8203
8204 //= MEDFileIntFieldMultiTSWithoutSDA
8205
8206 MEDFileIntFieldMultiTSWithoutSDA *MEDFileIntFieldMultiTSWithoutSDA::New(med_idt fid, const std::string& fieldName, med_field_type fieldTyp, const std::vector<std::string>& infos, int nbOfStep, const std::string& dtunit, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8207 {
8208   return new MEDFileIntFieldMultiTSWithoutSDA(fid,fieldName,fieldTyp,infos,nbOfStep,dtunit,loadAll,ms,entities);
8209 }
8210
8211 MEDFileIntFieldMultiTSWithoutSDA::MEDFileIntFieldMultiTSWithoutSDA()
8212 {
8213 }
8214
8215 MEDFileIntFieldMultiTSWithoutSDA::MEDFileIntFieldMultiTSWithoutSDA(const std::string& fieldName):MEDFileAnyTypeFieldMultiTSWithoutSDA(fieldName)
8216 {
8217 }
8218
8219 MEDFileIntFieldMultiTSWithoutSDA::MEDFileIntFieldMultiTSWithoutSDA(med_idt fid, const std::string& fieldName, med_field_type fieldTyp, const std::vector<std::string>& infos, int nbOfStep, const std::string& dtunit, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8220 try:MEDFileAnyTypeFieldMultiTSWithoutSDA(fid,fieldName,fieldTyp,infos,nbOfStep,dtunit,loadAll,ms,entities)
8221 {
8222 }
8223 catch(INTERP_KERNEL::Exception& e)
8224 { throw e; }
8225
8226 /*!
8227  * \param [in] fieldId field id in C mode
8228  */
8229 MEDFileIntFieldMultiTSWithoutSDA::MEDFileIntFieldMultiTSWithoutSDA(med_idt fid, int fieldId, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
8230 try:MEDFileAnyTypeFieldMultiTSWithoutSDA(fid,fieldId,loadAll,ms,entities)
8231 {
8232 }
8233 catch(INTERP_KERNEL::Exception& e)
8234 { throw e; }
8235
8236 MEDFileAnyTypeField1TSWithoutSDA *MEDFileIntFieldMultiTSWithoutSDA::createNew1TSWithoutSDAEmptyInstance() const
8237 {
8238   return new MEDFileIntField1TSWithoutSDA;
8239 }
8240
8241 void MEDFileIntFieldMultiTSWithoutSDA::checkCoherencyOfType(const MEDFileAnyTypeField1TSWithoutSDA *f1ts) const
8242 {
8243   if(!f1ts)
8244     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTSWithoutSDA::checkCoherencyOfType : input field1TS is NULL ! Impossible to check !");
8245   const MEDFileIntField1TSWithoutSDA *f1tsC=dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(f1ts);
8246   if(!f1tsC)
8247     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTSWithoutSDA::checkCoherencyOfType : the input field1TS is not a INT32 type !");
8248 }
8249
8250 const char *MEDFileIntFieldMultiTSWithoutSDA::getTypeStr() const
8251 {
8252   return MEDFileIntField1TSWithoutSDA::TYPE_STR;
8253 }
8254
8255 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileIntFieldMultiTSWithoutSDA::shallowCpy() const
8256 {
8257   return new MEDFileIntFieldMultiTSWithoutSDA(*this);
8258 }
8259
8260 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileIntFieldMultiTSWithoutSDA::createNew() const
8261 {
8262   return new MEDFileIntFieldMultiTSWithoutSDA;
8263 }
8264
8265 MEDFileFieldMultiTSWithoutSDA *MEDFileIntFieldMultiTSWithoutSDA::convertToDouble() const
8266 {
8267   MCAuto<MEDFileFieldMultiTSWithoutSDA> ret(new MEDFileFieldMultiTSWithoutSDA);
8268   ret->MEDFileAnyTypeFieldMultiTSWithoutSDA::operator =(*this);
8269   int i=0;
8270   for(std::vector< MCAuto<MEDFileAnyTypeField1TSWithoutSDA> >::const_iterator it=_time_steps.begin();it!=_time_steps.end();it++,i++)
8271     {
8272       const MEDFileAnyTypeField1TSWithoutSDA *eltToConv(*it);
8273       if(eltToConv)
8274         {
8275           const MEDFileIntField1TSWithoutSDA *eltToConvC=dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(eltToConv);
8276           if(!eltToConvC)
8277             throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTSWithoutSDA::convertToInt : presence of an invalid 1TS type ! Should be of type INT32 !");
8278           MCAuto<MEDFileAnyTypeField1TSWithoutSDA> elt=eltToConvC->convertToDouble();
8279           ret->setIteration(i,elt);
8280         }
8281     }
8282   return ret.retn();
8283 }
8284
8285 //= MEDFileAnyTypeFieldMultiTS
8286
8287 /*!
8288  * Returns a new instance of MEDFileFieldMultiTS or MEDFileIntFieldMultiTS holding data of the first field
8289  * that has been read from a specified MED file.
8290  *  \param [in] fileName - the name of the MED file to read.
8291  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileFieldMultiTS or MEDFileIntFieldMultiTS. The caller
8292  *          is to delete this field using decrRef() as it is no more needed.
8293  *  \throw If reading the file fails.
8294  */
8295 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::New(const std::string& fileName, bool loadAll)
8296 {
8297   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
8298   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> c(BuildContentFrom(fid,loadAll,0));
8299   MCAuto<MEDFileAnyTypeFieldMultiTS> ret(BuildNewInstanceFromContent(c,fileName));
8300   ret->loadGlobals(fid);
8301   return ret.retn();
8302 }
8303
8304 /*!
8305  * Returns a new instance of MEDFileFieldMultiTS or MEDFileIntFieldMultiTS holding data of a given field
8306  * that has been read from a specified MED file.
8307  *  \param [in] fileName - the name of the MED file to read.
8308  *  \param [in] fieldName - the name of the field to read.
8309  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileFieldMultiTS or MEDFileIntFieldMultiTS. The caller
8310  *          is to delete this field using decrRef() as it is no more needed.
8311  *  \throw If reading the file fails.
8312  *  \throw If there is no field named \a fieldName in the file.
8313  */
8314 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::New(const std::string& fileName, const std::string& fieldName, bool loadAll)
8315 {
8316   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
8317   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> c(BuildContentFrom(fid,fieldName,loadAll,0,0));
8318   MCAuto<MEDFileAnyTypeFieldMultiTS> ret=BuildNewInstanceFromContent(c,fileName);
8319   ret->loadGlobals(fid);
8320   return ret.retn();
8321 }
8322
8323 /*!
8324  * This constructor is a shallow copy constructor. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
8325  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
8326  *
8327  * \warning this is a shallow copy constructor
8328  */
8329 MEDFileAnyTypeFieldMultiTS::MEDFileAnyTypeFieldMultiTS(const MEDFileAnyTypeFieldMultiTSWithoutSDA& other, bool shallowCopyOfContent)
8330 {
8331   if(!shallowCopyOfContent)
8332     {
8333       const MEDFileAnyTypeFieldMultiTSWithoutSDA *otherPtr(&other);
8334       otherPtr->incrRef();
8335       _content=const_cast<MEDFileAnyTypeFieldMultiTSWithoutSDA *>(otherPtr);
8336     }
8337   else
8338     {
8339       _content=other.shallowCpy();
8340     }
8341 }
8342
8343 MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTS::contentNotNullBase()
8344 {
8345   MEDFileAnyTypeFieldMultiTSWithoutSDA *ret=_content;
8346   if(!ret)
8347     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS : content is expected to be not null !");
8348   return ret;
8349 }
8350
8351 const MEDFileAnyTypeFieldMultiTSWithoutSDA *MEDFileAnyTypeFieldMultiTS::contentNotNullBase() const
8352 {
8353   const MEDFileAnyTypeFieldMultiTSWithoutSDA *ret=_content;
8354   if(!ret)
8355     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS : const content is expected to be not null !");
8356   return ret;
8357 }
8358
8359 std::vector<std::string> MEDFileAnyTypeFieldMultiTS::getPflsReallyUsed() const
8360 {
8361   return contentNotNullBase()->getPflsReallyUsed2();
8362 }
8363
8364 std::vector<std::string> MEDFileAnyTypeFieldMultiTS::getLocsReallyUsed() const
8365 {
8366   return contentNotNullBase()->getLocsReallyUsed2();
8367 }
8368
8369 std::vector<std::string> MEDFileAnyTypeFieldMultiTS::getPflsReallyUsedMulti() const
8370 {
8371   return contentNotNullBase()->getPflsReallyUsedMulti2();
8372 }
8373
8374 std::vector<std::string> MEDFileAnyTypeFieldMultiTS::getLocsReallyUsedMulti() const
8375 {
8376   return contentNotNullBase()->getLocsReallyUsedMulti2();
8377 }
8378
8379 void MEDFileAnyTypeFieldMultiTS::changePflsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
8380 {
8381   contentNotNullBase()->changePflsRefsNamesGen2(mapOfModif);
8382 }
8383
8384 void MEDFileAnyTypeFieldMultiTS::changeLocsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
8385 {
8386   contentNotNullBase()->changeLocsRefsNamesGen2(mapOfModif);
8387 }
8388
8389 int MEDFileAnyTypeFieldMultiTS::getNumberOfTS() const
8390 {
8391   return contentNotNullBase()->getNumberOfTS();
8392 }
8393
8394 void MEDFileAnyTypeFieldMultiTS::eraseEmptyTS()
8395 {
8396   contentNotNullBase()->eraseEmptyTS();
8397 }
8398
8399 void MEDFileAnyTypeFieldMultiTS::eraseTimeStepIds(const int *startIds, const int *endIds)
8400 {
8401   contentNotNullBase()->eraseTimeStepIds(startIds,endIds);
8402 }
8403
8404 void MEDFileAnyTypeFieldMultiTS::eraseTimeStepIds2(int bg, int end, int step)
8405 {
8406   contentNotNullBase()->eraseTimeStepIds2(bg,end,step);
8407 }
8408
8409 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::buildSubPart(const int *startIds, const int *endIds) const
8410 {
8411   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> c=contentNotNullBase()->buildFromTimeStepIds(startIds,endIds);
8412   MCAuto<MEDFileAnyTypeFieldMultiTS> ret=shallowCpy();
8413   ret->_content=c;
8414   return ret.retn();
8415 }
8416
8417 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::buildSubPartSlice(int bg, int end, int step) const
8418 {
8419   MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> c=contentNotNullBase()->buildFromTimeStepIds2(bg,end,step);
8420   MCAuto<MEDFileAnyTypeFieldMultiTS> ret=shallowCpy();
8421   ret->_content=c;
8422   return ret.retn();
8423 }
8424
8425 std::vector< std::pair<int,int> > MEDFileAnyTypeFieldMultiTS::getIterations() const
8426 {
8427   return contentNotNullBase()->getIterations();
8428 }
8429
8430 void MEDFileAnyTypeFieldMultiTS::pushBackTimeSteps(const std::vector<MEDFileAnyTypeField1TS *>& f1ts)
8431 {
8432   for(std::vector<MEDFileAnyTypeField1TS *>::const_iterator it=f1ts.begin();it!=f1ts.end();it++)
8433     pushBackTimeStep(*it);
8434 }
8435
8436 void MEDFileAnyTypeFieldMultiTS::pushBackTimeSteps(MEDFileAnyTypeFieldMultiTS *fmts)
8437 {
8438   if(!fmts)
8439     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::pushBackTimeSteps : Input fmts is NULL !");
8440   int nbOfTS(fmts->getNumberOfTS());
8441   for(int i=0;i<nbOfTS;i++)
8442     {
8443       MCAuto<MEDFileAnyTypeField1TS> elt(fmts->getTimeStepAtPos(i));
8444       pushBackTimeStep(elt);
8445     }
8446 }
8447
8448 void MEDFileAnyTypeFieldMultiTS::pushBackTimeStep(MEDFileAnyTypeField1TS *f1ts)
8449 {
8450   if(!f1ts)
8451     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::pushBackTimeStep : input pointer is NULL !");
8452   checkCoherencyOfType(f1ts);
8453   f1ts->incrRef();
8454   MCAuto<MEDFileAnyTypeField1TS> f1tsSafe(f1ts);
8455   MEDFileAnyTypeField1TSWithoutSDA *c=f1ts->contentNotNullBase();
8456   c->incrRef();
8457   MCAuto<MEDFileAnyTypeField1TSWithoutSDA> cSafe(c);
8458   if(!((MEDFileAnyTypeFieldMultiTSWithoutSDA *)_content))
8459     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTSWithoutSDA::pushBackTimeStep : no content in this !");
8460   _content->pushBackTimeStep(cSafe);
8461   appendGlobs(*f1ts,1e-12);
8462 }
8463
8464 void MEDFileAnyTypeFieldMultiTS::synchronizeNameScope()
8465 {
8466   contentNotNullBase()->synchronizeNameScope();
8467 }
8468
8469 int MEDFileAnyTypeFieldMultiTS::getPosOfTimeStep(int iteration, int order) const
8470 {
8471   return contentNotNullBase()->getPosOfTimeStep(iteration,order);
8472 }
8473
8474 int MEDFileAnyTypeFieldMultiTS::getPosGivenTime(double time, double eps) const
8475 {
8476   return contentNotNullBase()->getPosGivenTime(time,eps);
8477 }
8478
8479 int MEDFileAnyTypeFieldMultiTS::getNonEmptyLevels(int iteration, int order, const std::string& mname, std::vector<int>& levs) const
8480 {
8481   return contentNotNullBase()->getNonEmptyLevels(iteration,order,mname,levs);
8482 }
8483
8484 std::vector< std::vector<TypeOfField> > MEDFileAnyTypeFieldMultiTS::getTypesOfFieldAvailable() const
8485 {
8486   return contentNotNullBase()->getTypesOfFieldAvailable();
8487 }
8488
8489 std::vector< std::vector< std::pair<int,int> > > MEDFileAnyTypeFieldMultiTS::getFieldSplitedByType(int iteration, int order, const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
8490 {
8491   return contentNotNullBase()->getFieldSplitedByType(iteration,order,mname,types,typesF,pfls,locs);
8492 }
8493
8494 std::string MEDFileAnyTypeFieldMultiTS::getName() const
8495 {
8496   return contentNotNullBase()->getName();
8497 }
8498
8499 void MEDFileAnyTypeFieldMultiTS::setName(const std::string& name)
8500 {
8501   contentNotNullBase()->setName(name);
8502 }
8503
8504 std::string MEDFileAnyTypeFieldMultiTS::getDtUnit() const
8505 {
8506   return contentNotNullBase()->getDtUnit();
8507 }
8508
8509 void MEDFileAnyTypeFieldMultiTS::setDtUnit(const std::string& dtUnit)
8510 {
8511   contentNotNullBase()->setDtUnit(dtUnit);
8512 }
8513
8514 void MEDFileAnyTypeFieldMultiTS::simpleRepr(int bkOffset, std::ostream& oss, int fmtsId) const
8515 {
8516   contentNotNullBase()->simpleRepr(bkOffset,oss,fmtsId);
8517 }
8518
8519 std::vector< std::pair<int,int> > MEDFileAnyTypeFieldMultiTS::getTimeSteps(std::vector<double>& ret1) const
8520 {
8521   return contentNotNullBase()->getTimeSteps(ret1);
8522 }
8523
8524 std::string MEDFileAnyTypeFieldMultiTS::getMeshName() const
8525 {
8526   return contentNotNullBase()->getMeshName();
8527 }
8528
8529 void MEDFileAnyTypeFieldMultiTS::setMeshName(const std::string& newMeshName)
8530 {
8531   contentNotNullBase()->setMeshName(newMeshName);
8532 }
8533
8534 bool MEDFileAnyTypeFieldMultiTS::changeMeshNames(const std::vector< std::pair<std::string,std::string> >& modifTab)
8535 {
8536   return contentNotNullBase()->changeMeshNames(modifTab);
8537 }
8538
8539 const std::vector<std::string>& MEDFileAnyTypeFieldMultiTS::getInfo() const
8540 {
8541   return contentNotNullBase()->getInfo();
8542 }
8543
8544 bool MEDFileAnyTypeFieldMultiTS::presenceOfMultiDiscPerGeoType() const
8545 {
8546   return contentNotNullBase()->presenceOfMultiDiscPerGeoType();
8547 }
8548
8549 void MEDFileAnyTypeFieldMultiTS::setInfo(const std::vector<std::string>& info)
8550 {
8551   return contentNotNullBase()->setInfo(info);
8552 }
8553
8554 int MEDFileAnyTypeFieldMultiTS::getNumberOfComponents() const
8555 {
8556   const std::vector<std::string> ret=getInfo();
8557   return (int)ret.size();
8558 }
8559
8560 void MEDFileAnyTypeFieldMultiTS::writeLL(med_idt fid) const
8561 {
8562   writeGlobals(fid,*this);
8563   contentNotNullBase()->writeLL(fid,*this);
8564 }
8565
8566 /*!
8567  * This method alloc the arrays and load potentially huge arrays contained in this field.
8568  * This method should be called when a MEDFileAnyTypeFieldMultiTS::New constructor has been with false as the last parameter.
8569  * This method can be also called to refresh or reinit values from a file.
8570  *
8571  * \throw If the fileName is not set or points to a non readable MED file.
8572  */
8573 void MEDFileAnyTypeFieldMultiTS::loadArrays()
8574 {
8575   if(getFileName().empty())
8576     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::loadArrays : the structure does not come from a file !");
8577   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(getFileName()));
8578   contentNotNullBase()->loadBigArraysRecursively(fid,*contentNotNullBase());
8579 }
8580
8581 /*!
8582  * This method behaves as MEDFileAnyTypeFieldMultiTS::loadArrays does, the first call, if \a this was built using a file without loading big arrays.
8583  * But once data loaded once, this method does nothing.
8584  *
8585  * \throw If the fileName is not set or points to a non readable MED file.
8586  * \sa MEDFileAnyTypeFieldMultiTS::loadArrays, MEDFileAnyTypeFieldMultiTS::unloadArrays
8587  */
8588 void MEDFileAnyTypeFieldMultiTS::loadArraysIfNecessary()
8589 {
8590   if(!getFileName().empty())
8591     {
8592       MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(getFileName()));
8593       contentNotNullBase()->loadBigArraysRecursivelyIfNecessary(fid,*contentNotNullBase());
8594     }
8595 }
8596
8597 /*!
8598  * This method releases potentially big data arrays and so returns to the same heap memory than status loaded with 'loadAll' parameter set to false.
8599  * \b WARNING, this method does release arrays even if \a this does not come from a load of a MED file.
8600  * So this method can lead to a loss of data. If you want to unload arrays safely call MEDFileAnyTypeFieldMultiTS::unloadArraysWithoutDataLoss instead.
8601  *
8602  * \sa MEDFileAnyTypeFieldMultiTS::loadArrays, MEDFileAnyTypeFieldMultiTS::loadArraysIfNecessary, MEDFileAnyTypeFieldMultiTS::unloadArraysWithoutDataLoss
8603  */
8604 void MEDFileAnyTypeFieldMultiTS::unloadArrays()
8605 {
8606   contentNotNullBase()->unloadArrays();
8607 }
8608
8609 /*!
8610  * This method potentially releases big data arrays if \a this is coming from a file. If \a this has been built from scratch this method will have no effect.
8611  * This method is the symetrical method of MEDFileAnyTypeFieldMultiTS::loadArraysIfNecessary.
8612  * This method is useful to reduce \b safely amount of heap memory necessary for \a this by using MED file as database.
8613  *
8614  * \sa MEDFileAnyTypeFieldMultiTS::loadArraysIfNecessary
8615  */
8616 void MEDFileAnyTypeFieldMultiTS::unloadArraysWithoutDataLoss()
8617 {
8618   if(!getFileName().empty())
8619     contentNotNullBase()->unloadArrays();
8620 }
8621
8622 std::string MEDFileAnyTypeFieldMultiTS::simpleRepr() const
8623 {
8624   std::ostringstream oss;
8625   contentNotNullBase()->simpleRepr(0,oss,-1);
8626   simpleReprGlobs(oss);
8627   return oss.str();
8628 }
8629
8630 std::size_t MEDFileAnyTypeFieldMultiTS::getHeapMemorySizeWithoutChildren() const
8631 {
8632   return MEDFileFieldGlobsReal::getHeapMemorySizeWithoutChildren();
8633 }
8634
8635 std::vector<const BigMemoryObject *> MEDFileAnyTypeFieldMultiTS::getDirectChildrenWithNull() const
8636 {
8637   std::vector<const BigMemoryObject *> ret(MEDFileFieldGlobsReal::getDirectChildrenWithNull());
8638   ret.push_back((const MEDFileAnyTypeFieldMultiTSWithoutSDA *)_content);
8639   return ret;
8640 }
8641
8642 /*!
8643  * This method returns as MEDFileAnyTypeFieldMultiTS new instances as number of components in \a this.
8644  * The returned instances are deep copy of \a this except that for globals that are share with those contained in \a this.
8645  * ** WARNING ** do no forget to rename the ouput instances to avoid to write n-times in the same MED file field !
8646  */
8647 std::vector< MCAuto< MEDFileAnyTypeFieldMultiTS > > MEDFileAnyTypeFieldMultiTS::splitComponents() const
8648 {
8649   const MEDFileAnyTypeFieldMultiTSWithoutSDA *content(_content);
8650   if(!content)
8651     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::splitComponents : no content in this ! Unable to split components !");
8652   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > contentsSplit=content->splitComponents();
8653   std::size_t sz(contentsSplit.size());
8654   std::vector< MCAuto< MEDFileAnyTypeFieldMultiTS > > ret(sz);
8655   for(std::size_t i=0;i<sz;i++)
8656     {
8657       ret[i]=shallowCpy();
8658       ret[i]->_content=contentsSplit[i];
8659     }
8660   return ret;
8661 }
8662
8663 /*!
8664  * This method returns as MEDFileAnyTypeFieldMultiTS new instances as number of discretizations over time steps in \a this.
8665  * The returned instances are shallow copied of \a this included globals that are share with those contained in \a this.
8666  */
8667 std::vector< MCAuto< MEDFileAnyTypeFieldMultiTS > > MEDFileAnyTypeFieldMultiTS::splitDiscretizations() const
8668 {
8669   const MEDFileAnyTypeFieldMultiTSWithoutSDA *content(_content);
8670   if(!content)
8671     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::splitDiscretizations : no content in this ! Unable to split discretizations !");
8672   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > contentsSplit(content->splitDiscretizations());
8673   std::size_t sz(contentsSplit.size());
8674   std::vector< MCAuto< MEDFileAnyTypeFieldMultiTS > > ret(sz);
8675   for(std::size_t i=0;i<sz;i++)
8676     {
8677       ret[i]=shallowCpy();
8678       ret[i]->_content=contentsSplit[i];
8679     }
8680   return ret;
8681 }
8682
8683 /*!
8684  * This method returns as MEDFileAnyTypeFieldMultiTS new instances as number of sub-discretizations over time steps in \a this.
8685  * The returned instances are shallow copied of \a this included globals that are share with those contained in \a this.
8686  */
8687 std::vector< MCAuto< MEDFileAnyTypeFieldMultiTS > > MEDFileAnyTypeFieldMultiTS::splitMultiDiscrPerGeoTypes() const
8688 {
8689   const MEDFileAnyTypeFieldMultiTSWithoutSDA *content(_content);
8690   if(!content)
8691     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::splitMultiDiscrPerGeoTypes : no content in this ! Unable to split discretizations !");
8692   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > contentsSplit(content->splitMultiDiscrPerGeoTypes());
8693   std::size_t sz(contentsSplit.size());
8694   std::vector< MCAuto< MEDFileAnyTypeFieldMultiTS > > ret(sz);
8695   for(std::size_t i=0;i<sz;i++)
8696     {
8697       ret[i]=shallowCpy();
8698       ret[i]->_content=contentsSplit[i];
8699     }
8700   return ret;
8701 }
8702
8703 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::deepCopy() const
8704 {
8705   MCAuto<MEDFileAnyTypeFieldMultiTS> ret=shallowCpy();
8706   if((const MEDFileAnyTypeFieldMultiTSWithoutSDA *)_content)
8707     ret->_content=_content->deepCopy();
8708   ret->deepCpyGlobs(*this);
8709   return ret.retn();
8710 }
8711
8712 MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> MEDFileAnyTypeFieldMultiTS::getContent()
8713 {
8714   return _content;
8715 }
8716
8717 /*!
8718  * Returns a new MEDFileField1TS or MEDFileIntField1TS holding data of a given time step of \a this field.
8719  *  \param [in] iteration - the iteration number of a required time step.
8720  *  \param [in] order - the iteration order number of required time step.
8721  *  \return MEDFileField1TS * or MEDFileIntField1TS *- a new instance of MEDFileField1TS or MEDFileIntField1TS. The caller is to
8722  *          delete this field using decrRef() as it is no more needed.
8723  *  \throw If there is no required time step in \a this field.
8724  */
8725 MEDFileAnyTypeField1TS *MEDFileAnyTypeFieldMultiTS::getTimeStep(int iteration, int order) const
8726 {
8727   int pos=getPosOfTimeStep(iteration,order);
8728   return getTimeStepAtPos(pos);
8729 }
8730
8731 /*!
8732  * Returns a new MEDFileField1TS or MEDFileIntField1TS holding data of a given time step of \a this field.
8733  *  \param [in] time - the time of the time step of interest.
8734  *  \param [in] eps - a precision used to compare time values.
8735  *  \return MEDFileField1TS * - a new instance of MEDFileField1TS. The caller is to
8736  *          delete this field using decrRef() as it is no more needed.
8737  *  \throw If there is no required time step in \a this field.
8738  */
8739 MEDFileAnyTypeField1TS *MEDFileAnyTypeFieldMultiTS::getTimeStepGivenTime(double time, double eps) const
8740 {
8741   int pos=getPosGivenTime(time,eps);
8742   return getTimeStepAtPos(pos);
8743 }
8744
8745 /*!
8746  * This method groups not null items in \a vectFMTS per time step series. Two time series are considered equal if the list of their pair of integers iteration,order are equal.
8747  * The float64 value of time attached to the pair of integers are not considered here.
8748  * WARNING the returned pointers are not incremented. The caller is \b not responsible to deallocate them ! This method only reorganizes entries in \a vectFMTS.
8749  *
8750  * \param [in] vectFMTS - vector of not null fields defined on a same global data pointer.
8751  * \throw If there is a null pointer in \a vectFMTS.
8752  */
8753 std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > MEDFileAnyTypeFieldMultiTS::SplitIntoCommonTimeSeries(const std::vector<MEDFileAnyTypeFieldMultiTS *>& vectFMTS)
8754 {
8755   static const char msg[]="MEDFileAnyTypeFieldMultiTS::SplitIntoCommonTimeSeries : presence of null instance in input vector !";
8756   std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > ret;
8757   std::list<MEDFileAnyTypeFieldMultiTS *> lstFMTS(vectFMTS.begin(),vectFMTS.end());
8758   while(!lstFMTS.empty())
8759     {
8760       std::list<MEDFileAnyTypeFieldMultiTS *>::iterator it(lstFMTS.begin());
8761       MEDFileAnyTypeFieldMultiTS *curIt(*it);
8762       if(!curIt)
8763         throw INTERP_KERNEL::Exception(msg);
8764       std::vector< std::pair<int,int> > refIts=curIt->getIterations();
8765       std::vector<MEDFileAnyTypeFieldMultiTS *> elt;
8766       elt.push_back(curIt); it=lstFMTS.erase(it);
8767       while(it!=lstFMTS.end())
8768         {
8769           curIt=*it;
8770           if(!curIt)
8771             throw INTERP_KERNEL::Exception(msg);
8772           std::vector< std::pair<int,int> > curIts=curIt->getIterations();
8773           if(refIts==curIts)
8774             { elt.push_back(curIt); it=lstFMTS.erase(it); }
8775           else
8776             it++;
8777         }
8778       ret.push_back(elt);
8779     }
8780   return ret;
8781 }
8782
8783 /*!
8784  * This method splits the input list \a vectFMTS considering the aspect of the geometrical support over time.
8785  * All returned instances in a subvector can be safely loaded, rendered along time
8786  * All items must be defined on the same time step ids ( see MEDFileAnyTypeFieldMultiTS::SplitIntoCommonTimeSeries method ).
8787  * Each item in \a vectFMTS is expected to have one and exactly one spatial discretization along time.
8788  * All items in \a vectFMTS must lie on the mesh (located by meshname and time step) and compatible with the input mesh \a mesh (having the same name than those in items).
8789  * All items in \a vectFMTS whose spatial discretization is not ON_NODES will appear once.
8790  * For items in \a vectFMTS that are ON_NODES it is possible to appear several times (more than once or once) in the returned vector.
8791  *
8792  * \param [in] vectFMTS - list of multi times step part all defined each on a same spatial discretization along time and pointing to a mesh whose name is equal to \c mesh->getName().
8793  * \param [in] mesh - the mesh shared by all items in \a vectFMTS across time.
8794  * \param [out] fsc - A vector having same size than returned vector. It specifies the support comporator of the corresponding vector of MEDFileAnyTypeFieldMultiTS in returned vector of vector.
8795  * \return - A vector of vector of objects that contains the same pointers (objects) than thoose in \a vectFMTS except that there are organized differently. So pointers included in returned vector of vector should \b not been dealt by the caller.
8796  *
8797  * \throw If an element in \a vectFMTS has not only one spatial discretization set.
8798  * \throw If an element in \a vectFMTS change of spatial discretization along time.
8799  * \throw If an element in \a vectFMTS lies on a mesh with meshname different from those in \a mesh.
8800  * \thorw If some elements in \a vectFMTS do not have the same times steps.
8801  * \throw If mesh is null.
8802  * \throw If an element in \a vectFMTS is null.
8803  * \sa MEDFileAnyTypeFieldMultiTS::AreOnSameSupportAcrossTime
8804  */
8805 std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > MEDFileAnyTypeFieldMultiTS::SplitPerCommonSupport(const std::vector<MEDFileAnyTypeFieldMultiTS *>& vectFMTS, const MEDFileMesh *mesh, std::vector< MCAuto<MEDFileFastCellSupportComparator> >& fsc)
8806 {
8807   static const char msg[]="MEDFileAnyTypeFieldMultiTS::SplitPerCommonSupport : presence of a null instance in the input vector !";
8808   if(!mesh)
8809     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::SplitPerCommonSupport : input mesh is null !");
8810   std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > ret;
8811   if(vectFMTS.empty())
8812     return ret;
8813   std::vector<MEDFileAnyTypeFieldMultiTS *>::const_iterator it(vectFMTS.begin());
8814   MEDFileAnyTypeFieldMultiTS *frstElt(*it);
8815   if(!frstElt)
8816     throw INTERP_KERNEL::Exception(msg);
8817   std::size_t i=0;
8818   std::vector<MEDFileAnyTypeFieldMultiTS *> vectFMTSNotNodes;
8819   std::vector<MEDFileAnyTypeFieldMultiTS *> vectFMTSNodes;
8820   for(;it!=vectFMTS.end();it++,i++)
8821     {
8822       if(!(*it))
8823         throw INTERP_KERNEL::Exception(msg);
8824       TypeOfField tof0,tof1;
8825       if(CheckSupportAcrossTime(frstElt,*it,mesh,tof0,tof1)>0)
8826         {
8827           if(tof1!=ON_NODES)
8828             vectFMTSNotNodes.push_back(*it);
8829           else
8830             vectFMTSNodes.push_back(*it);
8831         }
8832       else
8833         vectFMTSNotNodes.push_back(*it);
8834     }
8835   std::vector< MCAuto<MEDFileFastCellSupportComparator> > cmps;
8836   std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > retCell=SplitPerCommonSupportNotNodesAlg(vectFMTSNotNodes,mesh,cmps);
8837   ret=retCell;
8838   for(std::vector<MEDFileAnyTypeFieldMultiTS *>::const_iterator it2=vectFMTSNodes.begin();it2!=vectFMTSNodes.end();it2++)
8839     {
8840       i=0;
8841       bool isFetched(false);
8842       for(std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> >::const_iterator it0=retCell.begin();it0!=retCell.end();it0++,i++)
8843         {
8844           if((*it0).empty())
8845             throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::SplitPerCommonSupport : internal error !");
8846           if(cmps[i]->isCompatibleWithNodesDiscr(*it2))
8847             { ret[i].push_back(*it2); isFetched=true; }
8848         }
8849       if(!isFetched)
8850         {
8851           std::vector<MEDFileAnyTypeFieldMultiTS *> tmp(1,*it2);
8852           MCAuto<MEDFileMeshStruct> tmp2(MEDFileMeshStruct::New(mesh));
8853           ret.push_back(tmp); retCell.push_back(tmp); cmps.push_back(MEDFileFastCellSupportComparator::New(tmp2,*it2));
8854         }
8855     }
8856   fsc=cmps;
8857   return ret;
8858 }
8859
8860 /*!
8861  * WARNING no check here. The caller must be sure that all items in vectFMTS are coherent each other in time steps, only one same spatial discretization and not ON_NODES.
8862  * \param [out] cmps - same size than the returned vector.
8863  */
8864 std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > MEDFileAnyTypeFieldMultiTS::SplitPerCommonSupportNotNodesAlg(const std::vector<MEDFileAnyTypeFieldMultiTS *>& vectFMTS, const MEDFileMesh *mesh, std::vector< MCAuto<MEDFileFastCellSupportComparator> >& cmps)
8865 {
8866   std::vector< std::vector<MEDFileAnyTypeFieldMultiTS *> > ret;
8867   std::list<MEDFileAnyTypeFieldMultiTS *> lstFMTS(vectFMTS.begin(),vectFMTS.end());
8868   while(!lstFMTS.empty())
8869     {
8870       std::list<MEDFileAnyTypeFieldMultiTS *>::iterator it(lstFMTS.begin());
8871       MEDFileAnyTypeFieldMultiTS *ref(*it);
8872       std::vector<MEDFileAnyTypeFieldMultiTS *> elt;
8873       elt.push_back(ref); it=lstFMTS.erase(it);
8874       MCAuto<MEDFileMeshStruct> mst(MEDFileMeshStruct::New(mesh));
8875       MCAuto<MEDFileFastCellSupportComparator> cmp(MEDFileFastCellSupportComparator::New(mst,ref));
8876       while(it!=lstFMTS.end())
8877         {
8878           MEDFileAnyTypeFieldMultiTS *curIt(*it);
8879           if(cmp->isEqual(curIt))
8880             { elt.push_back(curIt); it=lstFMTS.erase(it); }
8881           else
8882             it++;
8883         }
8884       ret.push_back(elt); cmps.push_back(cmp);
8885     }
8886   return ret;
8887 }
8888
8889 /*!
8890  * This method scan the two main structs along time of \a f0 and \a f1 to see if there are all lying on the same mesh along time than those in \a mesh.
8891  * \a f0 and \a f1 must be defined each only on a same spatial discretization even if this can be different each other.
8892  *
8893  * \throw If \a f0 or \a f1 has not only one spatial discretization set.
8894  * \throw If \a f0 or \a f1 change of spatial discretization along time.
8895  * \throw If \a f0 or \a f1 on a mesh with meshname different from those in \a mesh.
8896  * \thorw If \a f0 and \a f1 do not have the same times steps.
8897  * \throw If mesh is null.
8898  * \throw If \a f0 or \a f1 is null.
8899  * \sa MEDFileAnyTypeFieldMultiTS::SplitPerCommonSupport
8900  */
8901 int MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime(MEDFileAnyTypeFieldMultiTS *f0, MEDFileAnyTypeFieldMultiTS *f1, const MEDFileMesh *mesh, TypeOfField& tof0, TypeOfField& tof1)
8902 {
8903   if(!mesh)
8904     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : input mesh is null !");
8905   if(!f0 || !f1)
8906     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : presence of null instance in fields over time !");
8907   if(f0->getMeshName()!=mesh->getName())
8908     {
8909       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : first field points to mesh \""<< f0->getMeshName() << "\" and input mesh to compare has name \"" << mesh->getName() << "\" !";
8910       throw INTERP_KERNEL::Exception(oss.str());
8911     }
8912   if(f1->getMeshName()!=mesh->getName())
8913     {
8914       std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : second field points to mesh \""<< f1->getMeshName() << "\" and input mesh to compare has name \"" << mesh->getName() << "\" !";
8915       throw INTERP_KERNEL::Exception(oss.str());
8916     }
8917   int nts=f0->getNumberOfTS();
8918   if(nts!=f1->getNumberOfTS())
8919     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : number of time steps are not the same !");
8920   if(nts==0)
8921     return nts;
8922   for(int i=0;i<nts;i++)
8923     {
8924       MCAuto<MEDFileAnyTypeField1TS> f0cur=f0->getTimeStepAtPos(i);
8925       MCAuto<MEDFileAnyTypeField1TS> f1cur=f1->getTimeStepAtPos(i);
8926       std::vector<TypeOfField> tofs0(f0cur->getTypesOfFieldAvailable()),tofs1(f1cur->getTypesOfFieldAvailable());
8927       if(tofs0.size()!=1 || tofs1.size()!=1)
8928         throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : All time steps must be defined on only one spatial discretization !");
8929       if(i!=0)
8930         {
8931           if(tof0!=tofs0[0] || tof1!=tofs1[0])
8932             throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : Across times steps MEDFileAnyTypeFieldMultiTS instances have to keep the same unique spatial discretization !");
8933         }
8934       else
8935         { tof0=tofs0[0]; tof1=tofs1[0]; }
8936       if(f0cur->getMeshIteration()!=mesh->getIteration() || f0cur->getMeshOrder()!=mesh->getOrder())
8937         {
8938           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : first field points to mesh time step (" << f0cur->getMeshIteration() << ","<< f0cur->getMeshOrder() << ") whereas input mesh points to time step (" << mesh->getIteration() << "," << mesh->getOrder() << ") !";
8939           throw INTERP_KERNEL::Exception(oss.str());
8940         }
8941       if(f1cur->getMeshIteration()!=mesh->getIteration() || f1cur->getMeshOrder()!=mesh->getOrder())
8942         {
8943           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : second field points to mesh time step (" << f1cur->getMeshIteration() << ","<< f1cur->getMeshOrder() << ") whereas input mesh points to time step (" << mesh->getIteration() << "," << mesh->getOrder() << ") !";
8944           throw INTERP_KERNEL::Exception(oss.str());
8945         }
8946       if(f0cur->getIteration()!=f1cur->getIteration() || f0cur->getOrder()!=f1cur->getOrder())
8947         {
8948           std::ostringstream oss; oss << "MEDFileAnyTypeFieldMultiTS::CheckSupportAcrossTime : all the time steps must be the same ! it is not the case (" << f0cur->getIteration() << "," << f0cur->getOrder() << ")!=(" << f1cur->getIteration() << "," << f1cur->getOrder() << ") !";
8949           throw INTERP_KERNEL::Exception(oss.str());
8950         }
8951     }
8952   return nts;
8953 }
8954
8955 /*!
8956  * Return an extraction of \a this using \a extractDef map to specify the extraction.
8957  * The keys of \a extractDef is level relative to max ext of \a mm mesh.
8958  *
8959  * \return A new object that the caller is responsible to deallocate.
8960  */
8961 MEDFileAnyTypeFieldMultiTS *MEDFileAnyTypeFieldMultiTS::extractPart(const std::map<int, MCAuto<DataArrayInt> >& extractDef, MEDFileMesh *mm) const
8962 {
8963   if(!mm)
8964     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::extractPart : mesh is null !");
8965   MCAuto<MEDFileAnyTypeFieldMultiTS> fmtsOut(buildNewEmpty());
8966   int nbTS(getNumberOfTS());
8967   for(int i=0;i<nbTS;i++)
8968     {
8969       MCAuto<MEDFileAnyTypeField1TS> f1ts(getTimeStepAtPos(i));
8970       MCAuto<MEDFileAnyTypeField1TS> f1tsOut(f1ts->extractPart(extractDef,mm));
8971       fmtsOut->pushBackTimeStep(f1tsOut);
8972     }
8973   return fmtsOut.retn();
8974 }
8975
8976 template<class T>
8977 MCAuto<MEDFileAnyTypeField1TS> AggregateHelperF1TS(const std::vector< typename MLFieldTraits<T>::F1TSType const *>& f1tss, const std::vector< std::vector< std::pair<int,int> > >& dts)
8978 {
8979   MCAuto< typename MLFieldTraits<T>::F1TSType > ret(MLFieldTraits<T>::F1TSType::New());
8980   if(f1tss.empty())
8981     throw INTERP_KERNEL::Exception("AggregateHelperF1TS : empty vector !");
8982   std::size_t sz(f1tss.size()),i(0);
8983   std::vector< typename MLFieldTraits<T>::F1TSWSDAType const *> f1tsw(sz);
8984   for(typename std::vector< typename MLFieldTraits<T>::F1TSType const *>::const_iterator it=f1tss.begin();it!=f1tss.end();it++,i++)
8985     {
8986       typename MLFieldTraits<T>::F1TSType const *elt(*it);
8987       if(!elt)
8988         throw INTERP_KERNEL::Exception("AggregateHelperF1TS : presence of a null pointer !");
8989       f1tsw[i]=dynamic_cast<typename MLFieldTraits<T>::F1TSWSDAType const *>(elt->contentNotNullBase());
8990     }
8991   typename MLFieldTraits<T>::F1TSWSDAType *retc(dynamic_cast<typename MLFieldTraits<T>::F1TSWSDAType *>(ret->contentNotNullBase()));
8992   if(!retc)
8993     throw INTERP_KERNEL::Exception("AggregateHelperF1TS : internal error 1 !");
8994   retc->aggregate(f1tsw,dts);
8995   ret->setDtUnit(f1tss[0]->getDtUnit());
8996   return DynamicCast<typename MLFieldTraits<T>::F1TSType , MEDFileAnyTypeField1TS>(ret);
8997 }
8998
8999 template<class T>
9000 MCAuto< MEDFileAnyTypeFieldMultiTS > AggregateHelperFMTS(const std::vector< typename MLFieldTraits<T>::FMTSType const *>& fmtss, const std::vector< std::vector< std::pair<int,int> > >& dts)
9001 {
9002   MCAuto< typename MLFieldTraits<T>::FMTSType > ret(MLFieldTraits<T>::FMTSType::New());
9003   if(fmtss.empty())
9004     throw INTERP_KERNEL::Exception("AggregateHelperFMTS : empty vector !");
9005   std::size_t sz(fmtss.size());
9006   for(typename std::vector< typename MLFieldTraits<T>::FMTSType const *>::const_iterator it=fmtss.begin();it!=fmtss.end();it++)
9007     {
9008       typename MLFieldTraits<T>::FMTSType const *elt(*it);
9009       if(!elt)
9010         throw INTERP_KERNEL::Exception("AggregateHelperFMTS : presence of null pointer !");
9011     }
9012   int nbTS(fmtss[0]->getNumberOfTS());
9013   for(typename std::vector< typename MLFieldTraits<T>::FMTSType const *>::const_iterator it=fmtss.begin();it!=fmtss.end();it++)
9014     if((*it)->getNumberOfTS()!=nbTS)
9015       throw INTERP_KERNEL::Exception("AggregateHelperFMTS : all fields must have the same number of TS !");
9016   for(int iterTS=0;iterTS<nbTS;iterTS++)
9017     {
9018       std::size_t i(0);
9019       std::vector< typename MLFieldTraits<T>::F1TSType const *> f1tss(sz);
9020       std::vector< MCAuto<typename MLFieldTraits<T>::F1TSType> > f1tss2(sz);
9021       for(typename std::vector< typename MLFieldTraits<T>::FMTSType const *>::const_iterator it=fmtss.begin();it!=fmtss.end();it++,i++)
9022         { f1tss2[i]=(*it)->getTimeStepAtPos(iterTS); f1tss[i]=f1tss2[i]; }
9023       MCAuto<MEDFileAnyTypeField1TS> f1ts(AggregateHelperF1TS<T>(f1tss,dts));
9024       ret->pushBackTimeStep(f1ts);
9025       ret->setDtUnit(f1ts->getDtUnit());
9026     }
9027   return DynamicCast<typename MLFieldTraits<T>::FMTSType , MEDFileAnyTypeFieldMultiTS>(ret);
9028 }
9029
9030 /*!
9031  * \a dts and \a ftmss are expected to have same size.
9032  */
9033 MCAuto<MEDFileAnyTypeFieldMultiTS> MEDFileAnyTypeFieldMultiTS::Aggregate(const std::vector<const MEDFileAnyTypeFieldMultiTS *>& fmtss, const std::vector< std::vector< std::pair<int,int> > >& dts)
9034 {
9035   if(fmtss.empty())
9036     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::Aggregate : input vector is empty !");
9037   std::size_t sz(fmtss.size());
9038   std::vector<const MEDFileFieldMultiTS *> fmtss1;
9039   std::vector<const MEDFileIntFieldMultiTS *> fmtss2;
9040   for(std::vector<const MEDFileAnyTypeFieldMultiTS *>::const_iterator it=fmtss.begin();it!=fmtss.end();it++)
9041     {
9042       if(!(*it))
9043         throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::Aggregate : presence of null instance in input vector !");
9044       const MEDFileFieldMultiTS *elt1(dynamic_cast<const MEDFileFieldMultiTS *>(*it));
9045       if(elt1)
9046         {
9047           fmtss1.push_back(elt1);
9048           continue;
9049         }
9050       const MEDFileIntFieldMultiTS *elt2(dynamic_cast<const MEDFileIntFieldMultiTS *>(*it));
9051       if(elt2)
9052         {
9053           fmtss2.push_back(elt2);
9054           continue;
9055         }
9056       throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::Aggregate : not recognized type !");
9057     }
9058   if(fmtss1.size()!=sz && fmtss2.size()!=sz)
9059     throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::Aggregate : type of data is not homogeneous !");
9060   if(fmtss1.size()==sz)
9061     return AggregateHelperFMTS<double>(fmtss1,dts);
9062   if(fmtss2.size()!=sz)
9063     return AggregateHelperFMTS<int>(fmtss2,dts);
9064   throw INTERP_KERNEL::Exception("MEDFileAnyTypeFieldMultiTS::Aggregate : not implemented yet !");
9065 }
9066
9067 MEDFileAnyTypeFieldMultiTSIterator *MEDFileAnyTypeFieldMultiTS::iterator()
9068 {
9069   return new MEDFileAnyTypeFieldMultiTSIterator(this);
9070 }
9071
9072 //= MEDFileFieldMultiTS
9073
9074 /*!
9075  * Returns a new empty instance of MEDFileFieldMultiTS.
9076  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileFieldMultiTS. The caller
9077  *          is to delete this field using decrRef() as it is no more needed.
9078  */
9079 MEDFileFieldMultiTS *MEDFileFieldMultiTS::New()
9080 {
9081   return new MEDFileFieldMultiTS;
9082 }
9083
9084 /*!
9085  * Returns a new instance of MEDFileFieldMultiTS holding data of the first field
9086  * that has been read from a specified MED file.
9087  *  \param [in] fileName - the name of the MED file to read.
9088  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileFieldMultiTS. The caller
9089  *          is to delete this field using decrRef() as it is no more needed.
9090  *  \throw If reading the file fails.
9091  */
9092 MEDFileFieldMultiTS *MEDFileFieldMultiTS::New(const std::string& fileName, bool loadAll)
9093 {
9094   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
9095   MCAuto<MEDFileFieldMultiTS> ret(new MEDFileFieldMultiTS(fid,loadAll,0));
9096   ret->contentNotNull();//to check that content type matches with \a this type.
9097   return ret.retn();
9098 }
9099
9100 /*!
9101  * Returns a new instance of MEDFileFieldMultiTS holding data of a given field
9102  * that has been read from a specified MED file.
9103  *  \param [in] fileName - the name of the MED file to read.
9104  *  \param [in] fieldName - the name of the field to read.
9105  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileFieldMultiTS. The caller
9106  *          is to delete this field using decrRef() as it is no more needed.
9107  *  \throw If reading the file fails.
9108  *  \throw If there is no field named \a fieldName in the file.
9109  */
9110 MEDFileFieldMultiTS *MEDFileFieldMultiTS::New(const std::string& fileName, const std::string& fieldName, bool loadAll)
9111 {
9112   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
9113   MCAuto<MEDFileFieldMultiTS> ret(new MEDFileFieldMultiTS(fid,fieldName,loadAll,0));
9114   ret->contentNotNull();//to check that content type matches with \a this type.
9115   return ret.retn();
9116 }
9117
9118 /*!
9119  * Returns a new instance of MEDFileFieldMultiTS. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
9120  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
9121  *
9122  * Returns a new instance of MEDFileFieldMultiTS holding either a shallow copy
9123  * of a given MEDFileFieldMultiTSWithoutSDA ( \a other ) or \a other itself.
9124  * \warning this is a shallow copy constructor
9125  *  \param [in] other - a MEDFileField1TSWithoutSDA to copy.
9126  *  \param [in] shallowCopyOfContent - if \c true, a shallow copy of \a other is created.
9127  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileFieldMultiTS. The caller
9128  *          is to delete this field using decrRef() as it is no more needed.
9129  */
9130 MEDFileFieldMultiTS *MEDFileFieldMultiTS::New(const MEDFileFieldMultiTSWithoutSDA& other, bool shallowCopyOfContent)
9131 {
9132   return new MEDFileFieldMultiTS(other,shallowCopyOfContent);
9133 }
9134
9135 MEDFileFieldMultiTS *MEDFileFieldMultiTS::LoadSpecificEntities(const std::string& fileName, const std::string& fieldName, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> >& entities, bool loadAll)
9136 {
9137   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
9138   MCAuto<MEDFileFieldMultiTS> ret(new MEDFileFieldMultiTS(fid,fieldName,loadAll,0,&entities));
9139   ret->contentNotNull();//to check that content type matches with \a this type.
9140   return ret.retn();
9141 }
9142
9143 MEDFileAnyTypeFieldMultiTS *MEDFileFieldMultiTS::shallowCpy() const
9144 {
9145   return new MEDFileFieldMultiTS(*this);
9146 }
9147
9148 void MEDFileFieldMultiTS::checkCoherencyOfType(const MEDFileAnyTypeField1TS *f1ts) const
9149 {
9150   if(!f1ts)
9151     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::checkCoherencyOfType : input field1TS is NULL ! Impossible to check !");
9152   const MEDFileField1TS *f1tsC=dynamic_cast<const MEDFileField1TS *>(f1ts);
9153   if(!f1tsC)
9154     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::checkCoherencyOfType : the input field1TS is not a FLOAT64 type !");
9155 }
9156
9157 /*!
9158  * This method performs a copy with datatype modification ( float64->int32 ) of \a this. The globals information are copied
9159  * following the given input policy.
9160  *
9161  * \param [in] isDeepCpyGlobs - a boolean that indicates the behaviour concerning globals (profiles and localizations)
9162  *                            By default (true) the globals are deeply copied.
9163  * \return MEDFileIntFieldMultiTS * - a new object that is the result of the conversion of \a this to int32 field.
9164  */
9165 MEDFileIntFieldMultiTS *MEDFileFieldMultiTS::convertToInt(bool isDeepCpyGlobs) const
9166 {
9167   MCAuto<MEDFileIntFieldMultiTS> ret;
9168   const MEDFileAnyTypeFieldMultiTSWithoutSDA *content(_content);
9169   if(content)
9170     {
9171       const MEDFileFieldMultiTSWithoutSDA *contc=dynamic_cast<const MEDFileFieldMultiTSWithoutSDA *>(content);
9172       if(!contc)
9173         throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::convertToInt : the content inside this is not FLOAT64 ! This is incoherent !");
9174       MCAuto<MEDFileIntFieldMultiTSWithoutSDA> newc(contc->convertToInt());
9175       ret=static_cast<MEDFileIntFieldMultiTS *>(MEDFileAnyTypeFieldMultiTS::BuildNewInstanceFromContent((MEDFileIntFieldMultiTSWithoutSDA *)newc,getFileName()));
9176     }
9177   else
9178     ret=MEDFileIntFieldMultiTS::New();
9179   if(isDeepCpyGlobs)
9180     ret->deepCpyGlobs(*this);
9181   else
9182     ret->shallowCpyGlobs(*this);
9183   return ret.retn();
9184 }
9185
9186 /*!
9187  * Returns a new MEDFileField1TS holding data of a given time step of \a this field.
9188  *  \param [in] pos - a time step id.
9189  *  \return MEDFileField1TS * - a new instance of MEDFileField1TS. The caller is to
9190  *          delete this field using decrRef() as it is no more needed.
9191  *  \throw If \a pos is not a valid time step id.
9192  */
9193 MEDFileField1TS *MEDFileFieldMultiTS::getTimeStepAtPos(int pos) const
9194 {
9195   const MEDFileAnyTypeField1TSWithoutSDA *item=contentNotNullBase()->getTimeStepAtPos2(pos);
9196   if(!item)
9197     {
9198       std::ostringstream oss; oss << "MEDFileFieldMultiTS::getTimeStepAtPos : field at pos #" << pos << " is null !";
9199       throw INTERP_KERNEL::Exception(oss.str());
9200     }
9201   const MEDFileField1TSWithoutSDA *itemC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(item);
9202   if(itemC)
9203     {
9204       MCAuto<MEDFileField1TS> ret=MEDFileField1TS::New(*itemC,false);
9205       ret->shallowCpyGlobs(*this);
9206       return ret.retn();
9207     }
9208   std::ostringstream oss; oss << "MEDFileFieldMultiTS::getTimeStepAtPos : type of field at pos #" << pos << " is not FLOAT64 !";
9209   throw INTERP_KERNEL::Exception(oss.str());
9210 }
9211
9212 /*!
9213  * Returns a new MEDCouplingFieldDouble of a given type, of a given time step, lying on
9214  * mesh entities of a given dimension of the first mesh in MED file.
9215  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9216  *  \param [in] type - a spatial discretization of interest.
9217  *  \param [in] iteration - the iteration number of a required time step.
9218  *  \param [in] order - the iteration order number of required time step.
9219  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
9220  *  \param [in] renumPol - specifies how to permute values of the result field according to
9221  *          the optional numbers of cells and nodes, if any. The valid values are
9222  *          - 0 - do not permute.
9223  *          - 1 - permute cells.
9224  *          - 2 - permute nodes.
9225  *          - 3 - permute cells and nodes.
9226  *
9227  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
9228  *          caller is to delete this field using decrRef() as it is no more needed.
9229  *  \throw If the MED file is not readable.
9230  *  \throw If there is no mesh in the MED file.
9231  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
9232  *  \throw If no field values of the required parameters are available.
9233  */
9234 MEDCouplingFieldDouble *MEDFileFieldMultiTS::getFieldAtLevel(TypeOfField type, int iteration, int order, int meshDimRelToMax, int renumPol) const
9235 {
9236   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=contentNotNullBase()->getTimeStepEntry(iteration,order);
9237   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
9238   if(!myF1TSC)
9239     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldAtLevel : mismatch of type of field expecting FLOAT64 !");
9240   MCAuto<DataArray> arrOut;
9241   MCAuto<MEDCouplingFieldDouble> ret=myF1TSC->getFieldAtLevel(type,meshDimRelToMax,std::string(),renumPol,this,arrOut,*contentNotNullBase());
9242   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
9243   return ret.retn();
9244 }
9245
9246 /*!
9247  * Returns a new MEDCouplingFieldDouble of a given type, of a given time step, lying on
9248  * the top level cells of the first mesh in MED file.
9249  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9250  *  \param [in] type - a spatial discretization of interest.
9251  *  \param [in] iteration - the iteration number of a required time step.
9252  *  \param [in] order - the iteration order number of required time step.
9253  *  \param [in] renumPol - specifies how to permute values of the result field according to
9254  *          the optional numbers of cells and nodes, if any. The valid values are
9255  *          - 0 - do not permute.
9256  *          - 1 - permute cells.
9257  *          - 2 - permute nodes.
9258  *          - 3 - permute cells and nodes.
9259  *
9260  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
9261  *          caller is to delete this field using decrRef() as it is no more needed.
9262  *  \throw If the MED file is not readable.
9263  *  \throw If there is no mesh in the MED file.
9264  *  \throw If no field values of the required parameters are available.
9265  */
9266 MEDCouplingFieldDouble *MEDFileFieldMultiTS::getFieldAtTopLevel(TypeOfField type, int iteration, int order, int renumPol) const
9267 {
9268   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=contentNotNullBase()->getTimeStepEntry(iteration,order);
9269   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
9270   if(!myF1TSC)
9271     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldAtTopLevel : mismatch of type of field !");
9272   MCAuto<DataArray> arrOut;
9273   MCAuto<MEDCouplingFieldDouble> ret=myF1TSC->getFieldAtTopLevel(type,std::string(),renumPol,this,arrOut,*contentNotNullBase());
9274   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
9275   return ret.retn();
9276 }
9277
9278 /*!
9279  * This is the simplest version to fetch a field for MED structure. One drawback : if \a this is a complex field (multi spatial discretization inside a same field) this method will throw exception and more advance
9280  * method should be called (getFieldOnMeshAtLevel for example).
9281  * But for normal usage of field in MED file world this method is the most efficient to fetch data.
9282  *
9283  * \param [in] iteration - the iteration number of a required time step.
9284  * \param [in] order - the iteration order number of required time step.
9285  * \param [in] mesh - the mesh the field is lying on
9286  * \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
9287  *          caller is to delete this field using decrRef() as it is no more needed.
9288  */
9289 MEDCouplingFieldDouble *MEDFileFieldMultiTS::field(int iteration, int order, const MEDFileMesh *mesh) const
9290 {
9291   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9292   MCAuto<DataArray> arrOut;
9293   MCAuto<MEDCouplingFieldDouble> ret(myF1TS.fieldOnMesh(this,mesh,arrOut,*contentNotNullBase()));
9294   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
9295   return ret.retn();
9296 }
9297
9298 /*!
9299  * Returns a new MEDCouplingFieldDouble of a given type, of a given time step, lying on
9300  * a given support.
9301  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9302  *  \param [in] type - a spatial discretization of interest.
9303  *  \param [in] iteration - the iteration number of a required time step.
9304  *  \param [in] order - the iteration order number of required time step.
9305  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
9306  *  \param [in] mesh - the supporting mesh.
9307  *  \param [in] renumPol - specifies how to permute values of the result field according to
9308  *          the optional numbers of cells and nodes, if any. The valid values are
9309  *          - 0 - do not permute.
9310  *          - 1 - permute cells.
9311  *          - 2 - permute nodes.
9312  *          - 3 - permute cells and nodes.
9313  *
9314  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
9315  *          caller is to delete this field using decrRef() as it is no more needed.
9316  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
9317  *  \throw If no field of \a this is lying on \a mesh.
9318  *  \throw If no field values of the required parameters are available.
9319  */
9320 MEDCouplingFieldDouble *MEDFileFieldMultiTS::getFieldOnMeshAtLevel(TypeOfField type, int iteration, int order, int meshDimRelToMax, const MEDFileMesh *mesh, int renumPol) const
9321 {
9322   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9323   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
9324   if(!myF1TSC)
9325     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldOnMeshAtLevel : mismatch of type of field !");
9326   MCAuto<DataArray> arrOut;
9327   MCAuto<MEDCouplingFieldDouble> ret=myF1TSC->getFieldOnMeshAtLevel(type,meshDimRelToMax,renumPol,this,mesh,arrOut,*contentNotNullBase());
9328   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
9329   return ret.retn();
9330 }
9331
9332 /*!
9333  * Returns a new MEDCouplingFieldDouble of given type, of a given time step, lying on a
9334  * given support.
9335  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9336  *  \param [in] type - a spatial discretization of the new field.
9337  *  \param [in] iteration - the iteration number of a required time step.
9338  *  \param [in] order - the iteration order number of required time step.
9339  *  \param [in] mesh - the supporting mesh.
9340  *  \param [in] renumPol - specifies how to permute values of the result field according to
9341  *          the optional numbers of cells and nodes, if any. The valid values are
9342  *          - 0 - do not permute.
9343  *          - 1 - permute cells.
9344  *          - 2 - permute nodes.
9345  *          - 3 - permute cells and nodes.
9346  *
9347  *  \return MEDCouplingFieldDouble * - a new instance of MEDCouplingFieldDouble. The
9348  *          caller is to delete this field using decrRef() as it is no more needed.
9349  *  \throw If no field of \a this is lying on \a mesh.
9350  *  \throw If no field values of the required parameters are available.
9351  */
9352 MEDCouplingFieldDouble *MEDFileFieldMultiTS::getFieldOnMeshAtLevel(TypeOfField type, int iteration, int order, const MEDCouplingMesh *mesh, int renumPol) const
9353 {
9354   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=contentNotNullBase()->getTimeStepEntry(iteration,order);
9355   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
9356   if(!myF1TSC)
9357     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldOnMeshAtLevel : mismatch of type of field !");
9358   MCAuto<DataArray> arrOut;
9359   MCAuto<MEDCouplingFieldDouble> ret=myF1TSC->getFieldOnMeshAtLevel(type,renumPol,this,mesh,0,0,arrOut,*contentNotNullBase());
9360   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
9361   return ret.retn();
9362 }
9363
9364 /*!
9365  * This method has a close behaviour than MEDFileFieldMultiTS::getFieldAtLevel.
9366  * This method is called 'old' because the user should give the mesh name he wants to use for it's field.
9367  * This method is useful for MED2 file format when field on different mesh was autorized.
9368  */
9369 MEDCouplingFieldDouble *MEDFileFieldMultiTS::getFieldAtLevelOld(TypeOfField type, const std::string& mname, int iteration, int order, int meshDimRelToMax, int renumPol) const
9370 {
9371   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=contentNotNullBase()->getTimeStepEntry(iteration,order);
9372   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
9373   if(!myF1TSC)
9374     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldAtLevelOld : mismatch of type of field !");
9375   MCAuto<DataArray> arrOut;
9376   MCAuto<MEDCouplingFieldDouble> ret=myF1TSC->getFieldAtLevel(type,meshDimRelToMax,mname,renumPol,this,arrOut,*contentNotNullBase());
9377   MEDFileField1TS::SetDataArrayDoubleInField(ret,arrOut);
9378   return ret.retn();
9379 }
9380
9381 /*!
9382  * Returns values and a profile of the field of a given type, of a given time step,
9383  * lying on a given support.
9384  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9385  *  \param [in] type - a spatial discretization of the field.
9386  *  \param [in] iteration - the iteration number of a required time step.
9387  *  \param [in] order - the iteration order number of required time step.
9388  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
9389  *  \param [in] mesh - the supporting mesh.
9390  *  \param [out] pfl - a new instance of DataArrayInt holding ids of mesh entities the
9391  *          field of interest lies on. If the field lies on all entities of the given
9392  *          dimension, all ids in \a pfl are zero. The caller is to delete this array
9393  *          using decrRef() as it is no more needed.
9394  *  \param [in] glob - the global data storing profiles and localization.
9395  *  \return DataArrayDouble * - a new instance of DataArrayDouble holding values of the
9396  *          field. The caller is to delete this array using decrRef() as it is no more needed.
9397  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
9398  *  \throw If no field of \a this is lying on \a mesh.
9399  *  \throw If no field values of the required parameters are available.
9400  */
9401 DataArrayDouble *MEDFileFieldMultiTS::getFieldWithProfile(TypeOfField type, int iteration, int order, int meshDimRelToMax, const MEDFileMesh *mesh, DataArrayInt *&pfl) const
9402 {
9403   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=contentNotNullBase()->getTimeStepEntry(iteration,order);
9404   const MEDFileField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileField1TSWithoutSDA *>(&myF1TS);
9405   if(!myF1TSC)
9406     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldWithProfile : mismatch of type of field !");
9407   MCAuto<DataArray> ret=myF1TSC->getFieldWithProfile(type,meshDimRelToMax,mesh,pfl,this,*contentNotNullBase());
9408   return MEDFileField1TS::ReturnSafelyDataArrayDouble(ret);
9409 }
9410
9411 const MEDFileFieldMultiTSWithoutSDA *MEDFileFieldMultiTS::contentNotNull() const
9412 {
9413   const MEDFileAnyTypeFieldMultiTSWithoutSDA *pt(_content);
9414   if(!pt)
9415     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::contentNotNull : the content pointer is null !");
9416   const MEDFileFieldMultiTSWithoutSDA *ret=dynamic_cast<const MEDFileFieldMultiTSWithoutSDA *>(pt);
9417   if(!ret)
9418     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::contentNotNull : the content pointer is not null but it is not of type double ! Reason is maybe that the read field has not the type FLOAT64 !");
9419   return ret;
9420 }
9421
9422 MEDFileFieldMultiTSWithoutSDA *MEDFileFieldMultiTS::contentNotNull()
9423 {
9424   MEDFileAnyTypeFieldMultiTSWithoutSDA *pt(_content);
9425   if(!pt)
9426     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::contentNotNull : the non const content pointer is null !");
9427   MEDFileFieldMultiTSWithoutSDA *ret=dynamic_cast<MEDFileFieldMultiTSWithoutSDA *>(pt);
9428   if(!ret)
9429     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::contentNotNull : the non const content pointer is not null but it is not of type double ! Reason is maybe that the read field has not the type FLOAT64 !");
9430   return ret;
9431 }
9432
9433 /*!
9434  * Adds a MEDCouplingFieldDouble to \a this as another time step. The underlying mesh of
9435  * the given field is checked if its elements are sorted suitable for writing to MED file
9436  * ("STB" stands for "Sort By Type"), if not, an exception is thrown.
9437  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9438  *  \param [in] field - the field to add to \a this.
9439  *  \throw If the name of \a field is empty.
9440  *  \throw If the data array of \a field is not set.
9441  *  \throw If existing time steps have different name or number of components than \a field.
9442  *  \throw If the underlying mesh of \a field has no name.
9443  *  \throw If elements in the mesh are not in the order suitable for writing to the MED file.
9444  */
9445 void MEDFileFieldMultiTS::appendFieldNoProfileSBT(const MEDCouplingFieldDouble *field)
9446 {
9447   const DataArrayDouble *arr=0;
9448   if(field)
9449     arr=field->getArray();
9450   contentNotNull()->appendFieldNoProfileSBT(field,arr,*this);
9451 }
9452
9453 /*!
9454  * Adds a MEDCouplingFieldDouble to \a this as another time step.
9455  * The mesh support of input parameter \a field is ignored here, it can be NULL.
9456  * The support of field \a field is expected to be those computed with the input parameter \a mesh, \a meshDimRelToMax,
9457  * and \a profile.
9458  *
9459  * This method will check that the field based on the computed support is coherent. If not an exception will be thrown.
9460  * A new profile is added only if no equal profile is missing.
9461  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9462  *  \param [in] field - the field to add to \a this. The mesh support of field is ignored.
9463  *  \param [in] mesh - the supporting mesh of \a field.
9464  *  \param [in] meshDimRelToMax - a relative dimension of mesh entities \a field lies on (useless if field spatial discretization is ON_NODES).
9465  *  \param [in] profile - ids of mesh entities on which corresponding field values lie.
9466  *  \throw If either \a field or \a mesh or \a profile has an empty name.
9467  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
9468  *  \throw If the data array of \a field is not set.
9469  *  \throw If the data array of \a this is already allocated but has different number of
9470  *         components than \a field.
9471  *  \throw If elements in \a mesh are not in the order suitable for writing to the MED file.
9472  *  \sa setFieldNoProfileSBT()
9473  */
9474 void MEDFileFieldMultiTS::appendFieldProfile(const MEDCouplingFieldDouble *field, const MEDFileMesh *mesh, int meshDimRelToMax, const DataArrayInt *profile)
9475 {
9476   const DataArrayDouble *arr=0;
9477   if(field)
9478     arr=field->getArray();
9479   contentNotNull()->appendFieldProfile(field,arr,mesh,meshDimRelToMax,profile,*this);
9480 }
9481
9482 MEDFileFieldMultiTS::MEDFileFieldMultiTS()
9483 {
9484   _content=new MEDFileFieldMultiTSWithoutSDA;
9485 }
9486
9487 MEDFileFieldMultiTS::MEDFileFieldMultiTS(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
9488 try:MEDFileAnyTypeFieldMultiTS(fid,loadAll,ms)
9489 {
9490 }
9491 catch(INTERP_KERNEL::Exception& e)
9492 { throw e; }
9493
9494 MEDFileFieldMultiTS::MEDFileFieldMultiTS(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
9495 try:MEDFileAnyTypeFieldMultiTS(fid,fieldName,loadAll,ms,entities)
9496 {
9497 }
9498 catch(INTERP_KERNEL::Exception& e)
9499 { throw e; }
9500
9501 MEDFileFieldMultiTS::MEDFileFieldMultiTS(const MEDFileFieldMultiTSWithoutSDA& other, bool shallowCopyOfContent):MEDFileAnyTypeFieldMultiTS(other,shallowCopyOfContent)
9502 {
9503 }
9504
9505 std::vector< std::vector<DataArrayDouble *> > MEDFileFieldMultiTS::getFieldSplitedByType2(int iteration, int order, const std::string& mname, std::vector<INTERP_KERNEL::NormalizedCellType>& types, std::vector< std::vector<TypeOfField> >& typesF, std::vector< std::vector<std::string> >& pfls, std::vector< std::vector<std::string> >& locs) const
9506 {
9507   return contentNotNull()->getFieldSplitedByType2(iteration,order,mname,types,typesF,pfls,locs);
9508 }
9509
9510 DataArrayDouble *MEDFileFieldMultiTS::getUndergroundDataArray(int iteration, int order) const
9511 {
9512   return static_cast<DataArrayDouble *>(contentNotNull()->getUndergroundDataArray(iteration,order));
9513 }
9514
9515 DataArrayDouble *MEDFileFieldMultiTS::getUndergroundDataArrayExt(int iteration, int order, std::vector< std::pair<std::pair<INTERP_KERNEL::NormalizedCellType,int>,std::pair<int,int> > >& entries) const
9516 {
9517   return static_cast<DataArrayDouble *>(contentNotNull()->getUndergroundDataArrayExt(iteration,order,entries));
9518 }
9519
9520 MEDFileFieldMultiTS *MEDFileFieldMultiTS::buildNewEmpty() const
9521 {
9522   return MEDFileFieldMultiTS::New();
9523 }
9524
9525 //= MEDFileAnyTypeFieldMultiTSIterator
9526
9527 MEDFileAnyTypeFieldMultiTSIterator::MEDFileAnyTypeFieldMultiTSIterator(MEDFileAnyTypeFieldMultiTS *fmts):_fmts(fmts),_iter_id(0),_nb_iter(0)
9528 {
9529   if(fmts)
9530     {
9531       fmts->incrRef();
9532       _nb_iter=fmts->getNumberOfTS();
9533     }
9534 }
9535
9536 MEDFileAnyTypeFieldMultiTSIterator::~MEDFileAnyTypeFieldMultiTSIterator()
9537 {
9538 }
9539
9540 MEDFileAnyTypeField1TS *MEDFileAnyTypeFieldMultiTSIterator::nextt()
9541 {
9542   if(_iter_id<_nb_iter)
9543     {
9544       MEDFileAnyTypeFieldMultiTS *fmts(_fmts);
9545       if(fmts)
9546         return fmts->getTimeStepAtPos(_iter_id++);
9547       else
9548         return 0;
9549     }
9550   else
9551     return 0;
9552 }
9553
9554 //= MEDFileIntFieldMultiTS
9555
9556 /*!
9557  * Returns a new empty instance of MEDFileFieldMultiTS.
9558  *  \return MEDFileIntFieldMultiTS * - a new instance of MEDFileIntFieldMultiTS. The caller
9559  *          is to delete this field using decrRef() as it is no more needed.
9560  */
9561 MEDFileIntFieldMultiTS *MEDFileIntFieldMultiTS::New()
9562 {
9563   return new MEDFileIntFieldMultiTS;
9564 }
9565
9566 /*!
9567  * Returns a new instance of MEDFileIntFieldMultiTS holding data of the first field
9568  * that has been read from a specified MED file.
9569  *  \param [in] fileName - the name of the MED file to read.
9570  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileIntFieldMultiTS. The caller
9571  *          is to delete this field using decrRef() as it is no more needed.
9572  *  \throw If reading the file fails.
9573  */
9574 MEDFileIntFieldMultiTS *MEDFileIntFieldMultiTS::New(const std::string& fileName, bool loadAll)
9575 {
9576   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
9577   MCAuto<MEDFileIntFieldMultiTS> ret(new MEDFileIntFieldMultiTS(fid,loadAll,0));
9578   ret->contentNotNull();//to check that content type matches with \a this type.
9579   return ret.retn();
9580 }
9581
9582 /*!
9583  * Returns a new instance of MEDFileIntFieldMultiTS holding data of a given field
9584  * that has been read from a specified MED file.
9585  *  \param [in] fileName - the name of the MED file to read.
9586  *  \param [in] fieldName - the name of the field to read.
9587  *  \return MEDFileFieldMultiTS * - a new instance of MEDFileIntFieldMultiTS. The caller
9588  *          is to delete this field using decrRef() as it is no more needed.
9589  *  \throw If reading the file fails.
9590  *  \throw If there is no field named \a fieldName in the file.
9591  */
9592 MEDFileIntFieldMultiTS *MEDFileIntFieldMultiTS::New(const std::string& fileName, const std::string& fieldName, bool loadAll)
9593 {
9594   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
9595   MCAuto<MEDFileIntFieldMultiTS> ret(new MEDFileIntFieldMultiTS(fid,fieldName,loadAll,0));
9596   ret->contentNotNull();//to check that content type matches with \a this type.
9597   return ret.retn();
9598 }
9599
9600 /*!
9601  * Returns a new instance of MEDFileIntFieldMultiTS. If \a shallowCopyOfContent is true the content of \a other is shallow copied.
9602  * If \a shallowCopyOfContent is false, \a other is taken to be the content of \a this.
9603  *
9604  * Returns a new instance of MEDFileIntFieldMultiTS holding either a shallow copy
9605  * of a given MEDFileIntFieldMultiTSWithoutSDA ( \a other ) or \a other itself.
9606  * \warning this is a shallow copy constructor
9607  *  \param [in] other - a MEDFileIntField1TSWithoutSDA to copy.
9608  *  \param [in] shallowCopyOfContent - if \c true, a shallow copy of \a other is created.
9609  *  \return MEDFileIntFieldMultiTS * - a new instance of MEDFileIntFieldMultiTS. The caller
9610  *          is to delete this field using decrRef() as it is no more needed.
9611  */
9612 MEDFileIntFieldMultiTS *MEDFileIntFieldMultiTS::New(const MEDFileIntFieldMultiTSWithoutSDA& other, bool shallowCopyOfContent)
9613 {
9614   return new MEDFileIntFieldMultiTS(other,shallowCopyOfContent);
9615 }
9616
9617 MEDFileIntFieldMultiTS *MEDFileIntFieldMultiTS::LoadSpecificEntities(const std::string& fileName, const std::string& fieldName, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> >& entities, bool loadAll)
9618 {
9619   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
9620   MCAuto<MEDFileIntFieldMultiTS> ret(new MEDFileIntFieldMultiTS(fid,fieldName,loadAll,0,&entities));
9621   ret->contentNotNull();//to check that content type matches with \a this type.
9622   return ret.retn();
9623 }
9624
9625 /*!
9626  * This method performs a copy with datatype modification ( int32->float64 ) of \a this. The globals information are copied
9627  * following the given input policy.
9628  *
9629  * \param [in] isDeepCpyGlobs - a boolean that indicates the behaviour concerning globals (profiles and localizations)
9630  *                            By default (true) the globals are deeply copied.
9631  * \return MEDFileFieldMultiTS * - a new object that is the result of the conversion of \a this to float64 field.
9632  */
9633 MEDFileFieldMultiTS *MEDFileIntFieldMultiTS::convertToDouble(bool isDeepCpyGlobs) const
9634 {
9635   MCAuto<MEDFileFieldMultiTS> ret;
9636   const MEDFileAnyTypeFieldMultiTSWithoutSDA *content(_content);
9637   if(content)
9638     {
9639       const MEDFileIntFieldMultiTSWithoutSDA *contc=dynamic_cast<const MEDFileIntFieldMultiTSWithoutSDA *>(content);
9640       if(!contc)
9641         throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::convertToInt : the content inside this is not INT32 ! This is incoherent !");
9642       MCAuto<MEDFileFieldMultiTSWithoutSDA> newc(contc->convertToDouble());
9643       ret=static_cast<MEDFileFieldMultiTS *>(MEDFileAnyTypeFieldMultiTS::BuildNewInstanceFromContent((MEDFileFieldMultiTSWithoutSDA *)newc,getFileName()));
9644     }
9645   else
9646     ret=MEDFileFieldMultiTS::New();
9647   if(isDeepCpyGlobs)
9648     ret->deepCpyGlobs(*this);
9649   else
9650     ret->shallowCpyGlobs(*this);
9651   return ret.retn();
9652 }
9653
9654 MEDFileAnyTypeFieldMultiTS *MEDFileIntFieldMultiTS::shallowCpy() const
9655 {
9656   return new MEDFileIntFieldMultiTS(*this);
9657 }
9658
9659 void MEDFileIntFieldMultiTS::checkCoherencyOfType(const MEDFileAnyTypeField1TS *f1ts) const
9660 {
9661   if(!f1ts)
9662     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::checkCoherencyOfType : input field1TS is NULL ! Impossible to check !");
9663   const MEDFileIntField1TS *f1tsC=dynamic_cast<const MEDFileIntField1TS *>(f1ts);
9664   if(!f1tsC)
9665     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::checkCoherencyOfType : the input field1TS is not a INT32 type !");
9666 }
9667
9668 /*!
9669  * This is the simplest version to fetch a field for MED structure. One drawback : if \a this is a complex field (multi spatial discretization inside a same field) this method will throw exception and more advance
9670  * method should be called (getFieldOnMeshAtLevel for example).
9671  * But for normal usage of field in MED file world this method is the most efficient to fetch data.
9672  *
9673  * \param [in] iteration - the iteration number of a required time step.
9674  * \param [in] order - the iteration order number of required time step.
9675  * \param [in] mesh - the mesh the field is lying on
9676  * \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldInt. The
9677  *          caller is to delete this field using decrRef() as it is no more needed.
9678  */
9679 MEDCouplingFieldInt *MEDFileIntFieldMultiTS::field(int iteration, int order, const MEDFileMesh *mesh) const
9680 {
9681   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9682   const MEDFileIntField1TSWithoutSDA *myF1TSC(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS));
9683   if(!myF1TSC)
9684     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::field : mismatch of type of field expecting INT32 !");
9685   MCAuto<DataArray> arrOut;
9686   MCAuto<MEDCouplingFieldDouble> ret(myF1TS.fieldOnMesh(this,mesh,arrOut,*contentNotNullBase()));
9687   MCAuto<MEDCouplingFieldInt> ret2(MEDFileIntField1TS::SetDataArrayDoubleInIntField(ret,arrOut));
9688   return ret2.retn();
9689 }
9690
9691 /*!
9692  * Returns a new MEDCouplingFieldInt of a given type, of a given time step, lying on
9693  * mesh entities of a given dimension of the first mesh in MED file.
9694  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9695  *  \param [in] type - a spatial discretization of interest.
9696  *  \param [in] iteration - the iteration number of a required time step.
9697  *  \param [in] order - the iteration order number of required time step.
9698  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
9699  *  \param [in] renumPol - specifies how to permute values of the result field according to
9700  *          the optional numbers of cells and nodes, if any. The valid values are
9701  *          - 0 - do not permute.
9702  *          - 1 - permute cells.
9703  *          - 2 - permute nodes.
9704  *          - 3 - permute cells and nodes.
9705  *
9706  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
9707  *          caller is to delete this field using decrRef() as it is no more needed.
9708  *  \throw If the MED file is not readable.
9709  *  \throw If there is no mesh in the MED file.
9710  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
9711  *  \throw If no field values of the required parameters are available.
9712  */
9713 MEDCouplingFieldInt *MEDFileIntFieldMultiTS::getFieldAtLevel(TypeOfField type, int iteration, int order, int meshDimRelToMax, int renumPol) const
9714 {
9715   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9716   const MEDFileIntField1TSWithoutSDA *myF1TSC(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS));
9717   if(!myF1TSC)
9718     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::getFieldAtLevel : mismatch of type of field expecting INT32 !");
9719   MCAuto<DataArray> arr;
9720   MCAuto<MEDCouplingFieldDouble> ret(myF1TSC->getFieldAtLevel(type,meshDimRelToMax,std::string(),renumPol,this,arr,*contentNotNullBase()));
9721   MCAuto<MEDCouplingFieldInt> ret2(MEDFileIntField1TS::SetDataArrayDoubleInIntField(ret,arr));
9722   return ret2.retn();
9723 }
9724
9725 /*!
9726  * Returns a new MEDCouplingFieldInt of a given type, of a given time step, lying on
9727  * the top level cells of the first mesh in MED file.
9728  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9729  *  \param [in] type - a spatial discretization of interest.
9730  *  \param [in] iteration - the iteration number of a required time step.
9731  *  \param [in] order - the iteration order number of required time step.
9732  *  \param [in] renumPol - specifies how to permute values of the result field according to
9733  *          the optional numbers of cells and nodes, if any. The valid values are
9734  *          - 0 - do not permute.
9735  *          - 1 - permute cells.
9736  *          - 2 - permute nodes.
9737  *          - 3 - permute cells and nodes.
9738  *
9739  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
9740  *          caller is to delete this field using decrRef() as it is no more needed.
9741  *  \throw If the MED file is not readable.
9742  *  \throw If there is no mesh in the MED file.
9743  *  \throw If no field values of the required parameters are available.
9744  */
9745 MEDCouplingFieldInt *MEDFileIntFieldMultiTS::getFieldAtTopLevel(TypeOfField type, int iteration, int order, int renumPol) const
9746 {
9747   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9748   const MEDFileIntField1TSWithoutSDA *myF1TSC(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS));
9749   if(!myF1TSC)
9750     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::getFieldAtTopLevel : mismatch of type of field ! INT32 expected !");
9751   MCAuto<DataArray> arr;
9752   MCAuto<MEDCouplingFieldDouble> ret(myF1TSC->getFieldAtTopLevel(type,std::string(),renumPol,this,arr,*contentNotNullBase()));
9753   MCAuto<MEDCouplingFieldInt> ret2(MEDFileIntField1TS::SetDataArrayDoubleInIntField(ret,arr));
9754   return ret2.retn();
9755 }
9756
9757 /*!
9758  * Returns a new MEDCouplingFieldInt of a given type, of a given time step, lying on
9759  * a given support.
9760  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9761  *  \param [in] type - a spatial discretization of interest.
9762  *  \param [in] iteration - the iteration number of a required time step.
9763  *  \param [in] order - the iteration order number of required time step.
9764  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
9765  *  \param [in] mesh - the supporting mesh.
9766  *  \param [in] renumPol - specifies how to permute values of the result field according to
9767  *          the optional numbers of cells and nodes, if any. The valid values are
9768  *          - 0 - do not permute.
9769  *          - 1 - permute cells.
9770  *          - 2 - permute nodes.
9771  *          - 3 - permute cells and nodes.
9772  *
9773  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
9774  *          caller is to delete this field using decrRef() as it is no more needed.
9775  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in the mesh.
9776  *  \throw If no field of \a this is lying on \a mesh.
9777  *  \throw If no field values of the required parameters are available.
9778  */
9779 MEDCouplingFieldInt *MEDFileIntFieldMultiTS::getFieldOnMeshAtLevel(TypeOfField type, int iteration, int order, int meshDimRelToMax, const MEDFileMesh *mesh, int renumPol) const
9780 {
9781   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9782   const MEDFileIntField1TSWithoutSDA *myF1TSC(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS));
9783   if(!myF1TSC)
9784     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::getFieldOnMeshAtLevel : mismatch of type of field ! INT32 expected !");
9785   MCAuto<DataArray> arr;
9786   MCAuto<MEDCouplingFieldDouble> ret(myF1TSC->getFieldOnMeshAtLevel(type,meshDimRelToMax,renumPol,this,mesh,arr,*contentNotNullBase()));
9787   MCAuto<MEDCouplingFieldInt> ret2(MEDFileIntField1TS::SetDataArrayDoubleInIntField(ret,arr));
9788   return ret2.retn();
9789 }
9790
9791 /*!
9792  * Returns a new MEDCouplingFieldInt of given type, of a given time step, lying on a
9793  * given support.
9794  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9795  *  \param [in] type - a spatial discretization of the new field.
9796  *  \param [in] iteration - the iteration number of a required time step.
9797  *  \param [in] order - the iteration order number of required time step.
9798  *  \param [in] mesh - the supporting mesh.
9799  *  \param [out] arrOut - the DataArrayInt containing values of field.
9800  *  \param [in] renumPol - specifies how to permute values of the result field according to
9801  *          the optional numbers of cells and nodes, if any. The valid values are
9802  *          - 0 - do not permute.
9803  *          - 1 - permute cells.
9804  *          - 2 - permute nodes.
9805  *          - 3 - permute cells and nodes.
9806  *
9807  *  \return MEDCouplingFieldInt * - a new instance of MEDCouplingFieldDouble. The
9808  *          caller is to delete this field using decrRef() as it is no more needed.
9809  *  \throw If no field of \a this is lying on \a mesh.
9810  *  \throw If no field values of the required parameters are available.
9811  */
9812 MEDCouplingFieldInt *MEDFileIntFieldMultiTS::getFieldOnMeshAtLevel(TypeOfField type, int iteration, int order, const MEDCouplingMesh *mesh, int renumPol) const
9813 {
9814   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9815   const MEDFileIntField1TSWithoutSDA *myF1TSC(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS));
9816   if(!myF1TSC)
9817     throw INTERP_KERNEL::Exception("MEDFileFieldIntMultiTS::getFieldOnMeshAtLevel : mismatch of type of field ! INT32 expected !");
9818   MCAuto<DataArray> arr;
9819   MCAuto<MEDCouplingFieldDouble> ret(myF1TSC->getFieldOnMeshAtLevel(type,renumPol,this,mesh,0,0,arr,*contentNotNullBase()));
9820   MCAuto<MEDCouplingFieldInt> ret2(MEDFileIntField1TS::SetDataArrayDoubleInIntField(ret,arr));
9821   return ret2.retn();
9822 }
9823
9824 /*!
9825  * This method has a close behaviour than MEDFileIntFieldMultiTS::getFieldAtLevel.
9826  * This method is called 'old' because the user should give the mesh name he wants to use for it's field.
9827  * This method is useful for MED2 file format when field on different mesh was autorized.
9828  */
9829 MEDCouplingFieldInt *MEDFileIntFieldMultiTS::getFieldAtLevelOld(TypeOfField type, int iteration, int order, const std::string& mname, int meshDimRelToMax, int renumPol) const
9830 {
9831   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS(contentNotNullBase()->getTimeStepEntry(iteration,order));
9832   const MEDFileIntField1TSWithoutSDA *myF1TSC(dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS));
9833   if(!myF1TSC)
9834     throw INTERP_KERNEL::Exception("MEDFileFieldMultiTS::getFieldOnMeshAtLevel : mismatch of type of field ! INT32 expected !");
9835   MCAuto<DataArray> arr;
9836   MCAuto<MEDCouplingFieldDouble> ret(myF1TSC->getFieldAtLevel(type,meshDimRelToMax,mname,renumPol,this,arr,*contentNotNullBase()));
9837   MCAuto<MEDCouplingFieldInt> ret2(MEDFileIntField1TS::SetDataArrayDoubleInIntField(ret,arr));
9838   return ret2.retn();
9839 }
9840
9841 /*!
9842  * Returns values and a profile of the field of a given type, of a given time step,
9843  * lying on a given support.
9844  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9845  *  \param [in] type - a spatial discretization of the field.
9846  *  \param [in] iteration - the iteration number of a required time step.
9847  *  \param [in] order - the iteration order number of required time step.
9848  *  \param [in] meshDimRelToMax - a relative dimension of the supporting mesh entities.
9849  *  \param [in] mesh - the supporting mesh.
9850  *  \param [out] pfl - a new instance of DataArrayInt holding ids of mesh entities the
9851  *          field of interest lies on. If the field lies on all entities of the given
9852  *          dimension, all ids in \a pfl are zero. The caller is to delete this array
9853  *          using decrRef() as it is no more needed.
9854  *  \param [in] glob - the global data storing profiles and localization.
9855  *  \return DataArrayInt * - a new instance of DataArrayInt holding values of the
9856  *          field. The caller is to delete this array using decrRef() as it is no more needed.
9857  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
9858  *  \throw If no field of \a this is lying on \a mesh.
9859  *  \throw If no field values of the required parameters are available.
9860  */
9861 DataArrayInt *MEDFileIntFieldMultiTS::getFieldWithProfile(TypeOfField type, int iteration, int order, int meshDimRelToMax, const MEDFileMesh *mesh, DataArrayInt *&pfl) const
9862 {
9863   const MEDFileAnyTypeField1TSWithoutSDA& myF1TS=contentNotNullBase()->getTimeStepEntry(iteration,order);
9864   const MEDFileIntField1TSWithoutSDA *myF1TSC=dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(&myF1TS);
9865   if(!myF1TSC)
9866     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::getFieldWithProfile : mismatch of type of field ! INT32 expected !");
9867   MCAuto<DataArray> ret=myF1TSC->getFieldWithProfile(type,meshDimRelToMax,mesh,pfl,this,*contentNotNullBase());
9868   return MEDFileIntField1TS::ReturnSafelyDataArrayInt(ret);
9869 }
9870
9871 /*!
9872  * Returns a new MEDFileIntField1TS holding data of a given time step of \a this field.
9873  *  \param [in] pos - a time step id.
9874  *  \return MEDFileIntField1TS * - a new instance of MEDFileIntField1TS. The caller is to
9875  *          delete this field using decrRef() as it is no more needed.
9876  *  \throw If \a pos is not a valid time step id.
9877  */
9878 MEDFileIntField1TS *MEDFileIntFieldMultiTS::getTimeStepAtPos(int pos) const
9879 {
9880   const MEDFileAnyTypeField1TSWithoutSDA *item=contentNotNullBase()->getTimeStepAtPos2(pos);
9881   if(!item)
9882     {
9883       std::ostringstream oss; oss << "MEDFileIntFieldMultiTS::getTimeStepAtPos : field at pos #" << pos << " is null !";
9884       throw INTERP_KERNEL::Exception(oss.str());
9885     }
9886   const MEDFileIntField1TSWithoutSDA *itemC=dynamic_cast<const MEDFileIntField1TSWithoutSDA *>(item);
9887   if(itemC)
9888     {
9889       MCAuto<MEDFileIntField1TS> ret=MEDFileIntField1TS::New(*itemC,false);
9890       ret->shallowCpyGlobs(*this);
9891       return ret.retn();
9892     }
9893   std::ostringstream oss; oss << "MEDFileIntFieldMultiTS::getTimeStepAtPos : type of field at pos #" << pos << " is not INT32 !";
9894   throw INTERP_KERNEL::Exception(oss.str());
9895 }
9896
9897 /*!
9898  * Adds a MEDCouplingFieldInt to \a this as another time step. The underlying mesh of
9899  * the given field is checked if its elements are sorted suitable for writing to MED file
9900  * ("STB" stands for "Sort By Type"), if not, an exception is thrown.
9901  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9902  *  \param [in] field - the field to add to \a this.
9903  *  \throw If the name of \a field is empty.
9904  *  \throw If the data array of \a field is not set.
9905  *  \throw If existing time steps have different name or number of components than \a field.
9906  *  \throw If the underlying mesh of \a field has no name.
9907  *  \throw If elements in the mesh are not in the order suitable for writing to the MED file.
9908  */
9909 void MEDFileIntFieldMultiTS::appendFieldNoProfileSBT(const MEDCouplingFieldInt *field)
9910 {
9911   MCAuto<MEDCouplingFieldDouble> field2(MEDFileIntField1TS::ConvertFieldIntToFieldDouble(field));
9912   contentNotNull()->appendFieldNoProfileSBT(field2,field->getArray(),*this);
9913 }
9914
9915 /*!
9916  * Adds a MEDCouplingFieldDouble to \a this as another time step.
9917  * The mesh support of input parameter \a field is ignored here, it can be NULL.
9918  * The support of field \a field is expected to be those computed with the input parameter \a mesh, \a meshDimRelToMax,
9919  * and \a profile.
9920  *
9921  * This method will check that the field based on the computed support is coherent. If not an exception will be thrown.
9922  * A new profile is added only if no equal profile is missing.
9923  * For more info, see \ref AdvMEDLoaderAPIFieldRW
9924  *  \param [in] field - the field to add to \a this. The field double values and mesh support are ignored.
9925  *  \param [in] arrOfVals - the values of the field \a field used.
9926  *  \param [in] mesh - the supporting mesh of \a field.
9927  *  \param [in] meshDimRelToMax - a relative dimension of mesh entities \a field lies on (useless if field spatial discretization is ON_NODES).
9928  *  \param [in] profile - ids of mesh entities on which corresponding field values lie.
9929  *  \throw If either \a field or \a mesh or \a profile has an empty name.
9930  *  \throw If there are no mesh entities of \a meshDimRelToMax dimension in \a mesh.
9931  *  \throw If the data array of \a field is not set.
9932  *  \throw If the data array of \a this is already allocated but has different number of
9933  *         components than \a field.
9934  *  \throw If elements in \a mesh are not in the order suitable for writing to the MED file.
9935  *  \sa setFieldNoProfileSBT()
9936  */
9937 void MEDFileIntFieldMultiTS::appendFieldProfile(const MEDCouplingFieldInt *field, const MEDFileMesh *mesh, int meshDimRelToMax, const DataArrayInt *profile)
9938 {
9939   MCAuto<MEDCouplingFieldDouble> field2(MEDFileIntField1TS::ConvertFieldIntToFieldDouble(field));
9940   contentNotNull()->appendFieldProfile(field2,field->getArray(),mesh,meshDimRelToMax,profile,*this);
9941 }
9942
9943 const MEDFileIntFieldMultiTSWithoutSDA *MEDFileIntFieldMultiTS::contentNotNull() const
9944 {
9945   const MEDFileAnyTypeFieldMultiTSWithoutSDA *pt(_content);
9946   if(!pt)
9947     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::contentNotNull : the content pointer is null !");
9948   const MEDFileIntFieldMultiTSWithoutSDA *ret=dynamic_cast<const MEDFileIntFieldMultiTSWithoutSDA *>(pt);
9949   if(!ret)
9950     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::contentNotNull : the content pointer is not null but it is not of type int ! Reason is maybe that the read field has not the type INT32 !");
9951   return ret;
9952 }
9953
9954 MEDFileIntFieldMultiTSWithoutSDA *MEDFileIntFieldMultiTS::contentNotNull()
9955 {
9956   MEDFileAnyTypeFieldMultiTSWithoutSDA *pt(_content);
9957   if(!pt)
9958     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::contentNotNull : the non const content pointer is null !");
9959   MEDFileIntFieldMultiTSWithoutSDA *ret=dynamic_cast<MEDFileIntFieldMultiTSWithoutSDA *>(pt);
9960   if(!ret)
9961     throw INTERP_KERNEL::Exception("MEDFileIntFieldMultiTS::contentNotNull : the non const content pointer is not null but it is not of type int ! Reason is maybe that the read field has not the type INT32 !");
9962   return ret;
9963 }
9964
9965 MEDFileIntFieldMultiTS::MEDFileIntFieldMultiTS()
9966 {
9967   _content=new MEDFileIntFieldMultiTSWithoutSDA;
9968 }
9969
9970 MEDFileIntFieldMultiTS::MEDFileIntFieldMultiTS(const MEDFileIntFieldMultiTSWithoutSDA& other, bool shallowCopyOfContent):MEDFileAnyTypeFieldMultiTS(other,shallowCopyOfContent)
9971 {
9972 }
9973
9974 MEDFileIntFieldMultiTS::MEDFileIntFieldMultiTS(med_idt fid, bool loadAll, const MEDFileMeshes *ms)
9975 try:MEDFileAnyTypeFieldMultiTS(fid,loadAll,ms)
9976 {
9977 }
9978 catch(INTERP_KERNEL::Exception& e)
9979 { throw e; }
9980
9981 MEDFileIntFieldMultiTS::MEDFileIntFieldMultiTS(med_idt fid, const std::string& fieldName, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
9982 try:MEDFileAnyTypeFieldMultiTS(fid,fieldName,loadAll,ms,entities)
9983 {
9984 }
9985 catch(INTERP_KERNEL::Exception& e)
9986 { throw e; }
9987
9988 DataArrayInt *MEDFileIntFieldMultiTS::getUndergroundDataArray(int iteration, int order) const
9989 {
9990   return static_cast<DataArrayInt *>(contentNotNull()->getUndergroundDataArray(iteration,order));
9991 }
9992
9993 MEDFileIntFieldMultiTS *MEDFileIntFieldMultiTS::buildNewEmpty() const
9994 {
9995   return MEDFileIntFieldMultiTS::New();
9996 }
9997
9998 //= MEDFileFields
9999
10000 MEDFileFields *MEDFileFields::New()
10001 {
10002   return new MEDFileFields;
10003 }
10004
10005 MEDFileFields *MEDFileFields::New(const std::string& fileName, bool loadAll)
10006 {
10007   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
10008   return new MEDFileFields(fid,loadAll,0,0);
10009 }
10010
10011 MEDFileFields *MEDFileFields::LoadPartOf(const std::string& fileName, bool loadAll, const MEDFileMeshes *ms)
10012 {
10013   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
10014   return new MEDFileFields(fid,loadAll,ms,0);
10015 }
10016
10017 MEDFileFields *MEDFileFields::LoadSpecificEntities(const std::string& fileName, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> >& entities, bool loadAll)
10018 {
10019   MEDFileUtilities::CheckFileForRead(fileName);
10020   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(fileName));
10021   return new MEDFileFields(fid,loadAll,0,&entities);
10022 }
10023
10024 std::size_t MEDFileFields::getHeapMemorySizeWithoutChildren() const
10025 {
10026   std::size_t ret(MEDFileFieldGlobsReal::getHeapMemorySizeWithoutChildren());
10027   ret+=_fields.capacity()*sizeof(MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA>);
10028   return ret;
10029 }
10030
10031 std::vector<const BigMemoryObject *> MEDFileFields::getDirectChildrenWithNull() const
10032 {
10033   std::vector<const BigMemoryObject *> ret;
10034   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10035     ret.push_back((const MEDFileAnyTypeFieldMultiTSWithoutSDA *)*it);
10036   return ret;
10037 }
10038
10039 MEDFileFields *MEDFileFields::deepCopy() const
10040 {
10041   MCAuto<MEDFileFields> ret=shallowCpy();
10042   std::size_t i=0;
10043   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++,i++)
10044     {
10045       if((const MEDFileAnyTypeFieldMultiTSWithoutSDA*)*it)
10046         ret->_fields[i]=(*it)->deepCopy();
10047     }
10048   ret->deepCpyGlobs(*this);
10049   return ret.retn();
10050 }
10051
10052 MEDFileFields *MEDFileFields::shallowCpy() const
10053 {
10054   return new MEDFileFields(*this);
10055 }
10056
10057 /*!
10058  * This method scans for all fields in \a this which time steps ids are common. Time step are discriminated by the pair of integer (iteration,order) whatever
10059  * the double time value. If all returned time steps are \b exactly those for all fields in \a this output parameter \a areThereSomeForgottenTS will be set to false.
10060  * If \a areThereSomeForgottenTS is set to true, only the sorted intersection of time steps present for all fields in \a this will be returned.
10061  *
10062  * \param [out] areThereSomeForgottenTS - indicates to the caller if there is some time steps in \a this that are not present for all fields in \a this.
10063  * \return the sorted list of time steps (specified with a pair of integer iteration first and order second) present for all fields in \a this.
10064  *
10065  * \sa MEDFileFields::partOfThisLyingOnSpecifiedTimeSteps, MEDFileFields::partOfThisNotLyingOnSpecifiedTimeSteps
10066  */
10067 std::vector< std::pair<int,int> > MEDFileFields::getCommonIterations(bool& areThereSomeForgottenTS) const
10068 {
10069   std::set< std::pair<int,int> > s;
10070   bool firstShot=true;
10071   areThereSomeForgottenTS=false;
10072   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10073     {
10074       if(!(const MEDFileAnyTypeFieldMultiTSWithoutSDA*)*it)
10075         continue;
10076       std::vector< std::pair<int,int> > v=(*it)->getIterations();
10077       std::set< std::pair<int,int> > s1; std::copy(v.begin(),v.end(),std::inserter(s1,s1.end()));
10078       if(firstShot)
10079         { s=s1; firstShot=false; }
10080       else
10081         {
10082           std::set< std::pair<int,int> > s2; std::set_intersection(s.begin(),s.end(),s1.begin(),s1.end(),std::inserter(s2,s2.end()));
10083           if(s!=s2)
10084             areThereSomeForgottenTS=true;
10085           s=s2;
10086         }
10087     }
10088   std::vector< std::pair<int,int> > ret;
10089   std::copy(s.begin(),s.end(),std::back_insert_iterator< std::vector< std::pair<int,int> > >(ret));
10090   return ret;
10091 }
10092
10093 int MEDFileFields::getNumberOfFields() const
10094 {
10095   return _fields.size();
10096 }
10097
10098 std::vector<std::string> MEDFileFields::getFieldsNames() const
10099 {
10100   std::vector<std::string> ret(_fields.size());
10101   int i=0;
10102   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++,i++)
10103     {
10104       const MEDFileAnyTypeFieldMultiTSWithoutSDA *f=(*it);
10105       if(f)
10106         {
10107           ret[i]=f->getName();
10108         }
10109       else
10110         {
10111           std::ostringstream oss; oss << "MEDFileFields::getFieldsNames : At rank #" << i << " field is not defined !";
10112           throw INTERP_KERNEL::Exception(oss.str());
10113         }
10114     }
10115   return ret;
10116 }
10117
10118 std::vector<std::string> MEDFileFields::getMeshesNames() const
10119 {
10120   std::vector<std::string> ret;
10121   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10122     {
10123       const MEDFileAnyTypeFieldMultiTSWithoutSDA *cur(*it);
10124       if(cur)
10125         ret.push_back(cur->getMeshName());
10126     }
10127   return ret;
10128 }
10129
10130 std::string MEDFileFields::simpleRepr() const
10131 {
10132   std::ostringstream oss;
10133   oss << "(*****************)\n(* MEDFileFields *)\n(*****************)\n\n";
10134   simpleRepr(0,oss);
10135   return oss.str();
10136 }
10137
10138 void MEDFileFields::simpleRepr(int bkOffset, std::ostream& oss) const
10139 {
10140   int nbOfFields=getNumberOfFields();
10141   std::string startLine(bkOffset,' ');
10142   oss << startLine << "There are " << nbOfFields << " fields in this :" << std::endl;
10143   int i=0;
10144   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++,i++)
10145     {
10146       const MEDFileAnyTypeFieldMultiTSWithoutSDA *cur=(*it);
10147       if(cur)
10148         {
10149           oss << startLine << "  - # "<< i << " has the following name : \"" << cur->getName() << "\"." << std::endl;
10150         }
10151       else
10152         {
10153           oss << startLine << "  - not defined !" << std::endl;
10154         }
10155     }
10156   i=0;
10157   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++,i++)
10158     {
10159       const MEDFileAnyTypeFieldMultiTSWithoutSDA *cur=(*it);
10160       std::string chapter(17,'0'+i);
10161       oss << startLine << chapter << std::endl;
10162       if(cur)
10163         {
10164           cur->simpleRepr(bkOffset+2,oss,i);
10165         }
10166       else
10167         {
10168           oss << startLine << "  - not defined !" << std::endl;
10169         }
10170       oss << startLine << chapter << std::endl;
10171     }
10172   simpleReprGlobs(oss);
10173 }
10174
10175 MEDFileFields::MEDFileFields()
10176 {
10177 }
10178
10179 MEDFileFields::MEDFileFields(med_idt fid, bool loadAll, const MEDFileMeshes *ms, const std::vector< std::pair<TypeOfField,INTERP_KERNEL::NormalizedCellType> > *entities)
10180 try:MEDFileFieldGlobsReal(fid)
10181 {
10182   int nbFields(MEDnField(fid));
10183   _fields.resize(nbFields);
10184   med_field_type typcha;
10185   for(int i=0;i<nbFields;i++)
10186     {
10187       std::vector<std::string> infos;
10188       std::string fieldName,dtunit;
10189       int nbOfStep(MEDFileAnyTypeField1TS::LocateField2(fid,i,false,fieldName,typcha,infos,dtunit));
10190       switch(typcha)
10191       {
10192         case MED_FLOAT64:
10193           {
10194             _fields[i]=MEDFileFieldMultiTSWithoutSDA::New(fid,fieldName.c_str(),typcha,infos,nbOfStep,dtunit,loadAll,ms,entities);
10195             break;
10196           }
10197         case MED_INT32:
10198           {
10199             _fields[i]=MEDFileIntFieldMultiTSWithoutSDA::New(fid,fieldName.c_str(),typcha,infos,nbOfStep,dtunit,loadAll,ms,entities);
10200             break;
10201           }
10202         default:
10203           {
10204             std::ostringstream oss; oss << "constructor MEDFileFields(fileName) : file \'" << FileNameFromFID(fid) << "\' at pos #" << i << " field has name \'" << fieldName << "\' but the type of field is not in [MED_FLOAT64, MED_INT32] !";
10205             throw INTERP_KERNEL::Exception(oss.str());
10206           }
10207       }
10208     }
10209   loadAllGlobals(fid);
10210 }
10211 catch(INTERP_KERNEL::Exception& e)
10212 {
10213     throw e;
10214 }
10215
10216 void MEDFileFields::writeLL(med_idt fid) const
10217 {
10218   int i=0;
10219   writeGlobals(fid,*this);
10220   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++,i++)
10221     {
10222       const MEDFileAnyTypeFieldMultiTSWithoutSDA *elt=*it;
10223       if(!elt)
10224         {
10225           std::ostringstream oss; oss << "MEDFileFields::write : at rank #" << i << "/" << _fields.size() << " field is empty !";
10226           throw INTERP_KERNEL::Exception(oss.str());
10227         }
10228       elt->writeLL(fid,*this);
10229     }
10230 }
10231
10232 /*!
10233  * This method alloc the arrays and load potentially huge arrays contained in this field.
10234  * This method should be called when a MEDFileAnyTypeFieldMultiTS::New constructor has been with false as the last parameter.
10235  * This method can be also called to refresh or reinit values from a file.
10236  *
10237  * \throw If the fileName is not set or points to a non readable MED file.
10238  */
10239 void MEDFileFields::loadArrays()
10240 {
10241   if(getFileName().empty())
10242     throw INTERP_KERNEL::Exception("MEDFileFields::loadArrays : the structure does not come from a file !");
10243   MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(getFileName()));
10244   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::iterator it=_fields.begin();it!=_fields.end();it++)
10245     {
10246       MEDFileAnyTypeFieldMultiTSWithoutSDA *elt(*it);
10247       if(elt)
10248         elt->loadBigArraysRecursively(fid,*elt);
10249     }
10250 }
10251
10252 /*!
10253  * This method behaves as MEDFileFields::loadArrays does, the first call, if \a this was built using a file without loading big arrays.
10254  * But once data loaded once, this method does nothing.
10255  *
10256  * \throw If the fileName is not set or points to a non readable MED file.
10257  * \sa MEDFileFields::loadArrays, MEDFileFields::unloadArrays
10258  */
10259 void MEDFileFields::loadArraysIfNecessary()
10260 {
10261   if(!getFileName().empty())
10262     {
10263       MEDFileUtilities::AutoFid fid(OpenMEDFileForRead(getFileName()));
10264       for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::iterator it=_fields.begin();it!=_fields.end();it++)
10265         {
10266           MEDFileAnyTypeFieldMultiTSWithoutSDA *elt(*it);
10267           if(elt)
10268             elt->loadBigArraysRecursivelyIfNecessary(fid,*elt);
10269         }
10270     }
10271 }
10272
10273 /*!
10274  * This method releases potentially big data arrays and so returns to the same heap memory than status loaded with 'loadAll' parameter set to false.
10275  * \b WARNING, this method does release arrays even if \a this does not come from a load of a MED file.
10276  * So this method can lead to a loss of data. If you want to unload arrays safely call MEDFileFields::unloadArraysWithoutDataLoss instead.
10277  *
10278  * \sa MEDFileFields::loadArrays, MEDFileFields::loadArraysIfNecessary, MEDFileFields::unloadArraysWithoutDataLoss
10279  */
10280 void MEDFileFields::unloadArrays()
10281 {
10282   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::iterator it=_fields.begin();it!=_fields.end();it++)
10283     {
10284       MEDFileAnyTypeFieldMultiTSWithoutSDA *elt(*it);
10285       if(elt)
10286         elt->unloadArrays();
10287     }
10288 }
10289
10290 /*!
10291  * This method potentially releases big data arrays if \a this is coming from a file. If \a this has been built from scratch this method will have no effect.
10292  * This method is the symetrical method of MEDFileFields::loadArraysIfNecessary.
10293  * This method is useful to reduce \b safely amount of heap memory necessary for \a this by using MED file as database.
10294  *
10295  * \sa MEDFileFields::loadArraysIfNecessary
10296  */
10297 void MEDFileFields::unloadArraysWithoutDataLoss()
10298 {
10299   if(!getFileName().empty())
10300     unloadArrays();
10301 }
10302
10303 std::vector<std::string> MEDFileFields::getPflsReallyUsed() const
10304 {
10305   std::vector<std::string> ret;
10306   std::set<std::string> ret2;
10307   for(std::vector< MCAuto< MEDFileAnyTypeFieldMultiTSWithoutSDA > >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10308     {
10309       std::vector<std::string> tmp=(*it)->getPflsReallyUsed2();
10310       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
10311         if(ret2.find(*it2)==ret2.end())
10312           {
10313             ret.push_back(*it2);
10314             ret2.insert(*it2);
10315           }
10316     }
10317   return ret;
10318 }
10319
10320 std::vector<std::string> MEDFileFields::getLocsReallyUsed() const
10321 {
10322   std::vector<std::string> ret;
10323   std::set<std::string> ret2;
10324   for(std::vector< MCAuto< MEDFileAnyTypeFieldMultiTSWithoutSDA > >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10325     {
10326       std::vector<std::string> tmp=(*it)->getLocsReallyUsed2();
10327       for(std::vector<std::string>::const_iterator it2=tmp.begin();it2!=tmp.end();it2++)
10328         if(ret2.find(*it2)==ret2.end())
10329           {
10330             ret.push_back(*it2);
10331             ret2.insert(*it2);
10332           }
10333     }
10334   return ret;
10335 }
10336
10337 std::vector<std::string> MEDFileFields::getPflsReallyUsedMulti() const
10338 {
10339   std::vector<std::string> ret;
10340   for(std::vector< MCAuto< MEDFileAnyTypeFieldMultiTSWithoutSDA > >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10341     {
10342       std::vector<std::string> tmp=(*it)->getPflsReallyUsedMulti2();
10343       ret.insert(ret.end(),tmp.begin(),tmp.end());
10344     }
10345   return ret;
10346 }
10347
10348 std::vector<std::string> MEDFileFields::getLocsReallyUsedMulti() const
10349 {
10350   std::vector<std::string> ret;
10351   for(std::vector< MCAuto< MEDFileAnyTypeFieldMultiTSWithoutSDA > >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10352     {
10353       std::vector<std::string> tmp=(*it)->getLocsReallyUsed2();
10354       ret.insert(ret.end(),tmp.begin(),tmp.end());
10355     }
10356   return ret;
10357 }
10358
10359 void MEDFileFields::changePflsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
10360 {
10361   for(std::vector< MCAuto< MEDFileAnyTypeFieldMultiTSWithoutSDA > >::iterator it=_fields.begin();it!=_fields.end();it++)
10362     (*it)->changePflsRefsNamesGen2(mapOfModif);
10363 }
10364
10365 void MEDFileFields::changeLocsRefsNamesGen(const std::vector< std::pair<std::vector<std::string>, std::string > >& mapOfModif)
10366 {
10367   for(std::vector< MCAuto< MEDFileAnyTypeFieldMultiTSWithoutSDA > >::iterator it=_fields.begin();it!=_fields.end();it++)
10368     (*it)->changeLocsRefsNamesGen2(mapOfModif);
10369 }
10370
10371 void MEDFileFields::resize(int newSize)
10372 {
10373   _fields.resize(newSize);
10374 }
10375
10376 void MEDFileFields::pushFields(const std::vector<MEDFileAnyTypeFieldMultiTS *>& fields)
10377 {
10378   for(std::vector<MEDFileAnyTypeFieldMultiTS *>::const_iterator it=fields.begin();it!=fields.end();it++)
10379     pushField(*it);
10380 }
10381
10382 void MEDFileFields::pushField(MEDFileAnyTypeFieldMultiTS *field)
10383 {
10384   if(!field)
10385     throw INTERP_KERNEL::Exception("MEDFileFields::pushMesh : invalid input pointer ! should be different from 0 !");
10386   _fields.push_back(field->getContent());
10387   appendGlobs(*field,1e-12);
10388 }
10389
10390 void MEDFileFields::setFieldAtPos(int i, MEDFileAnyTypeFieldMultiTS *field)
10391 {
10392   if(!field)
10393     throw INTERP_KERNEL::Exception("MEDFileFields::setFieldAtPos : invalid input pointer ! should be different from 0 !");
10394   if(i>=(int)_fields.size())
10395     _fields.resize(i+1);
10396   _fields[i]=field->getContent();
10397   appendGlobs(*field,1e-12);
10398 }
10399
10400 void MEDFileFields::destroyFieldAtPos(int i)
10401 {
10402   destroyFieldsAtPos(&i,&i+1);
10403 }
10404
10405 void MEDFileFields::destroyFieldsAtPos(const int *startIds, const int *endIds)
10406 {
10407   std::vector<bool> b(_fields.size(),true);
10408   for(const int *i=startIds;i!=endIds;i++)
10409     {
10410       if(*i<0 || *i>=(int)_fields.size())
10411         {
10412           std::ostringstream oss; oss << "MEDFileFields::destroyFieldsAtPos : Invalid given id in input (" << *i << ") should be in [0," << _fields.size() << ") !";
10413           throw INTERP_KERNEL::Exception(oss.str());
10414         }
10415       b[*i]=false;
10416     }
10417   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > fields(std::count(b.begin(),b.end(),true));
10418   std::size_t j=0;
10419   for(std::size_t i=0;i<_fields.size();i++)
10420     if(b[i])
10421       fields[j++]=_fields[i];
10422   _fields=fields;
10423 }
10424
10425 void MEDFileFields::destroyFieldsAtPos2(int bg, int end, int step)
10426 {
10427   static const char msg[]="MEDFileFields::destroyFieldsAtPos2";
10428   int nbOfEntriesToKill=DataArrayInt::GetNumberOfItemGivenBESRelative(bg,end,step,msg);
10429   std::vector<bool> b(_fields.size(),true);
10430   int k=bg;
10431   for(int i=0;i<nbOfEntriesToKill;i++,k+=step)
10432     {
10433       if(k<0 || k>=(int)_fields.size())
10434         {
10435           std::ostringstream oss; oss << "MEDFileFields::destroyFieldsAtPos2 : Invalid given id in input (" << k << ") should be in [0," << _fields.size() << ") !";
10436           throw INTERP_KERNEL::Exception(oss.str());
10437         }
10438       b[k]=false;
10439     }
10440   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > fields(std::count(b.begin(),b.end(),true));
10441   std::size_t j=0;
10442   for(std::size_t i=0;i<_fields.size();i++)
10443     if(b[i])
10444       fields[j++]=_fields[i];
10445   _fields=fields;
10446 }
10447
10448 bool MEDFileFields::changeMeshNames(const std::vector< std::pair<std::string,std::string> >& modifTab)
10449 {
10450   bool ret=false;
10451   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::iterator it=_fields.begin();it!=_fields.end();it++)
10452     {
10453       MEDFileAnyTypeFieldMultiTSWithoutSDA *cur(*it);
10454       if(cur)
10455         ret=cur->changeMeshNames(modifTab) || ret;
10456     }
10457   return ret;
10458 }
10459
10460 /*!
10461  * \param [in] meshName the name of the mesh that will be renumbered.
10462  * \param [in] oldCode is of format returned by MEDCouplingUMesh::getDistributionOfTypes. And for each *i* oldCode[3*i+2] gives the position (MEDFileUMesh::PutInThirdComponentOfCodeOffset).
10463  *             This code corresponds to the distribution of types in the corresponding mesh.
10464  * \param [in] newCode idem to param \a oldCode except that here the new distribution is given.
10465  * \param [in] renumO2N the old to new renumber array.
10466  * \return If true a renumbering has been performed. The structure in \a this has been modified. If false, nothing has been done: it is typically the case if \a meshName is not refered by any
10467  *         field in \a this.
10468  */
10469 bool MEDFileFields::renumberEntitiesLyingOnMesh(const std::string& meshName, const std::vector<int>& oldCode, const std::vector<int>& newCode, const DataArrayInt *renumO2N)
10470 {
10471   bool ret=false;
10472   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::iterator it=_fields.begin();it!=_fields.end();it++)
10473     {
10474       MEDFileAnyTypeFieldMultiTSWithoutSDA *fmts(*it);
10475       if(fmts)
10476         {
10477           ret=fmts->renumberEntitiesLyingOnMesh(meshName,oldCode,newCode,renumO2N,*this) || ret;
10478         }
10479     }
10480   return ret;
10481 }
10482
10483 /*!
10484  * Return an extraction of \a this using \a extractDef map to specify the extraction.
10485  * The keys of \a extractDef is level relative to max ext of \a mm mesh.
10486  *
10487  * \return A new object that the caller is responsible to deallocate.
10488  */
10489 MEDFileFields *MEDFileFields::extractPart(const std::map<int, MCAuto<DataArrayInt> >& extractDef, MEDFileMesh *mm) const
10490 {
10491   if(!mm)
10492     throw INTERP_KERNEL::Exception("MEDFileFields::extractPart : input mesh is NULL !");
10493   MCAuto<MEDFileFields> fsOut(MEDFileFields::New());
10494   int nbFields(getNumberOfFields());
10495   for(int i=0;i<nbFields;i++)
10496     {
10497       MCAuto<MEDFileAnyTypeFieldMultiTS> fmts(getFieldAtPos(i));
10498       if(!fmts)
10499         {
10500           std::ostringstream oss; oss << "MEDFileFields::extractPart : at pos #" << i << " field is null !";
10501           throw INTERP_KERNEL::Exception(oss.str());
10502         }
10503       MCAuto<MEDFileAnyTypeFieldMultiTS> fmtsOut(fmts->extractPart(extractDef,mm));
10504       fsOut->pushField(fmtsOut);
10505     }
10506   return fsOut.retn();
10507 }
10508
10509 MEDFileAnyTypeFieldMultiTS *MEDFileFields::getFieldAtPos(int i) const
10510 {
10511   if(i<0 || i>=(int)_fields.size())
10512     {
10513       std::ostringstream oss; oss << "MEDFileFields::getFieldAtPos : Invalid given id in input (" << i << ") should be in [0," << _fields.size() << ") !";
10514       throw INTERP_KERNEL::Exception(oss.str());
10515     }
10516   const MEDFileAnyTypeFieldMultiTSWithoutSDA *fmts=_fields[i];
10517   if(!fmts)
10518     return 0;
10519   MCAuto<MEDFileAnyTypeFieldMultiTS> ret;
10520   const MEDFileFieldMultiTSWithoutSDA *fmtsC=dynamic_cast<const MEDFileFieldMultiTSWithoutSDA *>(fmts);
10521   const MEDFileIntFieldMultiTSWithoutSDA *fmtsC2=dynamic_cast<const MEDFileIntFieldMultiTSWithoutSDA *>(fmts);
10522   if(fmtsC)
10523     ret=MEDFileFieldMultiTS::New(*fmtsC,false);
10524   else if(fmtsC2)
10525     ret=MEDFileIntFieldMultiTS::New(*fmtsC2,false);
10526   else
10527     {
10528       std::ostringstream oss; oss << "MEDFileFields::getFieldAtPos : At pos #" << i << " field is neither double (FLOAT64) nor integer (INT32) !";
10529       throw INTERP_KERNEL::Exception(oss.str());
10530     }
10531   ret->shallowCpyGlobs(*this);
10532   return ret.retn();
10533 }
10534
10535 /*!
10536  * Return a shallow copy of \a this reduced to the fields ids defined in [ \a startIds , endIds ).
10537  * This method is accessible in python using __getitem__ with a list in input.
10538  * \return a new object that the caller should deal with.
10539  */
10540 MEDFileFields *MEDFileFields::buildSubPart(const int *startIds, const int *endIds) const
10541 {
10542   MCAuto<MEDFileFields> ret=shallowCpy();
10543   std::size_t sz=std::distance(startIds,endIds);
10544   std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > fields(sz);
10545   int j=0;
10546   for(const int *i=startIds;i!=endIds;i++,j++)
10547     {
10548       if(*i<0 || *i>=(int)_fields.size())
10549         {
10550           std::ostringstream oss; oss << "MEDFileFields::buildSubPart : Invalid given id in input (" << *i << ") should be in [0," << _fields.size() << ") !";
10551           throw INTERP_KERNEL::Exception(oss.str());
10552         }
10553       fields[j]=_fields[*i];
10554     }
10555   ret->_fields=fields;
10556   return ret.retn();
10557 }
10558
10559 MEDFileAnyTypeFieldMultiTS *MEDFileFields::getFieldWithName(const std::string& fieldName) const
10560 {
10561   return getFieldAtPos(getPosFromFieldName(fieldName));
10562 }
10563
10564 /*!
10565  * This method removes, if any, fields in \a this having no time steps.
10566  * If there is one or more than one such field in \a this true is returned and those fields will not be referenced anymore in \a this.
10567  *
10568  * If false is returned \a this does not contain such fields. If false is returned this method can be considered as const.
10569  */
10570 bool MEDFileFields::removeFieldsWithoutAnyTimeStep()
10571 {
10572   std::vector<MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> > newFields;
10573   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10574     {
10575       const MEDFileAnyTypeFieldMultiTSWithoutSDA *elt(*it);
10576       if(elt)
10577         {
10578           if(elt->getNumberOfTS()>0)
10579             newFields.push_back(*it);
10580         }
10581     }
10582   if(_fields.size()==newFields.size())
10583     return false;
10584   _fields=newFields;
10585   return true;
10586 }
10587
10588 /*!
10589  * This method returns a new object containing part of \a this fields lying on mesh name specified by the input parameter \a meshName.
10590  * This method can be seen as a filter applied on \a this, that returns an object containing
10591  * reduced the list of fields compared to those in \a this. The returned object is a new object but the object on which it lies are only
10592  * shallow copied from \a this.
10593  *
10594  * \param [in] meshName - the name of the mesh on w
10595  * \return a new object that the caller should deal with.
10596  */
10597 MEDFileFields *MEDFileFields::partOfThisLyingOnSpecifiedMeshName(const std::string& meshName) const
10598 {
10599   MCAuto<MEDFileFields> ret=MEDFileFields::New();
10600   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10601     {
10602       const MEDFileAnyTypeFieldMultiTSWithoutSDA *cur=(*it);
10603       if(!cur)
10604         continue;
10605       if(cur->getMeshName()==meshName)
10606         {
10607           cur->incrRef();
10608           MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> cur2(const_cast<MEDFileAnyTypeFieldMultiTSWithoutSDA *>(cur));
10609           ret->_fields.push_back(cur2);
10610         }
10611     }
10612   ret->shallowCpyOnlyUsedGlobs(*this);
10613   return ret.retn();
10614 }
10615
10616 /*!
10617  * This method returns a new object containing part of \a this fields lying ** exactly ** on the time steps specified by input parameter \a timeSteps.
10618  * Input time steps are specified using a pair of integer (iteration, order).
10619  * This method can be seen as a filter applied on \a this, that returns an object containing the same number of fields than those in \a this,
10620  * but for each multitimestep only the time steps in \a timeSteps are kept.
10621  * Typically the input parameter \a timeSteps comes from the call of MEDFileFields::getCommonIterations.
10622  *
10623  * The returned object points to shallow copy of elements in \a this.
10624  *
10625  * \param [in] timeSteps - the time steps given by a vector of pair of integers (iteration,order)
10626  * \throw If there is a field in \a this that is \b not defined on a time step in the input \a timeSteps.
10627  * \sa MEDFileFields::getCommonIterations, MEDFileFields::partOfThisNotLyingOnSpecifiedTimeSteps
10628  */
10629 MEDFileFields *MEDFileFields::partOfThisLyingOnSpecifiedTimeSteps(const std::vector< std::pair<int,int> >& timeSteps) const
10630 {
10631   MCAuto<MEDFileFields> ret=MEDFileFields::New();
10632   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10633     {
10634       const MEDFileAnyTypeFieldMultiTSWithoutSDA *cur=(*it);
10635       if(!cur)
10636         continue;
10637       MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> elt=cur->partOfThisLyingOnSpecifiedTimeSteps(timeSteps);
10638       ret->_fields.push_back(elt);
10639     }
10640   ret->shallowCpyOnlyUsedGlobs(*this);
10641   return ret.retn();
10642 }
10643
10644 /*!
10645  * \sa MEDFileFields::getCommonIterations, MEDFileFields::partOfThisLyingOnSpecifiedTimeSteps
10646  */
10647 MEDFileFields *MEDFileFields::partOfThisNotLyingOnSpecifiedTimeSteps(const std::vector< std::pair<int,int> >& timeSteps) const
10648 {
10649   MCAuto<MEDFileFields> ret=MEDFileFields::New();
10650   for(std::vector< MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> >::const_iterator it=_fields.begin();it!=_fields.end();it++)
10651     {
10652       const MEDFileAnyTypeFieldMultiTSWithoutSDA *cur=(*it);
10653       if(!cur)
10654         continue;
10655       MCAuto<MEDFileAnyTypeFieldMultiTSWithoutSDA> elt=cur->partOfThisNotLyingOnSpecifiedTimeSteps(timeSteps);
10656       if(elt->getNumberOfTS()!=0)
10657         ret->_fields.push_back(elt);
10658     }
10659   ret->shallowCpyOnlyUsedGlobs(*this);
10660   return ret.retn();
10661 }
10662
10663 MEDFileFieldsIterator *MEDFileFields::iterator()
10664 {
10665   return new MEDFileFieldsIterator(this);
10666 }
10667
10668 int MEDFileFields::getPosFromFieldName(const std::string& fieldName) const
10669 {
10670   std::string tmp(fieldName);
10671   std::vector<std::string> poss;
10672   for(std::size_t i=0;i<_fields.size();i++)
10673     {
10674       const MEDFileAnyTypeFieldMultiTSWithoutSDA *f=_fields[i];
10675       if(f)
10676         {
10677           std::string fname(f->getName());
10678           if(tmp==fname)
10679             return i;
10680           else
10681             poss.push_back(fname);
10682         }
10683     }
10684   std::ostringstream oss; oss << "MEDFileFields::getPosFromFieldName : impossible to find field '" << tmp << "' in this ! Possibilities are : ";
10685   std::copy(poss.begin(),poss.end(),std::ostream_iterator<std::string>(oss,", "));
10686   oss << " !";
10687   throw INTERP_KERNEL::Exception(oss.str());
10688 }
10689
10690 MEDFileFieldsIterator::MEDFileFieldsIterator(MEDFileFields *fs):_fs(fs),_iter_id(0),_nb_iter(0)
10691 {
10692   if(fs)
10693     {
10694       fs->incrRef();
10695       _nb_iter=fs->getNumberOfFields();
10696     }
10697 }
10698
10699 MEDFileFieldsIterator::~MEDFileFieldsIterator()
10700 {
10701 }
10702
10703 MEDFileAnyTypeFieldMultiTS *MEDFileFieldsIterator::nextt()
10704 {
10705   if(_iter_id<_nb_iter)
10706     {
10707       MEDFileFields *fs(_fs);
10708       if(fs)
10709         return fs->getFieldAtPos(_iter_id++);
10710       else
10711         return 0;
10712     }
10713   else
10714     return 0;
10715 }