source:
vendors/XMLIO_SERVER/current/src/XMLIO/mod_error_msg.f90
@
1916
Last change on this file since 1916 was 1897, checked in by flavoni, 14 years ago | |
---|---|
File size: 866 bytes |
Rev | Line | |
---|---|---|
[1897] | 1 | MODULE error_msg |
2 | USE mod_xmlio_parameters,ONLY : str_msg_len | |
3 | ||
4 | CHARACTER(LEN=str_msg_len),SAVE :: message | |
5 | ||
6 | CONTAINS | |
7 | ||
8 | SUBROUTINE Warning(sub_name) | |
9 | IMPLICIT NONE | |
10 | CHARACTER(LEN=*), INTENT(IN), OPTIONAL :: sub_name | |
11 | ||
12 | IF (PRESENT(sub_name)) THEN | |
13 | PRINT *,"--* WARNING *-- : in subroutine "//sub_name | |
14 | ELSE | |
15 | PRINT *,"--* WARNING *-- " | |
16 | ENDIF | |
17 | ||
18 | PRINT *,"----> ",TRIM(message) | |
19 | message=REPEAT(' ',str_msg_len) | |
20 | ||
21 | END SUBROUTINE warning | |
22 | ||
23 | SUBROUTINE error(sub_name) | |
24 | IMPLICIT NONE | |
25 | CHARACTER(LEN=*), INTENT(IN), OPTIONAL :: sub_name | |
26 | ||
27 | IF (PRESENT(sub_name)) THEN | |
28 | PRINT *,"--* WARNING *-- : in subroutine "//sub_name | |
29 | ELSE | |
30 | PRINT *,"--* WARNING *-- " | |
31 | ENDIF | |
32 | ||
33 | PRINT *,"----> ",TRIM(message) | |
34 | message=REPEAT(' ',str_msg_len) | |
35 | ||
36 | STOP | |
37 | ||
38 | END SUBROUTINE error | |
39 | ||
40 | END MODULE error_msg |
Note: See TracBrowser
for help on using the repository browser.