@@ -10,17 +10,16 @@ module la_state_type
10
10
public :: operator (<),operator (<= )
11
11
public :: operator (>),operator (>= )
12
12
13
- ! > State return types
14
- integer (ilp),parameter ,public :: LINALG_SUCCESS = 0_ilp
15
- integer (ilp),parameter ,public :: LINALG_VALUE_ERROR = - 1_ilp
16
- integer (ilp),parameter ,public :: LINALG_ERROR = - 2_ilp
17
- integer (ilp),parameter ,public :: LINALG_INTERNAL_ERROR = - 3_ilp
13
+ integer (ilp),parameter ,public :: LINALG_SUCCESS = 0_ilp ! < Successful return
14
+ integer (ilp),parameter ,public :: LINALG_VALUE_ERROR = - 1_ilp ! < Value error
15
+ integer (ilp),parameter ,public :: LINALG_ERROR = - 2_ilp ! < Algebra error
16
+ integer (ilp),parameter ,public :: LINALG_INTERNAL_ERROR = - 3_ilp ! < Internal error (should never happen)
18
17
19
18
! > Use fixed-size character storage for performance
20
- integer (ilp),parameter :: MSG_LENGTH = 512_ilp
19
+ integer (ilp),parameter :: MSG_LENGTH = 512_ilp
21
20
integer (ilp),parameter :: NAME_LENGTH = 32_ilp
22
21
23
- ! > `la_state` defines a state return type for a
22
+ ! > \class `la_state` defines a state return type for a
24
23
! > linear algebra routine. State contains a status flag, a comment, and a
25
24
! > procedure specifier that can be used to mark where the error happened
26
25
type,public :: la_state
@@ -43,7 +42,7 @@ module la_state_type
43
42
procedure :: handle = > linalg_error_handling
44
43
45
44
! > Print error message
46
- procedure :: print = > state_print
45
+ procedure :: print = > state_print
47
46
procedure :: print_msg = > state_message
48
47
49
48
! > State properties
0 commit comments