def nomenclator_array
      case @rank
      when 'variety'
        return [parent_name_at_rank('genus'), (parent_name_at_rank('subgenus') ? "(#{parent_name_at_rank('subgenus')})" : nil), parent_name_at_rank('species'),  parent_name_at_rank('subspecies'), "var. #{@name}"]
      when 'species', 'subspecies'
        return [parent_name_at_rank('genus'), (parent_name_at_rank('subgenus') ? "(#{parent_name_at_rank('subgenus')})" : nil), parent_name_at_rank('species'),  parent_name_at_rank('subspecies'), nil]
      when 'subgenus'
        return [parent_name_at_rank('genus'), "(#{@name})", nil, nil, nil]
      when 'genus'
        return [@name, nil, nil, nil, nil]
      else
        return false
      end
       
    end
def nomenclator_array
      case @rank
      when 'variety'
        return [parent_name_at_rank('genus'), (parent_name_at_rank('subgenus') ? "(#{parent_name_at_rank('subgenus')})" : nil), parent_name_at_rank('species'),  parent_name_at_rank('subspecies'), "var. #{@name}"]
      when 'species', 'subspecies'
        return [parent_name_at_rank('genus'), (parent_name_at_rank('subgenus') ? "(#{parent_name_at_rank('subgenus')})" : nil), parent_name_at_rank('species'),  parent_name_at_rank('subspecies'), nil]
      when 'subgenus'
        return [parent_name_at_rank('genus'), "(#{@name})", nil, nil, nil]
      when 'genus'
        return [@name, nil, nil, nil, nil]
      else
        return false
      end
       
    end
Return an Array of lenght 4 of Names representing a Species or Genus group name
 [genus, subgenus, species, subspecies, infrasubspecific]