Salome HOME
Initialisation de la base KERNEL avec la version operationnelle de KERNEL_SRC issue...
[modules/yacs.git] / src / HDFPersist / HDFfileOpen.c
1 #include "hdfi.h"
2 /*
3  * - Name : HDFfileOpen
4  * - Description : open an existing HDF file
5  * - Parameters :
6  *     - name (IN)        : file name
7  *     - access_mode (IN) : file access mode 
8  * - Result : 
9  *     - success : file ID
10  *     - failure : -1 
11  */ 
12
13 hdf_idt HDFfileOpen(char *name,hdf_access_mode access_mode)
14
15   hdf_idt fid;
16   int mode;
17
18   switch(access_mode)
19     {
20     case HDF_RDONLY:
21       mode = H5F_ACC_RDONLY;
22       break;
23
24     case HDF_RDWR :
25       mode = H5F_ACC_RDWR; 
26       break;
27
28     default :
29       return -1;
30     }  
31
32   if ((fid = H5Fopen(name,mode,H5P_DEFAULT)) < 0)
33     return -1;
34
35   return fid;
36 }