Module dc_test

module dc_test

        ! Uses
    use dc_types, only : STRING, DP

        ! Interfaces
    public interface Verify

        ! Subroutines and functions
    private subroutine DCVerifyChar0 (item, answer, check)
    private subroutine DCVerifyChar1 (item, answer, check)
    private subroutine DCVerifyChar2 (item, answer, check)
    private subroutine DCVerifyChar3 (item, answer, check)
    private subroutine DCVerifyChar4 (item, answer, check)
    private subroutine DCVerifyChar5 (item, answer, check)
    private subroutine DCVerifyChar6 (item, answer, check)
    private subroutine DCVerifyChar7 (item, answer, check)
    private subroutine DCVerifyInt0 (item, answer, check)
    private subroutine DCVerifyInt1 (item, answer, check)
    private subroutine DCVerifyInt2 (item, answer, check)
    private subroutine DCVerifyInt3 (item, answer, check)
    private subroutine DCVerifyInt4 (item, answer, check)
    private subroutine DCVerifyInt5 (item, answer, check)
    private subroutine DCVerifyInt6 (item, answer, check)
    private subroutine DCVerifyInt7 (item, answer, check)
    private subroutine DCVerifyReal0 (item, answer, check)
    private subroutine DCVerifyReal1 (item, answer, check)
    private subroutine DCVerifyReal2 (item, answer, check)
    private subroutine DCVerifyReal3 (item, answer, check)
    private subroutine DCVerifyReal4 (item, answer, check)
    private subroutine DCVerifyReal5 (item, answer, check)
    private subroutine DCVerifyReal6 (item, answer, check)
    private subroutine DCVerifyReal7 (item, answer, check)
    private subroutine DCVerifyDouble0 (item, answer, check)
    private subroutine DCVerifyDouble1 (item, answer, check)
    private subroutine DCVerifyDouble2 (item, answer, check)
    private subroutine DCVerifyDouble3 (item, answer, check)
    private subroutine DCVerifyDouble4 (item, answer, check)
    private subroutine DCVerifyDouble5 (item, answer, check)
    private subroutine DCVerifyDouble6 (item, answer, check)
    private subroutine DCVerifyDouble7 (item, answer, check)
    private subroutine DCVerifyLogical0 (item, answer, check)
    private subroutine DCVerifyLogical1 (item, answer, check)
    private subroutine DCVerifyLogical2 (item, answer, check)
    private subroutine DCVerifyLogical3 (item, answer, check)
    private subroutine DCVerifyLogical4 (item, answer, check)
    private subroutine DCVerifyLogical5 (item, answer, check)
    private subroutine DCVerifyLogical6 (item, answer, check)
    private subroutine DCVerifyLogical7 (item, answer, check)

end module dc_test

Description of Interfaces

Verify

public interface Verify
    module procedure DCVerifyChar0
    module procedure DCVerifyChar1
    module procedure DCVerifyChar2
    module procedure DCVerifyChar3
    module procedure DCVerifyChar4
    module procedure DCVerifyChar5
    module procedure DCVerifyChar6
    module procedure DCVerifyChar7
    module procedure DCVerifyInt0
    module procedure DCVerifyInt1
    module procedure DCVerifyInt2
    module procedure DCVerifyInt3
    module procedure DCVerifyInt4
    module procedure DCVerifyInt5
    module procedure DCVerifyInt6
    module procedure DCVerifyInt7
    module procedure DCVerifyReal0
    module procedure DCVerifyReal1
    module procedure DCVerifyReal2
    module procedure DCVerifyReal3
    module procedure DCVerifyReal4
    module procedure DCVerifyReal5
    module procedure DCVerifyReal6
    module procedure DCVerifyReal7
    module procedure DCVerifyDouble0
    module procedure DCVerifyDouble1
    module procedure DCVerifyDouble2
    module procedure DCVerifyDouble3
    module procedure DCVerifyDouble4
    module procedure DCVerifyDouble5
    module procedure DCVerifyDouble6
    module procedure DCVerifyDouble7
    module procedure DCVerifyLogical0
    module procedure DCVerifyLogical1
    module procedure DCVerifyLogical2
    module procedure DCVerifyLogical3
    module procedure DCVerifyLogical4
    module procedure DCVerifyLogical5
    module procedure DCVerifyLogical6
    module procedure DCVerifyLogical7
