Télécharger la plaquette Cast3M


fr en

Télécharger selmod.eso

Retour à la liste

Numérotation des lignes : 

selmod

  1. C SELMOD    SOURCE    CB215821  24/04/12    21:17:13     11897          
  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 PPARAM
  11. -INC SMMODEL
  12.       segact mmodel
  13.       segini,mmode1=mmodel
  14.       n1=0
  15.       do 1 i=1,kmodel(/1)
  16.          imodel=kmodel(i)
  17.          segact imodel
  18.          do  j=1,formod(/2)
  19.            if( formod(j).eq.mofor) go to 4
  20.            if(formod(j).eq.'THERMIQUE' ) then
  21.              do  k=1,matmod(/2)
  22.                if(matmod(k).eq.mofor) go to 4
  23.              enddo
  24.            endif
  25.          enddo
  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.       mmod1=mmode1
  33.       end
  34.  
  35.  
  36.  
  37.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales