[6] | 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 |
---|