@@ -10,17 +10,16 @@ module la_state_type
1010 public :: operator (<),operator (<= )
1111 public :: operator (>),operator (>= )
1212
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)
1817
1918 ! > Use fixed-size character storage for performance
20- integer (ilp),parameter :: MSG_LENGTH = 512_ilp
19+ integer (ilp),parameter :: MSG_LENGTH = 512_ilp
2120 integer (ilp),parameter :: NAME_LENGTH = 32_ilp
2221
23- ! > `la_state` defines a state return type for a
22+ ! > \class `la_state` defines a state return type for a
2423 ! > linear algebra routine. State contains a status flag, a comment, and a
2524 ! > procedure specifier that can be used to mark where the error happened
2625 type,public :: la_state
@@ -43,7 +42,7 @@ module la_state_type
4342 procedure :: handle = > linalg_error_handling
4443
4544 ! > Print error message
46- procedure :: print = > state_print
45+ procedure :: print = > state_print
4746 procedure :: print_msg = > state_message
4847
4948 ! > State properties
0 commit comments