end interface Verify

Description of Subroutines and Functions

DCVerifyChar0

private subroutine DCVerifyChar0 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in) :: answer
    character (len=*), intent(in) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar0

DCVerifyChar1

private subroutine DCVerifyChar1 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:) :: answer
    character (len=*), intent(in), dimension (:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar1

DCVerifyChar2

private subroutine DCVerifyChar2 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:,:) :: answer
    character (len=*), intent(in), dimension (:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar2

DCVerifyChar3

private subroutine DCVerifyChar3 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:,:,:) :: answer
    character (len=*), intent(in), dimension (:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar3

DCVerifyChar4

private subroutine DCVerifyChar4 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:,:,:,:) :: answer
    character (len=*), intent(in), dimension (:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar4

DCVerifyChar5

private subroutine DCVerifyChar5 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:,:,:,:,:) :: answer
    character (len=*), intent(in), dimension (:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar5

DCVerifyChar6

private subroutine DCVerifyChar6 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:,:,:,:,:,:) :: answer
    character (len=*), intent(in), dimension (:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar6

DCVerifyChar7

private subroutine DCVerifyChar7 (item, answer, check)
    character (len=*), intent(in) :: item
    character (len=*), intent(in), dimension (:,:,:,:,:,:,:) :: answer
    character (len=*), intent(in), dimension (:,:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyChar7

DCVerifyInt0

private subroutine DCVerifyInt0 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in) :: answer
    integer, intent(in) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt0

DCVerifyInt1

private subroutine DCVerifyInt1 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:) :: answer
    integer, intent(in), dimension (:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt1

DCVerifyInt2

private subroutine DCVerifyInt2 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:,:) :: answer
    integer, intent(in), dimension (:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt2

DCVerifyInt3

private subroutine DCVerifyInt3 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:,:,:) :: answer
    integer, intent(in), dimension (:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt3

DCVerifyInt4

private subroutine DCVerifyInt4 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:,:,:,:) :: answer
    integer, intent(in), dimension (:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt4

DCVerifyInt5

private subroutine DCVerifyInt5 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:,:,:,:,:) :: answer
    integer, intent(in), dimension (:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt5

DCVerifyInt6

private subroutine DCVerifyInt6 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:,:,:,:,:,:) :: answer
    integer, intent(in), dimension (:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt6

DCVerifyInt7

private subroutine DCVerifyInt7 (item, answer, check)
    character (len=*), intent(in) :: item
    integer, intent(in), dimension (:,:,:,:,:,:,:) :: answer
    integer, intent(in), dimension (:,:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyInt7

DCVerifyReal0

private subroutine DCVerifyReal0 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in) :: answer
    real, intent(in) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal0

DCVerifyReal1

private subroutine DCVerifyReal1 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:) :: answer
    real, intent(in), dimension (:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal1

DCVerifyReal2

private subroutine DCVerifyReal2 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:,:) :: answer
    real, intent(in), dimension (:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal2

DCVerifyReal3

private subroutine DCVerifyReal3 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:,:,:) :: answer
    real, intent(in), dimension (:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal3

DCVerifyReal4

private subroutine DCVerifyReal4 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:,:,:,:) :: answer
    real, intent(in), dimension (:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal4

DCVerifyReal5

private subroutine DCVerifyReal5 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:,:,:,:,:) :: answer
    real, intent(in), dimension (:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal5

DCVerifyReal6

private subroutine DCVerifyReal6 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:,:,:,:,:,:) :: answer
    real, intent(in), dimension (:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal6

DCVerifyReal7

private subroutine DCVerifyReal7 (item, answer, check)
    character (len=*), intent(in) :: item
    real, intent(in), dimension (:,:,:,:,:,:,:) :: answer
    real, intent(in), dimension (:,:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyReal7

DCVerifyDouble0

private subroutine DCVerifyDouble0 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in) :: answer
    real (kind=DP), intent(in) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble0

DCVerifyDouble1

private subroutine DCVerifyDouble1 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:) :: answer
    real (kind=DP), intent(in), dimension (:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble1

DCVerifyDouble2

private subroutine DCVerifyDouble2 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:,:) :: answer
    real (kind=DP), intent(in), dimension (:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble2

DCVerifyDouble3

private subroutine DCVerifyDouble3 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:,:,:) :: answer
    real (kind=DP), intent(in), dimension (:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble3

DCVerifyDouble4

private subroutine DCVerifyDouble4 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:,:,:,:) :: answer
    real (kind=DP), intent(in), dimension (:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble4

DCVerifyDouble5

private subroutine DCVerifyDouble5 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:,:,:,:,:) :: answer
    real (kind=DP), intent(in), dimension (:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble5

DCVerifyDouble6

private subroutine DCVerifyDouble6 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:,:,:,:,:,:) :: answer
    real (kind=DP), intent(in), dimension (:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble6

DCVerifyDouble7

private subroutine DCVerifyDouble7 (item, answer, check)
    character (len=*), intent(in) :: item
    real (kind=DP), intent(in), dimension (:,:,:,:,:,:,:) :: answer
    real (kind=DP), intent(in), dimension (:,:,:,:,:,:,:) :: check
    ! Calls: AbortProgram
end subroutine DCVerifyDouble7

DCVerifyLogical0

private subroutine DCVerifyLogical0 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in) :: answer
    logical, intent(in) :: check
    ! Calls: DCVerifyChar0
