Abstract base
class.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=:), | public, | allocatable | :: | name |
object name |
||
character(len=:), | public, | allocatable | :: | msg |
error message |
||
integer, | public | :: | ierr | = | 0 |
error code |
|
logical, | public | :: | inited | = | .false. |
initialization flag |
Setter method for name.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(base), | intent(inout) | :: | self |
object |
||
character(len=*), | intent(in), | optional | :: | name |
name |
|
character(len=*), | intent(in), | optional | :: | default |
default name |
Error method.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(base), | intent(inout) | :: | self |
object |
||
character(len=*), | intent(in) | :: | msg |
message |
Check initialization method.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(base), | intent(inout) | :: | self |
object |
type, abstract :: base
!! Abstract `base` class.
character(:), allocatable :: name
!! object name
character(:), allocatable :: msg
!! error message
integer :: ierr = 0
!! error code
logical :: inited = .false.
!! initialization flag
contains
procedure, pass(self) :: set_name
procedure, pass(self) :: error_msg
procedure, pass(self) :: check_inited
end type base