source: XMLF90/src/dom/m_dom_error.f90 @ 295

Last change on this file since 295 was 6, checked in by ymipsl, 12 years ago

Import des sources XMLF90

File size: 1.5 KB
Line 
1module m_dom_error
2
3  !-------------------------------------------------------
4  ! EXCEPTION CODES
5  !-------------------------------------------------------
6  integer, parameter, public :: INDEX_SIZE_ERR              = 1
7  integer, parameter, public :: DOMSTRING_SIZE_ERR          = 2
8  integer, parameter, public :: HIERARCHY_REQUEST_ERR       = 3
9  integer, parameter, public :: WRONG_DOCUMENT_ERR          = 4
10  integer, parameter, public :: INVALID_CHARACTER_ERR       = 5
11  integer, parameter, public :: NO_DATA_ALLOWED_ERR         = 6
12  integer, parameter, public :: NO_MODIFICATION_ALLOWED_ERR = 7
13  integer, parameter, public :: NOT_FOUND_ERR               = 8
14  integer, parameter, public :: NOT_SUPPORTED_ERR           = 9
15  integer, parameter, public :: INUSE_ATTRIBUTE_ERR         = 10
16  integer, parameter, public :: INVALID_STATE_ERR           = 11
17  integer, parameter, public :: SYNTAX_ERR                  = 12
18  integer, parameter, public :: INVALID_MODIFICATION_ERR    = 13
19  integer, parameter, public :: NAMESPACE_ERR               = 14
20  integer, parameter, public :: INVALID_ACCESS_ERR          = 15
21  integer, parameter, public :: VALIDATION_ERR              = 16
22  integer, parameter, public :: TYPE_MISMATCH_ERR           = 17
23
24CONTAINS
25
26  subroutine dom_error(name,code,msg)
27    character(len=*), intent(in) :: name, msg
28    integer, intent(in)          :: code
29
30    print *, "***ERROR***"
31    print *, "Routine ", trim(name), ":", trim(msg)
32    print *, 1.0 / sin(3.141592654)
33  end subroutine dom_error
34
35end module m_dom_error
Note: See TracBrowser for help on using the repository browser.