assert1 Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. assert1

public subroutine assert1(n1, string)

Arguments

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

Contents

Source Code

assert1

Source Code

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