assert_eq4 Function

public function assert_eq4(n1, n2, n3, n4, string)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
integer, intent(in) :: n4
character(len=*), intent(in) :: string

Return Value integer


Called by

proc~~assert_eq4~~CalledByGraph proc~assert_eq4 assert_eq4 proc~fdjac fdjac proc~fdjac->proc~assert_eq4 proc~lnsrch lnsrch proc~lnsrch->proc~assert_eq4 proc~qrdcmp qrdcmp proc~qrdcmp->proc~assert_eq4 proc~qrupdt qrupdt proc~qrupdt->proc~assert_eq4 proc~rsolv rsolv proc~rsolv->proc~assert_eq4 proc~broyden1~2 broyden1 proc~broyden1~2->proc~fdjac proc~broyden1~2->proc~lnsrch proc~broyden1~2->proc~qrdcmp proc~broyden1~2->proc~qrupdt proc~broyden1~2->proc~rsolv

Source Code

  function assert_eq4(n1,n2,n3,n4,string)
    character(len=*), intent(in)           :: string
    integer, intent(in)                    :: n1,n2,n3,n4
    integer                                :: assert_eq4
    if (n1 == n2 .and. n2 == n3 .and. n3 == n4) then
       assert_eq4=n1
    else
       write (*,*) 'nrerror: an assert_eq failed with this tag:', &
            string
       stop 'program terminated by assert_eq4'
    end if
  end function assert_eq4