Télécharger selmod.eso

Retour à la liste

Numérotation des lignes :

selmod
  1. C SELMOD SOURCE CB215821 19/07/30 21:18:02 10273
  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. go to 1
  26. 4 continue
  27. n1=n1+1
  28. mmode1.kmodel(n1)=kmodel(i)
  29. 1 continue
  30. if(n1.ne.kmodel(/1)) segadj mmode1
  31. mmod1=mmode1
  32. end
  33.  
  34.  
  35.  

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