assert4 Subroutine

  1. special_fun_modules.f90
  2. nrutil
  3. assert4

public subroutine assert4(n1, n2, n3, n4, string)

Arguments

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

Called by

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

Contents

Source Code

assert4

Source Code

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