-
Notifications
You must be signed in to change notification settings - Fork 3
/
cenums.f90
44 lines (37 loc) · 1.53 KB
/
cenums.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
! Chemfiles, an efficient IO library for chemistry file formats
! Copyright (C) 2015-2017 Guillaume Fraux -- BSD licence
!
! =========================================================================== !
! !!!! AUTO-GENERATED FILE !!!! Do not edit. See bindgen repository for the
! generating code (https://github.com/chemfiles/bindgen).
! This file contains Fortran 2003 ISO C Binding interface to the C API
!
! This file is not compilable on his own, but should be 'include'd in another
! fortran compilation unit.
! =========================================================================== !
enum, bind(C)
enumerator :: CHFL_SUCCESS = 0
enumerator :: CHFL_MEMORY_ERROR = 1
enumerator :: CHFL_FILE_ERROR = 2
enumerator :: CHFL_FORMAT_ERROR = 3
enumerator :: CHFL_SELECTION_ERROR = 4
enumerator :: CHFL_CONFIGURATION_ERROR = 5
enumerator :: CHFL_OUT_OF_BOUNDS = 6
enumerator :: CHFL_PROPERTY_ERROR = 7
enumerator :: CHFL_GENERIC_ERROR = 254
enumerator :: CHFL_CXX_ERROR = 255
end enum
integer, parameter :: chfl_status = kind(CHFL_SUCCESS)
enum, bind(C)
enumerator :: CHFL_PROPERTY_BOOL = 0
enumerator :: CHFL_PROPERTY_DOUBLE = 1
enumerator :: CHFL_PROPERTY_STRING = 2
enumerator :: CHFL_PROPERTY_VECTOR3D = 3
end enum
integer, parameter :: chfl_property_kind = kind(CHFL_PROPERTY_BOOL)
enum, bind(C)
enumerator :: CHFL_CELL_ORTHORHOMBIC = 0
enumerator :: CHFL_CELL_TRICLINIC = 1
enumerator :: CHFL_CELL_INFINITE = 2
end enum
integer, parameter :: chfl_cellshape = kind(CHFL_CELL_ORTHORHOMBIC)