disppollen <- function(X) {
return(fpollen(X[1]))
} # fin disppollen