#Author: Pierre Ratinaud
-#Copyright (c) 2008-2011 Pierre Ratinaud
+#Copyright (c) 2008-2020 Pierre Ratinaud
#License: GNU/GPL
pp<-function(txt,val) {
print('longueur < 0')
malcl<-length(vdelta)
if ((it>1)&&(!is.logical(listsub[[it]]))&&(!is.logical(listsub[[it-1]]))){
- if (listsub[[it]]==listsub[[(it-1)]]){
+ if (all(listsub[[it]]==listsub[[(it-1)]])){
malcl<-0
}
}