Télécharger cneq.eso

Retour à la liste

Numérotation des lignes :

  1. C CNEQ SOURCE CB215821 16/12/05 21:15:08 9237
  2. SUBROUTINE CNEQ
  3. *_______________________________________________________________________
  4. *
  5. * OPERATEUR DE CONVERSION DE CHAMPS VOLUMIQUES EN CHAMPS NODAUX
  6. *
  7. * ZOZO = CNEQ MOD CHP1 (CAR1) ;
  8. * CHAM
  9. *
  10. * MOD objet de type MMODEL
  11. * CHP1 objet de type CHPOINT
  12. * CHAM objet de type MCHAML
  13. * CAR1 CHAMP PAR ELEMENT DE CARACTERISTIQUES
  14. * GEOMETRIQUES ET MATERIELLES, TYPE MCHAML (facultatif)
  15. * ZOZO CHPOINT donnant les VALEURS nodales
  16. *
  17. * Francois CAFFIN 1992
  18. *_______________________________________________________________________
  19. *
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8(A-H,O-Z)
  22. -INC CCOPTIO
  23. -INC SMCHAML
  24. -INC SMCHPOI
  25. -INC SMCOORD
  26. *
  27. IPCHE1=0
  28. IPCHE2=0
  29. IPCHPO=0
  30. IPCHP2=0
  31. *
  32. * LECTURE DU MODELE
  33. *
  34. CALL LIROBJ('MMODEL',IPMODL,1,IRT1)
  35. IF (IERR.NE.0) RETURN
  36. *
  37. * LECTURE D'UN CHPOINT OU D'UN MCHAML
  38. *
  39. CALL LIROBJ('CHPOINT',IPCHPO,0,IRT1)
  40. IF (IERR.NE.0) RETURN
  41. IF (IRT1.EQ.0) THEN
  42. CALL LIROBJ('MCHAML',IPIN,1,IRT1)
  43. IF (IERR.NE.0) RETURN
  44. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  45. IF(IR .NE. 1) CALL ERREUR(KER)
  46. IF(IERR .NE. 0) RETURN
  47. ENDIF
  48. *
  49. * LECTURE EVENTUELLE D'UN CHAMP DE CARACTERISTIQUES
  50. *
  51. CALL LIROBJ('MCHAML',IPIN,0,IRT1)
  52. IF (IERR .NE. 0) RETURN
  53. IPCHE2=0
  54. IF (IRT1 .EQ. 1) THEN
  55. CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  56. IF(IR .NE. 1) CALL ERREUR(KER)
  57. IF(IERR .NE. 0) RETURN
  58. ENDIF
  59. *
  60. CALL CNEQP(IPMODL,IPCHE1,IPCHPO,IPCHE2,IPCHP2,IRET)
  61. *
  62. IF (IRET.EQ.1) THEN
  63. *
  64. * on attribue une nature discrete au champ resultant
  65. MCHPOI = IPCHP2
  66. SEGACT MCHPOI*MOD
  67. JATTRI(1) = 2
  68. SEGDES MCHPOI
  69. *
  70. CALL ECROBJ('CHPOINT',IPCHP2)
  71. ENDIF
  72. RETURN
  73.  
  74. END
  75.  
  76.  
  77.  

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