Télécharger prquoi.eso

Retour à la liste

Numérotation des lignes :

  1. C PRQUOI SOURCE GG250959 17/09/20 21:16:16 9554
  2. subroutine prquoi(imodel)
  3. implicit real*8(A-H,O-Z)
  4. implicit integer (I-N)
  5. -INC CCOPTIO
  6. -INC SMMODEL
  7. SEGMENT info
  8. INTEGER INFELL(JG)
  9. ENDSEGMENT
  10. segact imodel*mod
  11. nele=nefmod
  12. c petite verrue pour les MULT
  13. if(nele.eq.22) return
  14. c petite verrue pour les SURE
  15. if(nele.eq.259) then
  16. infele(1)=nefmod
  17. infele(14)=48
  18. c test pour savoir s'il sagit de SURE xfem
  19. nomid = LNOMID(1)
  20. segact nomid
  21. IF (lesfac(/2).NE.0) THEN
  22. infele(13)=63
  23. ELSE
  24. infele(13)=1
  25. ENDIF
  26.  
  27. return
  28. endif
  29.  
  30. IF(INFMOD(/1).NE.0)THEN
  31. NPINT=INFMOD(1)
  32. ELSE
  33. NPINT=0
  34. ENDIF
  35. inttyp=-10
  36. * write(6,*) ' prquoi : nele ' , nele
  37. call elquoi(nele,npint,inttyp,iptr,imodel)
  38. info=IPTR
  39. segact info
  40. do i=1,infell(/1)
  41. infele(i)=infell(i)
  42. enddo
  43. segsup info
  44. return
  45. end
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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