end subroutine DCVerifyLogical0

DCVerifyLogical1

private subroutine DCVerifyLogical1 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:) :: answer
    logical, intent(in), dimension (:) :: check
    ! Calls: DCVerifyChar1
end subroutine DCVerifyLogical1

DCVerifyLogical2

private subroutine DCVerifyLogical2 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:,:) :: answer
    logical, intent(in), dimension (:,:) :: check
    ! Calls: DCVerifyChar2
end subroutine DCVerifyLogical2

DCVerifyLogical3

private subroutine DCVerifyLogical3 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:,:,:) :: answer
    logical, intent(in), dimension (:,:,:) :: check
    ! Calls: DCVerifyChar3
end subroutine DCVerifyLogical3

DCVerifyLogical4

private subroutine DCVerifyLogical4 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:,:,:,:) :: answer
    logical, intent(in), dimension (:,:,:,:) :: check
    ! Calls: DCVerifyChar4
end subroutine DCVerifyLogical4

DCVerifyLogical5

private subroutine DCVerifyLogical5 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:,:,:,:,:) :: answer
    logical, intent(in), dimension (:,:,:,:,:) :: check
    ! Calls: DCVerifyChar5
end subroutine DCVerifyLogical5

DCVerifyLogical6

private subroutine DCVerifyLogical6 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:,:,:,:,:,:) :: answer
    logical, intent(in), dimension (:,:,:,:,:,:) :: check
    ! Calls: DCVerifyChar6
end subroutine DCVerifyLogical6

DCVerifyLogical7

private subroutine DCVerifyLogical7 (item, answer, check)
    character (len=*), intent(in) :: item
    logical, intent(in), dimension (:,:,:,:,:,:,:) :: answer
    logical, intent(in), dimension (:,:,:,:,:,:,:) :: check
    ! Calls: DCVerifyChar7
end subroutine DCVerifyLogical7