Module dc_error

module dc_error

        ! Uses
    use netcdf_f77, only: NF_ENOTVAR, NF_EINVAL

        ! Variables
    integer, public, parameter :: DC_NOERR = 0
    integer, private, save :: errno = DC_NOERR
    integer, private, save :: cause_int = DC_NOERR
    character (len=80), private, save :: cause_string = ""
    character (len=80), private, save :: cause_location = ""
    integer, public, parameter :: GT_EFAKE = -100
    integer, public, parameter :: GT_ENOMOREDIMS = -101
    integer, public, parameter :: GT_EDIMNODIM = -102
    integer, public, parameter :: GT_EDIMMULTIDIM = -103
    integer, public, parameter :: GT_EDIMOTHERDIM = -104
    integer, public, parameter :: GT_EBADDIMNAME = -105
    integer, public, parameter :: GT_ENOTVAR = -106
    integer, public, parameter :: GT_ENOMEM = -107
    integer, public, parameter :: GT_EOTHERFILE = -108
    integer, public, parameter :: GT_EARGSIZEMISMATCH = -109
    integer, public, parameter :: GT_ENOMATCHDIM = -110
    integer, public, parameter :: GT_ELIMITED = -111
    integer, public, parameter :: GT_EBADVAR = -112
    integer, public, parameter :: GT_ECHARSHORT = -113
    integer, public, parameter :: GT_ENOUNLIMITDIM = -114
    integer, public, parameter :: GT_EBADATTRNAME = -115
    integer, public, parameter :: GT_EBADHISTORY = -116
    integer, public, parameter :: GT_EBADALLOCATESIZE = -117
    integer, public, parameter :: GT_ERANKMISMATCH = -118
    integer, public, parameter :: GR_ENOTGR = -300
    integer, public, parameter :: USR_ECHAR = -1000
    integer, public, parameter :: USR_EINT = -1001

        ! Interfaces
    public interface DumpError

        ! Subroutines and functions
    public integer function ErrorCode ()
    public subroutine GetErrorMessage (msg)
    public subroutine StoreError (number, where, err, cause_c, cause_i)

end module dc_error

Description of Variables

integer, public, parameter :: DC_NOERR = 0

integer, private, save :: errno = DC_NOERR

integer, private, save :: cause_int = DC_NOERR

character (len=80), private, save :: cause_string = ""

character (len=80), private, save :: cause_location = ""

integer, public, parameter :: GT_EFAKE = -100

integer, public, parameter :: GT_ENOMOREDIMS = -101

integer, public, parameter :: GT_EDIMNODIM = -102

integer, public, parameter :: GT_EDIMMULTIDIM = -103

integer, public, parameter :: GT_EDIMOTHERDIM = -104

integer, public, parameter :: GT_EBADDIMNAME = -105

integer, public, parameter :: GT_ENOTVAR = -106

integer, public, parameter :: GT_ENOMEM = -107

integer, public, parameter :: GT_EOTHERFILE = -108

integer, public, parameter :: GT_EARGSIZEMISMATCH = -109

integer, public, parameter :: GT_ENOMATCHDIM = -110

integer, public, parameter :: GT_ELIMITED = -111

integer, public, parameter :: GT_EBADVAR = -112

integer, public, parameter :: GT_ECHARSHORT = -113

integer, public, parameter :: GT_ENOUNLIMITDIM = -114

integer, public, parameter :: GT_EBADATTRNAME = -115

integer, public, parameter :: GT_EBADHISTORY = -116

integer, public, parameter :: GT_EBADALLOCATESIZE = -117

integer, public, parameter :: GT_ERANKMISMATCH = -118

integer, public, parameter :: GR_ENOTGR = -300

integer, public, parameter :: USR_ECHAR = -1000

integer, public, parameter :: USR_EINT = -1001

Description of Interfaces

public interface DumpError
    subroutine DumpError ()
    end subroutine DumpError
end interface DumpError

Description of Subroutines and Functions

public function ErrorCode () result (result)
    integer :: result
end function ErrorCode

public subroutine GetErrorMessage (msg)
    character (len=*), intent(out) :: msg
end subroutine GetErrorMessage

public subroutine StoreError (number, where, err, cause_c, cause_i)
    integer, intent(in) :: number
    character (len=*), intent(in) :: where
    logical, optional, intent(out) :: err
    character (len=*), optional, intent(in) :: cause_c
    integer, optional, intent(in) :: cause_i
    ! Calls: DumpError
end subroutine StoreError