assert_eq2 Function

public function assert_eq2(n1, n2, string)

Arguments

Type IntentOptional Attributes Name
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~get_diag get_diag proc~get_diag->proc~assert_eq2 proc~put_diag put_diag proc~put_diag->proc~assert_eq2 proc~broyden1~2 broyden1 proc~broyden1~2->proc~get_diag proc~broyden1~2->proc~put_diag

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