assert_eqn Function

  1. special_fun_modules.f90
  2. nrutil
  3. assert_eqn

public function assert_eqn(nn, string)

Arguments

Type IntentOptional AttributesName
integer, intent(in), DIMENSION(:):: nn
character(len=*), intent(in) :: string

Return Value integer


Contents

Source Code

assert_eqn

Source Code

	FUNCTION assert_eqn(nn,string)
	CHARACTER(LEN=*), INTENT(IN) :: string
	INTEGER, DIMENSION(:), INTENT(IN) :: nn
	INTEGER :: assert_eqn
	if (all(nn(2:) == nn(1))) then
		assert_eqn=nn(1)
	else
		write (*,*) 'nrerror: an assert_eq failed with this tag:', &
			string
		STOP 'program terminated by assert_eqn'
	end if
	END FUNCTION assert_eqn