ifirstloc Function

public function ifirstloc(mask)

Arguments

Type IntentOptional Attributes Name
logical, intent(in), dimension(:) :: mask

Return Value integer


Called by

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

Source Code

  function ifirstloc(mask)
    logical, dimension(:), intent(in) :: mask
    integer               :: ifirstloc
    integer, dimension(1) :: loc
    loc=maxloc(merge(1,0,mask))
    ifirstloc=loc(1)
    if (.not. mask(ifirstloc)) ifirstloc=size(mask)+1
  end function ifirstloc