error Derived Type

type, private :: error


Contents

Source Code


Components

TypeVisibility AttributesNameInitial
integer, public :: level
character(len=200), public :: message
integer, public, dimension(8):: idiags =INT_DEFAULT
real(kind=dp), public, dimension(8):: fdiags =FLT_DEFAULT

Source Code

  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