assert_eqn Function

public function assert_eqn(nn, string)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(:) :: nn
character(len=*), intent(in) :: string

Return Value integer


Called by

proc~~assert_eqn~~CalledByGraph proc~assert_eqn assert_eqn proc~qrupdt qrupdt proc~qrupdt->proc~assert_eqn proc~broyden1~2 broyden1 proc~broyden1~2->proc~qrupdt

Source Code

  function assert_eqn(nn,string)
    character(len=*), intent(in) :: string
    integer, dimension(:), intent(in) :: nn
    integer :: assert_eqn
    if (all(nn(2:) == nn(1))) then
       assert_eqn=nn(1)
    else
       write (*,*) 'nrerror: an assert_eq failed with this tag:', &
            string
       stop 'program terminated by assert_eqn'
    end if
  end function assert_eqn