MEDdimEspaceCr.c

Aller à la documentation de ce fichier.
00001 /*  This file is part of MED.
00002  *
00003  *  COPYRIGHT (C) 1999 - 2015  EDF R&D, CEA/DEN
00004  *  MED is free software: you can redistribute it and/or modify
00005  *  it under the terms of the GNU Lesser General Public License as published by
00006  *  the Free Software Foundation, either version 3 of the License, or
00007  *  (at your option) any later version.
00008  *
00009  *  MED is distributed in the hope that it will be useful,
00010  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
00011  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012  *  GNU Lesser General Public License for more details.
00013  *
00014  *  You should have received a copy of the GNU Lesser General Public License
00015  *  along with MED.  If not, see <http://www.gnu.org/licenses/>.
00016  */
00017 
00018 
00019 #include <med.h>
00020 #include <med_config.h>
00021 #include <med_outils.h>
00022 
00023 #include <string.h>
00024 #include <stdlib.h>
00025 
00026 med_err
00027 MEDdimEspaceCr(med_idt fid, char *maillage, med_int dim)
00028 {
00029   med_idt maaid=0;
00030   med_err ret=-1;
00031   char chemin[MED_TAILLE_MAA+MED_TAILLE_NOM+1];
00032   med_int maadim;
00033   med_mode_acces MED_MODE_ACCES;
00034 
00035   /*
00036    * On inhibe le gestionnaire d'erreur
00037    */
00038   _MEDmodeErreurVerrouiller();
00039 if (MEDcheckVersion(fid) < 0) return -1;
00040 
00041 
00042   if ( (MED_MODE_ACCES = _MEDmodeAcces(fid) ) == MED_UNDEF_MODE_ACCES ) {
00043     MESSAGE("Impossible de déterminer le mode d'acces au fichier.");
00044     goto ERROR;
00045   }
00046 
00047   if ( MED_MODE_ACCES == MED_LECTURE ) {
00048     MESSAGE("Impossible de créer un maillage en mode MED_LECTURE.");
00049     goto ERROR;
00050   };
00051 
00052   /*
00053    * On regarde si le groupe existe => erreur si non
00054    */
00055   strcpy(chemin,MED_MAA);
00056   strcat(chemin,maillage);  
00057   if ((maaid = _MEDdatagroupOuvrir(fid,chemin)) < 0) {
00058     MESSAGE("Erreur à l'ouverture du maillage : ");
00059     SSCRUTE(chemin);
00060     goto ERROR;
00061   }
00062 
00063   /*
00064    * On va lire l'attribut dimension du maillage et on controle 
00065    * la coherence
00066    */
00067   if ((ret = _MEDattrEntierLire(maaid,MED_NOM_DIM,&maadim)) < 0) {
00068     MESSAGE("Erreur à la lecture de la dimension du maillage : ");
00069     ISCRUTE(maadim);
00070     goto ERROR;
00071   }
00072 
00073   if (maadim > dim) {
00074     MESSAGE("La dimension de l'espace : ");
00075     ISCRUTE(dim);
00076     MESSAGE("doit être supérieur à la dimension du maillage : ");
00077     ISCRUTE(maadim);
00078     goto ERROR;
00079   }
00080 
00081   /*
00082    * On ecrit la dimension de l'espace
00083    */
00084   if ((ret = _MEDattrEntierEcrire(maaid,MED_NOM_ESP,&dim)) < 0)  {
00085     MESSAGE("Erreur à l'écriture de la dimension de l'espace : ");
00086     ISCRUTE(dim);
00087     goto ERROR;
00088   }
00089 
00090   /*
00091    * Fermetures des objets HDF 
00092    */
00093   ret = 0;
00094  ERROR:
00095   if (maaid>0)     if (_MEDdatagroupFermer(maaid) < 0) {
00096     MESSAGE("Impossible de fermer le datagroup : ");
00097     ISCRUTE_id(maaid);ret = -1; 
00098   }
00099   
00100   return ret;
00101 
00102 }

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1