assert_eq4 Function

  1. special_fun_modules.f90
  2. nrutil
  3. assert_eq4

public function assert_eq4(n1, n2, n3, n4, string)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
integer, intent(in) :: n4
character(len=*), intent(in) :: string

Return Value integer


Called by

proc~~assert_eq4~~CalledByGraph proc~assert_eq4 assert_eq4 interface~assert_eq assert_eq interface~assert_eq->proc~assert_eq4

Contents

Source Code

assert_eq4

Source Code

	FUNCTION assert_eq4(n1,n2,n3,n4,string)
	CHARACTER(LEN=*), INTENT(IN) :: string
	INTEGER, INTENT(IN) :: n1,n2,n3,n4
	INTEGER :: assert_eq4
	if (n1 == n2 .and. n2 == n3 .and. n3 == n4) then
		assert_eq4=n1
	else
		write (*,*) 'nrerror: an assert_eq failed with this tag:', &
			string
		STOP 'program terminated by assert_eq4'
	end if
	END FUNCTION assert_eq4