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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
C ================================================================
Subroutine errMes(iERR, routine, message)
C ================================================================
C Warnings: 1000 - the quality has been not reached
C
C Normal errors: 1000 - the quality has been not reached
C(memory errors) 1001 - not enough memory for Integer arrays
C 1002 - not enough memory for real arrays
C 1003 - local parameter MaxP is small
C 1004 - local parameter MaxF is small
C 1005 - local parameter MaxC is small
C 1006 - local parameter MaxE is small
C 1007 - local parameter MaxS is small
C 1008 - local parameter MaxPV is small
C 1009 - local parameter MaxH is small
C 1010 - not enough memory for material faces
C 1011 - reserved boundary identificator is used
C 1012 - local parameter MaxJP is small
C 1013 - local parameter MaxIA is small
C 1014 - local parameter MaxA is small
C 1101 - one of the local mesh parameters
C (MaxP, MaxF, MaxC or MaxE) is small
C
C User errors: 2001 : 2003 - errors due to probably incorrect
C user routines
C 2011 : 2011 - incorrect or out of bounds input data
C 2101 : 2999 - errors reserved for user routines
C located in file tkhir_user.f
C
C Library errors: 3001 : 3002 - errors in routine DSORT
C 3011 : 3012 - errors in routine DSYEV
C 3021 - errors in one of the AMG routines
C
C I/O errors: 4001 : 4003 - errors in input files
C 4101 : 4104 - errors in input data
C 4201 - output chanel number is wrong
C
C Internal errors: 5001 : 5022 - errors in mesh checking (1st level)
C 5101 : 5114 - errors in list updating
C 5201 : 5201 - errors in mesh checking (2nd level)
C 6001 : 6006 - system errors
C 6101 : 6102 - errorneous input for LINTRP2D
C 6201 : 6205 - errors in LINTRP2D algorithm
C 7001 : 7002 - errors in applications working with
C curvilinear boundaries
C
C Debug errors: 8001 : 8030 - debug errors in ani2_test.f
C
C ================================================================
Integer iERR
Character*(*) routine, message
C ================================================================
Write(*,5000) iERR, routine, message
Stop
5000 Format(/,'Error:', I7,/, 'Routine: ', A,/, 'Message: ', A,/)
End
C ================================================================
Subroutine wrnMes(iERR, routine, message)
C ================================================================
Integer iERR
Character*(*) routine, message
C ================================================================
Write(*,5000) iERR, routine, message
5000 Format(/,'Error:', I7,/, 'Routine: ', A,/, 'Message: ', A,/)
End
|