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

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