MED fichier
librarycf.c
Aller à la documentation de ce fichier.
1 /* This file is part of MED.
2  *
3  * COPYRIGHT (C) 1999 - 2016 EDF R&D, CEA/DEN
4  * MED is free software: you can redistribute it and/or modify
5  * it under the terms of the GNU Lesser General Public License as published by
6  * the Free Software Foundation, either version 3 of the License, or
7  * (at your option) any later version.
8  *
9  * MED is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12  * GNU Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public License
15  * along with MED. If not, see <http://www.gnu.org/licenses/>.
16  */
17 
18 
19 #include <med.h>
20 #include "med_config.h"
21 #include "med_outils.h"
22 #include <string.h>
23 #include <stdlib.h>
24 
25 /*
26 From Fortran call of following C functions :
27 - MEDlibraryClose
28 - MEDlibraryHdfNumVersion
29 - MEDlibraryHdfStrVersion
30 - MEDlibraryNumVersion
31 - MEDlibraryStrVersion
32 */
33 
34 #define nmlbfclo F77_FUNC(mlbfclo,MLBFCLO)
35 #define nmlbfnuv F77_FUNC(mlbfnuv,MLBFNUV)
36 #define nmlbfstv F77_FUNC(mlbfstv,MLBFSTV)
37 #define nmlbfhnv F77_FUNC(mlbfhnv,MLBFHNV)
38 #define nmlbfhsv F77_FUNC(mlbfhsv,MLBFHSV)
39 
40 #ifdef PPRO_NT
41 med_int
42 MLBFCLO(void)
43 #else
44 med_int
45 nmlbfclo(void)
46 #endif
47 {
48  med_int _ret;
49 
50  _ret = (med_int) MEDlibraryClose();
51 
52  return(_ret);
53 }
54 
55 
56 #ifdef PPRO_NT
57 med_int
58 MLBFNUV(med_int* const major,
59  med_int* const minor,
60  med_int* const release)
61 #else
62 med_int
63 nmlbfnuv(med_int* const major,
64  med_int* const minor,
65  med_int* const release)
66 #endif
67 {
68  med_int _ret;
69 
70  _ret = (med_int) MEDlibraryNumVersion(major,minor,release);
71 
72  return(_ret);
73 }
74 
75 #ifdef PPRO_NT
76 med_int
77 MLBFSTV(char* const medversion, unsigned int bidon, med_int *len)
78 #else
79 med_int
80 nmlbfstv(char* const medversion, med_int *len)
81 #endif
82 {
83  med_int _ret;
84  char _fs1[20]="";
85 
86  _ret = (med_int) MEDlibraryStrVersion(_fs1);
87 
88  _MEDc2fString(_fs1,medversion,*len);
89 
90  return(_ret);
91 }
92 
93 
94 #ifdef PPRO_NT
95 med_int
96 MLBFHNV(med_int* const major,
97  med_int* const minor,
98  med_int* const release)
99 #else
100 med_int
101 nmlbfhnv(med_int* const major,
102  med_int* const minor,
103  med_int* const release)
104 #endif
105 {
106  med_int _ret;
107 
108  _ret = (med_int) MEDlibraryHdfNumVersion(major,minor,release);
109 
110  return(_ret);
111 }
112 
113 
114 
115 #ifdef PPRO_NT
116 med_int
117 MLBFHSV(char* const hdfversion, unsigned int bidon, med_int *len)
118 #else
119 med_int
120 nmlbfhsv(char* const hdfversion, med_int *len)
121 #endif
122 {
123  med_int _ret;
124  char _fs1[20]="";
125 
126  _ret = (med_int) MEDlibraryHdfStrVersion(_fs1);
127 
128  _MEDc2fString(_fs1,hdfversion,*len);
129 
130  return(_ret);
131 }
MEDC_EXPORT med_err MEDlibraryClose(void)
Cette routine force l'écriture des données sur disque, nettoie la mémoire et ferme tous les fichiers ...
#define nmlbfclo
Definition: librarycf.c:34
MEDC_EXPORT med_err MEDlibraryStrVersion(char *const medversion)
Renvoie le numéro de version de la librairie MED dans une chaîne de caractères.
#define nmlbfhnv
Definition: librarycf.c:37
#define nmlbfnuv
Definition: librarycf.c:35
MEDC_EXPORT med_err MEDlibraryHdfNumVersion(med_int *const major, med_int *const minor, med_int *const release)
Renvoie les 3 numéros de version de la librairie HDF5 utilisée par MED.
#define nmlbfhsv
Definition: librarycf.c:38
int med_int
Definition: med.h:316
MEDC_EXPORT med_err _MEDc2fString(const char *const chainec, char *const chainef, med_int longueur_buffer77)
MEDC_EXPORT med_err MEDlibraryNumVersion(med_int *const major, med_int *const minor, med_int *const release)
Renvoie les 3 numéros de version de la librairie MED.
MEDC_EXPORT med_err MEDlibraryHdfStrVersion(char *const version)
Renvoie le numéro de version de la librairie HDF utilisée par la bibliothèque MED dans une chaîne de ...
#define nmlbfstv
Definition: librarycf.c:36