common /chol3c/precc,nbthr,milign,lilign,itmasq,immt,il1,il2, > iper,ider,nbop(65) * pour chomod noeud maitre common /chol3c/nbnnmc,matric,maitre,lig2 save /chol3c/ parameter (masdim=128) parameter (jacc=7)