Esope source files

   1 : C VERLAG    SOURCE    CHAT      09/10/09    21:25:47     6519           
   2 :         subroutine verlag(mrigid)
   3 : *  verification que les noeuds supports des LX n'aparaissent
   4 : *  qu'une seule foix
   5 :       IMPLICIT INTEGER(I-N)
   6 :         IMPLICIT REAL*8(A-H,O-Z)                
   7 : -INC SMRIGID
   8 : -INC CCOPTIO
   9 : -INC SMCHPOI
  10 : -INC SMCOORD
  11 : -INC SMELEME
  12 :       segment LXOK(XCOOR(/1)/(idim+1))
  13 :        segini lxok
  14 :        segact mrigid
  15 :        do 10 irig=1,irigel(/2)
  16 :        meleme=irigel(1,irig)
  17 :        segact meleme
  18 :        if (itypel.ne.22) goto 10
  19 :        do 20 j=1,num(/2)
  20 :          if (lxok(num(1,j)).ne.0) then
  21 :           interr(1)=num(2,j)
  22 :           interr(2)=num(1,j)
  22 :           call erreur(919)
  23 :           return
  24 :          endif
  25 :          lxok(num(1,j))=1
  26 :   20   continue
  27 :        segdes meleme
  28 :   10   continue
  29 :        segdes mrigid
  30 :        segsup lxok
  31 :        end
  32 :  
  33 :  
  34 :  
  35 :  
  36 :