maacf.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 #include <stdlib.h>
00023 #include <string.h>
00024 
00025 
00026 #define nedfdiml F77_FUNC(edfdiml,EDFDIML)
00027 #define nedfmaac F77_FUNC(edfmaac,EDFMAAC)
00028 #define nedfnmaa F77_FUNC(edfnmaa,EDFNMAA)
00029 #define nedfmaai F77_FUNC(edfmaai,EDFMAAI)
00030 #define nedfnnsl F77_FUNC(edfnnsl,EDFNNSL)
00031 #define nedfnnse F77_FUNC(edfnnse,EDFNNSE)
00032 #define nedfnnil F77_FUNC(edfnnil,EDFNNIL)
00033 #define nedfnnie F77_FUNC(edfnnie,EDFNNIE)
00034 #define nedfnnml F77_FUNC(edfnnml,EDFNNML)
00035 #define nedfnnme F77_FUNC(edfnnme,EDFNNME)
00036 #define nedfunvc F77_FUNC(edfunvc,EDFUNVC)
00037 #define nedfunvl F77_FUNC(edfunvl,EDFUNVL)
00038 #define nedfespc F77_FUNC(edfespc,EDFESPC)
00039 #define nedfespl F77_FUNC(edfespl,EDFESPL)
00040 #define nedfnage F77_FUNC(edfnage,EDFNAGE)
00041 #define nedfnagl F77_FUNC(edfnagl,EDFNAGL)
00042 
00043 
00044 #ifdef PPRO_NT
00045 med_int
00046 EDFDIML(med_int *fid, char *maa, unsigned int bidon, 
00047                   med_int *lon)
00048 #else
00049 med_int
00050 nedfdiml(med_int *fid, char *maa,med_int *lon)
00051 #endif
00052 {
00053   char *fn;
00054   med_int ret;
00055 
00056   fn = _MED2cstring(maa, (int) * lon);  
00057   if (!fn)
00058     return(-1); 
00059 
00060   ret = (med_int) MEDdimLire((med_idt) *fid,fn); 
00061 
00062   _MEDcstringFree(fn);
00063 
00064   return(ret); 
00065 }
00066 
00067 #ifdef PPRO_NT
00068 med_int 
00069 EDFMAAC(med_int *fid , char *nom, unsigned int bidon, 
00070                   med_int *lon, med_int * dim, med_int *type,
00071                   char *desc, unsigned int bidon2, med_int *lon2)
00072 #else
00073 med_int 
00074 nedfmaac(med_int *fid , char *nom, med_int *lon, med_int * dim, med_int *type,
00075          char *desc, med_int *lon2)
00076 #endif
00077 {
00078   char *fn1, *fn2;
00079   med_int ret;
00080 
00081   fn1 = _MED2cstring(nom, (int) * lon);
00082   fn2 = _MED2cstring(desc,(int) * lon2);
00083   
00084   if (!fn1)
00085     return(-1); 
00086 
00087   if (!fn2)
00088     return -1;
00089 
00090   ret = (med_int) MEDmaaCr((med_idt) *fid, fn1, (med_int) *dim, 
00091                            (med_maillage) *type,fn2); 
00092 
00093   _MEDcstringFree(fn1);
00094   _MEDcstringFree(fn2);
00095 
00096   return(ret); 
00097 }
00098 
00099 #ifdef PPRO_NT
00100 med_int 
00101  EDFMAAI(med_int *fid, med_int *indice, char *maa, 
00102                   unsigned int bidon, med_int *dim, med_int *type,
00103                   char *desc, unsigned int bidon2)
00104 #else
00105 med_int
00106 nedfmaai(med_int *fid,med_int *indice, char *maa,med_int *dim, 
00107          med_int *type,char *desc)
00108 #endif
00109 {
00110   med_int ret;
00111   char fs1[MED_TAILLE_NOM+1];
00112   char fs2[MED_TAILLE_DESC+1];
00113   med_maillage local_type;
00114 
00115   ret = (med_int) MEDmaaInfo((med_idt)*fid,(med_int) *indice, (char *) fs1, 
00116                              (med_int *) dim,&local_type,
00117                              (char *) fs2); 
00118 
00119   *type = (med_int) local_type;
00120   
00121   strncpy(maa,fs1,MED_TAILLE_NOM);
00122   _MEDfstring(maa,MED_TAILLE_NOM);
00123 
00124   strncpy(desc,fs2,MED_TAILLE_DESC);
00125   _MEDfstring(desc,MED_TAILLE_DESC);
00126 
00127   return(ret); 
00128 }
00129 
00130 #ifdef PPRO_NT
00131 med_int 
00132 EDFNMAA(med_int *fid)
00133 #else
00134 med_int 
00135 nedfnmaa(med_int *fid)
00136 #endif
00137 {
00138   med_int ret; 
00139   
00140   ret = (med_int) MEDnMaa((med_idt) *fid); 
00141 
00142   return(ret); 
00143 }
00144 
00145 #ifdef PPRO_NT
00146 med_int 
00147  EDFNNSL(med_int *fid,char *maa,unsigned int bidon1, med_int *lon1)
00148 #else
00149 med_int
00150 nedfnnsl(med_int *fid,char *maa,med_int *lon1)
00151 #endif
00152 {
00153   med_int ret;
00154   char *fn1;
00155 
00156   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00157 
00158   if (!fn1)
00159     return -1;
00160 
00161   ret = (med_int) MEDnbnosoLire((med_idt) *fid,(char *)fn1);
00162 
00163   _MEDcstringFree(fn1);
00164 
00165   return ret;
00166 }
00167 
00168 #ifdef PPRO_NT
00169 med_int 
00170  EDFNNSE(med_int *fid,char *maa, unsigned int bidon1, 
00171                   med_int *lon1,med_int *n)
00172 #else
00173 med_int
00174 nedfnnse(med_int *fid,char *maa,med_int *lon1,med_int *n)
00175 #endif
00176 {
00177   med_int ret;
00178   char *fn1;
00179 
00180   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00181  
00182   if (!fn1)
00183     return -1;
00184 
00185   ret = (med_int) MEDnbnosoEcr((med_idt) *fid,(char *)fn1,(med_int)*n);
00186 
00187   _MEDcstringFree(fn1);
00188 
00189   return ret;
00190 }
00191 
00192 #ifdef PPRO_NT
00193 med_int 
00194  EDFNNIL(med_int *fid,char *maa,unsigned bidon1, med_int *lon1)
00195 #else
00196 med_int
00197 nedfnnil(med_int *fid,char *maa,med_int *lon1)
00198 #endif
00199 {
00200   med_int ret;
00201   char *fn1;
00202 
00203   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00204 
00205   if (!fn1)
00206     return -1;
00207 
00208   ret = (med_int) MEDnbnosoLire((med_idt) *fid,(char *)fn1);
00209 
00210   _MEDcstringFree(fn1);
00211 
00212   return ret;
00213 }
00214 
00215 
00216 #ifdef PPRO_NT
00217 med_int 
00218  EDFNNIE(med_int *fid, char *maa, unsigned int bidon1,
00219                   med_int *lon1,med_int *n)
00220 #else
00221 med_int
00222 nedfnnie(med_int *fid,char *maa,med_int *lon1,med_int *n)
00223 #endif
00224 {
00225   med_int ret;
00226   char *fn1;
00227 
00228   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00229 
00230   if (!fn1)
00231     return -1;
00232 
00233   ret = (med_int) MEDnbnosoEcr((med_idt) *fid,(char *)fn1,(med_int)*n);
00234 
00235   _MEDcstringFree(fn1);
00236 
00237   return ret;
00238 }
00239 
00240 #ifdef PPRO_NT
00241 med_int 
00242  EDFNNML(med_int *fid,char *maa,unsigned int bidon1,med_int *lon1)
00243 #else
00244 med_int
00245 nedfnnml(med_int *fid,char *maa,med_int *lon1)
00246 #endif
00247 {
00248   med_int ret;
00249   char *fn1;
00250 
00251   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00252 
00253   if (!fn1)
00254     return -1;
00255 
00256   ret = (med_int) MEDnbnosoLire((med_idt) *fid,(char *)fn1);
00257 
00258   _MEDcstringFree(fn1);
00259 
00260   return ret;
00261 }
00262 
00263 #ifdef PPRO_NT
00264 med_int 
00265  EDFNNME(med_int *fid,char *maa,unsigned int bidon1,
00266                   med_int *lon1,med_int *n)
00267 #else
00268 med_int
00269 nedfnnme(med_int *fid,char *maa,med_int *lon1,med_int *n)
00270 #endif
00271 {
00272   med_int ret;
00273   char *fn1;
00274 
00275   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00276 
00277   if (!fn1)
00278     return -1;
00279 
00280   ret = (med_int) MEDnbnosoEcr((med_idt) *fid,(char *)fn1,(med_int)*n);
00281 
00282   _MEDcstringFree(fn1);
00283 
00284   return ret;
00285 }
00286 
00287 
00288 #ifdef PPRO_NT
00289 med_int
00290  EDFUNVC(med_int *fid , char *nom, unsigned int bidon, med_int *lon)
00291 #else
00292 med_int
00293 nedfunvc(med_int *fid , char *nom, med_int *lon)
00294 #endif
00295 {
00296   char *fn;
00297   med_int ret;
00298  
00299   fn = _MED2cstring(nom, (int) * lon);
00300  
00301   if (!fn)
00302     return(-1);
00303  
00304   ret = (med_int) MEDunvCr((med_idt) *fid, fn);
00305  
00306   _MEDcstringFree(fn);
00307  
00308   return(ret);
00309 }
00310 
00311 #ifdef PPRO_NT
00312 med_int
00313  EDFUNVL(med_int *fid,char *nom, unsigned int bidon, med_int *lon,
00314                   char *nomu, unsigned int bidon1, med_int *lonu)
00315 #else
00316 med_int
00317 nedfunvl(med_int *fid,char *nom,med_int *lon,char *nomu,med_int *lonu)
00318 #endif
00319 {
00320   char *fn;
00321   char *fs1;
00322   med_int ret;
00323 
00324   fn = _MED2cstring(nom, (int) * lon);
00325   fs1 = (char *) malloc(sizeof(char)*MED_TAILLE_LNOM+1);
00326  
00327   if (!(fn&&fs1))
00328     return(-1);
00329 
00330   ret = (med_int) MEDunvLire((med_idt)*fid,fn,fs1);
00331 
00332   strncpy(nomu,fs1,MED_TAILLE_LNOM);
00333   _MEDfstring(nomu,MED_TAILLE_LNOM);
00334 
00335   _MEDcstringFree(fn);
00336   free(fs1);
00337 
00338   return(ret);
00339 }
00340 
00341 #ifdef PPRO_NT
00342 med_int
00343  EDFESPC(med_int *fid, char *maa, unsigned int bidon, 
00344                   med_int *lon, med_int *dim)
00345 #else
00346 med_int
00347 nedfespc(med_int *fid, char *maa,med_int *lon,med_int *dim)
00348 #endif
00349 {
00350   char *fn;
00351   med_int ret;
00352 
00353   fn = _MED2cstring(maa, (int) * lon);
00354   
00355   if (!fn)
00356     return(-1); 
00357 
00358   ret = (med_int) MEDdimEspaceCr((med_idt) *fid, fn, (med_int) *dim); 
00359 
00360   _MEDcstringFree(fn);
00361 
00362   return(ret); 
00363 }
00364 
00365 #ifdef PPRO_NT
00366 med_int
00367  EDFESPL(med_int *fid, char *maa, unsigned int bidon, 
00368                   med_int *lon)
00369 #else
00370 med_int
00371 nedfespl(med_int *fid, char *maa,med_int *lon)
00372 #endif
00373 {
00374   char *fn;
00375   med_int ret;
00376 
00377   fn = _MED2cstring(maa, (int) * lon);
00378 
00379   if (!fn)
00380     return(-1); 
00381 
00382   ret = (med_int) MEDdimEspaceLire((med_idt) *fid,fn); 
00383 
00384   _MEDcstringFree(fn);
00385 
00386   return(ret); 
00387 }
00388 
00389 #ifdef PPRO_NT
00390 med_int 
00391  EDFNAGE(med_int *fid,char *maa, unsigned int bidon1, 
00392                   med_int *lon1,med_int *type)
00393 #else
00394 med_int
00395 nedfnage(med_int *fid,char *maa,med_int *lon1,med_int *type)
00396 #endif
00397 {
00398   med_int ret;
00399   char *fn1;
00400 
00401   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00402  
00403   if (!fn1)
00404     return -1;
00405 
00406   ret = (med_int) MEDnatureGrilleEcr((med_idt) *fid,(char *)fn1,(med_type_grille)*type);
00407 
00408   _MEDcstringFree(fn1);
00409 
00410   return ret;
00411 }
00412 
00413 #ifdef PPRO_NT
00414 med_int 
00415  EDFNAGL(med_int *fid,char *maa, unsigned int bidon1, 
00416                   med_int *lon1,med_int *type)
00417 #else
00418 med_int
00419 nedfnagl(med_int *fid,char *maa,med_int *lon1,med_int *type)
00420 #endif
00421 {
00422   med_int ret;
00423   char *fn1;
00424 
00425   fn1 = _MED2cstring((char *)maa,(int)*lon1);
00426  
00427   if (!fn1)
00428     return -1;
00429 
00430   ret = (med_int) MEDnatureGrilleLire((med_idt) *fid,(char *)fn1,(med_type_grille *)type);
00431 
00432   _MEDcstringFree(fn1);
00433 
00434   return ret;
00435 }

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