assert_eq2 Function

  1. special_fun_modules.f90
  2. nrutil
  3. assert_eq2

public function assert_eq2(n1, n2, string)

Arguments

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

Return Value integer


Called by

proc~~assert_eq2~~CalledByGraph proc~assert_eq2 assert_eq2 proc~diagmult_rv diagmult_rv proc~diagmult_rv->proc~assert_eq2 proc~put_diag_rv put_diag_rv proc~put_diag_rv->proc~assert_eq2 proc~get_diag_dv get_diag_dv proc~get_diag_dv->proc~assert_eq2 proc~scatter_max_r scatter_max_r proc~scatter_max_r->proc~assert_eq2 proc~diagadd_rv diagadd_rv proc~diagadd_rv->proc~assert_eq2 proc~scatter_add_d scatter_add_d proc~scatter_add_d->proc~assert_eq2 interface~assert_eq assert_eq interface~assert_eq->proc~assert_eq2 proc~get_diag_rv get_diag_rv proc~get_diag_rv->proc~assert_eq2 proc~scatter_max_d scatter_max_d proc~scatter_max_d->proc~assert_eq2 proc~scatter_add_r scatter_add_r proc~scatter_add_r->proc~assert_eq2 interface~put_diag put_diag interface~put_diag->proc~put_diag_rv interface~diagmult diagmult interface~diagmult->proc~diagmult_rv interface~scatter_max scatter_max interface~scatter_max->proc~scatter_max_r interface~scatter_max->proc~scatter_max_d interface~get_diag get_diag interface~get_diag->proc~get_diag_dv interface~get_diag->proc~get_diag_rv interface~diagadd diagadd interface~diagadd->proc~diagadd_rv interface~scatter_add scatter_add interface~scatter_add->proc~scatter_add_d interface~scatter_add->proc~scatter_add_r

Contents

Source Code

assert_eq2

Source Code

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