assertIdentical Module Subroutine

public module subroutine assertIdentical(integers, error)

Checks all integers are identical and if not stops the program excecution with error text

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(:) :: integers
character(len=*), intent(in), optional :: error