remove error in script with more the 100 comment consecutive

lines of comment // (Thank to R. Michel)
correct in check lib hdf5 (missing  -lhdf5  or double  -lhdf5  -lhdf5 ).
a new print in case of err th meshS trunc  caes

Author: frederichecht

etc/config/m4/ax_lib_hdf5.m4

@@ -241,10 +241,7 @@ HDF5 support is being disabled (equivalent to --with-hdf5=no).
         ff_hlib="";
         # remove -lhdf5 
         for arg  in $HDF5_LIBS; do if [ "-lhdf5" != "$arg" ] ;then ff_hlib="$ff_hlib $arg"; fi;done
-        HDF5_LIBS="-lhdf5 $ff_hlib" # add -lhdf5 
- #        test  "${HDF5_LIBS#*"-lhdf5"}" == "$HDF5_LIBS" && HDF5_LIBS="-lhdf5 $HDF5_LIBS"
- #       HDF5_LIBS="-lhdf5 $HDF5_LIBS"
- #   remove double -lhdf5
+        HDF5_LIBS="$ff_hlib -lhdf5" # add -lhdf5 
         AC_MSG_RESULT([yes (version $[HDF5_VERSION])])
 
         dnl See if we can compile

src/fflib/lex.cpp

@@ -261,7 +261,7 @@ int mylex::EatCommentAndSpace(string *data)
     do  // loop on type of comment !!
     {
        // cout << "incomment"<< incomment << " "<< int(c) << " " << c << endl;
-        ffassert(count++<100);
+        ffassert(count++<10000);
         eatspaces();
         // eat markdown <CR>~~~ or comment
         if(incomment==1 && (ifblock('~')==1 ||ifblock('`')==1 )) {

src/fflib/msh3.cpp

@@ -5425,6 +5425,7 @@ MeshS *truncmesh(const MeshS &Th, const long &kksplit, int *split, bool WithMort
     int np = 0;    // nb of new points ..
 
     // first build old point to keep the numbering order for DDM ...
+    int err= 0;
     for (int i = 0, k = 0; i < Th.nv; i++) {
         if (takevertex[i] >= 0) {
             Vertex3 *pvi = gtree->ToClose(Th(i), hseuil,true);
@@ -5434,10 +5435,15 @@ MeshS *truncmesh(const MeshS &Th, const long &kksplit, int *split, bool WithMort
                 gtree->Add(vertices[np]);
                 np++;
             } else {
-                ffassert(0);
+                err++;
+                cout << " same  point ("<< i << " "<<  Th(i) <<"  == " << *pvi << " diff "<< R3(*pvi,Th(i)).norme()  << endl;
             }
         }
     }
+    if(err){
+        cout << " double  point with eps ="<<hseuil<< endl;
+        ffassert(0);
+    }
 
     KN< R3 > vertextrisub(nvsub);
     KN< int > newindex(nvsub);