report_zero_difference_error Subroutine

public subroutine report_zero_difference_error(name, var1, val1, var2, val2, flag, err)

Reports a zero-difference between two variables where a non-zero difference was expected.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

The name of the routine in which the error was found.

character(len=*), intent(in) :: var1

The name of the first variable.

real(kind=real64), intent(in) :: val1

The value of the first variable.

character(len=*), intent(in) :: var2

The name of the second variable.

real(kind=real64), intent(in) :: val2

The value of the second variable.

integer(kind=int32), intent(in) :: flag

The error flag.

class(errors), intent(inout) :: err

An errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution.


Contents


Variables

Type Visibility Attributes Name Initial
character(len=256), public :: errmsg