vabs Function

public function vabs(v)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in), dimension(:) :: v

Return Value real(kind=8)


Called by

proc~~vabs~~CalledByGraph proc~vabs vabs proc~broyden1~2 broyden1 proc~broyden1~2->proc~vabs proc~lnsrch lnsrch proc~broyden1~2->proc~lnsrch proc~qrdcmp qrdcmp proc~broyden1~2->proc~qrdcmp proc~lnsrch->proc~vabs proc~qrdcmp->proc~vabs

Source Code

  function vabs(v)
    real(8), dimension(:), intent(in) :: v
    real(8) :: vabs
    vabs=sqrt(dot_product(v,v))
  end function vabs