accumulation_type_is_valid Function

public function accumulation_type_is_valid(acctype) result(lval)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: acctype

Return Value logical


Source Code

   logical function accumulation_type_is_valid(acctype) result(lval)
      character(len=*), optional, intent(in) :: acctype

      lval = .FALSE.
      if(.not. present(acctype)) return
      lval = any(ACCUMULATION_TYPES == acctype)

   end function accumulation_type_is_valid