Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | level | ||||
character(len=200), | public | :: | message | ||||
integer, | public, | dimension(8) | :: | idiags | = | INT_DEFAULT | |
real(kind=dp), | public, | dimension(8) | :: | fdiags | = | FLT_DEFAULT |
type :: error
integer :: level ! severity level
character(len=200) :: message ! information string
integer, dimension(8) :: idiags = INT_DEFAULT
real(dp), dimension(8) :: fdiags = FLT_DEFAULT
end type error