ifirstloc Function

  1. special_fun_modules.f90
  2. nrutil
  3. ifirstloc

public function ifirstloc(mask)

Arguments

Type IntentOptional AttributesName
logical(kind=LGT), intent(in), DIMENSION(:):: mask

Return Value integer(kind=I4B)


Contents

Source Code

ifirstloc

Source Code

	FUNCTION ifirstloc(mask)
	LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: mask
	INTEGER(I4B) :: ifirstloc
	INTEGER(I4B), DIMENSION(1) :: loc
	loc=maxloc(merge(1,0,mask))
	ifirstloc=loc(1)
	if (.not. mask(ifirstloc)) ifirstloc=size(mask)+1
	END FUNCTION ifirstloc