Esope source files

   1 : C SELMOD    SOURCE    CHAT      12/06/07    21:16:04     7389           
   2 :       subroutine selmod(mmodel,mmod1,mofor)
   3 : *
   4 : *  selectionne dans le modele la partie concernée par mofor
   5 : * ( si  thermique on regarde dans le materiau
   6 : *
   7 :       implicit real*8(a-h,o-z)
   8 :       implicit integer (i-n)
   9 :       character*(*) mofor
  10 : -INC SMMODEL
  11 :       segact mmodel
  12 :       segini,mmode1=mmodel
  13 :       n1=0
  14 :       do 1 i=1,kmodel(/1)
  15 :          imodel=kmodel(i)
  16 :          segact imodel
  17 :          do  j=1,formod(/2)
  18 :            if( formod(j).eq.mofor) go to 4
  19 :            if(formod(j).eq.'THERMIQUE' ) then
  20 :              do  k=1,matmod(/2)
  21 :                if(matmod(k).eq.mofor) go to 4
  22 :              enddo
  23 :            endif
  24 :          enddo
  25 :          segdes imodel
  26 :          go to 1
  27 :     4    continue
  28 :          n1=n1+1
  29 :          mmode1.kmodel(n1)=kmodel(i)
  30 :     1 continue
  31 :       if(n1.ne.kmodel(/1)) segadj mmode1
  32 :       segdes mmodel
  33 :       mmod1=mmode1
  34 :       return
  35 :       end
  36 :            
  37 :