assert_v Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. assert_v

public subroutine assert_v(n, string)

Arguments

Type IntentOptional AttributesName
logical, intent(in), DIMENSION(:):: n
character(len=*), intent(in) :: string

Called by

proc~~assert_v~~CalledByGraph proc~assert_v assert_v interface~assert assert interface~assert->proc~assert_v proc~bessik bessik proc~bessik->interface~assert

Contents

Source Code

assert_v

Source Code

	SUBROUTINE assert_v(n,string)
	CHARACTER(LEN=*), INTENT(IN) :: string
	LOGICAL, DIMENSION(:), INTENT(IN) :: n
	if (.not. all(n)) then
		write (*,*) 'nrerror: an assertion failed with this tag:', &
			string
		STOP 'program terminated by assert_v'
	end if
	END SUBROUTINE assert_v