C VERLAG    SOURCE    CHAT      09/10/09    21:25:47     6519           
        subroutine verlag(mrigid)
*  verification que les noeuds supports des LX n'aparaissent
*  qu'une seule foix
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8(A-H,O-Z)                
-INC SMRIGID
-INC CCOPTIO
-INC SMCHPOI
-INC SMCOORD
-INC SMELEME
      segment LXOK(XCOOR(/1)/(idim+1))
       segini lxok
       segact mrigid
       do 10 irig=1,irigel(/2)
       meleme=irigel(1,irig)
       segact meleme
       if (itypel.ne.22) goto 10
       do 20 j=1,num(/2)
         if (lxok(num(1,j)).ne.0) then
          interr(1)=num(2,j)
          interr(2)=num(1,j)
          call erreur(919)
          return
         endif
         lxok(num(1,j))=1
  20   continue
       segdes meleme
  10   continue
       segdes mrigid
       segsup lxok
       end