*     ISOLVE : 0 si solveur direct, 1 si solveur indirect
      common /chol3c/precc,nbthr,milign,lilign,iligns,itmasq,immt,
     >   il1,il2,iper,ider,nbop(129),isolve
*  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
      macro,masqh(iv)
*       masqh=(ibits(iv,2,imsd))
        masqh=(mod(iv,masdim+1))
      endmacro
      macro,masqb(iv)
*       masqb=(ibits(iv,2+imsd,imsd))
        masqb=(iv/(masdim+1))
      endmacro
      macro,masqv(ib,ih)
        masqv=(ib*(masdim+1)+ih)
      endmacro