1 | module 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 | |
---|
24 | CONTAINS |
---|
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 | |
---|
35 | end module m_dom_error |
---|