Sources des Includes

      common /chol3c/precc,nbthr,milign,lilign,itmasq,immt,il1,il2,
     >  iper,ider,nbop(129)  
*  pour chomod noeud maitre
      common /chol3c/nbnnmc,matric,maitre,lig2
      save /chol3c/
      parameter (masdim=128)
      parameter (jacc=7)
      macro,masqa(iv)
        masqa=(iv-1)/masdim+1
*       masqa=(iv  )/masdim+1
      endmacro
      macro,masqi(jv)
        masqi=(jv-1)*masdim+1
*       masqi=(jv-1)*masdim
      endmacro