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 (imsd=6)
      parameter (masdim=2**imsd)
      parameter (jacc=7)
      macro,masqa(iv)
*       masqa=((iv-1)/masdim+1)
        masqa=(ishft(iv-1,-imsd)+1)
      endmacro
      macro,masqi(jv)
        masqi=((jv-1)*masdim+1)
      endmacro
      macro,masqd(iv)
*       masqd=((iv-1)/masdim*masdim+1)
        masqd=(ishft(iv-1,-imsd)*masdim+1)
      endmacro